30 LPRINT "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 SR-lo/l5 to elite pitch and line 50
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 SR-lo/15 to pica
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 SR-10/15’s four print pitches can 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) ; 'Expanded mode 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
-
-
