![](/images/new-backgrounds/1168304/168304207x1.webp)
Delta User’s Manual
r igure
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)