
30LPRINT "This line is CONDENSED pitch."
4Q)LPRINT CHR$(27) "B" CHR$(2) ; 'Select elite pitch.
50 LPRINT "This line is ELITE pitch."
60 LPRINT CHR$(27) "p" CHR$(l) ; 'Select proportional.
70 LPRINT "This line is PROPORTIONAL spacing."- 80 LPRINT CHR$(27) "p" CHR$(@) ; 'Cancel proportional.
90 LPRINT CHR$(27) "B'.CHR' $(l) ; 'Select pica pitch.
100 LPRINT "This line is PICA pitch (normal)."
When you run this program you should get this:
This line is | CONDENSED | pitch. |
|
|
|
|
This line is ELITE pitch. |
|
|
|
| ||
This line is PROPORTIONAL spacing. |
|
|
|
| ||
This line is F'ICA pitch (normal). |
|
|
|
| ||
Line 20 turns on condensed pitch with < ESC > “B” CHR$(3). |
|
| ||||
Line 30 prints a line at 17 characters per inch. The < ESC > “B” |
|
| ||||
CHR$(2) in line 40 changes |
|
| ||||
prints a line in elite pitch. Line 60 turns on proportional spacing |
|
| ||||
with < ESC > “p” CHR$(l), and line 70 prints a line with |
|
| ||||
proportional spacing. Line 80 and line 90 reset |
|
| ||||
pitch and line 100 prints a line in pica pitch. |
|
|
|
| ||
Pica pitch and condensed pitch can be set with “shortcut” codes. |
|
| ||||
Instead of using < ESC > “B” CHR$(n), you can set the,m with |
|
| ||||
a single code. CHR$(18) sets pica pitch and CHR$( 15) sets |
|
| ||||
condensed | pitch. | You can not set elite pitch | with a single | code. |
| - |
n Expanded print |
|
|
|
| ||
Each of | be enlarged to | twice | - | - | ||
its normal width. This is called expanded print.Try this program |
| - | ||||
to see how it works: |
|
|
| |||
|
|
|
| |||
10 'Demo expanded mode. |
|
|
| |||
20 LPRINT "Demonstration of " ; |
|
|
|
| ||
30 LPRINT CHR$(14) ; 'Expandedmode on. |
|
| - | |||
40 LPRINT "EXPANDED" ; |
|
|
| |||
|
|
|
| |||
50 LPRINT CHR$(20) ; 'Expanded mode off. |
|
| - | |||
60 LPRINT w printing." |
|
|
| |||
|
|
|
| |||
70 LPRINT "Notice that " ; |
|
|
| - | ||
84)LPRINT CHR$(14) ; 'Expanded mode on. |
|
| ||||
|
|
| ||||
98 LPRINT "EXPANDED mode" |
|
|
|
| ||
100 LPRINT "automatically turns off at end of a line." |
| - |
40