rem HP Paintjet (using PC-8 character set)

cc '@'=27,"E",27,"(10U",27,"(s1Q"
cc 'b'=27,"(s3B"	; 27,"(s0B"
cc 'i'=27,"(s1S"	; 27,"(s0S"
cc 'q'=27,"(s2Q"	; 27,"(s1Q"
cc 's'=27,"&a+0.25R",27,"(s6V" ; 27,"&a-0.25R",27,"(s12V" ;; subscript
cc 't'=27,"&a-0.25R",27,"(s6V" ; 27,"&a+0.25R",27,"(s12V" ;; superscript
cc 'u'=27,"&d0D"	; 27,"&d@"

rem colours - use ctrlcode twice to return to black

cc 'r'=27,"&v1S" ; 27,"&v0S ;; red
cc 'g'=27,"&v2S" ; 27,"&v0S ;; green
cc 'm'=27,"&v5S" ; 27,"&v0S ;; magenta
cc 'y'=27,"&v3S" ; 27,"&v0S ;; yellow
cc 'a'=27,"&v6S" ; 27,"&v0S ;; cyan
cc 'd'=27,"&v4S" ; 27,"&v0S ;; dark blue

rem Character redefinitions using PC-8 Symbol set

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

rem accented chars defined so as not to be split into letter and accent

rc '�'=128
rc '�'=129
rc '�'=130
rc '�'=131
rc '�'=132
rc '�'=133
rc '�'=134
rc '�'=135
rc '�'=136
rc '�'=137
rc '�'=138
rc '�'=139
rc '�'=140
rc '�'=141
rc '�'=142
rc '�'=143
rc '�'=144
rc '�'=145
rc '�'=146
rc '�'=147
rc '�'=148
rc '�'=149
rc '�'=150
rc '�'=151
rc '�'=152
rc '�'=153
rc '�'=154
rc '�'=27,"(8U",214,27,"(10U" ;; o slash
rc '�'=156
rc '�'=27,"(8U",210,27,"(10U" ;; O slash
IF PC
rc '
'=158
ENDIF
IF ST
rc 158=27,"(8U",222,27,"(10U" ;; double s
ENDIF
rc '�'=160
rc '�'=161
rc '�'=162
rc '�'=163
rc '�'=164
rc '�'=165
rc '�'=27,"(8U",222,27,"(10U"

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 '�'=230
rc '�'=241
rc '�'=246
rc '�'=248
rc '�'=250
rc '�'=253
rc 164=27,"(0N",164,27,"(10U" ;; curr. sym.
rc 165=27,"(0N",165,27,"(10U" ;; yen
rc 166=27,"(0N",166,27,"(10U" ;; vert
rc 169=27,"(0N",169,27,"(10U" ;; copyright
rc 174=27,"(0N",174,27,"(10U" ;; registered
rc 175=27,"(0N",175,27,"(10U" ;; overline
rc 179=27,"(0N",179,27,"(10U" ;; super 3
rc 190=27,"(0N",190,27,"(10U" ;; 3/4
rc 215=27,"(0N",215,27,"(10U" ;; multiply
ENDIF

IF VER5
acute      ; 27,"&f0S",27,"(8U",8,168,27,"(10U",27,"&f1S"
grave      ; 27,"&f0S",27,"(8U",8,169,27,"(10U",27,"&f1S"
circumflex ; 27,"&f0S",27,"(8U",8,170,27,"(10U",27,"&f1S"
umlaut     ; 27,"&f0S",27,"(8U",8,171,27,"(10U",27,"&f1S"
tilde      ; 27,"&f0S",27,"(8U",8,172,27,"(10U",27,"&f1S"
macron     ; 27,"&f0S",27,"(8U",8,176,27,"(10U",27,"&f1S"

ascend 27,"*p-5Y" ; 27,"*p+5Y"
ENDIF

hl 27,"="

IF VER5
mm 5
mf 1
pp on
ms on
ff on
double ;; no auto doubling
regular ibuclsturgmyad
group en
end 27,"E"
omit p
menu
"Red:^XR"       R
"Green:^XR"     G
"Cyan:^XA"      A
"Magenta:^XM"   M
"Dark blue:^XD" D
"Yellow:^XY"    Y
menuend
ELSE
mm 5
mf 1
ff on
cw 72
ENDIF

rem all widths in units of 1/720"

IF VER5
rules c=2,e=1,n=0

font 0 ; Courier 10 cpi
enter 27,"(s0p10h3T"27,"&k12H"
cw 72

font 1 ; "elite", 12 cpi
enter 27,"(s0p12h3T",27,"&k10H"
cw 60

font 2 ; "condensed", 18 cpi
enter 27,"(s0p18h12v3T"27,"&k6.6667H"
cw 40

ENDIF