Table of Contents
Advertisement
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);
Advertisement
Table of Contents
