Table of Contents
Advertisement
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
Advertisement
Table of Contents
