CHAPTER 2 PCL - 55
User-defined symbol sets are defined by the command ESC ( f # W.
Esc)symbol set ID (27)(41) <1Bh><29h>
This command selects the symbol set (character set) for the secondary font.
To select any of the above symbol sets for the secondary font simply substitute ')' for '(' in the command
shown in the table.
10 REM ****** SELECT A CHARACTER SET ******
20 ESC$=CHR$(27)
30 WIDTH "LPT1:",255
40 REM --- ROMAN-8 CHARACTER SET SELECTION ------
50 LPRINT ESC$+"(8U";
60 REM --- PRINT CHARACTERS ----
70 FOR I=160 TO 255
80 LPRINT CHR$(I);
90 NEXT
100 LPRINT
110 REM --- PC-8 CHARACTER SET SELECTION ------
120 LPRINT ESC$+"(10U";
130 REM --- PRINT CHARACTERS ----
140 FOR I=160 TO 255
150 LPRINT CHR$(I);
160 NEXT
170 LPRINT
180 REM --- PAPER EJECT ---
190 LPRINT CHR$(12);
200 END
There is a further group of symbol sets that are available for Brother fonts only. You can select these as follows:
Esc(s#C (27)(40)(115)#(67) <1Bh><28h><73h>#<43h>
This command selects the symbol set (character set) for the primary font.
Esc)s#C (27)(41)(115)#(67) <1Bh><29h><73h>#<43h>
This command selects the symbol set (character set) for the secondary font.
Brother symbol set IDs consist of a number only.
Symbol Set Set primary font Symbol set Set primary font
Roman-8 Esc(s1C Portuguese Esc(s15C
US ASCII Esc(s2C Swiss German Esc(s16C
German Esc(s3C American Spanish Esc(s17C
UK English Esc(s4C Norwegian/Danish Esc(s18C
French Esc(s5C Canadian Esc(s19C
Dutch Esc(s6C Finnish/Swedish Esc(s20C
Italian Esc(s7C South African Esc(s21C
S. Spanish Esc(s8C PC-8 D/N Esc(s23C
A. English WP Esc(s9C PC-8 Esc(s25C
UK ASCII/2 Esc(s10C PC-850 Esc(s26C
Symbol Esc(s11C PC-860 Esc(s27C
International Esc(s12C PC-863 Esc(s28C
American English Esc(s13C PC-865 Esc(s29C
UK ASCII Esc(s14C Japanese English Esc(s38C
To select any of the above symbol sets for the secondary font simply substitute ')' for '(' in the command
shown in the table.
10 REM ****** SELECTING CHARACTER SETS ******
20 ESC$=CHR$(27)
30 WIDTH "LPT1:",255
40 REM --- GERMAN CHARACTER SET SELECTION ------
50 LPRINT ESC$+"(s3C";
To Next Page
Loading...
