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
To Next Page
Loading...
Need help?
General
