From: MRL@PFC.MIT.EDU (MARK LONDON)
Newsgroups: comp.os.vms
Subject: LASER New (different) LASER symbiont. 6/7
Date: 22 Aug 92 16:23:00 GMT
Distribution: world
Organization: The Internet

-+-+-+-+-+-+-+-+ START OF PART 6 -+-+-+-+-+-+-+-+
X`7B`091 setlinecap
X`091 setlinejoin
X`09mx my translate`09% leave a border
X`09rot rotate
X`09sc sc scale
X`09lw setlinewidth
X`090 0 moveto
X`7D def
X
X/DP`09% tsizey -> - erase and home
X`7B`09clippath 1 setgray fill
X`090 setgray
X`090 exch moveto
X`7D def
X
X/m `7Bmoveto`7D def
X/l `7Brlineto`7D def
X/r `7Brmoveto`7D def
X/s `7Bstroke`7D def
X/n `7Bnewpath`7D def
X/v `7Bnewpath moveto `7Brlineto`7D repeat stroke`7D def
X
XFntH  setfont
$ CALL UNPACK TEK4014.PS;15 2037386531
$ create 'f'
X%!PS-Adobe-1.0
X`04
X/inch `7B72 mul`7D def
X
X/setuppage `7B
X`09initgraphics
X`090 11 inch  translate -90 rotate
X    `09/x 1 inch def
X    `09/y 7 inch def
X`09.5 inch .5 inch moveto  10 inch 0 rlineto 0 7.5 inch rlineto
X`09 -10 inch 0 rlineto closepath stroke
X`7D def`09
X
X/h-user `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X`09(User: ) show show
X`09/y y .75 inch sub def
X`7D def
X
X/h-job `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X
X`09statusdict /printername known `7B`09`09% if we know about printer names
X`09`0950 string statusdict /printername get exec /p-printername exch def
X
X`09`09statusdict /product known `7B`09`09% if we know our product
X`09`09`09statusdict /product get exec /p-product exch def
X`09`09`09p-product show
X`09`09`09p-printername p-product ne `7B`09`09% if not same name as by defaul
Vt
X`09`09`09`09(: ) show
X`09`09`09`09p-printername show
X`09`09`09`7D if
X`09`09`7D `7B
X`09`09`09p-printername show
X`09`09`7D ifelse
X`09`7D `7B
X`09`09(LASER) show
X`09`7D ifelse
X
X`09/y y .75 inch sub def
X`09x y moveto
X`09(Job:   ) show show
X`09/y y .75 inch sub def
X`7D def
X
X/h-file `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X       (File:   ) show
X       dup stringwidth pop 8 inch exch div % get space/length
X       dup 1 lt `7B .4 inch mul % if less space than length
X`09`09/Helvetica findfont exch scalefont setfont `7D % resize the font
X`09`09`7B pop `7D ifelse % else leave font alone
X`09       show
X`09/y y .75 inch sub def
X`7D def
X
X/h-time `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X`09(Date: ) show show
X`09/y y .75 inch sub def
X`7D def
X
X/h-error `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X`09(Error: ) show
X`09dup stringwidth pop 8 inch exch div % get space/length
X`09dup 1 lt `7B .4 inch mul % if less space than length
X`09`09/Helvetica findfont exch scalefont setfont `7D % resize the font
X`09`09`7B pop `7D ifelse % else leave font alone
X`09       show
X`09/y y .75 inch sub def
X`7D def
X
X/h-pages `7B
X`09/Helvetica findfont .4 inch scalefont setfont
X`09x y moveto
X`09(Pages: ) show
X`09cvi statusdict /pagecount get exec exch sub 1 add 10 string cvs show
X`09/y y .75 inch sub def
X`7D def
X
X/h-logline `7B
X`09/Helvetica findfont 12 scalefont setfont
X`09x y moveto
X`09show
X`09/y y 12 sub def
X`7D def
$ CALL UNPACK TRAILER.PS;1 1365116560
$ create 'f'
X%!
X%%%`09PostScript program to plot Zeta plot files
X%
X%`09R. Watson 31-Jan-85
X%
X%`09inputs:`09/param1 or /#copies - number of copies (default 1)
X%`09`09/param2 or /scalefact - scale factor (default 1)
X%`09`09/param3 or /zFont - use Zeta font (default true)
X%`09`09/param4 or /penscale - scaling to apply to pen (default 1)
X%`09`09/param5 or /usepens - use pen color if nz (default 0)
X%
X%`09Not supported yet:
X%
X%`091. Shaded characters
X%`092. Aspect characters
X%
X%`0909/13/85 add pre-processed definitions
X%`09`09zFont defaults to true
X%`09`09scalefact defaults to 1
X%`0905/30/86 Ignore level one "6" commands (whatever they are)
X%`0906/20/86 J.Knox Fix problems with circle command
X%`0902/15/87 R.Watson add default parameters
X%`0902/20/87 R.Watson add default table, remove debug print, remove`20
X%`09`09 input timeout avoidance.
X%`0903/06/87 M. Kaczmarczik/J. Taylor add scaling factor for pen
X%`0904/01/87 R. Watson Opcode 6 is alternate pen select.
X%`09`09 Added parameter usepens to select pen color/shading.`20
X%`09`09 Default changed to no shading.
X%
X
X/lTime usertime def`09`09`09`09% save load start time
X
X%%`09initialization.
X%
X/init
X`7B
X%%%`09dbg 1 string dup 0 7 put writestring flush % ring bell
X`09newpath
X`09/aspect 256 def`09`09`09% preset default aspect
X`090 0 moveto`09`09`09% preset starting location on page
X`09/pen false def`09`09`09% preset pen up
X`09/sTime usertime def`09`09% save start time
X`7D def
X
X
X%  read a zeta byte
X
X/getz `7B`09`09`09`09`09`09
X`09`7B
X`09`09inp read not `7BeofError`7D if`09% if EOF
X`09`09dup 32 gt `7Bexit`7D `7Bpop`7D ifelse`09% exit loop if not <= space
X`09`7D loop
X`09dup /zn exch def`09`09`09% define zeta number
X`09zb 0 3 -1 roll put`09`09`09% put char code in string
X`7D def
X
X
X%%  check for 9 more Z's
X%
X/checkZeta `7B
X`099 `7B getz zb (Z) ne `7BnotZerror`7D if `7D repeat
X`7D def
X
X
X%%  main program
X%
X/main
X`7B
X`09`7B
X`09`09gsave
X`09`09init
X`09`09waitBytes`09`09`09`09% wait for a job
X`09`09not `7Bgrestore exit`7D if`09`09`09% if waitBytes false
X`09`09checkZeta
X`09`09levelOne
X`09`09grestore
X`09`7D loop
X`7D def
X
X
X%%`09waitBytes - waits until there is a "Z" on stdin.
X%
X%`09return true if Z found, false if EOF
X/waitBytes
X`7B
X`09`7B
X%%% % uncomment these lines to wait forever for plots with no timeout
X%%% `09`09inp bytesavailable 0 ne `7B
X`09`09`09inp read not `7B false exit `7D if`09`09% if EOF
X`09`09`0916#5A eq `7Btrue exit`7D if`09`09`09% if Z
X%%%`09`09`7D if
X`09`7D loop
X`7D def
X
X
X%  levelOne - process level 1 commands
X
X/levelOne
X`7B
X`09`7B
X`09`09getz `09`09`09`09`09%get a byte
X
X`09`09zb (Z) eq `7B`09`09`09`09% Z
X`09`09`09stroke
X%%% debug`09`09usertime sTime sub 1000 div 10 20 string cvrs
X%%% debug`09`09 dbg exch writestring dbg ( seconds\n)
X%%% debug`09`09 writestring flush
X%%% debug`09`09lTime 1000 div 10 20 string cvrs`20
X%%% debug`09`09 dbg exch writestring dbg ( load time\n)
X%%% debug`09`09 writestring flush
X`09`09`09showpage
X`09`09`09exit
X`09`09`7D if
X
X`09`09`7B`09
X`09`09`09zb (0) eq `7B`09`09`09% 0 - nop
X`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (1) eq `7B`09`09`09% 1 - pen up
X`09`09`09`09/pen false def
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (2) eq `7B`09`09`09% 2 - pen down
X`09`09`09`09/pen true def
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (3) eq `7B`09`09`09% 3 - character vector
X`09`09`09`09cVector
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (4) eq `7B`09`09`09% 4 - center char vect
X`09`09`09`09ccVector
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (5) eq `7B`09`09`09% 5 - numeric vector
X`09`09`09`09nVector
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (6) eq `7B`09`09`09% 6 - pen select
X`09`09`09`091 crb`09`09`09% get pen
X`09`09`09`09usepens 0 ne`7B`09`09% if shading enabled
X`09`09`09`09`09pencolor exch get setgray
X`09`09`09`09`7D `7B
X`09`09`09`09`09pop
X`09`09`09`09`7D ifelse
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09zb (7) eq `7B`09`09`09% 7 - level 2
X`09`09`09`09levelTwo
X`09`09`09`09exit
X`09`09`09`7D if
X
X`09`09`09vector
X`09`09`09exit
X`09`09`7D loop
X
X`09`7D loop %do this one forever`09`09
X`7D def
X
X
X%  level two commands
X
X/levelTwo
X`7B
X`09getz `09`09`09`09`09% get level 2 type
X
X`09`7B
X`09`09zb (1) eq `7B`09`09`09% 1 - pen 1
X`09`09`09/pen false def
X`09`09`09emit
X`09`09`09pencolor 0 get setgray
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (2) eq `7B`09`09`09% 2 - pen 2
X`09`09`09/pen false def
X`09`09`09emit
X`09`09`09pencolor 1 get setgray
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (3) eq `7B`09`09`09% 3 - pen 3
X`09`09`09/pen false def
X`09`09`09emit
X`09`09`09pencolor 2 get setgray
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (4) eq `7B`09`09`09% 4 - pen 4
X`09`09`09/pen false def
X`09`09`09emit
X`09`09`09pencolor 3 get setgray
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (7) eq `7B`09`09`09% 7 - enter level 3
X`09`09`09levelThree
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (B) eq `7B`09`09`09% B - enter dash
X`09`09`09emit
X`09`09`09dashes 0. setdash`09% enter dash mode
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (C) eq `7B`09`09`09% C - exit dash
X`09`09`09emit
X`09`09`09`5B`5D 0. setdash
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (D) eq `7B`09`09`09% D - define dash
X`09`09`09emit`09`09`09% close current path
X`09`09`09getz getxy`09`09% get dash definition
X`09`09`09/d1 ix def /d2 iy def`09% save first 2 parts
X`09`09`09getz getxy
X`09`09`09/dashes `5Bd1 d2 ix d2`5D def % define dash array
X`09`09`09dashes 0. setdash`09% enter dash mode
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (E) eq `7B`09`09`09% E - define slant
X`09`09`09getz getxy`09`09% eat slant
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (F) eq `7B`09`09`09% F - define aspect
X`09`09`09getz getxy`09`09% eat aspect
X`09`09`09/aspect ix def
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (G) eq `7B`09`09`09% G - circle/arc
X`09`09`09doCircle
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (H) eq `7B`09`09`09% H - terminal msg
X`09`09`09termMsg
X`09`09`09exit
X`09`09`7D if
X
X`09`09zb (I) eq `7B`09`09`09% I - shade
X`09`09`09getz getxy
X`09`09`09exit
X`09`09`7D if
X
X
X%  process rest of level 2
X`09`09exit
X
X
X
X`09`7D loop
X`7D def
X
X
X%  process line vector
X
X/vector
X`7B
X`09getxy`09`09`09`09`09% get crb x y
X`09pen `7Bix iy rlineto`7D `7Bix iy rmoveto emit`7D ifelse %do the vector
X`7D def
X
X
X%  process character vector
X
X/cVector
X`7B
X`09getz`09`09`09`09% get vector control
X`09getxy`09`09`09`09% decode vector
X`092 crb`09`09`09`09% get length
X`09dup string /cstr exch def`09% build string
X`09/cind 0 def`09`09`09% preset index
X`09`7B
X`09`092 crb`20
X`09`09dup 0 lt `7Bpop 0`7D if`09% DEBUG if negative
X`09`09dup 127 gt `7Bpop 0`7D if`09% DEBUG if too big
X`09`09zFont `7Bsym exch get`7D`09% map zeta to zeta code
X`09`09      `7Bzta exch get`7D ifelse % get ascii char code
X`09`09cstr cind 3 -1 roll put`09% put into string
X`09`09cind 1 add /cind exch def`09% advance index
X`09`7D repeat`09`09`09% length times
X
X`09/sn cstr length def`09`09% get string char count
X`09ix dup mul iy dup mul add sqrt /iz exch def % calc iz
X`09iz sn dofont`09`09`09% scale font
X`09cstr stringwidth `09`09% get string lengths
X`09/sy exch def /sx exch def
X`09iy ix atan rotate`09`09% rotate co-ordinates
X`09iz sx sub sn div 0 cstr ashow`09% do string rel to new co-ord (dy=0)
X`09emit
X`09iy ix atan neg rotate`09`09% rotate back
X`09/pen false def`09`09`09% pick up pen
X`7D def
X
X
X%  process centered character vector
X
X/ccVector
X`7B
X`09getz`09`09`09`09% get vector control
X`09getxy`09`09`09`09% decode vector
X`09/cstr 1 string def`09`09% define 1 char string
X`091 crb abs
X`09zFont `7Bsym exch get`7D`09`09% map zeta to zeta code
X`09      `7Bzta exch get`7D ifelse `09% get ascii char code
X`09cstr 0 3 -1 roll put`09`09% insert character into string
X
X`09/sn cstr length def`09`09% get string char count
X`09ix dup mul iy dup mul add sqrt /iz exch def % calc iz
X`09iz sn dofont`09`09`09% scale font
X`09cstr stringwidth `09`09% get string lengths
X`09/sy exch def /sx exch def
X`09currentpoint`09`09`09% save current point
X`09iy ix atan rotate`09`09% rotate co-ordinates
X`09cw -6 mul 22 div ch -6 mul 22 div rmoveto % backup 1/2 char size
X`09cstr show`09`09`09% do string rel to new co-ord (dy=0)
X`09emit
X`09iy ix atan neg rotate`09`09% rotate back
X`09moveto`09`09`09`09% restore current point
X`09/pen false def`09`09`09% pick up pen
X`7D def
X
X
X% <length> <number of chars> dofont  -- set up font
X
X/dofont
X`7B
X`09/nc exch def`09`09`09% define number of chars in string
X`09/zc exch def`09`09`09% define length of string`20
X`09zFont `7B/ZetaFont findfont`7D`09% get font
X`09      `7B/Helvetica findfont`7D ifelse
X`09/cw zc nc div def`09`09% get character width
X`09cw 256. mul aspect div /ch exch def % get character height
X`09`5Bcw 0 0 ch 0 0`5D makefont`09% scale font
X`09setfont`09`09`09`09% set font
X`7D def
X
X
X%  process numeric vector
X
X/nVector
X`7B
X`09getz`09`09`09`09% get vector control
X`09getxy`09`09`09`09% decode vector
X`091 crb`09`09`09`09% get length
X`09dup string /cstr exch def`09% build string
X`09/cind 0 def`09`09`09% preset index
X`09`7B
X`09`09zFont `7B1 crb ztf exch get`7D`09% convert to zeta font code
X`09`09      `7B1 crb ztn exch get`7D ifelse % get ascii char code
X`09`09cstr cind 3 -1 roll put`09% put into string
X`09`09cind 1 add /cind exch def % advance index
X`09`7D repeat`09`09`09% length times
X
X`09/sn cstr length def`09`09% get string char count
X`09ix dup mul iy dup mul add sqrt /iz exch def % calc iz
X`09iz sn dofont`09`09`09% scale font
X`09cstr stringwidth `09`09% get string lengths
X`09/sy exch def /sx exch def
X`09iy ix atan rotate`09`09% rotate co-ordinates
X`09iz sx sub sn div 0 cstr ashow`09% do string rel to new co-ord (dy=0)
X`09emit
X`09iy ix atan neg rotate`09`09% rotate back
X`09/pen false def`09`09`09% pick up pen
X`7D def
X
X
X% doCircle
X
X/doCircle
X`7B
X`09getz`09`09`09`09% get circle/arc control
X`09`7B
X`09`09zb (0) eq zb (I) eq or `7B% if arc
X`09`09`09zb (0) eq`09% save arc direction
X`09`09`09getz`09`09% get vector control
X`09`09`09getxy`09`09% get vector 1
X`09`09`09/x1 ix def
X`09`09`09/y1 iy def
X`09`09`09getz`09`09% get vector 2
X`09`09`09getxy
X`09`09`09/x2 ix def
X`09`09`09/y2 iy def
X`09`09`09currentpoint /y exch def /x exch def`09%get cur pt
X%`09`09`09x1 y1 rmoveto`09% start arc at end of 1st vector
X`09`09`09x1 dup mul `09% r = sqrt((x1-x)**2+(y1-y)**2)
X`09`09`09y1 dup mul
X`09`09`09add sqrt /r exch def
X`09`09`09y1 x1 atan /theta1 exch def %get angles
X`09`09`09y2 x2 atan /theta2 exch def
X`09`09`09x x1 sub y y1 sub r theta1 theta2`20
X`09`09 `096 -1 roll `7B arc `7D `7B arcn `7D ifelse % use saved arc state
X`09`09`09x x1 sub x2 add y y1 sub y2 add moveto`09% return to base
X`09`09`09exit
X`09`09`7D if
X
X`09`09% else we have a circle
X`09`09getxy`09`09`09% get vector
X`09`09currentpoint /y exch def /x exch def % get cur pt
X`09`09ix iy rmoveto`09`09% start circle at end of vector
X`09`09ix dup mul`09`09% r = sqrt(ix**2+iy**2)
X`09`09iy dup mul
X`09`09add sqrt /r exch def
X`09`09x y r 0. 360. arc`09% draw circle
X`09`09x y moveto`09`09% return to base
X`09`09exit
X`09`7D loop
X`7D def
X
X
X% <length> crb <integer number>   -  get crb number
X
X/crb
X`7B
X`09/sum 0 def
X
X% repeat <length> sum = (sum shift 5) + zn
X`09dup `7B sum 5 bitshift getzv add /sum exch def`7D repeat
X
X% check for negative - if so then or in -1's mask
X`095 mul 1 sub -1 exch bitshift dup sum and 0 ne `7Bsum or /sum exch def`7D
X`09`09`09`7Bpop`7D ifelse
X`09sum`09`09`09`09% return sum
X`7D def
X
X
X% getzv <integer>  -  convert NEXT zb to zeta binary number
X
X/getzv
X`7B
X`09getz
X`09zn 16#41 lt `7Bzn 16#30 sub`7D `7Bzn 16#41 sub 8 add`7D ifelse
X`7D def
X
X
X%  getxy  -  ix,iy set to crb value
X
X/getxy
X`7B
X`09zn 16#41 sub 1 add dup /ny exch def`09%ny = zn-'A'+1
X`095 div cvi dup /nx exch def`09`09%nx = ny / 5
X`095 mul ny exch sub cvi /ny exch def`09%ny = ny - 5*nx
X
X%  get x and y displacement
X`09nx crb /ix exch def`09`09`09%ix = crb(nx)
X`09ny crb /iy exch def`09`09`09%iy = crb(ny)
X`7D def
X
X
X% emit - draw the current path
X
X/emit
X`7B
X`09currentpoint`09`09`09`09% save where we are
X`09stroke`09`09`09`09`09% draw current path
X`09moveto`09`09`09`09`09% position to where we are
X`7D def
X
X
X% <num> debugi  -  write debug integer
X
X/debugi
X`7B
X`0916 10 string cvrs dbg exch writestring dbg (\n) writestring flush
X`7D def
X
X
X%  <string> debugs  -  write debug string
X
X/debugs
X`7B
X`09dbg exch writestring dbg ( ) writestring flush
X`7D def
X
X
X%  executable initialization
X
X(%stdin) (r) file /inp exch def`09`09`09% define input file
X(%stdout) (w) file /dbg exch def`09`09% define debug file
X/zb 1 string def`09`09`09`09% zeta byte string
X
X/pencolor `5B0. .35 .50 .70 0. .35 .50 .7`5D def`09% pen color shading
X
X16#3f 16#3f 16#3f 16#2b 16#3f 16#3f 16#3f 16#3f
X16#5a 16#3f 16#3f 16#2a 16#3f 16#3f 16#3f 16#3f
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#20 16#41 16#42 16#43 16#44 16#45 16#46 16#47
X16#48 16#49 16#3f 16#2e 16#3c 16#28 16#2b 16#7c
X16#26 16#4a 16#4b 16#4c 16#4d 16#4e 16#4f 16#50
X16#51 16#52 16#21 16#24 16#2a 16#29 16#3b 16#3f
X16#2d 16#2f 16#53 16#54 16#55 16#56 16#57 16#58
X16#59 16#5a 16#3f 16#2c 16#25 16#5f 16#3e 16#3f
X16#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37
X16#38 16#39 16#3a 16#23 16#40 16#27 16#3d 16#22
X16#61 16#62 16#63 16#64 16#65 16#66 16#67 16#68
X16#69 16#6a 16#6b 16#6c 16#1d 16#6e 16#6f 16#70
X17#71 16#72 16#73 16#74 16#75 16#76 16#77 16#78
X16#79 16#7a 16#3f 16#3f 16#1f 16#3f 16#3f 16#3f
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f`20
X16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 16#3f 256 array astore /zta exch d
Vef
X
X16#30 16#31 16#32 16#33 16#34 16#35 16#36 16#37
X16#38 16#39 16#2d 16#2e 12 array astore /ztn exch def
X
X/ztf `5B44 45 46 47 48 49 50 51 52 53 55 64`5D def % zeta numeric vector to
V font
X
X`5B 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
X16 17 73 114 120 17 113 84 110 16 109 87 117 125 118 119 127`20
X126 91 92 93 94 95 96 97 98 99 100 101 102 16 16 88`20
X83 115 116 89 66 67 79 103 85 105 106 121 82 122 123 62`20
X18 19 20 21 22 23 24 25 26 108 64 75 58 54 86 72`20
X27 28 29 30 31 32 33 34 35 71 60 56 59 80 111 55`20
X57 36 37 38 39 40 41 42 43 107 63 74 16 76 78 44`20
X45 46 47 48 49 50 51 52 53 68 70 77 69 61 65 128`20
X129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144`20
X145 146 147 148 149 150 151 152 153 154 90 104 155 156 157 158`20
X159 81 124 160 161 162 163 164 165 166 167 112 168 169 170 171`20
X172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187`20
X188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203`20
X204 205 206 207 208 209 210 211 212 213 `5D /sym exch def
X
X/ZetaFontDict 8 dict def
X/$workingdict 100 dict def
XZetaFontDict begin
X`09/FontType 3 def
X`09/FontMatrix `5B.04545 0 0 .04545 0 0`5D def
X`09/FontBBox `5B0 0 22 22`5D def
X`09/Encoding 256 array def
X`093 string 0 1 255 `7Bdup 10 3 index cvrs cvn Encoding 3 1 roll put`7D for
X`09 pop
X
X`09/CharArrays 214 dict dup begin
X/0 `5B 16#10606 16#2060C 16#20C0C 16#20C00 16#20000 16#2000C 16#2060C`20
X     16#20606 `5D def
X/1 `5B 16#10606 16#2060C 16#2030C 16#20009 16#20003 16#20300 16#20900`20
X     16#20C03 16#20C09 16#2090C 16#2060C 16#20606 `5D def
X/2 `5B 16#1060C 16#20002 16#20C02 16#2060C 16#20606 `5D def
X/3 `5B 16#10006 16#20606 16#2060C 16#20606 16#20C06 16#20606 16#20600`20
X     16#20606 `5D def
X/4 `5B 16#1000C 16#20C00 16#20606 16#20C0C 16#20000 16#20606 `5D def
X/5 `5B 16#10606 16#2060C 16#20006 16#20600 16#20C06 16#2060C 16#20606 `5D de
Vf
X/6 `5B 16#10600 16#2060C 16#20006 16#20C06 16#2060C 16#20606 16#20606 `5D de
Vf
X/7 `5B 16#10C00 16#2000C 16#20C0C 16#20000 16#20606 `5D def
X/8 `5B 16#1000C 16#20C0C 16#20000 16#20C00 16#10906 16#20306 16#20606 `5D de
Vf
X/9 `5B 16#10600 16#20606 16#2000C 16#20606 16#20C0C 16#20606 `5D def
X/10 `5B 16#10909 16#20903 16#20C00 16#20903 16#20303 16#20000 16#20303`20
X      16#20309 16#2000C 16#20309 16#20909 16#20C0C 16#20606 `5D def
X/11 `5B 16#10006 16#20C06 16#20606 16#2060C 16#20600 16#20606 16#2000C`20
X      16#20C00 16#20606 16#20C0C 16#20000 16#20606 `5D def
X/12 `5B 16#10606 16#2000C 16#20C0C 16#20000 16#20C00 16#20606 `5D def
X/13 `5B 16#10600 16#2060C 16#20606 `5D def
X/14 `5B 16#1060C 16#20003 16#20C03 16#2060C 16#20609 16#20009 16#20600`20
X      16#20C09 16#20609 16#20606 `5D def
X/15 `5B 16#1070A 16#20F0A 16#11500 `5D def
X/16 `5B 16#10400 16#20408 16#11500 `5D def
X/17 `5B 16#11500 `5D def
X/18 `5B 16#10000 16#20010 16#20415 16#20B15 16#20F10 16#20F00 16#10008`20
X      16#20F08 16#11500 `5D def
X/19 `5B 16#10000 16#20015 16#20B15 16#20F12 16#20F0E 16#20B0B 16#2000B`20
X      16#10B0B 16#20F08 16#20F03 16#20B00 16#20000 16#11500 `5D def
X/20 `5B 16#10F03 16#20B00 16#20400 16#20003 16#20012 16#20415 16#20B15`20
X      16#20F12 16#11500 `5D def
X/21 `5B 16#20015 16#20C15 16#20F12 16#20F03 16#20C00 16#20000 16#11500 `5D d
Vef
X/22 `5B 16#10F15 16#20015 16#2000B 16#20A0B 16#2000B 16#20000 16#20F00`20
X      16#11500 `5D def
X/23 `5B 16#10F15 16#20015 16#2000B 16#20B0B 16#2000B 16#20000 16#11500 `5D d
Vef
X/24 `5B 16#10F0F 16#20F12 16#20C15 16#20315 16#20012 16#20003 16#20300`20
X      16#20C00 16#20F03 16#20F09 16#20C09 16#21109 16#11500 `5D def
X/25 `5B 16#20015 16#2000B 16#20F0B 16#20F15 16#20F00 16#11500 `5D def
X/26 `5B 16#10400 16#20700 16#20715 16#20415 16#20A15 16#20715 16#20700`20
X      16#20A00 16#11500 `5D def
X/27 `5B 16#10006 16#20003 16#20300 16#20C00 16#20F03 16#20F15 16#11500 `5D d
Vef
X/28 `5B 16#20015 16#20008 16#20F15 16#2070E 16#20F00 16#11500 `5D def
X/29 `5B 16#10015 16#20000 16#20F00 16#11500 `5D def
X/30 `5B 16#20015 16#2070B 16#20E15 16#20E00 16#11500 `5D def
X/31 `5B 16#20015 16#20F00 16#20F15 16#11500 `5D def
X/32 `5B 16#10300 16#20003 16#20012 16#20315 16#20C15 16#20F12 16#20C0F`20
X      16#20F12 16#20F03 16#20C00 16#20300 16#11500 `5D def
X/33 `5B 16#20015 16#20C15 16#20F12 16#20F0E 16#20C0B 16#2000B 16#11500 `5D d
Vef
X/34 `5B 16#10808 16#20E02 16#20C00 16#20300 16#20003 16#20012 16#20315`20
X      16#20C15 16#20F12 16#20F03 16#20E02 16#20F00 16#11500 `5D def
X/35 `5B 16#20015 16#20C15 16#20F12 16#20F0E 16#20C0B 16#2000B 16#2080B`20
X      16#20F00 16#11500 `5D def
X/36 `5B 16#10006 16#20003 16#20300 16#20C00 16#20F03 16#20F08 16#20C0B`20
X      16#2030B 16#2000E 16#20012 16#20315 16#20C15 16#20F12 16#11500 `5D def
X/37 `5B 16#10700 16#20715 16#20015 16#20E15 16#11500 `5D def
X/38 `5B 16#10015 16#20003 16#20300 16#20C00 16#20F03 16#20F15 16#11500 `5D d
Vef
X/39 `5B 16#10015 16#20700 16#20E15 16#11500 `5D def
X/40 `5B 16#10015 16#20000 16#2070A 16#20E00 16#20E15 16#11500 `5D def
X/41 `5B 16#20F15 16#10015 16#20F00 16#11500 `5D def
X/42 `5B 16#10700 16#2070B 16#20015 16#2070B 16#20E15 16#2070B 16#11500 `5D d
Vef
X/43 `5B 16#10015 16#20F15 16#2070A 16#2040A 16#20A0A 16#2070A 16#20000`20
X      16#20F00 16#11500 `5D def
X/44 `5B 16#10F03 16#20B00 16#20400 16#20003 16#20012 16#20415 16#20B15`20
X      16#20F12 16#20F03 16#11500 `5D def
X/45 `5B 16#10800 16#20815 16#20512 16#10500 16#20B00 16#20800 16#11500 `5D d
Vef
X/46 `5B 16#10F00 16#20000 16#20003 16#20F10 16#20F12 16#20C15 16#20315`20
X      16#20012 16#20010 16#11500 `5D def
X/47 `5B 16#10012 16#20315 16#20C15 16#20F12 16#20F0E 16#20C0B 16#2030B`20
X      16#20C0B 16#20F08 16#20F03 16#20C00 16#20300 16#20003 16#11500 `5D def
X/48 `5B 16#10C00 16#20C15 16#20006 16#20F06 16#11500 `5D def
X/49 `5B 16#10005 16#20003 16#20300 16#20C00 16#20F03 16#20F08 16#20C0B`20
X      16#2000B 16#20015 16#20F15 16#11500 `5D def
X/50 `5B 16#10008 16#2030B 16#20C0B 16#20F08 16#20F03 16#20C00 16#20300`20
X      16#20003 16#20012 16#20315 16#20C15 16#20F12 16#11500 `5D def
X/51 `5B 16#10012 16#20015 16#20F15 16#20F12 16#20700 16#11500 `5D def
X/52 `5B 16#10C00 16#20300 16#20003 16#20008 16#2030B 16#20C0B 16#20F0E`20
X      16#20F12 16#20C15 16#20315 16#20012 16#2000E 16#2030B 16#20C0B`20
X      16#20F08 16#20F03 16#20C00 16#11500 `5D def
X/53 `5B 16#10003 16#20300 16#20C00 16#20F03 16#20F12 16#20C15 16#20315`20
X      16#20012 16#2000D 16#2030A 16#20C0A 16#20F0D 16#11500 `5D def
X/54 `5B 16#10700 16#2070E 16#20707 16#20007 16#20E07 16#11500 `5D def
X/55 `5B 16#10007 16#20E07 16#11500 `5D def
X/56 `5B 16#20E0E 16#20707 16#2070E 16#20700 16#20707 16#2000E 16#20E00`20
X      16#20707 16#20007 16#20E07 16#11500 `5D def
X/57 `5B 16#20F15 16#11500 `5D def
X/58 `5B 16#10800 16#20504 16#20511 16#20815 16#11500 `5D def
X/59 `5B 16#10700 16#20A04 16#20A11 16#20715 16#11500 `5D def
X/60 `5B 16#10005 16#20302 16#20C02 16#20F05 16#20F09 16#20C0C 16#2030C`20
X      16#2000F 16#20313 16#20C13 16#20F0F 16#10815 16#20800 16#11500 `5D def
X/61 `5B 16#10003 16#20F03 16#10F0A 16#2000A 16#11500 `5D def
X/62 `5B 16#11500 `5D def
X/63 `5B 16#10700 16#20903 16#20905 16#20705 16#20703 16#20903 16#11500 `5D d
Vef
X/64 `5B 16#10700 16#20702 16#20902 16#20900 16#20700 16#11500 `5D def
X/65 `5B 16#10310 16#20015 16#20315 16#20310 16#10910 16#20615 16#20915`20
X      16#20910 16#11500 `5D def
X/66 `5B 16#10B00 16#20400 16#20415 16#20B15 16#11500 `5D def
X/67 `5B 16#10400 16#20B00 16#20B15 16#20415 16#11500 `5D def
X/68 `5B 16#10703 16#20705 16#20905 16#20903 16#20703 16#1070A 16#2070C`20
X      16#2090C 16#2090A 16#2070A 16#11500 `5D def
X/69 `5B 16#10910 16#20615 16#20915 16#20910 16#11500 `5D def
X/70 `5B 16#10300 16#2030F 16#2030C 16#2000C 16#20F0C 16#20C0C 16#20C0F`20
X      16#20C00 16#20C03 16#20F03 16#20003 16#11500 `5D def
X/71 `5B 16#10803 16#20600 16#20A00 16#20803 16#10806 16#20815 16#11500 `5D d
Vef
X/72 `5B 16#10F06 16#20703 16#20403 16#20006 16#20009 16#20A12 16#20615`20
X      16#20312 16#20F00 16#11500 `5D def
X/73 `5B 16#2070F 16#20E00 16#11500 `5D def
X/74 `5B 16#10012 16#20014 16#20214 16#20212 16#20012 16#10F15 16#20000`20
X      16#10D00 16#20D02 16#20F02 16#20F00 16#20D00 16#11500 `5D def
X/75 `5B 16#10F0E 16#20007 16#20F00 16#11500 `5D def
X/76 `5B 16#20F07 16#2000E 16#11500 `5D def
X/77 `5B 16#10F0C 16#20C0F 16#2080F 16#2050C 16#20508 16#20805 16#20C05`20
X      16#20F08 16#20F12 16#20C15 16#20315 16#20012 16#20003 16#20300 16#20C0
V0 16#20F03 16#11500 `5D def
X/78 `5B 16#1000F 16#20012 16#20315 16#20C15 16#20F12 16#20F0E 16#20C0B`20
X      16#2070B 16#20706 16#10703 16#20900 16#20500 16#20703 16#11500 `5D def
X/79 `5B 16#10015 16#20F00 16#11500 `5D def
X/80 `5B 16#10700 16#20903 16#20905 16#20705 16#20703 16#20903 16#1090A`20
X      16#2090C 16#2070C 16#2070A 16#2090A 16#11500 `5D def
X/81 `5B 16#1000F 16#20600 16#20C0F 16#2000F 16#11500 `5D def
X/82 `5B 16#20F0F 16#1000F 16#20F00 16#11500 `5D def
X/83 `5B 16#1070D 16#2070F 16#2090F 16#2090D 16#2070D 16#1000A 16#20F0A`20
X      16#10905 16#20705 16#20707 16#20907 16#20905 16#11500 `5D def
X/84 `5B 16#10002 16#20E02 16#10E0B 16#2000B 16#2070B 16#20712 16#20704`20
X      16#11500 `5D def
X/85 `5B 16#10003 16#20406 16#20800 16#20815 16#20F15 16#11500 `5D def
X/86 `5B 16#10600 16#20612 16#11500 `5D def
X/87 `5B 16#10003 16#20200 16#20500 16#20703 16#20712 16#20915 16#20C15`20
X      16#20E12 16#11500 `5D def
X/88 `5B 16#10F15 16#20015 16#2070B 16#20000 16#20F00 16#11500 `5D def
X/89 `5B 16#2050C 16#20A00 16#20000 16#11500 `5D def
X/90 `5B 16#10300 16#20603 16#2060C 16#2090F 16#20C0F 16#20F0C 16#20F09`20
X      16#20C06 16#20906 16#20609 16#11500 `5D def
X/91 `5B 16#2030F 16#20306 16#20603 16#20903 16#20C06 16#20C0F 16#20C06`20
X      16#20F03 16#11500 `5D def
X/92 `5B 16#10400 16#2040F 16#2000F 16#20F0F 16#20C0F 16#20C00 16#11500 `5D d
Vef
X/93 `5B 16#10700 16#20702 16#20302 16#20005 16#2000A 16#2030D 16#20B0D`20
X      16#20E0A 16#20E05 16#20B02 16#20702 16#2070F 16#11500 `5D def
X/94 `5B 16#10007 16#20207 16#2020B 16#2050E 16#20A0E 16#20D0B 16#20D03`20
X      16#20A00 16#20500 16#20203 16#20207 16#20F07 16#11500 `5D def
X/95 `5B 16#10011 16#20311 16#20307 16#20704 16#20B07 16#20B11 16#20E11`20
X      16#10715 16#20700 16#11500 `5D def
X/96 `5B 16#10303 16#20F0C 16#1030C 16#2060C 16#20C03 16#20F03 16#11500 `5D d
Vef
X/97 `5B 16#1030C 16#20303 16#20600 16#20903 16#2090C 16#10903 16#20C00`20
X      16#20F03 16#20F0C 16#11500 `5D def
X/98 `5B 16#1000F 16#2030D 16#20707 16#20000 16#20707 16#20F03 16#11500 `5D d
Vef
X/99 `5B 16#10F0F 16#20C0F 16#2090C 16#2070F 16#2020F 16#2000C 16#20007`20
X      16#20204 16#20704 16#20907 16#2090C 16#20907 16#20C04 16#20F04 16#1150
V0 `5D def
X/100 `5B 16#10C0F 16#2070F 16#2040C 16#20709 16#20C09 16#20F07 16#20F02`20
X       16#20C00 16#20700 16#20402 16#20407 16#20709 16#11500 `5D def
X/101 `5B 16#10309 16#20F09 16#10F0F 16#2090F 16#2060C 16#20606 16#20903`20
X       16#20F03 16#11500 `5D def
X/102 `5B 16#10309 16#2060F 16#2090C 16#20606 16#1090C 16#20C0F 16#20F0C`20
X       16#20C00 16#11500 `5D def
X/103 `5B 16#10700 16#20712 16#20315 16#20012 16#20315 16#20712 16#20B15`20
X       16#20E12 16#20B15 16#20712 16#11500 `5D def
X/104 `5B 16#10906 16#20C06 16#20F09 16#20F0C 16#20C0F 16#2090F 16#2060C`20
X       16#20609 16#20906 16#11500 `5D def
X/105 `5B 16#10615 16#20600 16#10312 16#20912 16#10306 16#20906 16#11500 `5D
V def
X/106 `5B 16#10615 16#20600 16#10312 16#20912 16#1030C 16#2090C 16#10306`20
X       16#20906 16#11500 `5D def
X/107 `5B 16#10303 16#20603 16#20906 16#20C03 16#20F03 16#21206 16#21209`20
X       16#20F0C 16#20C0C 16#20909 16#2060C 16#2030C 16#20009 16#20006`20
X       16#20303 16#10909 16#20906 16#11500 `5D def
X/108 `5B 16#10612 16#20600 16#10C0C 16#2090F 16#2030F 16#2000C 16#20006`20
X       16#20303 16#20903 16#20C06 16#11500 `5D def
X/109 `5B 16#10015 16#21215 16#11500 `5D def
X/110 `5B 16#10009 16#20F09 16#11500 `5D def
X/111 `5B 16#10009 16#20C09 16#20C03 16#11500 `5D def
X/112 `5B 16#10309 16#20900 16#20F09 16#20912 16#20309 16#11500 `5D def
X/113 `5B 16#10303 16#2090F 16#1000C 16#20C0C 16#10006 16#20C06 16#11500 `5D
V def
X/114 `5B 16#10003 16#20F03 16#10F08 16#20008 16#1000D 16#20F0D 16#11500 `5D
V def
X/115 `5B 16#10001 16#20F01 16#10F05 16#2000A 16#20F0F 16#11500 `5D def
X/116 `5B 16#1000F 16#20F0A 16#20005 16#10001 16#20F01 16#11500 `5D def
X/117 `5B 16#10003 16#20B03 16#20E07 16#20E0B 16#20B0F 16#2000F 16#11500 `5D
V def
X/118 `5B 16#10006 16#20209 16#20509 16#20A03 16#20D03 16#20F06 16#11500 `5D
V def
X/119 `5B 16#10006 16#20209 16#20509 16#20A03 16#20D03 16#20F06 16#1000A`20
X       16#2020D 16#2050D 16#20A07 16#20D07 16#20F0A 16#11500 `5D def
X/120 `5B 16#10008 16#20F08 16#20B0C 16#20B04 16#20F08 16#11500 `5D def
X/121 `5B 16#10008 16#2040C 16#20404 16#20008 16#20F08 16#11500 `5D def
X/122 `5B 16#10800 16#20815 16#20411 16#20C11 16#20815 16#11500 `5D def
X/123 `5B 16#10800 16#20404 16#20C04 16#20800 16#20815 16#11500 `5D def
X/124 `5B 16#11500 `5D def
X/125 `5B 16#1000F 16#20700 16#20E0F 16#11500 `5D def
X/126 `5B 16#10F00 16#20C00 16#20903 16#20907 16#2060A 16#2090D 16#20912`20
X       16#20C15 16#20F15 16#11500 `5D def
X/127 `5B 16#20300 16#20603 16#20607 16#2090A 16#2060D 16#20612 16#20315`20
X       16#20015 16#11500 `5D def
X/128 `5B 16#10309 16#20609 16#20906 16#20903 16#20600 16#20000 16#20003`20
X       16#20306 16#20906 16#20900 16#11500 `5D def
X/129 `5B 16#10015 16#20003 16#20300 16#20600 16#20903 16#20906 16#20609`20
X       16#20309 16#20006 16#20000 16#11500 `5D def
X/130 `5B 16#10906 16#20609 16#20309 16#20006 16#20003 16#20300 16#20600`20
X       16#20903 16#11500 `5D def
X/131 `5B 16#10915 16#20903 16#20600 16#20300 16#20003 16#20006 16#20309`20
X       16#20609 16#20906 16#20900 16#11500 `5D def
X/132 `5B 16#10006 16#20906 16#20609 16#20309 16#20006 16#20003 16#20300`20
X       16#20600 16#20903 16#11500 `5D def
X/133 `5B 16#10009 16#20609 16#10300 16#2030F 16#20612 16#2090F 16#11500 `5D
V def
X/134 `5B 16#10303 16#20003 16#20300 16#20900 16#2090C 16#2060F 16#2030F`20
X       16#2000C 16#20306 16#20906 16#11500 `5D def
X/135 `5B 16#10015 16#20000 16#20006 16#20309 16#20609 16#20906 16#20900`20
X       16#11500 `5D def
X/136 `5B 16#1060F 16#2060C 16#10609 16#20600 16#11500 `5D def
X/137 `5B 16#10612 16#2060F 16#1060C 16#20603 16#20300 16#20003 16#11500 `5D
V def
X/138 `5B 16#10015 16#20006 16#20306 16#20609 16#10000 16#20006 16#20306`20
X       16#20600 16#11500 `5D def
X/139 `5B 16#10615 16#20600 16#11500 `5D def
X/140 `5B 16#10000 16#20009 16#20303 16#20603 16#20909 16#20900 16#11500 `5D
V def
X/141 `5B 16#10009 16#20000 16#20006 16#20309 16#20609 16#20906 16#20900`20
X       16#11500 `5D def
X/142 `5B 16#10006 16#20309 16#20609 16#20906 16#20903 16#20600 16#20300`20
X       16#20003 16#20006 16#11500 `5D def
X/143 `5B 16#10000 16#20009 16#2030C 16#2060C 16#20909 16#20606 16#20306`20
X       16#20009 16#2000C 16#11500 `5D def
X/144 `5B 16#10900 16#20909 16#2060C 16#2030C 16#20009 16#20306 16#20606`20
X       16#20909 16#2090C 16#11500 `5D def
X/145 `5B 16#10009 16#20000 16#20006 16#20309 16#20609 16#20906 16#11500 `5D
V def
X/146 `5B 16#10303 16#20600 16#20903 16#20306 16#20609 16#20906 16#11500 `5D
V def
X/147 `5B 16#10615 16#20600 16#10309 16#20909 16#11500 `5D def
X/148 `5B 16#10009 16#20003 16#20300 16#20600 16#20903 16#20909 16#20900`20
X       16#11500 `5D def
X/149 `5B 16#10009 16#20300 16#20600 16#20909 16#11500 `5D def
X/150 `5B 16#10009 16#20000 16#20306 16#20606 16#20900 16#20909 16#11500 `5D
V def
X/151 `5B 16#10009 16#20900 16#10000 16#20909 16#11500 `5D def
X/152 `5B 16#1000C 16#20009 16#20306 16#20606 16#20909 16#2090C 16#20903`20
X       16#20600 16#20300 16#20003 16#11500 `5D def
X/153 `5B 16#10009 16#20909 16#20000 16#20900 16#11500 `5D def
X/154 `5B 16#1030F 16#2060F 16#2090C 16#20906 16#20C03 16#20F03 16#11500 `5D
V def
X/155 `5B 16#10606 16#20615 16#10015 16#20C15 16#11500 `5D def
X/156 `5B 16#10006 16#20309 16#20906 16#20C09 16#11500 `5D def
X/157 `5B 16#10012 16#20312 16#20315 16#20015 16#20012 16#10912 16#20C12`20
X       16#20C15 16#20915 16#20912 16#11500 `5D def
X/158 `5B 16#10306 16#2030C 16#10309 16#20F09 16#11500 `5D def
X/159 `5B 16#10309 16#20F09 16#10F06 16#20F0C 16#11500 `5D def
X/160 `5B 16#10303 16#20903 16#20C06 16#20C0C 16#2090F 16#2030F 16#2000C`20
X       16#20006 16#20303 16#11500 `5D def
+-+-+-+-+-+-+-+-  END  OF PART 6 +-+-+-+-+-+-+-+-