.--_
30 LPRINT "This line is CONDENSED pitch."
48 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.
717~ LPRINT "This line is PROPORTIONAL spacing."
80 LPRINT CHR$(27) "p" CHR$(@) ; 'Cancel proportional.
90 LPRINT CHR$(27) "B'J CHR$(l) ; 'Select pica pitch.
l@j 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 SG-lo/15 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 SG- 1 O/ 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 them 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 SG-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:
-
19 'Demo expanded mode.
24) LPRINT "Demonstration of " ;
34) LPRINT CHR$(14) ; 'Expanded mode on.
40 LPRINT "EXPANDED" ;
50 LPRINT CHR$(20) ; 'Expanded mode off.
60 LPRINT " printing."
70 LPRINT "Notice that " ;
80 LPRINT CHR$(14) ; 'Expanded mode on.
90 LPRINT "EXPANDED mode"
188 LPRINT "automatically turns off at end of a line."
42