L.
L
L
L
i
i
‘.
i
c. c 85
l Tell printer to use download character set : (ESC > “%”
1
To demonstrate how to use the download characters, let’s use
the “flask” character and some other user-defined characters 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);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, 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, 45, 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);"%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);
310 NEXT I