READ N
50
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
to the program:
20 A$=CHR$(27)+"K"+CHR$(14)+CHR$(0)
30 LPRINT A$;
128
64
32
16
8
4
2
1
3
7
40 FOR X=1 TO 14
60 LPRINT CHR$(N);
NEXT X
70
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
must be executed in a loop. Add these lines
50
31
126
63
124
Figure 11-7. Curling design
92
112
96
66
33
5
25
3
155