10 DIM A(480): X=1: C=0
20 MAX=5: MIN=l: RE=4: N=0
30 FOR J=l TO RE
40 N=N+l
50
GOSUB 300
60
IF N<MAX THEN 40
70
N=N-1
80
GOSUB 300
90
IF N>MIN THEN 70
100 NEXT J: PRINT
110 FOR K=l TO C: PRINT A(K);:
NEXT K: PRINT: PRINT
"C =" C
120 LPRINT CHR$(27)"1";
130 LAST=INT(C/7): R=C-7*LAST
140 FOR PASS=0 TO LAST: P=0: PRINT "PASS"; PASS;
"0F";LAST
150 H=6: IF PASS=LAST THEN H=R-1
160 FOR DOT=0 TO H
170
IF A(7*PASS+DOT+l)=l THEN P=P+2^(6-DOT)
180 NEXT DOT
190 P0=127-P: IF PASS=LAST THEN P0=P0+1-2^(7-R)
200 Nl=C: N2=0
210 IF C>255 THEN Nl=C-256: N2=1
220 LPRINT CHR$(27)"*"CHR$(5)CHR$(Nl)CHR$(N2);
230 FOR K=l TO C
240
IF A(K)=1 THEN LPRINT CHR$(P);
250
IF A(K)<>1 THEN LPRINT CHR$(P0);
260 NEXT K
270 LPRINT
280 NEXT PASS
290 LPRINT CHR$(27)"2": END
300
FOR K=0 TO MAX-N
310
FOR L=l TO N
320
C=C+l: A(C)=X
330
NEXT L: X=1-X
340
NEXT K: PRINT N;: RETURN
Figure 14-3. Program
for
SYMMETRY
then RUN it to see if it looks like Figure
14-4.
194
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 ...