Epson FX-80 User Manual - FX-80/100 Vol. 1 - Page 172
Repeated patterns, Curling design
View all Epson FX-80 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 172 highlights
50 READ N 90 DATA 3,7,31,63,126,124,112,96,92,66,33,25,5,3 Line 50 reads the first data number into the variable N. To read the rest of the numbers, line 50 must be executed in a loop. Add these lines to the program: 20 A$=CHR$(27)+"K"+CHR$(14)+CHR$(0) 30 LPRINT A$; 128 64 32 16 8 4 2 1 3 31 126 112 92 33 5 7 63 124 96 66 25 3 Figure 11-7. Curling design 40 FOR X=1 TO 14 60 LPRINT CHR$(N); 70 NEXT X 80 LPRINT CHR$(27)"@": END Perfect! Just like the design. Repeated patterns Now how would you go about repeating this pattern-add more data? Or store the data in program variables to be recalled as needed? Here you don't need to go to that much trouble. For simple programs 155
50
READ
N
90 DATA 3,7,31,63,126,124,112,96,92,66,33,25,5,3
Line 50 reads the first data number into the variable N. To read the
rest of the numbers, line
50
must be executed in a loop. Add these lines
to the program:
20 A$=CHR$(27)+"K"+CHR$(14)+CHR$(0)
30 LPRINT A$;
128
64
32
16
8
4
2
1
3
31
126
112
92
33
5
7
63
124
96
66
25
3
Figure 11-7. Curling design
40 FOR X=1 TO 14
60 LPRINT CHR$(N);
70
NEXT X
80 LPRINT CHR$(27)"@": END
Perfect! Just like the design.
Repeated patterns
Now how would you go about repeating this pattern-add more
data? Or store the data in program variables to be recalled as needed?
Here you don’t need to go to that much trouble. For simple programs
155