109
l Define characters, and send data to printer: < ESC >
“8~” CHR$(O) . . . .
l Tell printer to use download character set: < ESC >
6byfo” 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) ; ” : ‘I; CHR$(O);CHR$(O);CHR$(0);
20 LPRINT CHR$(27);"&";CHR$(O);CHR$(60);CHR$(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, 0, 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 m U.S. EXPORTS"
160 LPRINT CHR$(27);"h";CHR$(O);
170 LPRINT CHR$(27);"%1";
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 LPRINT "GUNS";CHR$(9);
290 FOR I=.4 TO 1.4 STEP .4
300 LPRINT CHR$(62);