Creating Your Own Characters 93
210 NUMERAL.BOT$(NUM) = CHR$(ASCII + 2) +
CHR$(ASCII + 3)
220 ASCII = ASCII + 4
230 NEXT NUM
240 BLANK$ = CHR$(200)
250 LPRINT DOWN.CHAR.PROP$; LINE.7$
260 FOR NUM = 0 TO 9
270 LPRINT NUMERAL.TOP$(NUM);BLANK$;
280 NEXT NUM
290 LPRINT
300 FOR NUM = 0 TO 9
310 LPRINT NUMERAL.B~T$(NUM);BLANK$;
320 NEXT NUM
330 LPRINT NOT.DOWN.CHAR.PROP$; LINE.12$
340 'ZERO
350 DATA 11,0,96,16,104,16,44,30,14,0,2,1
360 DATA 11,2,1,2,1,6,8,38,88,32,88,32
370 DATA 11,3,12,19,12,51,0,96,0,96,0,96
380 DATA 11,0,32,0,48,0,28,3,12,3,4,3
390 'ONE
400 DATA 11,0,0,0,0,0,4,0,4,0,4,126
410 DATA 9,12,114,12,114,12,2,0,0,0,0,0
420 DATA 11,64,0,64,0,64,0,64,32,80,47,80
430 DATA 9,47,80,47,64,0,64,0,64,0,0,0
440 ' TWO
450 DATA 11,0,0,0,0,0,12,16,14,0,6,0
460 DATA 11,3,0,3,0,70,56,70,56,4,24,0
470 DATA 11,64,0,64,32,64,32,80,32,80,40,64
480 DATA 11,44,64,38,65,34,65,32,80,32,88,0
490 ' THREE
500 DATA 11,0,0,0,0,0,0,4,2,4,2,4
510 DATA 11,34,84,34,92,34,76,34,68,2,64,0
520 DATA 11,16,0,48,0,56,64,48,64,32,64,32
530 DATA 11,64,32,64,48,9,54,9,22,9,6,1
540 ' FOUR
550 DATA 11,0,0,0,0,0,0,64,36,88,32,16
560 DATA 11,0,0,64,32,64,56,64,60,2,12,0
570 DATA 11,0,8,4,10,5,10,5,8,4,72,4
580 DATA 11,88,38,89,38,89,6,73,4,8,6,0
590 ' FIVE
600 DATA 11,0,0,0,0,64,32,84,50,76,34,68
610 DATA 10,34,68,34,68,34,68,2,68,2,0,0
620 DATA 10,0,32,24,101,24,97,0,64,0,64,0