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)
2241ASCII = ASCII + 4 230 NEXT NUM
240 BLANKS = CHR$(200)
250PRINT i/l,DOWN.CHAR.PROP$; LINE.7$
260FOR NUM = 8 TO 9
270PRINT f/l,NUMERAL. TOP$(NUM);BLANK$;
280NEXT NUM
290PRINT #l, CHR$(l@>
300FOR NUM = 0 TO 9
310PRINT f/l,NUMERAL. BOT$(NUM);BLANR$;
320 NEXT NUM
330 PRINT i/l,NOT.DOWN.CHAR.PROP$;LINE.12$
344)'ZERO
350DATA 11, 8, 6, 8, 22, 8, 52, 120, 112, 0, 64, 128
360DATA 11, 64, 128, 64, 128, 96, 16, 100, 30, 4,
30, 4
370DATA 11, 192, 48, 200, 48, 204, 0, 6, 0, 6, 0, 6
380DATA 11, 0, 4, 0, 12, 8, 56, 192, 48, 192, 32, 192
390'ONE
400DATA 11, 0, 0, 0, 0, 0, 32, 0, 32, 0, 32, 126
410DATA 9, 48, 78, 48, 78, 48, 64, 0, 0, 0, 0, Q
420DATA 11, 2, 0, 2, 0, 29 8, 2, 4, 10, 244, 10
430DATA9, 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
