Filter
Top Products
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);