Creating Your Own Characters | 93 |
210NUMERAL.BOT$(NUM)= CHR$(ASCII+ 2) + CHR$(ASCII+ 3)
220 ASCII = ASCII + 4
230 NEXT NUM
240 BLANK$ = CHR$(200)
250LPRINT DOWN.CHAR.PROP$;LINE.7$
260FOR NUM = 0 TO 9
270LPRINT NUMERAL.TOP$(NUM);BLANK$;
280NEXT NUM
290LPRINT
300FOR NUM = 0 TO 9
310LPRINT NUMERAL.B~T$(NUM);BLANK$;
320NEXT NUM
330LPRINT NOT.DOWN.CHAR.PROP$;LINE.12$
340'ZERO
350DATA 11,0,96,16,104,16,44,30,14,0,2,1
360DATA 11,2,1,2,1,6,8,38,88,32,88,32
370DATA 11,3,12,19,12,51,0,96,0,96,0,96
380DATA 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
