109
•Define characters, and send data to printer: < ESC > “8~” CHR$(O) ....
•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
10LPRINT CHR$(27) ; ” : ‘I; CHR$(O);CHR$(O);CHR$(0);
20LPRINT CHR$(27);"&";CHR$(O);CHR$(60);CHR$(62);
30FOR N=60 TO 62
40FOR M=O TO 11
50READ MM
60LPRINT CHR$(MM);
70 NEXT M
80NEXT N
90LPRINT
100DATA 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);
210NEXT I
220LPRINT
230LPRINT "CHEMICALS";CHR$(9);
240FOR I=.4 TO 8.7 STEP .4
250LPRINT CHR$(60);
260NEXT I
270LPRINT
280 LPRINT "GUNS";CHR$(9);
290FOR I=.4 TO 1.4 STEP .4
300 LPRINT CHR$(62);
