I ? 109
l Define characters, and send data to printer: < ESC >
“8~” CHR$(O) . . . .
l Tell printer to use download character set: < ESC >
-yo” 1
To demonstrate how to use the download characters, let’s
use the “flask” character and some other user-defined char-
acters to print a small graph. This program will do just that:
10 LPRINT CHR$(27);“:“; CHR$(O);CHR$(O);CHR$(O);
20 LPRINT CHR$(27);“&“;CHR$(O);CHR$(60);CHRa(62);
30 FOR N=60 TO 62
40 FOR M=O TO 11
50 READ MM
60 LPRINT CHR$(MM);
70 NEXT M
80 NEXT N
90 LPRINT
100 DATA 139, 2, 5, 8,241, 0, 0,241, 8, 5,
2. 0
110 DATA 139,124, 0, 66, 4, 64, 36, 16, 2, 16,
12, 0
120 DATA 139, 46, 16, 2, 60. 0, 48, 0, 48, 0,
48, 0
130 LPRINT CHR$(27) ;“D”;CHR$(ll) ;CHR$(O);
140 LPRINT CHR$(27) ;“h”;CHR$(l) ;
150 LPRINT ” U . S . EXPORTS”
160 LPRINT CHR$(27) ;“h”;CHR$(O) ;
170 LPRINT CHR$ (27) ; “%l” ;
180 LPRINT “AUTOS”;CHR$(9);
190 FOR I=.4 TO 9.3 STEP .4
200 LPRINT CHR$(61);
210 NEXT I
220 LPRINT
230 LPRINT “CHEMICALS”;CHR$(9);
240 FOR I=.4 TO 8.7 STEP .4
250 LPRINT CHR$(60);
260 NEXT I
270 LPRINT
280 LI’RINT “GUNS”;CHR$(9);
. 290 FOR I=.4 TO 1.4 STEP .4
300 LPRINT CHR$(62);