rem Panasonic KX-P4450 Laser Printer using HP Roman-8 sym set in HP emulation rem (this is almost the same as kxp4420 but it only uses one symbol set) rem (and a few of the chars have different widths: '^`~) rem p -> century 702 PS rem e -> elite, 12 cpi rem ec -> condensed elite, 20 cpi rem c -> condensed, 16.66 cpi rem f -> fifteen pitch, 15 cpi rem default 10 cpi rem Control Code definitions cc '@'=27,27,"H;",27,"E",27,"(8U",27,"(s0p10h12v3T" cc 'b'=27,"(s3B" ; 27,"(s0B" ;; bold cc 'i'=27,"(s1S" ; 27,"(s0S" ;; italic cc 'u'=27,"&dD" ; 27,"&d@" ;; underline cc 't'=27,"&a-0.25R" ; 27,"&a+0.25R" ;; superscript cc 's'=27,"&a+0.25R" ; 27,"&a-0.25R" ;; subscript cc 'q'=27,"&l4H" ; 27,"&l1H" ;; nlq (tray select) rem Character Redefinitions for HP Roman-8 Symbol set rc ''=189 rc ''=180 rc ''=207 rc ''=197 rc ''=192 rc ''=204 rc ''=200 rc ''=212 rc ''=181 rc ''=193 rc ''=205 rc ''=201 rc ''=221 rc ''=209 rc ''=217 rc ''=216 rc ''=208 rc ''=220 rc ''=215 rc ''=211 rc ''=194 rc ''=206 rc ''=202 rc ''=195 rc ''=203 rc ''=239 rc ''=218 rc ''=219 rc ''=214 rc ''=187 rc ''=210 rc ''=190 rc ''=196 rc ''=213 rc ''=198 rc ''=199 rc ''=183 rc ''=182 rc ''=249 rc ''=250 rc ''=185 rc ''=248 rc ''=247 rc ''=184 rc ''=251 rc ''=253 rc ''=222 rc ''=243 rc ''=254 rc ''=179 IF PC rc ''="Pt" ENDIF IF ST rc 158=222 ENDIF IF ANSI rc 164=186 ;; curr. sym. rc 165=188 ;; yen rc 190=245 ;; 3/4 rc 208=227 ;; D stroke rc 240=228 ;; d stroke rc 222=240 ;; THORN rc 254=241 ;; thorn ENDIF rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c30a4b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+13x-39Y",27,"*c4a50b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+13x-16Y",27,"*c17a4b0P",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c17a4b0P",27,"*p+13x+0Y",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+13x-16Y",27,"*c17a4b0P",27,"*p+0x-23Y",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c17a4b0P",27,"*p+13x-23Y",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c30a4b0P",27,"*p+13x+0Y",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c30a4b0P",27,"*p+13x-23Y",27,"*c4a27b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c30a4b0P",27,"*p+13x-23Y",27,"*c4a50b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+13x-16Y",27,"*c17a4b0P",27,"*p+0x-23Y",27,"*c4a50b0P",27,"&f1S"," " rc ''=27,"&f0S",27,"*p+0x-16Y",27,"*c17a4b0P",27,"*p+13x-23Y",27,"*c4a50b0P",27,"&f1S"," " IF VER5 rem Char defs for extended letter+accent characters rc 'A'=161 rc 'A'=162 rc 'E'=163 rc 'E'=165 rc 'I'=166 rc 'I'=167 rc 'U'=173 rc 'U'=174 rc 'Y'=177 rc 'y'=178 rc 'O'=223 rc 'A'=224 rc 'A'=225 rc 'a'=226 rc 'I'=229 rc 'I'=230 rc 'O'=231 rc 'O'=232 rc 'O'=233 rc 'o'=234 rc 'S'=235 rc 's'=236 rc 'Y'=238 ENDIF IF VER5 acute ; 27,"&f0S",8,168,27,"&f1S" grave ; 27,"&f0S",8,169,27,"&f1S" circumflex ; 27,"&f0S",8,170,27,"&f1S" diaeresis ; 27,"&f0S",8,171,27,"&f1S" tilde ; 27,"&f0S",8,172,27,"&f1S" macron ; 27,"&f0S",8,176,27,"&f1S" ring ; 27,"&f0S",8,179,27,"&f1S" ascend 27,"*p-5Y" ; 27,"*p+5Y" ENDIF hl 27,"=" IF VER5 mm 2 mf 1 pp on ms on ff on double ;; no auto doubling regular cstibup group enf end 27,"E" copies 27,"&l" ; "X" mp on omit qnl menu "Fifteen pitch:^XF" F "Quality Tray:^XQ" Q menuend ELSE mm 2 mf 1 cw 30 pw 30 ff on pp on ms on ENDIF IF VER5 rules ec=4,s=3,t=3,pc=3,pi=7,pb=6,p=5,f=2,e=1,c=3,n=0 font 0 ; Courier 12 pt, 10 cpi enter 27,"(s0p10h12v3T" cw 30 font 1 ; Courier 10 pt, 12 cpi enter 27,"(s0p12h10v3T" cw 25 font 2 ; Courier 8 pt, 15 cpi enter 27,"(s0p15h8v3T",27,"&k8H" cw 20 font 3 ; Courier 7.2 pt, 16.66 cpi enter 27,"(s0p16.66h7.2v3T" cw 18 font 4 ; Courier 7.2 pt, 20 cpi enter 27,"(s0p20h7.2v3T",27,"&k6H" cw 15 font 5 ; Century 702 10 pt. Widths taken from 4420 manual enter 27,"(s1p10v23T" pw 19 widths 40 40 40 40 34 30 36 25 25 21 24 20 21 39 21 21 21 41 41 35 41 25 25 11 !11 "13 #32 $22 %33 &33 '12 (15 )15 *21 +41 ,11 -13 .11 /12 022 122 222 322 422 522 622 722 822 922 :12 ;12 <41 =41 >41 ?18 @40 A29 B29 C29 D31 E29 F27 G32 H34 I16 J22 K31 L27 M38 N33 O32 P28 Q32 R29 S26 T28 U34 V30 W40 X29 Y27 Z25 [15 \21 ]15 ^41 _21 `41 a21 b23 c18 d23 e21 f14 g21 h24 i11 j11 k24 l11 m35 n24 o21 p23 q23 r18 s18 t16 u24 v21 w31 x22 y21 z20 {21 |21 }21 ~41 29 24 21 21 21 21 21 18 21 21 21 11 11 11 29 29 29 32 42 21 21 21 24 24 21 32 34 21 22 32 30 22 21 11 21 24 24 33 15 14 18 41 41 13 13 11 20 20 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 24 23 24 25 26 22 23 19 33 21 33 22 41 25 41 41 41 41 41 41 25 25 41 41 21 13 13 23 24 15 28 font 6 ; Century 702 10 pt Bold. Widths taken from 4420 manual enter 27,"(s1p10v3b23T" pw 22 widths 40 40 40 40 34 30 36 25 25 21 26 21 21 39 21 21 21 41 41 35 41 25 25 12 !13 "14 #32 $24 %35 &34 '13 (17 )17 *21 +41 ,12 -14 .12 /12 024 124 224 324 424 524 624 724 824 924 :13 ;13 <41 =41 >41 ?22 @41 A31 B32 C32 D34 E32 F30 G34 H36 I17 J27 K34 L30 M41 N35 O34 P32 Q34 R34 S29 T30 U34 V32 W39 X30 Y30 Z28 [17 \21 ]17 ^41 _21 `41 a25 b26 c23 d27 e24 f17 g25 h28 i14 j14 k27 l14 m40 n28 o25 p27 q27 r21 s20 t18 u28 v25 w36 x25 y24 z22 {21 |21 }21 ~41 32 28 24 25 25 25 25 23 24 24 24 14 14 14 31 31 32 36 45 25 25 25 28 28 24 34 34 25 24 34 37 24 25 14 25 28 28 35 19 19 22 35 35 13 13 13 22 22 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 26 25 25 30 27 24 25 21 32 33 32 21 35 27 41 35 35 41 35 35 25 25 35 35 21 13 13 27 25 16 28 font 7 ; Century 702 10 pt italic. Widths taken from 4420 manual enter 27,"(s1p10v1s23T" pw 19 widths 40 40 40 40 34 30 36 25 25 21 28 20 21 39 21 21 21 41 41 35 41 25 25 11 !14 "13 #32 $22 %34 &36 '12 (13 )13 *21 +41 ,11 -13 .11 /12 022 122 222 322 422 522 622 722 822 922 :12 ;12 <41 =41 >41 ?20 @40 A29 B30 C29 D32 E29 F28 G32 H35 I17 J25 K31 L27 M38 N33 O32 P28 Q32 R31 S27 T29 U33 V27 W37 X29 Y27 Z27 [14 \21 ]14 ^41 _21 `41 a23 b21 c18 d25 e18 f14 g23 h25 i14 j14 k23 l14 m36 n25 o21 p23 q22 r18 s19 t13 u25 v21 w31 x20 y19 z18 {21 |21 }21 ~41 29 25 18 23 23 23 23 18 18 18 18 14 14 14 29 29 29 30 43 21 21 21 25 25 19 32 33 21 22 32 30 22 23 14 21 25 25 33 16 14 20 41 41 13 13 14 20 20 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 24 23 24 25 26 22 23 19 33 21 33 22 41 25 41 41 41 41 41 41 25 25 41 41 21 13 13 23 24 15 28 ENDIF