7 WIDTH LPRINT 255
10 LPRINT CHR$(27)"1"
20 G$=CHR$(27)+"L"+CHR$(l2l)+CHR$(3): GOSUB 160
30
FOR
D=l
TO
17.:
PR
I
NT
"ROW ";D
40
LPRINT G$;
50
READ L,H
60
L=L*7: H=H*7
70 IF L=0 THEN 90
80 FOR X=1 TO L: LPRINT CHR$(l);: NEXT X
90 IF H<0 THEN LPRINT: GOT0
140
100 LPRINT CHR$(l)CHR$(2)CHR$(b)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)CHR$(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 889: LPRINT CHR$(l);: NEXT Y
180 LPRINT: NEXT X: RETURN
190 DATA 3,20,2,3,12,3,21,3,6,14,8,14,6,-1
200 DATA 3,20,3,3,10,3,22,3,4,18,4,18,4,-1
210 DATA 3,20,4,3,8,3,23,3,3,5,8,5,2,5,8,5,3,-1
220 DATA 3,3,22,3,6,3,24,3,3,3,12,3,2,3,12,3,3,-1
230 DATA 3,3,23,3,4,3,25,3,3,3,12,3,2,3,12,3,3,-1
240 DATA 3,3,24,3,2,3,26,3,3,3,12,3,2,3,12,3,3,-1
250 DATA 3,3,25,3,0,3,27,3,3,3,12,3,2,3,12,3,3,-1
2.60 DATA 3,20,9,6,5,15,6,3,3,3,12,3,2,3,12,3,3,-1
270 DATA 3,20,10,4,6,15,6,3,3,3,12,3,2,3,12,3,3,-1
280 DATA 3,20,9,6,5,15,6,3,3,3,12,3,2,3,12,3,3,-1
290 DATA 3,3,25,3,0,3,27,3,3,3,12,3,2,3,12,3,3,-1
300 DATA 3,3,24,3,2,3,26,3,3,3,12,3,2,3,12,3,3,-1
310 DATA 3,3,23,3,4,3,25,3,3,3,12,3,2,3~2>3,3,-1
320 DATA 3,3,22,3,6,3,24,3,3,3,12,3,2,3,12,3,3,-1
330 DATA 3,3,21,3,8,3,23,3,3,5,8,5,2,5,8,5,3,-1
340 DATA 3,3,20,3,10,3,22,3,4,18,4,18,4,-1
350 DATA 3,3,19,3,12,3,21,3,6,14,8,14,6,-1
Figure 12-8. Program
for
FX-100 figure
Other versions
Now that you’ve typed in all that data, it’s time to have some fun.
You can change a few of the pin patterns to make a dramatic effect on
results. These changes work the same on either model’s figure.
170
To Next Page
Loading...
Need help?
General
