🚀 go-pugleaf

Sample of using the encode from Scribe to provide the same 8 bit
characters as a HP terminal in Roman8 mode.
Enjoy,
Chip


@Use(Database="/u/cs/maguire/scribe")
@make(article)
@device(postscript)
@style(fontfamily="QTimesRoman8")
@style(stringmax 50000)

@style(DeviceInitialization=
<% the followin procedure is from Adobe_distill 1.0

 /REMAP { %def
   FontDirectory 2 index known { pop pop pop } { %ifelse
     findfont begin currentdict dup length dict begin
       { 1 index /FID ne {def}{pop pop} ifelse } forall
       exch dup length 0 gt { /Encoding exch def }{ pop } ifelse
     currentdict end end definefont pop
   } ifelse
 }  def

/appencoding
[
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef
  /space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quotesingle
  /parenleft/parenright/asterisk/plus/comma/hyphen/period/slash
  /zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon
  /less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N
  /O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright
  /asciicircum/underscore/grave/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o
  /p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef
  /fraction /quotesingle /quotedblleft /guilsinglleft /guilsinglright
  /fi /endash /dagger
  /daggerdbl /periodcentered /quotesinglbase /quotedblbase
  /quotedblright /ellipsis /perthousand /breve
  /dotaccent /dieresis /cedilla /hungarumlaut /ogonek /caron /Lslash /OE
  /dotlessi /lslash /oe /Ecircumflex /Edieresis /Egrave /Eth
  /Icircumflex
  /Idieresis /Agrave /Acircumflex /Egrave /Ecircumflex /Edieresis
  /Icircumflex /Idieresis
  /acute /grave /circumflex /dieresis /tilde /Ugrave /Ucircumflex /fl
  /macron /Yacute /yacute /ring /Ccedilla /ccedilla /Ntilde /ntilde
  /exclamdown /questiondown /currency /sterling /yen /section /florin
  /cent
  /acircumflex /ecircumflex /ocircumflex /ucircumflex /aacute /eacute
  /oacute /uacute
  /agrave /egrave /ograve /ugrave /adieresis /edieresis /odieresis
  /udieresis
  /Aring /icircumflex /Oslash /AE /aring /iacute /oslash /ae
  /Adieresis /igrave /Odieresis /Udieresis /Eacute /idieresis
  /germandbls /Ocircumflex
  /Aacute /Atilde /atilde /Zcaron /zcaron /Iacute /Igrave /Oacute
  /Ograve /Otilde /otilde /Scaron /scaron /Uacute /Ydieresis /ydieresis
  /Thorn /thorn /bullet /mu /paragraph /threequarters /emdash
  /onequarter
  /onehalf /ordfeminine /ordmasculine /guillemotleft /brokenbar
  /guillemotright /plusminus /eth
] def

appencoding /Times-Roman8 /Times-Roman REMAP

% PostScript Prelude for Scribe.
...
%%EndProlog
>)

Print all the printing characters from the QTimesRoman8 font:





@begin(format)
 !"#$%&'()*+,-./0123456789:;<=>?
@@
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
abcdefghijklmnopqrstuvwxyz{|}~


€‚ƒ„…†‡ˆ‰Š‹ŒŽ

‘’“”•–—˜™š›œžŸ

 ¡¢£¤¥¦§¨©ª«¬­®¯

°±²³´µ¶·¸¹º»¼½¾¿

ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏ

ÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß

àáâãäåæçèéêëìíîï

ðñòóôõö÷øùúûüýþÿ
@end(format)

@heading(Roman 8 characters and HP keyboard)

@begin(format)
€  8#200 /fraction	%% scribe 164
  8#201 /quotesingle	%% scribe 169
‚  8#202 /quotedblleft	%% scribe 170
ƒ  8#203 /guilsinglleft  %% scribe 172
„  8#204 /guilsinglright %% scribe 173
…  8#205 /fi		%% scribe 174
†  8#206 /endash		%% scribe 177
‡  8#207 /dagger		%% scribe 178

ˆ  8#210 /daggerdbl	%% scribe 179
‰  8#211 /periodcentered %% scribe 180
Š  8#212 /quotesinglbase %% scribe 184
‹  8#213 /quotedblbase   %% scribe 185
Π 8#214 /quotedblright  %% scribe 186
  8#215 /ellipsis	%% scribe 188
