Star Micronics SB-15 1, 0, 6, 8, 22, 8, 52, 120, 112, 0,

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

470 DATA

480 DATA

1, 0, 0, 0, 0, 0, 48, 8, 112, 0, 96, 0

1, 192, 0, 192, 0, 98, 28, 98, 28, 32, 24,

1, 2, 0, 2, 4, 2, 4, 10, 4, 10, 20, 2

1, 52, 2, 100, 130, 68, 130, 4, 10, 4, 24,

490 'THREE