rem Epson 9 pin (with ibm char set)
rem Epson LX86,LX800,RX800,EX800/1000,FX800/1000,LX850,FX850/1050

cc '@'=27,"@",27,"t",1
cc 'b'=27,"E",27,"G"; 27,"F",27,"H"
cc 'c'=15		; 18
cc 'e'=27,"M"		; 27,"P"
cc 'i'=27,"4"		; 27,"5"
cc 'l'=27,"W",1		; 27,"W",0
cc 'n'=27,"P"
cc 'p'=27,"p",1		; 27,"p",0
cc 'q'=27,"(",0,27,"x",1	; 27,"x",0
cc 's'=27,"S",1		; 27,"T"
cc 't'=27,"S",0		; 27,"T"
cc 'u'=27,"-",1		; 27,"-",0

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,"R",4,"|",27,"R",0 ;; O slash
rc '�'=27,"6",156
rc '�'=27,"R",4,"\",27,"R",0 ;; O slash
rc '
'=27,"6",159
rc '�'=27,"R",2,"~",27,"R",0

IF PC
rc '
'=27,"6","
"
ENDIF
IF ST
rc 158=27,"R",2,"~",27,"R",0
ENDIF

rc '�'=160
rc '�'=161
rc '�'=162
rc '�'=163
rc '�'=164
rc '�'=165
rc '�'=27,"t",1,175

rc ''=27,"K",6,0, 32,64,254,64,32,0
rc ''=27,"K",6,0, 8,4,254,4,8,0
rc ''=27,"L",12,0, 16,16,16,16,16,16,84,56,16,0,0,0
rc ''=27,"L",12,0, 16,56,84,16,16,16,16,16,16,0,0,0
rc '�'=27,"L",12,0, 64,0,240,0,254,0,128,126,128,0,0,0

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 '�'=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 4
double L
regular bcilpqstu
group en
ELSE
mm 1
mf 2
pw 10
cw 12
ENDIF

rem all units assume 1/240" (9 pin dot matrix)

IF VER5
rules qp=5,p=4,ce=3,c=1,e=2,n=0

font 0 ; normal pica
cw 24

font 1 ; condensed pica
cw 14

font 2 ; elite
cw 20

font 3 ; condensed elite (may not be possible)
cw 12

font 4 ; draft proportional (widths not available, treat as elite)
pw 20
cw 20

font 5 ; nlq proportional (widths not available, treat as elite)
pw 20
cw 20

ENDIF