REM Citizen 120D+
REM ORIGIN=Protext6-Printers:MATRIX.GPD  26-11-93 16:39

REM Control Codes

cc '@'=""+
 27,"~5",0,+
 27,"@",+
 27,"R",0,+
 27,"t",1,+
 27,"x",0,27,"p",0,27,"P",18,+
 ""

cc 'b'=27,"E",27,"G";27,"F",27,"H"	;; Bold 
cc 'd'=27,"w",1 ; 27,"w",0	;; double height (LF unaffected)
cc 'i'=27,"4"		;27,"5"			;; Italics
cc 'l'=27,"W",1		;27,"W",0		;; enLarged
cc 'm'=27,"U",1 	;27,"U",0		;; Mono directional
cc 'q'=27,"x",1		;27,"x",0		;; nlQuality
cc 's'=27,"S",1		;27,"T"			;; Subscript
cc 't'=27,"S",0		;27,"T"			;; superscripT
cc 'u'=27,"-",1		;27,"-",0		;; Underline

cc 'v'=27,"~2",1	;27,"~2",0		;; reVerse print

REM Redefined Characters

rc ''=27,"~5",1,27,"^",01,27,"~5",0
rc ''=27,"~5",1,27,"^",02,27,"~5",0
rc ''=27,"~5",1,27,"^",03,27,"~5",0
rc ''=27,"~5",1,27,"^",04,27,"~5",0
rc ''=27,"~5",1,27,"^",05,27,"~5",0
rc ''=27,"~5",1,27,"^",06,27,"~5",0
rc ''=27,"~5",1,27,"^",11,27,"~5",0
rc 12=13,12
rc ''=27,"~5",1,27,"^",14,27,"~5",0
rc ''=27,"~5",1,27,"^",15,27,"~5",0
rc ''=27,"~5",1,27,"^",16,27,"~5",0
rc ''=27,"~5",1,27,"^",17,27,"~5",0
rc ''=27,"~5",1,27,"^",18,27,"~5",0
rc ''=27,"~5",1,27,"^",19,27,"~5",0
rc ''=27,"~5",1,27,"^",20,27,"~5",0
rc ''=27,"~5",1,27,"^",21,27,"~5",0
rc ''=27,"~5",1,27,"^",22,27,"~5",0
rc ''=27,"~5",1,27,"^",23,27,"~5",0
rc ''=27,"~5",1,27,"^",24,27,"~5",0
rc ''=27,"~5",1,27,"^",25,27,"~5",0
rc ''=27,"~5",1,27,"^",26,27,"~5",0
rc ''=27,"~5",1,27,"^",27,27,"~5",0
rc ''=27,"~5",1,27,"^",28,27,"~5",0
rc ''=27,"~5",1,27,"^",29,27,"~5",0
rc ''=27,"~5",1,27,"^",30,27,"~5",0
rc ''=27,"~5",1,27,"^",31,27,"~5",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,"6",156
rc ''=27,"6",159
IF PC
rc ''=27,"6",""
ENDIF
rc ''=27,"t",0,27,"R",2,"~",27,"R",0,27,"t",1
IF ST
rc 158=27,"t",0,27,"R",2,"~",27,"R",0,27,"t",1
ENDIF
rc ''=27,"t",0,27,"R",4,"|",27,"R",0,27,"t",1 ;; o slash
rc ''=27,"t",0,27,"R",4,"\",27,"R",0,27,"t",1 ;; O slash

rc ''=160
rc ''=161
rc ''=162
rc ''=163
rc ''=164
rc ''=165

rc ''=27,"t",1,175

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 162=155 ;; cent
rc 165=157 ;; yen
ENDIF

IF VER5
rem Eth, eth, L slash, l slash, L dot, l dot, Thorn, thorn
ENDIF

IF VER5
REM other accented chars
ENDIF

IF VER5
ENDIF

hl 27,"J",18
pscode 27,"9"; 27,"8"

IF VER5
pp on
ms off
mm 1
mf 4
cw 24
double L
IF DHEIGHT
dheight d
ENDIF
regular abcdefghijklmnopqrstuvwyx ; abcefilmopqstuw
omit n
ENDIF

