![](/images/new-backgrounds/1168304/16830497x1.webp)
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.
lplplWIDTH "LPTl:",255 'CANCELAUTO CR & LF AFTER 80 CHAR'S
110 GOSUB 1$30$3'BUILDINSTRUCTIONSET REQUIRED 120 GOSUB 20&J 'PRINTHEADING
130LPRINT "*REGULAR*"
140 GOSUB 3000 'PRINTFOUR LINESREGULAR
150 LPRINT "*DOUBLESTRIKE*"
160 LPRINTDOUBLE.STRIKE$;
170 GOSUB 3000 'PRINTFOUR LINES DOUBLESTRIKE
180LPRINT "*EMPHASIZED*"
190EMPHASIZED= TRUE
200GOSUB 3000 'PRINTFOUR LINES EMPHASIZED
210LPRINT "*DOUBLESTRIKE & EMPHASIZED*"
220LPRINTDOUBLE.STRIKE$EMPHASIZED$;
230 GOSUB 3000 'PRINTDOUBLESTRIKE & EMPHASIZED
240 END
250 ~******************************************
260 '*****XttXXtffXXXttf***********************
1000 lllllllllll1llll1fIllllIllllllllllflllI,lll
lpll0' '
1020 | ’ | BUILD INSTRUCTIONSET ' |
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)