Advertisement
I
• •
•
II
I
il
• •
• •
•
I
•
• •
• •
• •
• •
•
Printing Capabilities
10 LPRINT CHR$(27):CHR$(651:CHR$161:CHR$(15
1
!5 LPRINT CHRf(27':CHPfIBS):CHR$(I):
20 FOR
~
:
!
TO 3
:0 LPRINT CHRt(27):CHRf(66':CHRf(K)
40 RESTO FE
SO FOR
J
= 1 TO
q
60 FOR I : 1 TO I:
iO READ A
80 LPRINT CHR$(A):
90 NEXT I
1{\1)
LPRIN;
110
NEXT J
120 DATA 224,224.224.224.224.224,
130 DATA 224.224,224,224,224,224,
140 DATA 224,224,224.245.224,224,
150 DATA 224,224,252,245,224,224.
160 DATA 224.252,239,245,224,252,
224,224,224,245.224,224
224,224,252,245,224,22~
224,252,239,245.224,224
252.239,239~245,224,:24
239.239.239,245.224.224
170 DATA 252.239.239,245.252,239, 239,239,239,245,224,224
180 DATA 241,241,241,249,241.241, 241,241,241.249,224.224
190 DATA 239.239.239,239.239,239. 239,239,239.239,239.251
:00 DATA 253.239.239.239.239.239, 239,239,239,239.251,224
210
lPRINT : NEIT
t'
220 lPRINT CHRS(271:CHR$(641::END
I
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
