130 READ MS
140 PRINT i/l, CHR$(MS);
150 NEXT S
160 NEXT I
170 '
180 ASCII = 160 'START OF DOWNLOAD
CHARACTERS
190 FOR NUM = 0 TO 9 'NUMERALS 0 TO 9
200 NUMERAL.TOP$(NUM) = CHR$(ASCII + 0) + CHR$(ASCII
+ 1)
214) NUMERAL.BOT$(NUM) = CHR$(ASCII + 2) + CHR$(ASCII
+ 3)
2241 ASCII = ASCII + 4
230 NEXT NUM
240 BLANKS = CHR$(200)
250 PRINT i/l, DOWN.CHAR.PROP$; LINE.7$
260 FOR NUM = 8 TO 9
270 PRINT f/l, NUMERAL
.
280 NEXT NUM
290 PRINT #l, CHR$(l@
>
300 FOR NUM = 0 TO 9
310 PRINT f/l, NUMERAL
.
320 NEXT NUM
TOP$(NUM);BLANK$;
BOT$(NUM);BLANR$;
330 PRINT i/l, NOT.DOWN.CHAR.PROP$; LINE.12$
344) 'ZERO
350 DATA 11, 8, 6, 8, 22, 8, 52, 120, 112, 0, 64,
128
360 DATA 11, 64, 128, 64, 128, 96, 16, 100, 30, 4,
30, 4
370 DATA 11, 192, 48, 200, 48, 204, 0, 6, 0, 6, 0, 6
380 DATA 11,
0, 4, 0, 12, 8, 56, 192, 48, 192, 32,
192
390 'ONE
400 DATA 11, 0, 0, 0, 0, 0, 32, 0, 32, 0, 32, 126
410 DATA 9, 48, 78, 48, 78, 48, 64, 0, 0, 0, 0, Q
420 DATA 11, 2, 0, 2, 0, 29 8, 2, 4, 10, 244, 10
430 DATA 9, 244, 10, 244, 2, 8, 2, 8, 2, 0, 0, 0
440 'TWO
450 DATA 11, 8, 8, 0, 0, 0, 48, 8, 112, 0, 96, 0
460 DATA 11, 192, 0, 192, 0, 98, 28, 98, 28, 32, 24,
0
470 DATA 11, 2, 0, 2, 4, 2, 4, 10, 4, 10, 241, 2
480 DATA 11, 52, 2, 100, 130, 68, 130, 4, 10, 4, 24,
0
490 'THREE
99
