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)

130

CHR$(2)CHR$(1);

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-80figure (concluded)

Figure 12-7. FX-100 figure

169