Star Micronics NB24-10/15 user manual FS “” CHR$O CHR$O CHR$O only for the IBM-P mode

116

(FS) “:” CHR$(O) CHR$(O) CHR$(O)

(only for the IBM-P mode)

To demonstrate how to use the download characters, let’s use the “car” and “telephone” user-defined characters to print a small graph. This program will do just that:

10 LPRINT CHR$(27);"xO";

20 LPRINT CHR$(27);":";cHR$(o);cHR$(o);cHR$(o)

30 LPRINT CHR$(27);"&";CHR$(O);CHR$(6O);CHR$(61); 40 FOR N=60 TO 61

50 FOR M=l TO 30 60READMM

70 LPRINT CHR$(MM);

80 NEXT M

90 NEXT N

100 LPRINT

110 DATA 1, 9, 2, 1,240, 0, 6, 8, 0, 8, 100, 0

120 DATA 0, 0, 0, 24, 99,128, 0, 0, 0, 31, 255,192

130 DATA 0, 0, 0, 6, 3, 0

140 DATA 1, 9, 2, 14, 0, 0, 0, 31,192, 18, 96, 0

150 DATA 4,132, 64, 16, 10, 0, 4,132, 64, 18, 96, 0

160 DATA 0, 31,192, 14, 0, 0

170 LPRINT CHR$(27);"D";CHR$(ll);CHR$(O)

180 LPRINT CHR$(27);"h";CHR$(l);

190 LPRINT w DIFFUSION RANGES OF"

200 LPRINT ti CARS & TELEPHONES"

210 LPRINT CHR$(27);"h";CHR$(O);

220 LPRINT CHR$(27);"%1";

230 LPRINT "USA";CHR$(9);

240 FOR I=0 TO 681 STEP 50

250 LPRINT CHR$(60);

260 NEXT I

270 LPRINT

280 LPRINT CHR$(9);

290 FOR I=0 TO 781 STEP 50

300 LPRINT CHR$(61);