Program For Fx-80 Figure; Fx-100 Figure - Epson FX Series User Manual

100 LPRINT CHR$(l)CHR$(2)CHR$(4)CHR$(8)CHR$(l6)
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$(l);
130 GOT0 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$(l);: 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 9 2 , 5 9 8 9 5 ) 3 2 -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 12-7. FX-100 figure
figure (concluded)
169