Star Micronics NR-15, NR-10 user manual Read MM Lprint CHR$MM Next M Next N, Lprint U. S . Exports

109

•Define characters, and send data to printer: < ESC > “8~” CHR$(O) ....

•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:

10LPRINT CHR$(27);“:“; CHR$(O);CHR$(O);CHR$(O);

20LPRINT CHR$(27);“&“;CHR$(O);CHR$(60);CHRa(62);

30FOR N=60 TO 62

40FOR M=O TO 11

50READ MM

60LPRINT CHR$(MM);

70NEXT M

80NEXT N

90LPRINT

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

130LPRINT CHR$(27) ;“D”;CHR$(ll) ;CHR$(O);

140LPRINT CHR$(27) ;“h”;CHR$(l) ;

150LPRINT ” U. S . EXPORTS”

160LPRINT CHR$(27) ;“h”;CHR$(O) ;

170LPRINT CHR$(27) ; “%l” ;

180LPRINT “AUTOS”;CHR$(9);

190FOR I=.4 TO 9.3 STEP .4

200LPRINT CHR$(61);

210NEXT I

220LPRINT

230LPRINT “CHEMICALS”;CHR$(9);

240FOR I=.4 TO 8.7 STEP .4

250LPRINT CHR$(60);

260NEXT I

270LPRINT

280LI’RINT “GUNS”;CHR$(9);

. 290 FOR I=.4 TO 1.4 STEP .4 300 LPRINT CHR$(62);