130 READ MS
140PRINT 111,CHR$(MS);
150NEXT S
160NEXT 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) |
|
|
210 | NUMERAL.BOT$(NUM) | = CHR$(ASCII | + 2) + CHR$(ASCII |
| + 3) |
|
|
220 | ASCII = ASCII + 4 |
|
|
230 NEXT NUM |
|
| |
240 | BLANKS = CHR$(200) |
|
|
250 | PRINT j/l,DOWN.CHAR.PROP$; LINE.7$ | ||
260 FOR NUM = 0 TO 9
270PRINT i/l,NUMERAL.TOP$(NUM);BLANK$;
280NEXT NUM
290PRINT f/l,CHR$(l@)
300 FOR NUM = 0 TO 9
310 PRINT j/l,NUMERAL.BOT$(NUM);BLANX$;
320 NEXT NUM
330 PRINT i/l,NOT.DOWN.CHAR.PROP$; LINE.12$
340 'ZERO
350 DATA 11, 0, 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, 0, 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, 0
420 DATA 11, 2, 0, 2, 0, 2, 0, 2, 4, 10, 244, 10 430 DATA 9, 244, 10, 244, 2, 0, 2, 0, 2, 0, 0, 0
44i 'TWO
450 DATA 1, 0, 0, 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, 20, 2
480 DATA 11, 52, 2, 100, 130, 68, 130, 4, 10, 4, 24, 0
490 'THREE
99
