2180 RE’IURN
2190 ‘
2200 ‘
Define NIL.)download character
2210 LPRINTC$;E$; “&”;CliR$(0);CHR$(60) ;CIiR$(60);
2220 RESKK!E2330
2230 FOR
M-O IU 46
2240 READMM
2250 LPRIIWCHR$(MM);
2260 NEXTM
2270 REIURN
2280 ‘
2290 ‘ DATA
2300 ‘
Draft download character data
2310 DATA139,124, 0, 66, 4, 64, 36, 16, 2, 16, 12, 0
2320 ‘
2330 ‘
NI.Qdownlcad character data
2340 DATA128, 14, 16, 38, 1, 70, 1, 70, 0,126, 0, 0
2350 DATA 70, 0, 38, 0, 22, 9, 6, 9, 6, 8, 6, 0
2360 DATA 28, 32, 14, 64, 14, 0, 14, 0,124, 0, 0, 12
2370 DATA 64, 12, 32, 14, 16, 14, 0, 14, 0, 12, 0
2380 ‘
2390 ‘
Ibt
graphics data
2400 DATA O, 0, 0, 0, 1, 3, 7, 7, 7, 15, 14, 14
2410 DATA 14, 14, 14, 7, 7, 3, 3, 15, 15, 15, 0, 0
2420 DATA O, 0, 6, 7, 7, 7, 7, 7, 7, 7, 7, 6
2430 DATA 6, 0, 0, 7, 7, 7, 7, 7, 7, 7, 7, 7
2440 DATA 7, 7, 0, 0, 7, 7, 7, 7, 7, 7, 7, 7
2450 DATA 7, 7, 0. 0, 0
2460 DATA 0,
0, 60,255,255,255,255,255,143, 15, 7, 7
2470 DATA 7, 7, 3, 3, 3,131,193,241,240,240, O, 0
2480 DATA O, 0, 0,
0,224,255,255,255,255,255, 31, 0
2490 DATA O, 0, 1,
3, 31,255,255,255,255,255,255, 1
2500 DATA O, 0, 0,
1, 7. 31.255>252.240,192,128, O
2510 DATA O, 0, 0, 0, 0
2.520DATA o, 31, 31,
3,129,128,192,192,192,192, 192,224
2530 DATA224,224,224,240,255,255,255,255,255, 127, 0, 0
2540 DATA O, 0, 0, 0,
0,192,255,255,255,255,255, 15
2550 DATA 15, 63,252,240,192, 0,240,255,255,255,255,255
2560 DATA
7, 15,127,252,240,192, 0, 0, 0, 0, 0, 0
2570 DATA O, 0, 0, 0. 0
2580 DATA
0,248,248,240,224,224,112, 112, 56, 56, 56, 56
2590 DATA 56,120,120,240,240,224,224, 192,128, 0, 0, 0
2600 DATA O, 0, 0, 0, 0, 0,128,248,248,248,248,240
2610 DATA192. 0, 0, 0, 0. 0,240,248,248,248,248,240
2620 DATA192, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
2630 DATA O. 0, 0. 0, 0
85
