Printing Text With Delta 37
modes for even more printing effects. Condensed, italic, double-
strike, underlined subscripts are something that you are probably
just itching to print!
There are 288 “theoretical” combinations of the modes that
we have learned. Of these, a mere 112 will work! (Some combina-
tions, like expanded superscripts, just don’t work.) Instead of try-
ing to list all the combinations that work, we have a program that
prints a chart showing all the combinations. There is a sample of
each of the 112 possible combinations on the chart. (The dots just
indicate the few combinations that don’t work.) Enter the follow-
ing program and run it to make your own chart.
lplpl WIDTH "LPTl:", 255 'CANCEL AUTO CR & LF AFTER
80 CHAR'S
110 GOSUB 1$30$3 'BUILD INSTRUCTION SET REQUIRED
120 GOSUB 20&J 'PRINT HEADING
130 LPRINT "*REGULAR*"
140 GOSUB 3000 'PRINT FOUR LINES REGULAR
150 LPRINT "*DOUBLE STRIKE*"
160 LPRINT DOUBLE.STRIKE$;
170 GOSUB 3000 'PRINT FOUR LINES DOUBLE STRIKE
180 LPRINT "*EMPHASIZED*"
190 EMPHASIZED = TRUE
200 GOSUB 3000 'PRINT FOUR LINES EMPHASIZED
210 LPRINT "*DOUBLE STRIKE & EMPHASIZED*"
220 LPRINT DOUBLE.STRIKE$ EMPHASIZED$;
230 GOSUB 3000 'PRINT DOUBLE STRIKE & EMPHASIZED
240 END
250 ~******************************************
260 '*****XttXXtffXXXttf***********************
1000 lllllllllll1llll1fIllllIllllllllllflllI,lll
lpll0 ' '
1020 ’ BUILD INSTRUCTION SET '
1030 ’ ’
1040
flll1rrflllllllllllrllllllllllllllllllIllfl
1059 """FONT (CHARACTER) STYLES"""""""
1060 ITALIC$ = CHR$(27) + CHR$(52)
1070 ROMAN$ = CHR$(27) + CHR$(53)
@,Qj ll,llIllllI'PITCH ~~~~~IllllllllIlllIlfllll
1090 ENLARGED$ = CHR$(27) + CHR$(87) + CHR$(l)
1100 NOT.ENLARGED$ = CHR$(27) + CHR$(87) + CHR$(@)
1110 PICA$ = CHR$(27) + CHR$(66) + CHR$(l)
1120 ELITE$ = CHR$(27) + CHR$(66) + CHR$(2)
1130 CONDENSED$ = CHR$(27) + CHR$(66) + CHR$(j)