⟦89e5d0cde⟧

TextFile

/inch {72 mul} def
0.000 inch 0.000 inch translate
%- 0000000000
% ? CopyRight Apple Computer, Inc. 1984, 1985   All Rights Reserved.
%{appledict version #40
%- serverdict begin exitserver
/md 250 dict def md begin
systemdict /currentpacking known{currentpacking true setpacking}if
/bdf{bind def}bind def
/xdf{exch def}bdf
/LW 2 def %- {save statusdict /product get(LaserWriter)anchorsearch
          %- exch pop{length 0 eq{1}{2}ifelse}{0}ifelse exch restore}bdf
/LW+{LW 2 eq}bdf
/ok false def %- {systemdict /statusdict known dup{LW 0 gt and}if}bdf
%- ok{statusdict begin 9 sccinteractive 3 ne exch 0 ne or{9 0 3 setsccinteractive}if
%- waittimeout 300 lt{/waittimeout 300 def}if end}if
currentscreen /spf xdf /rot xdf /freq xdf
%%BeginDictionary: md
/av 40 def
/T true def
/F false def
/ci 0 def
/ml 0 def
/al 0 def
/tg 0 def
/sb 500 string def
/mtx matrix def
/s75 75 string def
/s8 8 string def
/s1 ( ) def
/pxs 1 def
/pys 1 def
/nlw .24 def
/ppr [-32 -29.52 762 582.48] def
/pgs 1320 def
/por true def
/xb 500 array def
/so true def
/fillflag false def
/pnm 1 def
/fmv true def
/sfl false def
/ma 0 def
/fkb true def
/fg (Rvd\001\001\000\000\177) def
%- Translate origin to user coordinate system
/xl{neg exch neg translate}bdf
%- Implement QuickDraw verbs (frame, paint, erase, invert, fill)
/fp{pnsh 0 ne pnsv 0 ne and}bdf
/vrb[
     {fp{gsave 1 setlinewidth pnsh pnsv scale stroke grestore}if newpath}bind
     /eofill load
     dup
     /newpath load
     2 index
     dup
     {clip newpath}bind
     {}bind
     dup
     2 copy
     ]def
%- Perform QuickDraw verb
/doop{vrb exch get exec}bdf
%- Page setup values
/psu{/pgs xdf 2 index .72 mul exch div /pys xdf div .72 mul /pxs xdf ppr astore pop /por xdf sn and /so xdf}bdf
%- Adjust page to paper selection
/txpose{ %- page adjustments have been disabled for encapsulation
%- userdict /note known pgs 1680 eq 1 index and{legal}if
%- pgs 1212 eq{dup{note}if 54 32.4 translate}if
%- pgs 1403 eq userdict /a4small known and{a4small}if
%- pgs 1320 eq and{note}if
 pxs pys scale
 ppr aload pop
%-   por{pop exch neg exch translate pop} {translate pop pop 270 rotate}ifelse 
   por{pop exch pop add 0 exch translate} {translate pop pop 270 rotate}ifelse 
 1 -1 scale}bdf
%- Scale page to framing rectangle: rectange fr --
/fr{3 index 3 index xl ppr aload pop 3 -1 roll 2 mul add 3 1 roll exch 2 mul add
 6 2 roll 3 -1 roll sub 3 1 roll exch sub 3 1 roll exch 3 -1 roll div 3 1 roll div exch scale}bdf
/lws{show}bdf
/tv{show pop pop}bdf
/obl{{0.212557 mul}{pop 0}ifelse}bdf
/pw{fg 7 /PreserveWidth kif{pop}{127}ifelse put}bdf
/sfd{ps fg 5 -1 roll get mul 100 div 0 ps 5 -1 roll obl ps neg 0 0 6a astore makefont setfont}bdf
/fnt{findfont sfd}bdf
/bt{sa 3 1 roll 3 index and put}bdf
/sa(\000\000\000\000\000\000\000\000\000)def
/fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf
/mx1 matrix def
/mx2 matrix def
/mx3 matrix def
/dgf{fg 7 get currentfont}bdf
/gf{}bdf
/bu{currentpoint currentgray currentlinewidth currentlinecap currentlinejoin currentdash exch aload length
 fg 5 sfl{1}{0}ifelse put ml al tg ci pnsv pnsh
 2t aload pop 3a aload pop mx2 aload pop mx1 aload pop mtx currentmatrix aload pop
 mx3 aload pop ps pm restore /ps xdf mx3 astore pop}bdf
/bn{/pm save def mx3 setmatrix newpath 0 0 moveto ct dup 39 get 0 exch getinterval cvx exec
 mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop
 2t astore pop /pnsh xdf /pnsv xdf gw /ci xdf /tg xdf /al xdf /ml xdf
 /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap
 setlinewidth setgray moveto}bdf
/fc{save vmstatus exch sub 50000 lt
 {(%%[|0|]%%)=print flush}if pop restore}bdf
/tc{32768 div add 3 1 roll 32768 div add 2t astore pop}bdf
/3a [0 0 0] def
/2t 2 array def
/tp{3a astore pop}bdf
/tt{mx2 currentmatrix pop currentpoint 2 copy 2t aload pop qa 2 copy translate 3a aload pop exch dup 0 eq
 {pop}{1 eq{-1 1}{1 -1}ifelse scale}ifelse rotate pop neg exch neg exch translate moveto}bdf
/te{mx2 setmatrix}bdf
/dtb{/fkb false def /tg currentgray def /ci 0 def /ml 0 def /al 0 def 3 eq{1 setgray}if}bdf
/tb{3 eq{1 setgray}if pop pop pop}bdf
/dam{ml add /ml xdf dup length sb exch ci exch dup
 ci add /ci xdf getinterval copy dup wi pop dup al add /al xdf
 currentgray{setgray dup ml mul 3 -1 roll rs}}bdf
/am{pop sa 2 get 0 ne{dup wi pop dup 3 -1 roll rs}{show}ifelse}bdf
/th{3 -1 roll div 3 1 roll exch div 2 copy mx1 scale pop scale /sfl true def}bdf
/tu{1 1 mx1 itransform scale /sfl false def}bdf
/ts{1 1 mx1 transform scale /sfl true def}bdf
/fz{/ps xdf}bdf
/dfs{dup fs{fs}}bdf
/dfz{dup fz{fz}}bdf
/tm{save exch{dup type dup /arraytype eq exch /packedarraytype eq or
 {exec}{dup type /dicttype eq{fkb{setfont fg exch 7 exch put}{pop pop}ifelse}if}ifelse}forall
 currentpoint 3 -1 roll restore moveto}bdf
/dkb{counttomark xb exch 0 exch getinterval astore exch pop es}bdf
/kb{}bdf
/dv{dup 0 ne{div}{pop}ifelse}bdf
/es{3 -1 roll dup sa 8 get
 sa 1 get 0 ne{/ml ml .2 ps mul sub def}if
 ne{fs}{pop}ifelse exch dup 1 eq
 {pop /tv al ml gt{/ll load /ml ml al dv def}{{show pop pop}/ml 1 def}ifelse def}{dup 3 eq
 {pop /tv al ml gt{/ll load /ml ml al dv def}{ml al sub 0 rmoveto{show pop pop}/ml 1 def}ifelse def}{2 eq
 {/tv al ml gt{/ll load /ml ml al dv def}{ml al sub 2 div 0 rmoveto{show pop pop}/ml 1 def}ifelse def}
 {/tv /ll load /ml ml al dv def def}ifelse}ifelse}ifelse tm tg setgray}bdf
/pop4{pop pop pop pop}bdf
/it{sfl{mx1 itransform}if}bdf
%- Moves to a point, scaled if necessary
/gm{exch it moveto}bdf
/lm{dlm exec}bdf
/dlm{{pop currentpoint sfl{mx1 transform}if exch pop sub 0 exch it rmoveto}}bdf
/fm{statusdict /manualfeed known}bdf
/se{statusdict exch /manualfeed exch put}bdf
/mf{dup /ma xdf 0 gt{fm se /t1 5 st ok ma 1 gt and{/t2 0 st /t3 0 st
 statusdict /manualfeedtimeout 3600 put
 }if}if}bdf
/jn{ok{statusdict exch /jobname exch put}{pop}ifelse}bdf
%- Sets vertical and horizontal width of pen line
/pen{pnm mul /pnsh xdf pnm mul /pnsv xdf pnsh setlinewidth}bdf
/min{2 copy gt{exch}if pop}bdf
/max{2 copy lt{exch}if pop}bdf
/dh{fg 6 1 put array astore exch pop exch pop exch setdash}bdf
/ih[currentdash]def
/rh{fg 6 0 put ih aload pop setdash}bdf
/dl{gsave nlw pys div setlinewidth 0 setgray}bdf
/dlin{exch currentpoint newpath moveto lineto currentpoint stroke grestore moveto}bdf
%- Draw line using current operator
/lin{fg 6 get 0 ne{lineto currentpoint 0 doop moveto}
 {exch currentpoint /pnlv xdf /pnlh xdf gsave newpath /@y xdf /@x xdf fp{pnlh @x lt{pnlv @y ge
 {pnlh pnlv moveto @x @y lineto pnsh 0 rlineto
 0 pnsv rlineto pnlh pnsh add pnlv pnsv add lineto pnsh neg 0 rlineto}
 {pnlh pnlv moveto pnsh 0 rlineto @x pnsh add @y lineto 0 pnsv rlineto
 pnsh neg 0 rlineto pnlh pnlv pnsv add lineto}ifelse}{pnlv @y gt
 {@x @y moveto pnsh 0 rlineto pnlh pnsh add pnlv lineto 0 pnsv rlineto
 pnsh neg 0 rlineto @x @y pnsv add lineto}{pnlh pnlv moveto pnsh 0 rlineto
 0 pnsv rlineto @x pnsh add @y pnsv add lineto pnsh neg 0 rlineto
 0 pnsv neg rlineto}ifelse}ifelse
 closepath fill}if @x @y grestore moveto}ifelse}bdf
%- Gets line width
/gw{/pnm fg 3 get fg 4 get div def}bdf
/lw{fg exch 4 exch put fg exch 3 exch put gw pnsv pnsh pen}bdf
/barc{/@f xdf /@op xdf /@e xdf /@s xdf /@r xdf/@b xdf /@l xdf /@t xdf gsave
 @r @l add 2 div @b @t add 2 div translate newpath 0 0 moveto
 @r @l sub @b @t sub mtx currentmatrix pop scale @f{newpath}if
 0 0 0.5 @s @e arc
 mtx setmatrix @op doop grestore}bdf
/ar{dup 0 eq barc}bdf
/ov{0 exch 360 exch true barc}bdf
/rc{/@op xdf currentpoint 6 2 roll newpath 4 copy
 4 2 roll exch moveto 6 -1 roll lineto lineto lineto closepath
 @op doop moveto}bdf
/mup{dup pnsh 2 div le exch pnsv 2 div le or}bdf
/rr{/@op xdf 2. div /@w xdf 2. div /@h xdf
 /@r xdf /@b xdf /@l xdf /@t xdf
 @t @b eq @l @r eq @w mup or or{@t @l @b @r @op rc}
 {@r @l sub 2. div dup @w lt{/@w xdf}{pop}ifelse
 @b @t sub 2. div dup @w lt{/@w xdf}{pop}ifelse
 @op 0 eq{/@w @w pnsh 2 div 2 copy gt{sub def}{0 pop4}ifelse}if
 currentpoint newpath
 @r @l add 2. div @t moveto
 @r @t @r @b @w arcto pop4
 @r @b @l @b @w arcto pop4
 @l @b @l @t @w arcto pop4
 @l @t @r @t @w arcto pop4
 closepath @op doop moveto}ifelse}bdf
/pr{gsave newpath /pl{exch moveto /pl{exch lineto}def}def}bdf
/pl{exch lineto}bdf
/ep{dup 0 eq{{moveto}{exch lin}{}{(%%[|1|]%%)= flush}pathforall
 pop grestore}{doop grestore}ifelse currentpoint newpath moveto}bdf
/gr{64. div setgray}bdf
/pat{s8 copy pop 9.375 0{1 add 4 mul cvi s8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and}setscreen gr}bdf
/sg{freq rot /spf load setscreen gr}bdf
/dc{transform round .5 sub exch round .5 sub exch itransform}bdf
/sn{userdict /smooth known}bdf
/x8{3 bitshift}bdf
/x4{2 bitshift}bdf
/d4{-2 bitshift}bdf
/xf{.12 mul exch 8. div}bdf
/db{/bmode xdf
 save 9 1 roll sn and 8 4 roll xf exch dc translate newpath 0 0 moveto
 2 copy xf .96 mul exch scale pop
 0 0 1 1 5 -1 roll 7 index 2 sub exch div 1200 div sub 10 rc clip newpath 0 0 moveto
 bmode 0 eq bmode 4 eq or{1 setgray .5 .5 idtransform abs exch abs
 2 copy neg 1 add exch neg 1 add exch 2 rc}if
 bmode 3 eq bmode 7 eq or{1}{0}ifelse setgray
 /@f (%stdin)(r) file def
 {x4 /@dy xdf 2 sub x4 /@dx xdf /@idx xdf
 @idx 5 bitshift @dy bmode 0 eq bmode 1 eq bmode 3 eq or or @dx 0 0 @dy 8 0 6a astore
 {@f @dy d4 4 add @idx mul string readhexstring pop
 dup length @idx x4 sub 4 bitshift string
 dup 3 1 roll @dx 8 add d4 smooth}imagemask}
 {/@dy xdf 2 sub /@dx xdf /@idx xdf
 /@xs @idx string def
 /@p{@f @xs readhexstring pop}def
 @p @p @idx 3 bitshift @dy bmode 0 eq bmode 1 eq bmode 3 eq or or @dx 0 0 @dy 0 0 6a astore
 {@p}imagemask @p @p pop4}ifelse restore}bdf
/wd 14 dict def
/mfont 14 dict def
/mdf{mfont wcheck not{/mfont 14 dict def}if mfont begin xdf end}bdf
/cf{{1 index /FID ne{tmp 3 1 roll put}{pop pop}ifelse}forall}bdf
/mv{fmv{tmp /Encoding macvec put}if}bdf
/du{findfont dup length dict /tmp xdf cf}bdf
/nf{tmp definefont pop}bdf
/rf{/fmv xdf du mv nf}bdf
/fe{tmp /Encoding 2 copy get dup length array copy put}bdf
/ce{tmp /Encoding get 3 1 roll put}bdf
/xs{?? serverdict begin exitserver}bdf
/bmbc{wd begin
 /cr xdf /fd xdf save fd /low get cr x4 6 getinterval dup 3 get 255 eq{pop 0 0 0 0 0 0 setcachedevice}{fd begin
 dup 4 get 8 bitshift 1 index 5 get add
 exch dup 0 get 8 bitshift 1 index 1 get add exch dup 2 get km add exch 3 get xm aload pop
 end dup scale /sh xdf /sw xdf neg /desc xdf
 /hwd load 0 get div 4 1 roll /coff xdf dup /cloc xdf sub /bitw xdf
 0 coff desc bitw coff add sh setcachedevice
 bitw 0 ne{coff desc translate newpath 0 0 moveto
 mark cloc 8 mod dup bitw add dup 8 div ceiling cvi 1 add dup 1 and 0 ne{1 add}if /byw xdf
 [2 7 4 index sub bitshift 1 sub 2 7 4 index 8 mod sub bitshift 1 sub not
 3 index 8 idiv 1 sub dup 0 ge{{255 exch}repeat}{pop and}ifelse 0 0]
 /rg byw sh so{4 add}if mul string def
 sw 8 idiv fd /hm get cloc 8 idiv so{byw 1 bitshift}{0}ifelse
 sh{2 index 2 index byw getinterval rg 2 index byw getinterval copy pop
 byw add exch 3 index add exch}repeat
 0 1 rg length 1 sub{rg 1 index get 6 index 2 index byw mod get and rg 3 1 roll put}for
 byw x8 dup sh scale so{x4 sh x4 true 2 index 0 0 sh x4 neg
 13 index x4 8 add 1 index neg 6a astore{byw sh mul 16 mul string rg 1 index byw x8 smooth}imagemask}
 {sh true 2 index 0 0 sh neg 13 index sh 6a astore{rg}imagemask}ifelse cleartomark}if
 }ifelse restore end}bdf
/bb{3 index div 4 1 roll
   2 index div 1 5 2 roll
   exch div 4 1 roll
   4 array astore /FontBBox mdf
   }bdf
/hwd LW+{.96}{1.}ifelse
   /exch load /div load 4 /array load /astore load /xm /mdf cvx
   8 LW+{packedarray}{array astore}ifelse cvx bdf
/bf{
    mfont begin
    /FontType 3 def
    /FontMatrix [1 0 0 1 0 0] def
    /Encoding macvec def
    /BuildChar /bmbc load def
    end
    mfont definefont pop
   }bdf
/wi LW+{/stringwidth load}
 {{gsave 0 0 0 0 0 0 0 0 moveto lineto lineto lineto closepath clip stringwidth grestore}bind}ifelse def
/aps{0 get 124 eq}bdf
/apn{s75 cvs aps}bdf
/xc{s75 cvs dup}bdf
/xp{put cvn}bdf
/scs{xc 3 67 put dup 0 95 xp}bdf
/sos{xc 3 79 xp}bdf
/sbs{xc 1 66 xp}bdf
/sis{xc 2 73 xp}bdf
/sob{xc 2 79 xp}bdf
/sss{xc 4 83 xp}bdf
/dd{exch 1 index add 3 1 roll add exch}bdf
/smc{moveto dup lws}bdf
/kwn{dup FontDirectory exch known{findfont exch pop}}bdf
/gl{1 currentgray sub setgray}bdf
/mm{/mfont 10 dict def mfont begin
    /FontMatrix [1 0 0 1 0 0] def
    /FontType 3 def
    /Encoding macvec def
    /df 4 index findfont def
    /FontBBox [0 0 1 1] def
    /xda xdf /mbc xdf
    /BuildChar{wd begin /cr xdf /fd xdf /cs s1 dup 0 cr put def fd /mbc get exec end}def
    exec end mfont definefont}bdf
/ac{dup scs kwn{exch /ofd exch findfont def /tmp ofd maxlength 1 add dict def ofd cf mv
 tmp dup dup /StrokeWidth nlw 1000 mul pys div ps div dup 12 lt{pop 12}if put
 /PaintType 2 put definefont}ifelse}bdf
/mb{dup sbs kwn{exch{pop}{bbc}{}mm}ifelse sfd}bdf
/mo{dup sos kwn{exch{pop}{boc}{}mm}ifelse sfd}bdf
/ms{dup sss kwn{exch{pop}{bsc}{}mm}ifelse sfd}bdf
/ou{dup sos kwn{exch dup ac pop{scs findfont /df2 xdf}{aoc}{}mm}ifelse sfd}bdf
/su{dup sss kwn{exch dup ac pop{scs findfont /df2 xdf}{asc}{}mm}ifelse sfd}bdf
/ao{/fmv true def ou}bdf /as{/fmv true def su}bdf /vo{/fmv false def ou}bdf /vs{/fmv false def su}bdf
/bbc{/da .03 def fd /df get setfont
 gsave cs wi exch da add exch grestore setcharwidth
 cs 0 0 smc da 0 smc da da smc 0 da moveto lws}bdf
/boc{/da 1 ps div def fd /df get setfont
 gsave cs wi exch da add exch grestore setcharwidth
 cs 0 0 smc da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
/bsc{/da 1 ps div def
/ds .05 def /da2 da 2. div def fd /df get setfont
 gsave cs wi exch ds add da2 add exch grestore setcharwidth
 cs ds da2 add .01 add 0 smc 0 ds da2 sub translate 0 0 smc
 da 0 smc da da smc 0 da smc gl da 2. div dup moveto lws}bdf
/aoc{fd /df get setfont
 gsave cs wi grestore setcharwidth
 gl cs 0 0 smc fd /df2 get setfont gl 0 0 moveto lws}bdf
/asc{/da .05 def fd /df get setfont
 gsave cs wi exch da add exch grestore setcharwidth
 cs da .01 add 0 smc 0 da translate gl 0 0 smc gl fd /df2 get setfont 0 0 moveto lws}bdf
/dly{/@t exch st{@t the{exit}if}loop}bdf
/st{1000 mul usertime add dup 2147483647 gt{2147483647 sub}if def}bdf
/the{usertime sub dup 0 lt exch -2147483648 gt and}bdf
/lsf{FontDirectory{pop dup apn{= flush}{dup s75 dup 0 (|______) putinterval
 7 68 getinterval cvs length 7 add s75 0 3 -1 roll getinterval cvn
 FontDirectory exch known{pop}{= flush}ifelse}
 ifelse}forall /* = flush}bdf
/6a 6 array def
/2a 2 array def
/3q 3 array def
/qs{3 -1 roll sub exch 3 -1 roll sub exch}bdf
/qa{3 -1 roll add exch 3 -1 roll add exch}bdf
/qm{3 -1 roll 1 index mul 3 1 roll mul}bdf
/qn{6a exch get mul}bdf
/qA .166667 def /qB .833333 def /qC .5 def
/qx{6a astore pop
 qA 0 qn qB 2 qn add   qA 1 qn qB 3 qn add
 qB 2 qn qA 4 qn add   qB 3 qn qA 5 qn add
 qC 2 qn qC 4 qn add   qC 3 qn qC 5 qn add}bdf
/qp{6 copy 12 -2 roll pop pop}bdf
/qc{exch qp qx curveto}bdf
/qi{{exch 4 copy 2a astore aload pop qa .5 qm newpath moveto}{exch 2 copy 6 -2 roll 2 qm qs 4 2 roll}ifelse}bdf
/qq{{qc 2a aload pop qx curveto}{exch 4 copy qs qa qx curveto}ifelse}bdf
/pt{currentpoint newpath moveto}bdf
/qf{/fillflag true def}bdf
/ec{1 and 0 ne{0 doop}if grestore currentpoint newpath moveto /fillflag false def}bdf
/eu{currentpoint fp{0 ep}{grestore newpath}ifelse moveto /fillflag false def}bdf
/bp{currentpoint newpath 2 copy moveto}bdf
/ef{gsave fillflag{gsave eofill grestore}if}bdf
/sm{dup 0 exch{32 eq{1 add}if}forall}bdf
/ll{3 1 roll exch dup abs .001 lt{pop pop pop}
 {sub dup abs .5 lt{pop show}{1 index sm
 fg 7 get dup 127 ne{4 1 roll exch pop dv 0 4 -2 roll exch widthshow}
 {pop dup 0 eq 3 index 0 le or{pop length div 0 3 -1 roll ashow}
 {10 mul exch length add div dup 10 mul 0 32 4 -1 roll 0 6 -1 roll awidthshow
 }ifelse}ifelse}ifelse}ifelse}bdf
/dss{currentfont bu 0 sa 6 get 0 ne{pop 1}{sa 7 get 0 eq{pop 2}if}ifelse sa 1 get 0 ne
     /|______Symbol sa 4 get 0 ne{vs}{sa 3 get 0 ne{vo}{fnt}ifelse}ifelse bn fg 7 get currentfont}bdf
/ss{dss pop pop}bdf
/dpf{fg 7 get 8 -1 roll dup setfont}bdf
/pf{setfont}bdf
/mc{0 3 1 roll transform neg exch pop}bdf
/rs{sa 2 get 0 ne{gsave 1 index 0
 /UnderlinePosition kif{mc}{ps -10 div}ifelse
 /UnderlineThickness kif{mc}{ps 15 div}ifelse
 setlinewidth currentpoint 3 -1 roll sub moveto
 sa 4 get 0 ne{gsave currentlinewidth 2. div dup rmoveto currentpoint translate 2 copy rlineto
 stroke grestore}if sa 3 get sa 4 get or 0 ne 3 1 roll 2 index{gsave gl 2 copy rlineto stroke grestore}if
 rlineto{strokepath nlw pys div setlinewidth}if stroke grestore}if tv}bdf
/sgt{2 copy known{get true}{pop pop false}ifelse}bdf
/kif{currentfont dup /FontMatrix get exch /FontInfo sgt{true}{currentfont /df sgt
 {dup /FontInfo sgt{3 1 roll /FontMatrix get mtx concatmatrix exch true}{pop pop pop false}
 ifelse}{pop pop false}ifelse}ifelse{3 -1 roll sgt{exch true}{pop false}ifelse}{false}ifelse}bdf
/blank /Times-Roman findfont /CharStrings get /space get def
/macvec 256 array def
 /NUL /SOH /STX /ETX /EOT /ENQ /ACK /BEL /BS /HT /LF /VT /FF /CR /SO /SI
 /DLE /DC1 /DC2 /DC3 /DC4 /NAK /SYN /ETB /CAN /EM /SUB /ESC /FS /GS /RS /US
 macvec 0 32 getinterval astore pop
 macvec 32 /Times-Roman findfont /Encoding get
 32 96 getinterval putinterval macvec dup 39 /quotesingle put 96 /grave put
 /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
 /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
 /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
 /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
 /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
 /registered /copyright /trademark /acute /dieresis /notequal /AE /Oslash
 /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
 /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
 /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
 /guillemotright /ellipsis /blank /Agrave /Atilde /Otilde /OE /oe
 /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
 /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
 /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand /Acircumflex /Ecircumflex /Aacute
 /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
 /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
 /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
 macvec 128 128 getinterval astore pop
/|______AvantGarde-Book /AvantGarde-Book T rf
/|______AvantGarde-BookOblique /AvantGarde-BookOblique T rf
/|______AvantGarde-Demi /AvantGarde-Demi T rf
/|______AvantGarde-DemiOblique /AvantGarde-DemiOblique T rf
/|______Bookman-Demi /Bookman-Demi T rf
/|______Bookman-DemiItalic /Bookman-DemiItalic T rf
/|______Bookman-Light /Bookman-Light T rf
/|______Bookman-LightItalic /Bookman-LightItalic T rf
/|______Courier /Courier T rf
/|______Courier-Bold /Courier-Bold T rf
/|______Courier-BoldOblique /Courier-BoldOblique T rf
/|______Courier-Oblique /Courier-Oblique T rf
/|______Helvetica /Helvetica T rf
/|______Helvetica-Bold /Helvetica-Bold T rf
/|______Helvetica-BoldOblique /Helvetica-BoldOblique T rf
/|______Helvetica-Narrow /Helvetica-Narrow T rf
/|______Helvetica-Narrow-Bold /Helvetica-Narrow-Bold T rf
/|______Helvetica-Narrow-BoldOblique /Helvetica-Narrow-BoldOblique T rf
/|______Helvetica-Narrow-Oblique /Helvetica-Narrow-Oblique T rf
/|______Helvetica-Oblique /Helvetica-Oblique T rf
/|______NewCenturySchlbk-Bold /NewCenturySchlbk-Bold T rf
/|______NewCenturySchlbk-BoldItalic /NewCenturySchlbk-BoldItalic T rf
/|______NewCenturySchlbk-Italic /NewCenturySchlbk-Italic T rf
/|______NewCenturySchlbk-Roman /NewCenturySchlbk-Roman T rf
/|______Palatino-Bold /Palatino-Bold T rf
/|______Palatino-BoldItalic /Palatino-BoldItalic T rf
/|______Palatino-Italic /Palatino-Italic T rf
/|______Palatino-Roman /Palatino-Roman T rf
/|______Symbol /Symbol T rf
/|______Times-Bold /Times-Bold T rf
/|______Times-BoldItalic /Times-BoldItalic T rf
/|______Times-Italic /Times-Italic T rf
/|______Times-Roman /Times-Roman T rf
/|______ZapfChancery-MediumItalic /ZapfChancery-MediumItalic T rf
/|______ZapfDingbats /ZapfDingbats T rf
/|______Seattle /Helvetica findfont dup length 1 add dict /tmp xdf cf mv
 /mxv[/zero /one /two /three /four /five /six /seven /eight /nine /comma /period /dollar /numbersign
      /percent /plus /hyphen /E /parenleft /parenright /space]def
 tmp /Metrics 21 dict dup begin mxv{600 def}forall end put
 tmp begin /FontBBox FontBBox [0 0 0 0] astore def end
 tmp definefont pop
%- false{
%- /rd{/@t 5 st 0{readRS232{exch 1 add exch 1 index 3 eq{exit}
%- {pop}ifelse}{@t the{0 exit}if}ifelse}loop exch pop}bdf
%- /sf{66 writeRS232 rd 64 eq (BBFGB) ty get writeRS232 rd 64 eq and}bdf
%- /af{rd 64 ne{/@x 4.5 st{sf{exit}if @x the
%- {/@x 4.5 st(%%[status: problem with external paper feeder]%%)= flush}if}loop}if}bdf
%- /kf{af hp (BBDCE) ty get writeRS232}bdf
%- /hp{{t1 the{/t1 t2 the ty 4 eq or{{t3 the{exit}if}loop 18 st 18}{9 st 9}ifelse
%- dup 2 add /t2 exch st 4.5 add /t3 exch st exit}if}loop}bdf
%- /fx{ma 1 gt ok and{ma 5 eq{/@t 4.5 st{po 524288 and 0 eq{exit}if
%- @t the{(%%[status: paper jam]%%) = flush /@t 4.5 st}if}loop /@x 4.5 st
%- rd 64 eq sf and{{66 writeRS232 kf exit}{/ty (▶00◀0▶00◀0▶00◀3▶00◀2) ty get def}ifelse @x the
%- {(%%[status: external feeder out of paper]%%)= flush /@x 4.5 st}if sf}loop}{kf}ifelse}if}bdf
%- /sp{#copies dup userdict /#copies 1 put 1 ge{1 sub{fx copypage}repeat fx showpage}{1 ge{fx showpage}{erasepage}ifelse}ifelse}bdf
%- /pp{#copies userdict /#copies 1 put{fx copypage}repeat}bdf
%- }{
/sp {} def %- /showpage load def 
/pp /copypage load def %- }ifelse
/od{(Rvd\001\001\000\000\177) fg copy pop txpose newpath clippath mark
 {transform{itransform moveto}}{transform{itransform lineto}}
 {6 -2 roll transform 6 -2 roll transform 6 -2 roll transform
 {itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}
 {{closepath}}pathforall newpath counttomark array astore /gc xdf pop 
 ct 39 0 put 10 fz 0 fs 2 F /|______Courier fnt}bdf
/cd{}bdf
/op{/sfl false def /pm save def}bdf
/cp{not{userdict /#copies 0 put}if
   ma 0 gt{{t1 the{exit}if}loop}if
   {pp}{sp}ifelse pm restore}bdf
/px{0 3 1 roll tp tt}bdf
/py{}bdf
/psb{/us save def}bdf
/pse{us restore}bdf
/ct 40 string def
/nc{currentpoint initclip newpath gc{dup type dup /arraytype eq exch /packedarraytype eq or{exec}if}
 forall clip newpath moveto}bdf
/kp{ct 0 2 index length 2 index 39 2 index put getinterval copy cvx exec mx3 currentmatrix pop}bdf
%%Uses: nc rc   %- in string argument to kp
%%EndDictionary: md
%- LW 1 eq userdict /a4small known not and{/a4small
%- [[300 72 div 0 0 -300 72 div -120 3381]
%- 280 3255
%- {statusdict /jobstate (printing) put 0 setblink
%- margins
%- exch 196 add exch 304 add 8 div round cvi frametoroket
%- statusdict /jobstate (busy) put
%- 1 setblink}
%- /framedevice load
%- 60 45{dup mul exch dup mul add 1.0 exch sub}/setscreen load
%- {}/settransfer load /initgraphics load /erasepage load]cvx
%- statusdict begin bind end readonly def}if
systemdict /currentpacking known{setpacking}if
DataMuseum.dk

Rational R1000/400 Tapes

⟦89e5d0cde⟧ TextFile

Derivation

TextFile
