.type font.tst
.type
.define escape "^-" lck 14	.; Alternate font
.define escape "\-" lck 15	.; Regular font
.FLAGS ESCAPE `
.define escape	"`1",hsp,1,14,1,15
.define escape	"`2",hsp,1,14,2,15
.define escape	"`3",hsp,1,14,3,15
.define escape	"`4",hsp,1,14,4,15
.DEFINE ESCAPE  '`"',HSP,1,14,5,15
.DEFINE ESCAPE  '`,',HSP,1,14,6,15
.DEFINE ESCAPE  "`:",HSP,1,14,7,15
.DEFINE ESCAPE  "`?",HSP,1,14,8,15
.DEFINE ESCAPE  "`!",HSP,1,14,9,15
.DEFINE ESCAPE  "`-",HSP,1,14,10,15
.DEFINE ESCAPE  "`J",HSP,1,14,11,15
.DEFINE ESCAPE  "`j",HSP,1,14,12,15
.DEFINE ESCAPE  "`0",HSP,1,14,13,15
.DEFINE ESCAPE  "`A",HSP,1,14,14,15
.DEFINE ESCAPE  "`#",HSP,1,14,16,15
.DEFINE ESCAPE  "`&",HSP,1,14,17,15
.DEFINE ESCAPE  "`6",HSP,1,14,18,15
.DEFINE ESCAPE  "`$",HSP,1,27,89
.DEFINE ESCAPE  "`'",HSP,1,27,90
.nf
.C;DIABLO CONVERSION TABLE
.S
ABCDEFGHIJKLMNOPQRSTUVWXYZ
^-ABCDEFGHIJKLMNOPQRSTUVWXYZ\-
.S
abcdefghijklmnopqrstuvwxyz
^-abcdefghijklmnopqrstuvwxyz\-
.S
1234567890!@_#_$_%_^_&_*()-__+=_~_`_{_}_[_]
^-1234567890!@_#_$_%_^_&_*()-__+=_~_`_{_}_[_]\-
.S
:;"'_|_\_<,_>.?/
^-:;"'_|_\_<,_>.?/\-
.S
.C;PRECEEDED BY _`
_1_2_3_4_"_ _:_?_!_-_J_j_0_A_#_&_6_$_'
`1`2`3`4`"` `:`?`!`-`J`j`0`A`#`&`6`$`'