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
Содержание FX-80
Страница 1: ......
Страница 16: ...17 1 17 2 17 3 17 4 Barchart Program for BARCHART Statement form Program for STATEMENT 228 230 232 234 xvi ...
Страница 22: ......
Страница 23: ......
Страница 26: ......
Страница 31: ...Figure 1 1 The FX 80 and FX 100 printers 14 ...
Страница 32: ...Figure 1 2 Printer parts 1 5 ...
Страница 38: ...Figure 1 8 DIP switch vent 21 ...
Страница 42: ...Figure 1 11 Ribbon insertion 25 ...
Страница 51: ...Figure 1 20 Paper thickness adjustment 34 ...
Страница 85: ......
Страница 92: ......
Страница 95: ......
Страница 97: ...80 ...
Страница 109: ......
Страница 117: ...Figure 7 3 Staggering STAIR STEPS 100 ...
Страница 119: ...Table 7 1 Line spacing commands 102 ...
Страница 129: ...112 ...
Страница 147: ...130 ...
Страница 181: ...Figure 12 4 Corner of the FX 80 design ...
Страница 189: ...Figure 12 10 Most distinct version Figure 12 11 Reversed version 172 ...
Страница 215: ...198 ...
Страница 231: ...214 ...
Страница 249: ......
Страница 268: ...W Width of characters 256 270 statements 313 314 Word processing 36 321 322 Z Zero slashed 23 251 ...
Страница 269: ......
Страница 272: ...iv ...
Страница 283: ......
Страница 290: ......
Страница 305: ...282 ...
Страница 311: ...288 ...
Страница 323: ...300 ...
Страница 339: ......
Страница 343: ...320 ...
Страница 349: ...326 ...
Страница 353: ...330 ...
Страница 354: ...Schematic 331 ...
Страница 371: ...w Width of characters 256 270 statements 313 314 Word processing 36 321 322 Zero slashed 23 Z 349 ...