IF VER6
gfxtype 3
offatcr uv ; underline,inverse
as on
vres 216
hres 240
vms 27,"J" ;;
ENDIF

menu
"Double height:^XD" D
"inVerse:^XV" V
"Mono directional:^XM" M
menuend

rem all widths are in units of 1/360" (24pin) or 1/240" (9pin)

style N "Roman" "Roman" 10 10 q
style O "Sans serif" "Sans serif" 10 10 q

rules p="roman ps",+
      c="draft 17",e="draft 12",ec="draft 20",f="draft 15"

enter 27,"k",0,27,"p",0,27,"P",18
point 10
pitch 10
cw 24

font "draft 12"
enter 27,"p",0,27,"M",18
point 10
pitch 12
cw 20

font "draft 15"
enter 27,"p",0,27,"g"
point 10
pitch 15
cw 16

font "draft 17"
enter 27,"p",0,27,"P",15
point 10
pitch 17.14
cw 14

font "draft 20"
enter 27,"p",0,27,"M",15
point 10
pitch 20
cw 12

font "roman 10"
menufont "Roman"
enter 27,"k",0,27,"p",0,27,"P",18
point 10
pitch 10
cw 24
rules p="roman ps",+
      c="roman 17",e="roman 12",ec="roman 20",f="roman 15"

font "roman 12"
enter 27,"k",0,27,"p",0,27,"M",18
point 10
pitch 12
cw 20

font "roman 15"
enter 27,"k",0,27,"p",0,27,"g"
point 10
pitch 15
cw 16

font "roman 17"
enter 27,"k",0,27,"p",0,27,"P",15
point 10
pitch 17.14
cw 14

font "roman 20"
enter 27,"k",0,27,"p",0,27,"M",15
point 10
pitch 20
cw 12

font "roman ps"
enter 27,"k",0,27,"p",1,18
point 10
widths
 24 !10 "16 #24 $24 %24 &24 '10 (12 )12 *24 +24 ,14 -24 .12 /20 
024 116 224 324 424 524 624 724 824 924 :12 ;12 <20 =24 >20 ?24 
@24 A24 B24 C24 D24 E24 F24 G24 H24 I16 J22 K24 L24 M24 N24 O24 
P24 Q24 R24 S24 T24 U24 V24 W24 X20 Y24 Z20 [16 \20 ]16 ^24 _24 
`10 a24 b22 c22 d22 e24 f20 g22 h22 i16 j18 k20 l16 m24 n22 o24 
p22 q22 r22 s24 t22 u24 v24 w24 x20 y24 z20 {18 |10 }18 ~24
24 22 24 24 24 24 24 22 24 24 24 16 20 16 24 24 
24 24 24 20 20 20 22 22 24 24 24 22 24 24 24 22 
24 16 20 22 22 24 24 24 24 24 24 24 24 10 24 24 
24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 
24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 
24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 
24 22 20 24 20 22 22 24 20 24 24 24 24 24 20 24 
24 24 20 20 24 24 24 24 16 12 12 24 16 16 16
24 24 24 24 24 

font "sanserif 10"
menufont "Sans serif"
enter 27,"k",1,27,"p",0,27,"P",18
point 10
pitch 10
cw 24

rules p="sanserif ps",+
      c="sanserif 17",e="sanserif 12",ec="sanserif 20",f="sanserif 15"

font "sanserif 12"
enter 27,"k",1,27,"p",0,27,"M",18
point 10
pitch 12
cw 20

font "sanserif 15"
enter 27,"k",1,27,"p",0,27,"g"
point 10
pitch 15
cw 18

font "sanserif 17"
enter 27,"k",1,27,"p",0,27,"P",15
point 10
pitch 17.14
cw 14

font "sanserif 20"
enter 27,"k",1,27,"p",0,27,"M",15
point 10
pitch 20
cw 12

font "sanserif ps"
enter 27,"k",1,27,"p",1,18
point 10
copywidths "roman ps"



