70 LPRINT CHR$(27)"3"CHR$(20);CHR$(7);
80
B=N: E=7: S=-1
90
FOR Z=l TO 2
100 IF Z=2 THEN B=l: E=N-6: S=l
110 FOR P=B TO E STEP 7*S
120 PRINT "LOADING ROWS";P;"TO";
P+6*S
130 LPRINT CHR$(27)"*"CHR$(0)CHR$(2*N)CHR$(0);
140 FOR C=N TO 1 STEP -1: GOSUB 180: NEXT C
150 FOR C=l TO N: GOSUB 180: NEXT C
160 LPRINT: NEXT P: NEXT Z
170 LPRINT CHR$(27)"@": END
180 F=0: FOR R=P TO P+6*S STEP S
190 IF A(R,C)=l THEN F=F+2^ABS(P+6*S-R)
200
NEXT R
210 IF F>8 AND F<14 THEN F=F-5
220 LPRINT CHR$(F);: RETURN
O.K., now RUN the program (you can
have a
few cups of coffee
while you’re waiting).
In the printout can you see white stars against the blackness of outer
space?
The design above demonstrates
that
symmetry can increase the size
of a complex figure produced by a two-dimensional array. The only
problem is that the array for this figure uses over 20,000 bytes, which
186
Summary of Contents for FX-80
Page 1: ......
Page 22: ......
Page 23: ......
Page 26: ......
Page 31: ...Figure 1 1 The FX 80 and FX 100 printers 14 ...
Page 32: ...Figure 1 2 Printer parts 1 5 ...
Page 38: ...Figure 1 8 DIP switch vent 21 ...
Page 42: ...Figure 1 11 Ribbon insertion 25 ...
Page 51: ...Figure 1 20 Paper thickness adjustment 34 ...
Page 85: ......
Page 92: ......
Page 95: ......
Page 97: ...80 ...
Page 109: ......
Page 117: ...Figure 7 3 Staggering STAIR STEPS 100 ...
Page 119: ...Table 7 1 Line spacing commands 102 ...
Page 129: ...112 ...
Page 147: ...130 ...
Page 181: ...Figure 12 4 Corner of the FX 80 design ...
Page 189: ...Figure 12 10 Most distinct version Figure 12 11 Reversed version 172 ...
Page 215: ...198 ...
Page 231: ...214 ...
Page 249: ......
Page 269: ......
Page 272: ...iv ...
Page 283: ......
Page 290: ......
Page 305: ...282 ...
Page 311: ...288 ...
Page 323: ...300 ...
Page 339: ......
Page 343: ...320 ...
Page 349: ...326 ...
Page 353: ...330 ...
Page 354: ...Schematic 331 ...