Delta User’s Manual

r igure 7-m.Lacn alglt1s up0J Jour mcllvldual characters.

10 'Programto define and print numerals

20 'Eachnumeral is made up of 4 characters(2 wide x 2 high)

38DEF.DOWN.CHAR$= CHR$(27)+CHR$(42)+CHR$(l) 4$JDOWN.CHAR.PROP$= CHR$(27)+CHR$(88)+CHR$(l)

50 NOT.DOWN.CHAR.PROP$= CHR$(27)+CHR$(88)+CHR$(0)

60LINE.7$ = CHR$(27)+CHR$(49): LINE.12$ =

CHR$(27)+CHR$(50)

 

70 FOR Nl = 160 TO 200

'4 ASCII CHARS/NUMERAL

80LPRINT DEF.DOWN.CHAR$;

90LPRINT CHR$(Nl);

100READ N2

110LPRINT CHR$(N2);

120FOR S = 1 TO 11

130READ MS

140 LPRINT CHR$(MS);

150 NEXT S

160 NEXT Nl

170 '

180 ASCII = 160 'STARTOF DOWN CHARACTERS

190 FOR NUM = 0 TO 9

'NUMERALS0 THRU 9

200NUMERAL.TOP$(NUM)= CHR$(ASCII+ 0) + CHR$(ASCII+ 1)

Page 104
Image 104
Star Micronics Delta user manual Lprint DEF.DOWN.CHAR$