Advertisement
• •
•
• •
•
'I
I
• •
• •
• •
• •
• •
• •
•
• •
Printing Capabilities
I]
- - - - - - - _ . <
10 LPRINT
CHRS(27):CHR'(b~):CHR'(6)
15 LPRINT CHR$(27)jCHRf(BS);CHR'(1);
20 RESTORE
30 FOR
J
=
1 TO 9
40 FOR I • 1 TO 12
50 READ A
60 LPR!NT CHR$(A):
70 NEXT I
BO LPRINT
90 NEXT
J
100 DATA 239,224,224,224,239,224. 224,224,224,224,224,224
110 DATA 239.224,224,224,239,224, 224,224,224,224,224,224
120 DATA 239,224,224,224,239,224, 239.224,224,224,239,224
130 DATA 239,224,239,224.239,224, 234,233,224,234,233,224
140 DATA 239.234,239.233,239,224, 224.239,224,239,224,224
150 DATA 239,239.224,239,239.224. 224,234,239,233,224,224
160 DATA 234,233,224,234,233,224, 224,224,239,224,224,224
170 DATA 224,224,224,224,224,224, 224,234,233,224,224.224
leO DATA 224.224,224,224,224,224, 224,239,224,224,224,224
190 LPRINT CHR$(27):CHR$(64):END
Figure
7-1.
Block graphics can produce Simple output, like this, and can "draw
pictures"
as
well.
Line 10 of the sample program in Figure 7-1 sets consecutive
line feeds to 6/72
=
1/12 inch. This ensures that the 6 x 6 block-
graphic characters will stack on top of each other without
unwanted vertical space between them.
Line 15 sets your printer to unidirectional print mode (as in
Figure 7-1) ensuring vertical alignment.
Line 30 is a loop-over. In this example, the "W" and "y" are
nine lines high.
Line 40 is loop-over for spaces. Each character is six spaces
("blocks") wide. For our example, we've created "oversized" letters
that have the same height-to-width proportions as the standard
character set. Because there are two letter-characters being
printed they represent 12 spaces total width, with an extra column
inserted as a "spacer" between them for legibility.
Thus, you can see that in creating this big "Wy:' we've
followed the same configuration as standard matrix characters,
but each small "dot" on the 9 x 9 has been replaced with a "solid
block" of 6 x 6's.
105
Advertisement
