Star Micronics Delta User Manual page 104

Delta User's Manual
r igure 7-m.
Lacn alglt 1s up
0J Jour mcllvldual characters.
10 'Program to define and print numerals
20 'Each numeral is made up of 4 characters (2 wide
x 2 high)
38 DEF.DOWN.CHAR$ = CHR$(27)+CHR$(42)+CHR$(l)
4$J DOWN.CHAR.PROP$ = CHR$(27)+CHR$(88)+CHR$(l)
50 NOT.DOWN.CHAR.PROP$ = CHR$(27)+CHR$(88)+CHR$(0)
60 LINE.7$ = CHR$(27)+CHR$(49) : LINE.12$ =
CHR$(27)+CHR$(50)
70 FOR Nl = 160 TO 200
'4 ASCII CHARS/NUMERAL
80 LPRINT DEF.DOWN.CHAR$;
90 LPRINT CHR$(Nl);
100 READ N2
110 LPRINT CHR$(N2);
120 FOR S = 1 TO 11
130 READ MS
140 LPRINT CHR$(MS);
150 NEXT S
160 NEXT Nl
170 '
180 ASCII = 160
'START OF DOWN CHARACTERS
190 FOR NUM = 0 TO 9 'NUMERALS 0 THRU 9
200 NUMERAL.TOP$(NUM) = CHR$(ASCII + 0) +
CHR$(ASCII + 1)