Filter
Top Products
130 READ MS
140 PRINT 111, 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)
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
270 PRINT i/l, NUMERAL.TOP$(NUM);BLANK$;
280 NEXT NUM
290 PRINT 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$
1, 0, 6, 8, 22, 8, 52, 120, 112, 0, 64,
1, 64, 128, 64, 128, 96, 16, 100, 30, 4,
340 'ZERO
350 DATA
1
128
360 DATA 1
30, 4
370 DATA 1
380 DATA 1
192
390 'ONE
1, 192, 48, 200, 48, 204, 0, 6, 0, 6, 0, 6
1, 0, 4, 0, 12, 0, 56, 192, 48, 192, 32,
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
460 DATA
0
470 DATA
480 DATA
0
1
1, 0, 0, 0, 0, 0, 48, 8, 112, 0, 96, 0
1, 192, 0, 192, 0, 98, 28, 98, 28, 32, 24,
1
1, 2, 0, 2, 4, 2, 4, 10, 4, 10, 20, 2
1
1, 52, 2, 100, 130, 68, 130, 4, 10, 4, 24,
490 'THREE
99