Ž  8#216 /perthousand	%% scribe 189
  8#217 /breve		%% scribe 198

 8#220 /dotaccent	%% scribe 199
‘  8#221 /dieresis	%% scribe 200
’  8#222 /cedilla	%% scribe 203
“  8#223 /hungarumlaut	%% scribe 205
”  8#224 /ogonek		%% scribe 206
•  8#225 /caron		%% scribe 207
–  8#226 /Lslash		%% scribe 232
—  8#227 /OE		%% scribe 234

˜  8#230 /dotlessi	%% scribe 245
™  8#231 /lslash		%% scribe 248
š  8#232 /oe		%% scribe 250
›  8#233 /Ecircumflex	%% unassigned
œ  8#234 /Edieresis	%% unassigned
  8#235 /Egrave		%% unassigned
ž  8#236 /Eth		%% unassigned
Ÿ  8#237 /Icircumflex	%% unassigned

   8#240 /Idieresis	%% unassigned
¡    8#241 /Agrave
¢    8#242 /Acircumflex
£    8#243 /Egrave
¤    8#244 /Ecircumflex
¥    8#245 /Edieresis
¦    8#246 /Icircumflex
§    8#247 /Idieresis

¨    8#250 /acute
©    8#251	/grave
ª    8#252 /circumflex
«    8#253 /dieresis
¬    8#254 /tilde
­    8#255 /Ugrave
®    8#256 /Ucircumflex
¯    8#257 /fl  % /ItalianLira %%% missing from Postscript use fl

°    8#260 /macron
±    8#261 /Yacute
²    8#262 /yacute
³    8#263 /ring
´    8#264 /Ccedilla
µ    8#265 /ccedilla
¶    8#266 /Ntilde
·    8#267 /ntilde

¸    8#270 /exclamdown
¹    8#271	/questiondown
º    8#272 /currency
»    8#273 /sterling
¼    8#274 /yen
½    8#275 /section
¾    8#276 /florin
¿    8#277 /cent

À    8#300 /acircumflex
Á    8#301	/ecircumflex
    8#302 /ocircumflex
à   8#303 /ucircumflex
Ä    8#304 /aacute
Å    8#305 /eacute
Æ    8#306 /oacute
Ç    8#307 /uacute

È    8#310 /agrave
É    8#311	/egrave
Ê    8#312 /ograve
Ë    8#313 /ugrave
Ì    8#314 /adieresis
Í    8#315 /edieresis
Î    8#316 /odieresis
Ï    8#317 /udieresis

Ð    8#320 /Aring
Ñ    8#321 /icircumflex
Ò    8#322 /Oslash
Ó    8#323 /AE
Ô    8#324 /aring
Õ    8#325 /iacute
Ö    8#326 /oslash
×    8#327 /ae

Ø    8#330 /Adieresis
Ù    8#331 /igrave
Ú    8#332 /Odieresis
Û    8#333 /Udieresis
Ü    8#334 /Eacute
Ý    8#335 /idieresis
Þ    8#336 /germandbls
ß    8#337 /Ocircumflex

à    8#340 /Aacute
á    8#341 /Atilde
â    8#342 /atilde
ã    8#343 /Zcaron % /Dstroke %%% missing from Postscript use Zcaron
ä    8#344 /zcaron % /dstroke %%% missing from Postscript use zcaron
å    8#345 /Iacute
æ    8#346 /Igrave
ç    8#347 /Oacute

è    8#350 /Ograve
é    8#351	/Otilde
ê    8#352 /otilde
ë    8#353 /Scaron
ì    8#354 /scaron
í    8#355 /Uacute
î    8#356 /Ydieresis
ï    8#357 /ydieresis

ð    8#360 /Thorn
ñ    8#361 /thorn
ò    8#362 /bullet
ó    8#363 /mu
ô    8#364 /paragraph
õ    8#365 /threequarters % /IO %%% missing from Postscript use 3/4
ö    8#366 /emdash
÷    8#367 /onequarter

ø    8#370 /onehalf
ù    8#371	/ordfeminine
ú    8#372 /ordmasculine
û    8#373 /guillemotleft
ü    8#374 /brokenbar % /solidbox  %%% missing from Postscript use brokenbar
ý     8#375 /guillemotright
þ    8#376 /plusminus
ÿ    8#377 /eth %%% use "eth" as the symbol in the 16#FF slot
@end(format)