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$;
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
