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
Yes, indeed, high-resolution graphics does require a large amount of
data. Okay, now RUN the program:
Figure 12-S. FX-80 figure
Success! In your printout (which should look like Figure
12-5),
can
you see the 3D effect of the letters? The modifications to follow will
make the letters easier to read.
Type LLIST to
see what
you’ve got up to this point. It should match
Figure 12-6. Figure 12-7 shows
the
printout and Figure 12-8 shows the
listing for the FX-100.
7 WIDTH LPRINT 255
10 LPRINT CHR$(27)"1"
20 G$=CHR$(27)+"L"+CHR$(51)+CHR$(3): GOSUB 160
30 FOR D=1 TO 17: PRINT "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$(1);: NEXT X
90 IF H<0 LPRINT: GOT0 140
----------------------------------------------------------------------------------.
Figure 12-6. Program
for
FX-80
figure
168
