Epson FX Repeated patterns, 90 DATA 3,7,31,63,126,124,112,96,92,66,33,25,5,3, 70 NEXT, 50 READ N, 30LPRINT A$;, 40 FOR X=1 TO, 60 LPRINT CHR$(N);

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:

20A$=CHR$(27)+"K"+CHR$(14)+CHR$(0)30LPRINT A$;

Figure 11-7. Curling design

40 FOR X=1 TO 1460 LPRINT CHR$(N);70 NEXT X80 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