Epson FX CHR$(32)CHR$(64);, Other versions, 20 G$=CHR$(27)+"L"+CHR$(l2l)+CHR$(3): GOSUB, 100 LPRINT CHR$(1)CHR$(2)CHR$(b)CHR$(8)CHR$(16), D=1, 17.:, 50 READ L,H

7 WIDTH LPRINT 255

10 LPRINT CHR$(27)"1"

20 G$=CHR$(27)+"L"+CHR$(l2l)+CHR$(3): GOSUB 160

30 FOR D=1 TO 17.: PRINT "ROW

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$(1);: NEXT X

90 IF H<0 THEN LPRINT: GOT0 140

100 LPRINT CHR$(1)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$(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=1 TO 889: LPRINT CHR$(1);: NEXT Y

180 LPRINT: NEXT X: RETURN

190DATA 3,20,2,3,12,3,21,3,6,14,8,14,6,-1

200DATA 3,20,3,3,10,3,22,3,4,18,4,18,4,-1

210DATA 3,20,4,3,8,3,23,3,3,5,8,5,2,5,8,5,3,-1

220DATA 3,3,22,3,6,3,24,3,3,3,12,3,2,3,12,3,3,-1

230DATA 3,3,23,3,4,3,25,3,3,3,12,3,2,3,12,3,3,-1

240DATA 3,3,24,3,2,3,26,3,3,3,12,3,2,3,12,3,3,-1

250DATA 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

270DATA 3,20,10,4,6,15,6,3,3,3,12,3,2,3,12,3,3,-1

280DATA 3,20,9,6,5,15,6,3,3,3,12,3,2,3,12,3,3,-1

290DATA 3,3,25,3,0,3,27,3,3,3,12,3,2,3,12,3,3,-1

300DATA 3,3,24,3,2,3,26,3,3,3,12,3,2,3,12,3,3,-1

310DATA 3,3,23,3,4,3,25,3,3,3,12,3,2,3,12,3,3,-1

320DATA 3,3,22,3,6,3,24,3,3,3,12,3,2,3,12,3,3,-1

330DATA 3,3,21,3,8,3,23,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