CHAPTER 2 PCL - 57
50 LPRINT ESC$+"(s3C";
60 REM --- PRINT CHARACTERS ----
70 FOR I=33 TO 127
80 LPRINT CHR$(I);
90 NEXT
100 LPRINT
110 REM --- FRENCH CHARACTER SET SELECTION ------
120 LPRINT ESC$+"(s5C";
130 REM --- PRINT CHARACTERS ----
140 FOR I=33 TO 127
150 LPRINT CHR$(I);
160 NEXT
170 LPRINT
180 REM --- PAPER EJECT ---
190 LPRINT CHR$(12);
200 END
5.2.6.
Selecting the type of character spacing
Esc(s#P (27)(40)(115)#(80) <1Bh><28h><73h>#<50h>
This command selects the spacing type for the primary font.
Esc)s#P (27)(41)(115)#(80)
<1Bh><29h><73h>#<50h>
This command selects the spacing type for the secondary font.
# = 0 selects fixed spacing and # = 1 selects proportional spacing.
10 REM ****** SELECTING A PROPORTIONAL OR FIXED SPACE FONT ******
20 ESC$=CHR$(27)
30 WIDTH "LPT1:",255
40 REM --- SELECT A PROPORTIONALLY SPACED FONT ----
50 LPRINT ESC$+"(s1P";
60 FOR I=33 TO 127
70 LPRINT CHR$(I);
80 NEXT
90 LPRINT
100 REM --- SELECT A FIXED SPACE FONT ---
110 LPRINT ESC$+"(s0P";
120 FOR I=33 TO 127
130 LPRINT CHR$(I);
140 NEXT
150 LPRINT
160 REM --- PAPER EJECT ---
170 LPRINT CHR$(12);
180 END
5.2.7.
Selecting the pitch
Esc(s#H (27)(40)(115)#(72) <1Bh><28h><73h>#<48h>
This command designates the pitch for the primary font.
Esc)s#H (27)(41)(115)#(72) <1Bh><29h><73h>#<48h>
This command designates the pitch for the secondary font.
# = the number of characters to be printed per inch. However, the actual size range is defined in
combination with the character height.
The printer's in-built bitmap fonts all have a pitch of either 10, 12 or 16.66 characters per inch, and you can
specify any of these as follows:
Esc&k0S
( 10 cpi )
Esc&k2S
( 16.66 cpi )
Esc&k4S
( 12 cpi )