100
LPRINT CHR$(1)CHR$(2)CHR$(4)CHR$(8)CHR$(16)
CHR$(32)CHR$(64);
110 FOR X=1 TO H: LPRINT CHR$(64);: NEXT X
120
LPRINT CHR$(64)CHR$(32)CHR$(16)CRR$(8)CHR$(4)
CHR$(2)CHR$(1);
130
GOTO 50
140
NEXT D: GOSUB 160
150 LPRINT CHR$(27)"@": END
160
FOR X=1 TO 3: LPRINT G$;
170 FOR Y=l TO 819: LPRINT CHR$(1);: NEXT Y
180 LPRINT: NEXT X: RETURN
190
DATA 3,20,2,3,12,3,22,14,8,14,6,-1
200
DATA 3,20,3,3,10,3,21,18,4,18,4,-1
210
DATA 3,20,4,3,8,3,21,5 ,8,5,2,5,8,5,3,-1
220
DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1
230
DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1
240
DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1
250
DATA 3,3,25,3,0,3,25,3,12,3,2,3,12,3,3,-1
260
DATA 3,20,9,6,5,15,5,18,3,3,12,3,3,-1
270
DATA 3,20,10,4,6,15,7,14,5,3,12,3,3,-1
280
DATA 3,20,9,6,5,15,5,5,6,5,3,3,12,3,3,-1
290
DATA 3,3,25,3,0,3,25,3,12,3,2,3,12,3,3,-1
300
DATA 3,3,24,3,2,3,24,3,12,3,2,3,12,3,3,-1
310
DATA 3,3,23,3,4,3,23,3,12,3,2,3,12,3,3,-1
320
DATA 3,3,22,3,6,3,22,3,12,3,2,3,12,3,3,-1
330
DATA 3,3,21,3,8,3,21,5,8,5,2,5,8,5,3,-1
340
DATA 3,3,20,3,10,3,21,18,4,18,4,-1
350
DATA 3,3,19,3,12,3,22,14,8,14,6,-1
Figure 72-6. Program
for
FX-80
figure (concluded)
Figure 12-7. FX-100 figure
169
