home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 12
/
boot-disc-1997-08.iso
/
ILSTRATR
/
ARCHIVE.Z
/
ProcSets.aip
/
TEXT
/
768
< prev
next >
Wrap
Text File
|
1997-05-07
|
358b
|
11 lines
/BuildChar {
/_bitlobyte exch def
/_bitfont exch def
/_bithibyte 0 def
_bitlobyte 16 4 string cvrs dup length (K) dup length
dup 4 -1 roll add string /_bitkey exch def
exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
_bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
_bitfont /CharStrings get _bitkey cvn get exec
} bind def