Filter
Top Products
Prlntlng Caprblllties
10 LPRINT CHRI~Z?):CHR$(65):CHR)(b);CHR1(151
!5 LPRINT CHk$~27~:CHRt(85):CHR$~l~:
20 FOR K = ! TO I
:O LPRINT CHR((27):CHPS(66);CHfi((K)
40 RESTORE
50 FOR J = 1 TO 9
$0 FOR I = 1 TO 1;
70 REkD A
80 LPRINT CHRS (A!:
90 NEXT 1
100 LPRINT
110 NEXT J
!?O DATA 224,224,224,224,224,224, 224,224,224,245,2?4,224
130 DATA 224,224,?24,224,224,?2), 224,224,?5?,245,224,224
140 DATA 224,2?4,224,245,224,224, 224,252,239,245,224,224
150 DATA ?24,224,252,245,224,224, 252,239,239,245,224,224
lb0 DATA 224,25?,239,245,224,252, 239,239,239,245,224,224
170 DIITA ?5?,239,23?,245,252,239, 239,239,239,245,224,224
!80 DATA 241,241,241,249,241,241, 241,241,241,249,224,224
190 DATA ?39.239,239,239,239,239, 239,239,239,239,239,251
200 DATA 253,239,239,239,239,239, 239,239.23?,239,251,224
210 LPRINT : NEXT I:
220 LPRINT CHRS(27I:CHR$(64I::END
Figure 7-2. Block graphics created this fleet of sailboats, using the simple
program shown.
Line 40 Is a BASIC command that tells the next READ
statement to start reading at the beginning of the data.
The data statements have been changed In Figure 7-2 from
what they were in Figure 7-1, or else we would have produced
another “WY” instead of the sailboat. You can examine the data
to see what characters are used, and with what results. You might
want to take a sheet of quad paper and mark off 12 squares by 9
squares; then write the symbol for .each character in the
corresponding position.
Note that we can control the aspect ratio (height to width) of
the block graphic characters in the same manner we control the
standard characters.
107