rem IBM Proprinter X24. 24 pin.

cc '@'=27,"F",27,"H",27,"W",0,27,"-",0
cc 'b'=27,"E",27,"G"; 27,"F",27,"H"
cc 'l'=27,"W",1		; 27,"W",0
cc 's'=27,"S",1		; 27,"T"
cc 't'=27,"S",0		; 27,"T"
cc 'u'=27,"-",1		; 27,"-",0

rc '
'=27,"^",2
rc ''=27,"^",3
rc ''=27,"^",4
rc '�'=27,"^",5
rc ''=27,"^",6
rc '
'=27,"^",11
rc '
'=27,"^",14
rc '
'=27,"^",15
rc '
'=27,"^",16
rc '
'=27,"^",17
rc '
'=27,"^",18
rc '
'=27,"^",19
rc '�'=27,"^",20
rc '�'=27,"^",21
rc '
'=27,"^",22
rc '
'=27,"^",23
rc ''=27,"^",24
rc ''=27,"^",25
rc ''=27,"^",26
rc ''=27,"^",27
rc '
'=27,"^",28
rc '
'=27,"^",29
rc '
'=27,"^",30
rc '
'=27,"^",31

rc '�'=27,"6",128
rc '�'=27,"6",129
rc '�'=27,"6",130
rc '�'=27,"6",131
rc '�'=27,"6",132
rc '�'=27,"6",133
rc '�'=27,"6",134
rc '�'=27,"6",135
rc '�'=27,"6",136
rc '�'=27,"6",137
rc '�'=27,"6",138
rc '�'=27,"6",139
rc '�'=27,"6",140
rc '�'=27,"6",141
rc '�'=27,"6",142
rc '�'=27,"6",143
rc '�'=27,"6",144
rc '�'=27,"6",145
rc '�'=27,"6",146
rc '�'=27,"6",147
rc '�'=27,"6",148
rc '�'=27,"6",149
rc '�'=27,"6",150
rc '�'=27,"6",151
rc '�'=27,"6",152
rc '�'=27,"6",153
rc '�'=27,"6",154
rc '�'=27,"6",155
rc '�'=27,"6",156
rc '�'=27,"6",157
rc '
'=27,"6",159

IF PC
rc '
'=27,"6",158
ENDIF

IF ST
rc 158=225
ENDIF

rc '�'=160
rc '�'=161
rc '�'=162
rc '�'=163
rc '�'=164
rc '�'=165

IF ANSI
rc '�'=218
rc '�'=191
rc '�'=192
rc '�'=217
rc '�'=196
rc '�'=179
rc '�'=194
rc '�'=193
rc '�'=197
rc '�'=195
rc '�'=180
rc '�'=166
rc '�'=167
rc '�'=168
rc '�'=170
rc '�'=171
rc '�'=172
rc '�'=173
rc '�'=174
rc '�'=175
rc '�'=225
rc '�'=230
rc '�'=241
rc '�'=246
rc '�'=248
rc '�'=250
rc '�'=253
ENDIF


hl 27,"J",18
pscode 27,"9"; 27,"8"

IF VER5
pp on
ms off
mm 1
mf 6
double L
regular bclpqstu
group en

omit i
ELSE
mm 1
mf 2
pw 10
cw 12
cc 'e'=27,":"			; 18
cc 'n'=18
cc 'q'=27,"x",1			; 27,"x",0
ENDIF

rem all widths in 1/360"

IF VER5
rules p=6,qc=5,c=4,qe=3,e=2,q=1,n=0

font 0 ; draft pica
enter 27,"I",0
cw 36

font 1 ; LQ pica
enter 27,"I",2
cw 36

font 2 ; draft elite
enter 27,"I",8
cw 30

font 3 ; LQ elite
enter 27,"I",10
cw 30

font 4 ; draft condensed pica
enter 27,"I",16
cw 21

font 5 ; LQ condensed pica
enter 27,"I",18
cw 21

font 6 ; proportional
enter 27,"I",3
pw 31
ENDIF

widths
 30 !30 "30 #30 $30 %30 &36 '18 (30 )30 *30 +30 ,30 -30 .30 /30 
030 130 230 330 430 530 630 730 830 930 :30 ;30 <30 =30 >30 ?30 
@30 A42 B42 C42 D42 E36 F36 G42 H42 I24 J30 K42 L36 M42 N42 O42 
P36 Q42 R42 S36 T42 U42 V42 W42 X42 Y42 Z36 [30 \30 ]30 ^30 _30 
`30 a30 b36 c30 d36 e30 f24 g36 h36 i18 j18 k36 l18 m42 n36 o30 
p36 q36 r30 s30 t24 u36 v36 w42 x36 y36 z30 {30 |30 }30 ~30 
�42 �36 �30 �30 �30 �30 �30 �30 �30 �30 �30 �18 �18 �18 �36 �36 
�36 �42 �42 �30 �30 �30 �36 �36 �36 �36 �42 �30 �30 �36 
42 
30 
�30 �18 �30 �36 �36 �36 �30 �30 �30 
30 �30 �30 �30 �30 �42 �42 

30 �30 �30 �30 �30 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 �30 
�30 �30 �30 �30 �30 �30 
30 
30 
30 
30 
30 
30 
30 
30 
30 
30 

30 
30 
30 
30 
30 
30 
30 
30 
30 �30 �30 �30 �30 �30 �30 �30 

30 �36 
36 
36 
42 
36 �36 
30 
42 
42 
42 
30 
30 
42 
30 
30 

30 �30 
30 
30 
30 
30 �30 
30 �30 
30 �30 
30 
30 �30 �30 
30 30 �30 30 �30 
30 30 30 30