Star Micronics SG-10 - Page 107

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$(NLJM) = 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 i/l, DOWN.CHAR.PROP$; LINE.7$
260 FOR NUM = 0 TO 9
270 PRINT j/l, NUMERAL.TOP$(NUM);BLANK$;
280 NEXT NUM
290 PRINT 111, CHR$(l0)
300 FOR NUM = 0 TO 9
310 PRINT i/l, NUMERAL.BOT$(NUM);BLANK$;
320 NEXT NUM
330 PRINT f/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, 8, 6, 0, 6, 8, 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
11, 0, 0, 0, 0, 0, 48, 8, 112, 0, 96, 0
11, 192, 0, 192, 0, 98, 28, 98, 28, 32, 24,
440 'TWO
450 DATA
460 DATA
0
470 DATA
480 DATA
0
490 'THREE
11, 2, 0, 2, 4, 2, 4, 10, 4, 10, 20, 2
11, 52, 2, 100, 130, 68, 130, 4, 10, 4, 24,
99