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

Page 105
Image 105
Star Micronics Delta user manual NUMERAL.BOT$NUM= CHR$ASCII+ 2 + CHR$ASCII+