|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ M ┃
Length: 23176 (0x5a88)
Names: »MD«
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦a5bbbb819⟧
└─⟦this⟧
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦eec0a994f⟧
└─⟦this⟧
0x0000…0020 2f 69 6e 63 68 20 7b 37 32 20 6d 75 6c 7d 20 64 65 66 0a 30 2e 30 30 30 20 69 6e 63 68 20 30 2e ┆/inch {72 mul} def 0.000 inch 0.┆
0x0020…0040 30 30 30 20 69 6e 63 68 20 74 72 61 6e 73 6c 61 74 65 0a 25 2d 20 30 30 30 30 30 30 30 30 30 30 ┆000 inch translate %- 0000000000┆
0x0040…0060 0a 25 20 3f 20 43 6f 70 79 52 69 67 68 74 20 41 70 70 6c 65 20 43 6f 6d 70 75 74 65 72 2c 20 49 ┆ % ? CopyRight Apple Computer, I┆
0x0060…0080 6e 63 2e 20 31 39 38 34 2c 20 31 39 38 35 20 20 20 41 6c 6c 20 52 69 67 68 74 73 20 52 65 73 65 ┆nc. 1984, 1985 All Rights Rese┆
0x0080…00a0 72 76 65 64 2e 0a 25 7b 61 70 70 6c 65 64 69 63 74 20 76 65 72 73 69 6f 6e 20 23 34 30 0a 25 2d ┆rved. %{appledict version #40 %-┆
0x00a0…00c0 20 73 65 72 76 65 72 64 69 63 74 20 62 65 67 69 6e 20 65 78 69 74 73 65 72 76 65 72 0a 2f 6d 64 ┆ serverdict begin exitserver /md┆
0x00c0…00e0 20 32 35 30 20 64 69 63 74 20 64 65 66 20 6d 64 20 62 65 67 69 6e 0a 73 79 73 74 65 6d 64 69 63 ┆ 250 dict def md begin systemdic┆
0x00e0…0100 74 20 2f 63 75 72 72 65 6e 74 70 61 63 6b 69 6e 67 20 6b 6e 6f 77 6e 7b 63 75 72 72 65 6e 74 70 ┆t /currentpacking known{currentp┆
0x0100…0120 61 63 6b 69 6e 67 20 74 72 75 65 20 73 65 74 70 61 63 6b 69 6e 67 7d 69 66 0a 2f 62 64 66 7b 62 ┆acking true setpacking}if /bdf{b┆
0x0120…0140 69 6e 64 20 64 65 66 7d 62 69 6e 64 20 64 65 66 0a 2f 78 64 66 7b 65 78 63 68 20 64 65 66 7d 62 ┆ind def}bind def /xdf{exch def}b┆
0x0140…0160 64 66 0a 2f 4c 57 20 32 20 64 65 66 20 25 2d 20 7b 73 61 76 65 20 73 74 61 74 75 73 64 69 63 74 ┆df /LW 2 def %- {save statusdict┆
0x0160…0180 20 2f 70 72 6f 64 75 63 74 20 67 65 74 28 4c 61 73 65 72 57 72 69 74 65 72 29 61 6e 63 68 6f 72 ┆ /product get(LaserWriter)anchor┆
0x0180…01a0 73 65 61 72 63 68 0a 20 20 20 20 20 20 20 20 20 20 25 2d 20 65 78 63 68 20 70 6f 70 7b 6c 65 6e ┆search %- exch pop{len┆
0x01a0…01c0 67 74 68 20 30 20 65 71 7b 31 7d 7b 32 7d 69 66 65 6c 73 65 7d 7b 30 7d 69 66 65 6c 73 65 20 65 ┆gth 0 eq{1}{2}ifelse}{0}ifelse e┆
0x01c0…01e0 78 63 68 20 72 65 73 74 6f 72 65 7d 62 64 66 0a 2f 4c 57 2b 7b 4c 57 20 32 20 65 71 7d 62 64 66 ┆xch restore}bdf /LW+{LW 2 eq}bdf┆
0x01e0…0200 0a 2f 6f 6b 20 66 61 6c 73 65 20 64 65 66 20 25 2d 20 7b 73 79 73 74 65 6d 64 69 63 74 20 2f 73 ┆ /ok false def %- {systemdict /s┆
0x0200…0220 74 61 74 75 73 64 69 63 74 20 6b 6e 6f 77 6e 20 64 75 70 7b 4c 57 20 30 20 67 74 20 61 6e 64 7d ┆tatusdict known dup{LW 0 gt and}┆
0x0220…0240 69 66 7d 62 64 66 0a 25 2d 20 6f 6b 7b 73 74 61 74 75 73 64 69 63 74 20 62 65 67 69 6e 20 39 20 ┆if}bdf %- ok{statusdict begin 9 ┆
0x0240…0260 73 63 63 69 6e 74 65 72 61 63 74 69 76 65 20 33 20 6e 65 20 65 78 63 68 20 30 20 6e 65 20 6f 72 ┆sccinteractive 3 ne exch 0 ne or┆
0x0260…0280 7b 39 20 30 20 33 20 73 65 74 73 63 63 69 6e 74 65 72 61 63 74 69 76 65 7d 69 66 0a 25 2d 20 77 ┆{9 0 3 setsccinteractive}if %- w┆
0x0280…02a0 61 69 74 74 69 6d 65 6f 75 74 20 33 30 30 20 6c 74 7b 2f 77 61 69 74 74 69 6d 65 6f 75 74 20 33 ┆aittimeout 300 lt{/waittimeout 3┆
0x02a0…02c0 30 30 20 64 65 66 7d 69 66 20 65 6e 64 7d 69 66 0a 63 75 72 72 65 6e 74 73 63 72 65 65 6e 20 2f ┆00 def}if end}if currentscreen /┆
0x02c0…02e0 73 70 66 20 78 64 66 20 2f 72 6f 74 20 78 64 66 20 2f 66 72 65 71 20 78 64 66 0a 25 25 42 65 67 ┆spf xdf /rot xdf /freq xdf %%Beg┆
0x02e0…0300 69 6e 44 69 63 74 69 6f 6e 61 72 79 3a 20 6d 64 0a 2f 61 76 20 34 30 20 64 65 66 0a 2f 54 20 74 ┆inDictionary: md /av 40 def /T t┆
0x0300…0320 72 75 65 20 64 65 66 0a 2f 46 20 66 61 6c 73 65 20 64 65 66 0a 2f 63 69 20 30 20 64 65 66 0a 2f ┆rue def /F false def /ci 0 def /┆
0x0320…0340 6d 6c 20 30 20 64 65 66 0a 2f 61 6c 20 30 20 64 65 66 0a 2f 74 67 20 30 20 64 65 66 0a 2f 73 62 ┆ml 0 def /al 0 def /tg 0 def /sb┆
0x0340…0360 20 35 30 30 20 73 74 72 69 6e 67 20 64 65 66 0a 2f 6d 74 78 20 6d 61 74 72 69 78 20 64 65 66 0a ┆ 500 string def /mtx matrix def ┆
0x0360…0380 2f 73 37 35 20 37 35 20 73 74 72 69 6e 67 20 64 65 66 0a 2f 73 38 20 38 20 73 74 72 69 6e 67 20 ┆/s75 75 string def /s8 8 string ┆
0x0380…03a0 64 65 66 0a 2f 73 31 20 28 20 29 20 64 65 66 0a 2f 70 78 73 20 31 20 64 65 66 0a 2f 70 79 73 20 ┆def /s1 ( ) def /pxs 1 def /pys ┆
0x03a0…03c0 31 20 64 65 66 0a 2f 6e 6c 77 20 2e 32 34 20 64 65 66 0a 2f 70 70 72 20 5b 2d 33 32 20 2d 32 39 ┆1 def /nlw .24 def /ppr [-32 -29┆
0x03c0…03e0 2e 35 32 20 37 36 32 20 35 38 32 2e 34 38 5d 20 64 65 66 0a 2f 70 67 73 20 31 33 32 30 20 64 65 ┆.52 762 582.48] def /pgs 1320 de┆
0x03e0…0400 66 0a 2f 70 6f 72 20 74 72 75 65 20 64 65 66 0a 2f 78 62 20 35 30 30 20 61 72 72 61 79 20 64 65 ┆f /por true def /xb 500 array de┆
0x0400…0420 66 0a 2f 73 6f 20 74 72 75 65 20 64 65 66 0a 2f 66 69 6c 6c 66 6c 61 67 20 66 61 6c 73 65 20 64 ┆f /so true def /fillflag false d┆
0x0420…0440 65 66 0a 2f 70 6e 6d 20 31 20 64 65 66 0a 2f 66 6d 76 20 74 72 75 65 20 64 65 66 0a 2f 73 66 6c ┆ef /pnm 1 def /fmv true def /sfl┆
0x0440…0460 20 66 61 6c 73 65 20 64 65 66 0a 2f 6d 61 20 30 20 64 65 66 0a 2f 66 6b 62 20 74 72 75 65 20 64 ┆ false def /ma 0 def /fkb true d┆
0x0460…0480 65 66 0a 2f 66 67 20 28 52 76 64 5c 30 30 31 5c 30 30 31 5c 30 30 30 5c 30 30 30 5c 31 37 37 29 ┆ef /fg (Rvd\001\001\000\000\177)┆
0x0480…04a0 20 64 65 66 0a 25 2d 20 54 72 61 6e 73 6c 61 74 65 20 6f 72 69 67 69 6e 20 74 6f 20 75 73 65 72 ┆ def %- Translate origin to user┆
0x04a0…04c0 20 63 6f 6f 72 64 69 6e 61 74 65 20 73 79 73 74 65 6d 0a 2f 78 6c 7b 6e 65 67 20 65 78 63 68 20 ┆ coordinate system /xl{neg exch ┆
0x04c0…04e0 6e 65 67 20 74 72 61 6e 73 6c 61 74 65 7d 62 64 66 0a 25 2d 20 49 6d 70 6c 65 6d 65 6e 74 20 51 ┆neg translate}bdf %- Implement Q┆
0x04e0…0500 75 69 63 6b 44 72 61 77 20 76 65 72 62 73 20 28 66 72 61 6d 65 2c 20 70 61 69 6e 74 2c 20 65 72 ┆uickDraw verbs (frame, paint, er┆
0x0500…0520 61 73 65 2c 20 69 6e 76 65 72 74 2c 20 66 69 6c 6c 29 0a 2f 66 70 7b 70 6e 73 68 20 30 20 6e 65 ┆ase, invert, fill) /fp{pnsh 0 ne┆
0x0520…0540 20 70 6e 73 76 20 30 20 6e 65 20 61 6e 64 7d 62 64 66 0a 2f 76 72 62 5b 0a 20 20 20 20 20 7b 66 ┆ pnsv 0 ne and}bdf /vrb[ {f┆
0x0540…0560 70 7b 67 73 61 76 65 20 31 20 73 65 74 6c 69 6e 65 77 69 64 74 68 20 70 6e 73 68 20 70 6e 73 76 ┆p{gsave 1 setlinewidth pnsh pnsv┆
0x0560…0580 20 73 63 61 6c 65 20 73 74 72 6f 6b 65 20 67 72 65 73 74 6f 72 65 7d 69 66 20 6e 65 77 70 61 74 ┆ scale stroke grestore}if newpat┆
0x0580…05a0 68 7d 62 69 6e 64 0a 20 20 20 20 20 2f 65 6f 66 69 6c 6c 20 6c 6f 61 64 0a 20 20 20 20 20 64 75 ┆h}bind /eofill load du┆
0x05a0…05c0 70 0a 20 20 20 20 20 2f 6e 65 77 70 61 74 68 20 6c 6f 61 64 0a 20 20 20 20 20 32 20 69 6e 64 65 ┆p /newpath load 2 inde┆
0x05c0…05e0 78 0a 20 20 20 20 20 64 75 70 0a 20 20 20 20 20 7b 63 6c 69 70 20 6e 65 77 70 61 74 68 7d 62 69 ┆x dup {clip newpath}bi┆
0x05e0…0600 6e 64 0a 20 20 20 20 20 7b 7d 62 69 6e 64 0a 20 20 20 20 20 64 75 70 0a 20 20 20 20 20 32 20 63 ┆nd {}bind dup 2 c┆
0x0600…0620 6f 70 79 0a 20 20 20 20 20 5d 64 65 66 0a 25 2d 20 50 65 72 66 6f 72 6d 20 51 75 69 63 6b 44 72 ┆opy ]def %- Perform QuickDr┆
0x0620…0640 61 77 20 76 65 72 62 0a 2f 64 6f 6f 70 7b 76 72 62 20 65 78 63 68 20 67 65 74 20 65 78 65 63 7d ┆aw verb /doop{vrb exch get exec}┆
0x0640…0660 62 64 66 0a 25 2d 20 50 61 67 65 20 73 65 74 75 70 20 76 61 6c 75 65 73 0a 2f 70 73 75 7b 2f 70 ┆bdf %- Page setup values /psu{/p┆
0x0660…0680 67 73 20 78 64 66 20 32 20 69 6e 64 65 78 20 2e 37 32 20 6d 75 6c 20 65 78 63 68 20 64 69 76 20 ┆gs xdf 2 index .72 mul exch div ┆
0x0680…06a0 2f 70 79 73 20 78 64 66 20 64 69 76 20 2e 37 32 20 6d 75 6c 20 2f 70 78 73 20 78 64 66 20 70 70 ┆/pys xdf div .72 mul /pxs xdf pp┆
0x06a0…06c0 72 20 61 73 74 6f 72 65 20 70 6f 70 20 2f 70 6f 72 20 78 64 66 20 73 6e 20 61 6e 64 20 2f 73 6f ┆r astore pop /por xdf sn and /so┆
0x06c0…06e0 20 78 64 66 7d 62 64 66 0a 25 2d 20 41 64 6a 75 73 74 20 70 61 67 65 20 74 6f 20 70 61 70 65 72 ┆ xdf}bdf %- Adjust page to paper┆
0x06e0…0700 20 73 65 6c 65 63 74 69 6f 6e 0a 2f 74 78 70 6f 73 65 7b 20 25 2d 20 70 61 67 65 20 61 64 6a 75 ┆ selection /txpose{ %- page adju┆
0x0700…0720 73 74 6d 65 6e 74 73 20 68 61 76 65 20 62 65 65 6e 20 64 69 73 61 62 6c 65 64 20 66 6f 72 20 65 ┆stments have been disabled for e┆
0x0720…0740 6e 63 61 70 73 75 6c 61 74 69 6f 6e 0a 25 2d 20 75 73 65 72 64 69 63 74 20 2f 6e 6f 74 65 20 6b ┆ncapsulation %- userdict /note k┆
0x0740…0760 6e 6f 77 6e 20 70 67 73 20 31 36 38 30 20 65 71 20 31 20 69 6e 64 65 78 20 61 6e 64 7b 6c 65 67 ┆nown pgs 1680 eq 1 index and{leg┆
0x0760…0780 61 6c 7d 69 66 0a 25 2d 20 70 67 73 20 31 32 31 32 20 65 71 7b 64 75 70 7b 6e 6f 74 65 7d 69 66 ┆al}if %- pgs 1212 eq{dup{note}if┆
0x0780…07a0 20 35 34 20 33 32 2e 34 20 74 72 61 6e 73 6c 61 74 65 7d 69 66 0a 25 2d 20 70 67 73 20 31 34 30 ┆ 54 32.4 translate}if %- pgs 140┆
0x07a0…07c0 33 20 65 71 20 75 73 65 72 64 69 63 74 20 2f 61 34 73 6d 61 6c 6c 20 6b 6e 6f 77 6e 20 61 6e 64 ┆3 eq userdict /a4small known and┆
0x07c0…07e0 7b 61 34 73 6d 61 6c 6c 7d 69 66 0a 25 2d 20 70 67 73 20 31 33 32 30 20 65 71 20 61 6e 64 7b 6e ┆{a4small}if %- pgs 1320 eq and{n┆
0x07e0…0800 6f 74 65 7d 69 66 0a 20 70 78 73 20 70 79 73 20 73 63 61 6c 65 0a 20 70 70 72 20 61 6c 6f 61 64 ┆ote}if pxs pys scale ppr aload┆
0x0800…0820 20 70 6f 70 0a 25 2d 20 20 20 70 6f 72 7b 70 6f 70 20 65 78 63 68 20 6e 65 67 20 65 78 63 68 20 ┆ pop %- por{pop exch neg exch ┆
0x0820…0840 74 72 61 6e 73 6c 61 74 65 20 70 6f 70 7d 20 7b 74 72 61 6e 73 6c 61 74 65 20 70 6f 70 20 70 6f ┆translate pop} {translate pop po┆
0x0840…0860 70 20 32 37 30 20 72 6f 74 61 74 65 7d 69 66 65 6c 73 65 20 0a 20 20 20 70 6f 72 7b 70 6f 70 20 ┆p 270 rotate}ifelse por{pop ┆
0x0860…0880 65 78 63 68 20 70 6f 70 20 61 64 64 20 30 20 65 78 63 68 20 74 72 61 6e 73 6c 61 74 65 7d 20 7b ┆exch pop add 0 exch translate} {┆
0x0880…08a0 74 72 61 6e 73 6c 61 74 65 20 70 6f 70 20 70 6f 70 20 32 37 30 20 72 6f 74 61 74 65 7d 69 66 65 ┆translate pop pop 270 rotate}ife┆
0x08a0…08c0 6c 73 65 20 0a 20 31 20 2d 31 20 73 63 61 6c 65 7d 62 64 66 0a 25 2d 20 53 63 61 6c 65 20 70 61 ┆lse 1 -1 scale}bdf %- Scale pa┆
0x08c0…08e0 67 65 20 74 6f 20 66 72 61 6d 69 6e 67 20 72 65 63 74 61 6e 67 6c 65 3a 20 72 65 63 74 61 6e 67 ┆ge to framing rectangle: rectang┆
0x08e0…0900 65 20 66 72 20 2d 2d 0a 2f 66 72 7b 33 20 69 6e 64 65 78 20 33 20 69 6e 64 65 78 20 78 6c 20 70 ┆e fr -- /fr{3 index 3 index xl p┆
0x0900…0920 70 72 20 61 6c 6f 61 64 20 70 6f 70 20 33 20 2d 31 20 72 6f 6c 6c 20 32 20 6d 75 6c 20 61 64 64 ┆pr aload pop 3 -1 roll 2 mul add┆
0x0920…0940 20 33 20 31 20 72 6f 6c 6c 20 65 78 63 68 20 32 20 6d 75 6c 20 61 64 64 0a 20 36 20 32 20 72 6f ┆ 3 1 roll exch 2 mul add 6 2 ro┆
0x0940…0960 6c 6c 20 33 20 2d 31 20 72 6f 6c 6c 20 73 75 62 20 33 20 31 20 72 6f 6c 6c 20 65 78 63 68 20 73 ┆ll 3 -1 roll sub 3 1 roll exch s┆
0x0960…0980 75 62 20 33 20 31 20 72 6f 6c 6c 20 65 78 63 68 20 33 20 2d 31 20 72 6f 6c 6c 20 64 69 76 20 33 ┆ub 3 1 roll exch 3 -1 roll div 3┆
0x0980…09a0 20 31 20 72 6f 6c 6c 20 64 69 76 20 65 78 63 68 20 73 63 61 6c 65 7d 62 64 66 0a 2f 6c 77 73 7b ┆ 1 roll div exch scale}bdf /lws{┆
0x09a0…09c0 73 68 6f 77 7d 62 64 66 0a 2f 74 76 7b 73 68 6f 77 20 70 6f 70 20 70 6f 70 7d 62 64 66 0a 2f 6f ┆show}bdf /tv{show pop pop}bdf /o┆
0x09c0…09e0 62 6c 7b 7b 30 2e 32 31 32 35 35 37 20 6d 75 6c 7d 7b 70 6f 70 20 30 7d 69 66 65 6c 73 65 7d 62 ┆bl{{0.212557 mul}{pop 0}ifelse}b┆
0x09e0…0a00 64 66 0a 2f 70 77 7b 66 67 20 37 20 2f 50 72 65 73 65 72 76 65 57 69 64 74 68 20 6b 69 66 7b 70 ┆df /pw{fg 7 /PreserveWidth kif{p┆
0x0a00…0a20 6f 70 7d 7b 31 32 37 7d 69 66 65 6c 73 65 20 70 75 74 7d 62 64 66 0a 2f 73 66 64 7b 70 73 20 66 ┆op}{127}ifelse put}bdf /sfd{ps f┆
0x0a20…0a40 67 20 35 20 2d 31 20 72 6f 6c 6c 20 67 65 74 20 6d 75 6c 20 31 30 30 20 64 69 76 20 30 20 70 73 ┆g 5 -1 roll get mul 100 div 0 ps┆
0x0a40…0a60 20 35 20 2d 31 20 72 6f 6c 6c 20 6f 62 6c 20 70 73 20 6e 65 67 20 30 20 30 20 36 61 20 61 73 74 ┆ 5 -1 roll obl ps neg 0 0 6a ast┆
0x0a60…0a80 6f 72 65 20 6d 61 6b 65 66 6f 6e 74 20 73 65 74 66 6f 6e 74 7d 62 64 66 0a 2f 66 6e 74 7b 66 69 ┆ore makefont setfont}bdf /fnt{fi┆
0x0a80…0aa0 6e 64 66 6f 6e 74 20 73 66 64 7d 62 64 66 0a 2f 62 74 7b 73 61 20 33 20 31 20 72 6f 6c 6c 20 33 ┆ndfont sfd}bdf /bt{sa 3 1 roll 3┆
0x0aa0…0ac0 20 69 6e 64 65 78 20 61 6e 64 20 70 75 74 7d 62 64 66 0a 2f 73 61 28 5c 30 30 30 5c 30 30 30 5c ┆ index and put}bdf /sa(\000\000\┆
0x0ac0…0ae0 30 30 30 5c 30 30 30 5c 30 30 30 5c 30 30 30 5c 30 30 30 5c 30 30 30 5c 30 30 30 29 64 65 66 0a ┆000\000\000\000\000\000\000)def ┆
0x0ae0…0b00 2f 66 73 7b 30 20 31 20 62 74 20 31 20 32 20 62 74 20 32 20 34 20 62 74 20 33 20 38 20 62 74 20 ┆/fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt ┆
0x0b00…0b20 34 20 31 36 20 62 74 20 35 20 33 32 20 62 74 20 36 20 36 34 20 62 74 20 37 20 31 32 38 20 62 74 ┆4 16 bt 5 32 bt 6 64 bt 7 128 bt┆
0x0b20…0b40 20 73 61 20 65 78 63 68 20 38 20 65 78 63 68 20 70 75 74 7d 62 64 66 0a 2f 6d 78 31 20 6d 61 74 ┆ sa exch 8 exch put}bdf /mx1 mat┆
0x0b40…0b60 72 69 78 20 64 65 66 0a 2f 6d 78 32 20 6d 61 74 72 69 78 20 64 65 66 0a 2f 6d 78 33 20 6d 61 74 ┆rix def /mx2 matrix def /mx3 mat┆
0x0b60…0b80 72 69 78 20 64 65 66 0a 2f 64 67 66 7b 66 67 20 37 20 67 65 74 20 63 75 72 72 65 6e 74 66 6f 6e ┆rix def /dgf{fg 7 get currentfon┆
0x0b80…0ba0 74 7d 62 64 66 0a 2f 67 66 7b 7d 62 64 66 0a 2f 62 75 7b 63 75 72 72 65 6e 74 70 6f 69 6e 74 20 ┆t}bdf /gf{}bdf /bu{currentpoint ┆
0x0ba0…0bc0 63 75 72 72 65 6e 74 67 72 61 79 20 63 75 72 72 65 6e 74 6c 69 6e 65 77 69 64 74 68 20 63 75 72 ┆currentgray currentlinewidth cur┆
0x0bc0…0be0 72 65 6e 74 6c 69 6e 65 63 61 70 20 63 75 72 72 65 6e 74 6c 69 6e 65 6a 6f 69 6e 20 63 75 72 72 ┆rentlinecap currentlinejoin curr┆
0x0be0…0c00 65 6e 74 64 61 73 68 20 65 78 63 68 20 61 6c 6f 61 64 20 6c 65 6e 67 74 68 0a 20 66 67 20 35 20 ┆entdash exch aload length fg 5 ┆
0x0c00…0c20 73 66 6c 7b 31 7d 7b 30 7d 69 66 65 6c 73 65 20 70 75 74 20 6d 6c 20 61 6c 20 74 67 20 63 69 20 ┆sfl{1}{0}ifelse put ml al tg ci ┆
0x0c20…0c40 70 6e 73 76 20 70 6e 73 68 0a 20 32 74 20 61 6c 6f 61 64 20 70 6f 70 20 33 61 20 61 6c 6f 61 64 ┆pnsv pnsh 2t aload pop 3a aload┆
0x0c40…0c60 20 70 6f 70 20 6d 78 32 20 61 6c 6f 61 64 20 70 6f 70 20 6d 78 31 20 61 6c 6f 61 64 20 70 6f 70 ┆ pop mx2 aload pop mx1 aload pop┆
0x0c60…0c80 20 6d 74 78 20 63 75 72 72 65 6e 74 6d 61 74 72 69 78 20 61 6c 6f 61 64 20 70 6f 70 0a 20 6d 78 ┆ mtx currentmatrix aload pop mx┆
0x0c80…0ca0 33 20 61 6c 6f 61 64 20 70 6f 70 20 70 73 20 70 6d 20 72 65 73 74 6f 72 65 20 2f 70 73 20 78 64 ┆3 aload pop ps pm restore /ps xd┆
0x0ca0…0cc0 66 20 6d 78 33 20 61 73 74 6f 72 65 20 70 6f 70 7d 62 64 66 0a 2f 62 6e 7b 2f 70 6d 20 73 61 76 ┆f mx3 astore pop}bdf /bn{/pm sav┆
0x0cc0…0ce0 65 20 64 65 66 20 6d 78 33 20 73 65 74 6d 61 74 72 69 78 20 6e 65 77 70 61 74 68 20 30 20 30 20 ┆e def mx3 setmatrix newpath 0 0 ┆
0x0ce0…0d00 6d 6f 76 65 74 6f 20 63 74 20 64 75 70 20 33 39 20 67 65 74 20 30 20 65 78 63 68 20 67 65 74 69 ┆moveto ct dup 39 get 0 exch geti┆
0x0d00…0d20 6e 74 65 72 76 61 6c 20 63 76 78 20 65 78 65 63 0a 20 6d 74 78 20 61 73 74 6f 72 65 20 73 65 74 ┆nterval cvx exec mtx astore set┆
0x0d20…0d40 6d 61 74 72 69 78 20 6d 78 31 20 61 73 74 6f 72 65 20 70 6f 70 20 6d 78 32 20 61 73 74 6f 72 65 ┆matrix mx1 astore pop mx2 astore┆
0x0d40…0d60 20 70 6f 70 20 33 61 20 61 73 74 6f 72 65 20 70 6f 70 0a 20 32 74 20 61 73 74 6f 72 65 20 70 6f ┆ pop 3a astore pop 2t astore po┆
0x0d60…0d80 70 20 2f 70 6e 73 68 20 78 64 66 20 2f 70 6e 73 76 20 78 64 66 20 67 77 20 2f 63 69 20 78 64 66 ┆p /pnsh xdf /pnsv xdf gw /ci xdf┆
0x0d80…0da0 20 2f 74 67 20 78 64 66 20 2f 61 6c 20 78 64 66 20 2f 6d 6c 20 78 64 66 0a 20 2f 73 66 6c 20 66 ┆ /tg xdf /al xdf /ml xdf /sfl f┆
0x0da0…0dc0 67 20 35 20 67 65 74 20 30 20 6e 65 20 64 65 66 20 61 72 72 61 79 20 61 73 74 6f 72 65 20 65 78 ┆g 5 get 0 ne def array astore ex┆
0x0dc0…0de0 63 68 20 73 65 74 64 61 73 68 20 73 65 74 6c 69 6e 65 6a 6f 69 6e 20 73 65 74 6c 69 6e 65 63 61 ┆ch setdash setlinejoin setlineca┆
0x0de0…0e00 70 0a 20 73 65 74 6c 69 6e 65 77 69 64 74 68 20 73 65 74 67 72 61 79 20 6d 6f 76 65 74 6f 7d 62 ┆p setlinewidth setgray moveto}b┆
0x0e00…0e20 64 66 0a 2f 66 63 7b 73 61 76 65 20 76 6d 73 74 61 74 75 73 20 65 78 63 68 20 73 75 62 20 35 30 ┆df /fc{save vmstatus exch sub 50┆
0x0e20…0e40 30 30 30 20 6c 74 0a 20 7b 28 25 25 5b 7c 30 7c 5d 25 25 29 3d 70 72 69 6e 74 20 66 6c 75 73 68 ┆000 lt {(%%[|0|]%%)=print flush┆
0x0e40…0e60 7d 69 66 20 70 6f 70 20 72 65 73 74 6f 72 65 7d 62 64 66 0a 2f 74 63 7b 33 32 37 36 38 20 64 69 ┆}if pop restore}bdf /tc{32768 di┆
0x0e60…0e80 76 20 61 64 64 20 33 20 31 20 72 6f 6c 6c 20 33 32 37 36 38 20 64 69 76 20 61 64 64 20 32 74 20 ┆v add 3 1 roll 32768 div add 2t ┆
0x0e80…0ea0 61 73 74 6f 72 65 20 70 6f 70 7d 62 64 66 0a 2f 33 61 20 5b 30 20 30 20 30 5d 20 64 65 66 0a 2f ┆astore pop}bdf /3a [0 0 0] def /┆
0x0ea0…0ec0 32 74 20 32 20 61 72 72 61 79 20 64 65 66 0a 2f 74 70 7b 33 61 20 61 73 74 6f 72 65 20 70 6f 70 ┆2t 2 array def /tp{3a astore pop┆
0x0ec0…0ee0 7d 62 64 66 0a 2f 74 74 7b 6d 78 32 20 63 75 72 72 65 6e 74 6d 61 74 72 69 78 20 70 6f 70 20 63 ┆}bdf /tt{mx2 currentmatrix pop c┆
0x0ee0…0f00 75 72 72 65 6e 74 70 6f 69 6e 74 20 32 20 63 6f 70 79 20 32 74 20 61 6c 6f 61 64 20 70 6f 70 20 ┆urrentpoint 2 copy 2t aload pop ┆
0x0f00…0f20 71 61 20 32 20 63 6f 70 79 20 74 72 61 6e 73 6c 61 74 65 20 33 61 20 61 6c 6f 61 64 20 70 6f 70 ┆qa 2 copy translate 3a aload pop┆
0x0f20…0f40 20 65 78 63 68 20 64 75 70 20 30 20 65 71 0a 20 7b 70 6f 70 7d 7b 31 20 65 71 7b 2d 31 20 31 7d ┆ exch dup 0 eq {pop}{1 eq{-1 1}┆
0x0f40…0f60 7b 31 20 2d 31 7d 69 66 65 6c 73 65 20 73 63 61 6c 65 7d 69 66 65 6c 73 65 20 72 6f 74 61 74 65 ┆{1 -1}ifelse scale}ifelse rotate┆
0x0f60…0f80 20 70 6f 70 20 6e 65 67 20 65 78 63 68 20 6e 65 67 20 65 78 63 68 20 74 72 61 6e 73 6c 61 74 65 ┆ pop neg exch neg exch translate┆
0x0f80…0fa0 20 6d 6f 76 65 74 6f 7d 62 64 66 0a 2f 74 65 7b 6d 78 32 20 73 65 74 6d 61 74 72 69 78 7d 62 64 ┆ moveto}bdf /te{mx2 setmatrix}bd┆
0x0fa0…0fc0 66 0a 2f 64 74 62 7b 2f 66 6b 62 20 66 61 6c 73 65 20 64 65 66 20 2f 74 67 20 63 75 72 72 65 6e ┆f /dtb{/fkb false def /tg curren┆
0x0fc0…0fe0 74 67 72 61 79 20 64 65 66 20 2f 63 69 20 30 20 64 65 66 20 2f 6d 6c 20 30 20 64 65 66 20 2f 61 ┆tgray def /ci 0 def /ml 0 def /a┆
0x0fe0…1000 6c 20 30 20 64 65 66 20 33 20 65 71 7b 31 20 73 65 74 67 72 61 79 7d 69 66 7d 62 64 66 0a 2f 74 ┆l 0 def 3 eq{1 setgray}if}bdf /t┆
0x1000…1020 62 7b 33 20 65 71 7b 31 20 73 65 74 67 72 61 79 7d 69 66 20 70 6f 70 20 70 6f 70 20 70 6f 70 7d ┆b{3 eq{1 setgray}if pop pop pop}┆
0x1020…1040 62 64 66 0a 2f 64 61 6d 7b 6d 6c 20 61 64 64 20 2f 6d 6c 20 78 64 66 20 64 75 70 20 6c 65 6e 67 ┆bdf /dam{ml add /ml xdf dup leng┆
0x1040…1060 74 68 20 73 62 20 65 78 63 68 20 63 69 20 65 78 63 68 20 64 75 70 0a 20 63 69 20 61 64 64 20 2f ┆th sb exch ci exch dup ci add /┆
0x1060…1080 63 69 20 78 64 66 20 67 65 74 69 6e 74 65 72 76 61 6c 20 63 6f 70 79 20 64 75 70 20 77 69 20 70 ┆ci xdf getinterval copy dup wi p┆
0x1080…10a0 6f 70 20 64 75 70 20 61 6c 20 61 64 64 20 2f 61 6c 20 78 64 66 0a 20 63 75 72 72 65 6e 74 67 72 ┆op dup al add /al xdf currentgr┆
0x10a0…10c0 61 79 7b 73 65 74 67 72 61 79 20 64 75 70 20 6d 6c 20 6d 75 6c 20 33 20 2d 31 20 72 6f 6c 6c 20 ┆ay{setgray dup ml mul 3 -1 roll ┆
0x10c0…10e0 72 73 7d 7d 62 64 66 0a 2f 61 6d 7b 70 6f 70 20 73 61 20 32 20 67 65 74 20 30 20 6e 65 7b 64 75 ┆rs}}bdf /am{pop sa 2 get 0 ne{du┆
0x10e0…1100 70 20 77 69 20 70 6f 70 20 64 75 70 20 33 20 2d 31 20 72 6f 6c 6c 20 72 73 7d 7b 73 68 6f 77 7d ┆p wi pop dup 3 -1 roll rs}{show}┆
0x1100…1120 69 66 65 6c 73 65 7d 62 64 66 0a 2f 74 68 7b 33 20 2d 31 20 72 6f 6c 6c 20 64 69 76 20 33 20 31 ┆ifelse}bdf /th{3 -1 roll div 3 1┆
0x1120…1140 20 72 6f 6c 6c 20 65 78 63 68 20 64 69 76 20 32 20 63 6f 70 79 20 6d 78 31 20 73 63 61 6c 65 20 ┆ roll exch div 2 copy mx1 scale ┆
0x1140…1160 70 6f 70 20 73 63 61 6c 65 20 2f 73 66 6c 20 74 72 75 65 20 64 65 66 7d 62 64 66 0a 2f 74 75 7b ┆pop scale /sfl true def}bdf /tu{┆
0x1160…1180 31 20 31 20 6d 78 31 20 69 74 72 61 6e 73 66 6f 72 6d 20 73 63 61 6c 65 20 2f 73 66 6c 20 66 61 ┆1 1 mx1 itransform scale /sfl fa┆
0x1180…11a0 6c 73 65 20 64 65 66 7d 62 64 66 0a 2f 74 73 7b 31 20 31 20 6d 78 31 20 74 72 61 6e 73 66 6f 72 ┆lse def}bdf /ts{1 1 mx1 transfor┆
0x11a0…11c0 6d 20 73 63 61 6c 65 20 2f 73 66 6c 20 74 72 75 65 20 64 65 66 7d 62 64 66 0a 2f 66 7a 7b 2f 70 ┆m scale /sfl true def}bdf /fz{/p┆
0x11c0…11e0 73 20 78 64 66 7d 62 64 66 0a 2f 64 66 73 7b 64 75 70 20 66 73 7b 66 73 7d 7d 62 64 66 0a 2f 64 ┆s xdf}bdf /dfs{dup fs{fs}}bdf /d┆
0x11e0…1200 66 7a 7b 64 75 70 20 66 7a 7b 66 7a 7d 7d 62 64 66 0a 2f 74 6d 7b 73 61 76 65 20 65 78 63 68 7b ┆fz{dup fz{fz}}bdf /tm{save exch{┆
0x1200…1220 64 75 70 20 74 79 70 65 20 64 75 70 20 2f 61 72 72 61 79 74 79 70 65 20 65 71 20 65 78 63 68 20 ┆dup type dup /arraytype eq exch ┆
0x1220…1240 2f 70 61 63 6b 65 64 61 72 72 61 79 74 79 70 65 20 65 71 20 6f 72 0a 20 7b 65 78 65 63 7d 7b 64 ┆/packedarraytype eq or {exec}{d┆
0x1240…1260 75 70 20 74 79 70 65 20 2f 64 69 63 74 74 79 70 65 20 65 71 7b 66 6b 62 7b 73 65 74 66 6f 6e 74 ┆up type /dicttype eq{fkb{setfont┆
0x1260…1280 20 66 67 20 65 78 63 68 20 37 20 65 78 63 68 20 70 75 74 7d 7b 70 6f 70 20 70 6f 70 7d 69 66 65 ┆ fg exch 7 exch put}{pop pop}ife┆
0x1280…12a0 6c 73 65 7d 69 66 7d 69 66 65 6c 73 65 7d 66 6f 72 61 6c 6c 0a 20 63 75 72 72 65 6e 74 70 6f 69 ┆lse}if}ifelse}forall currentpoi┆
0x12a0…12c0 6e 74 20 33 20 2d 31 20 72 6f 6c 6c 20 72 65 73 74 6f 72 65 20 6d 6f 76 65 74 6f 7d 62 64 66 0a ┆nt 3 -1 roll restore moveto}bdf ┆
0x12c0…12e0 2f 64 6b 62 7b 63 6f 75 6e 74 74 6f 6d 61 72 6b 20 78 62 20 65 78 63 68 20 30 20 65 78 63 68 20 ┆/dkb{counttomark xb exch 0 exch ┆
0x12e0…1300 67 65 74 69 6e 74 65 72 76 61 6c 20 61 73 74 6f 72 65 20 65 78 63 68 20 70 6f 70 20 65 73 7d 62 ┆getinterval astore exch pop es}b┆
0x1300…1320 64 66 0a 2f 6b 62 7b 7d 62 64 66 0a 2f 64 76 7b 64 75 70 20 30 20 6e 65 7b 64 69 76 7d 7b 70 6f ┆df /kb{}bdf /dv{dup 0 ne{div}{po┆
0x1320…1340 70 7d 69 66 65 6c 73 65 7d 62 64 66 0a 2f 65 73 7b 33 20 2d 31 20 72 6f 6c 6c 20 64 75 70 20 73 ┆p}ifelse}bdf /es{3 -1 roll dup s┆
0x1340…1360 61 20 38 20 67 65 74 0a 20 73 61 20 31 20 67 65 74 20 30 20 6e 65 7b 2f 6d 6c 20 6d 6c 20 2e 32 ┆a 8 get sa 1 get 0 ne{/ml ml .2┆
0x1360…1380 20 70 73 20 6d 75 6c 20 73 75 62 20 64 65 66 7d 69 66 0a 20 6e 65 7b 66 73 7d 7b 70 6f 70 7d 69 ┆ ps mul sub def}if ne{fs}{pop}i┆
0x1380…13a0 66 65 6c 73 65 20 65 78 63 68 20 64 75 70 20 31 20 65 71 0a 20 7b 70 6f 70 20 2f 74 76 20 61 6c ┆felse exch dup 1 eq {pop /tv al┆
0x13a0…13c0 20 6d 6c 20 67 74 7b 2f 6c 6c 20 6c 6f 61 64 20 2f 6d 6c 20 6d 6c 20 61 6c 20 64 76 20 64 65 66 ┆ ml gt{/ll load /ml ml al dv def┆
0x13c0…13e0 7d 7b 7b 73 68 6f 77 20 70 6f 70 20 70 6f 70 7d 2f 6d 6c 20 31 20 64 65 66 7d 69 66 65 6c 73 65 ┆}{{show pop pop}/ml 1 def}ifelse┆
0x13e0…1400 20 64 65 66 7d 7b 64 75 70 20 33 20 65 71 0a 20 7b 70 6f 70 20 2f 74 76 20 61 6c 20 6d 6c 20 67 ┆ def}{dup 3 eq {pop /tv al ml g┆
0x1400…1420 74 7b 2f 6c 6c 20 6c 6f 61 64 20 2f 6d 6c 20 6d 6c 20 61 6c 20 64 76 20 64 65 66 7d 7b 6d 6c 20 ┆t{/ll load /ml ml al dv def}{ml ┆
0x1420…1440 61 6c 20 73 75 62 20 30 20 72 6d 6f 76 65 74 6f 7b 73 68 6f 77 20 70 6f 70 20 70 6f 70 7d 2f 6d ┆al sub 0 rmoveto{show pop pop}/m┆
0x1440…1460 6c 20 31 20 64 65 66 7d 69 66 65 6c 73 65 20 64 65 66 7d 7b 32 20 65 71 0a 20 7b 2f 74 76 20 61 ┆l 1 def}ifelse def}{2 eq {/tv a┆
0x1460…1480 6c 20 6d 6c 20 67 74 7b 2f 6c 6c 20 6c 6f 61 64 20 2f 6d 6c 20 6d 6c 20 61 6c 20 64 76 20 64 65 ┆l ml gt{/ll load /ml ml al dv de┆
0x1480…14a0 66 7d 7b 6d 6c 20 61 6c 20 73 75 62 20 32 20 64 69 76 20 30 20 72 6d 6f 76 65 74 6f 7b 73 68 6f ┆f}{ml al sub 2 div 0 rmoveto{sho┆
0x14a0…14c0 77 20 70 6f 70 20 70 6f 70 7d 2f 6d 6c 20 31 20 64 65 66 7d 69 66 65 6c 73 65 20 64 65 66 7d 0a ┆w pop pop}/ml 1 def}ifelse def} ┆
0x14c0…14e0 20 7b 2f 74 76 20 2f 6c 6c 20 6c 6f 61 64 20 2f 6d 6c 20 6d 6c 20 61 6c 20 64 76 20 64 65 66 20 ┆ {/tv /ll load /ml ml al dv def ┆
0x14e0…1500 64 65 66 7d 69 66 65 6c 73 65 7d 69 66 65 6c 73 65 7d 69 66 65 6c 73 65 20 74 6d 20 74 67 20 73 ┆def}ifelse}ifelse}ifelse tm tg s┆
0x1500…1520 65 74 67 72 61 79 7d 62 64 66 0a 2f 70 6f 70 34 7b 70 6f 70 20 70 6f 70 20 70 6f 70 20 70 6f 70 ┆etgray}bdf /pop4{pop pop pop pop┆
0x1520…1540 7d 62 64 66 0a 2f 69 74 7b 73 66 6c 7b 6d 78 31 20 69 74 72 61 6e 73 66 6f 72 6d 7d 69 66 7d 62 ┆}bdf /it{sfl{mx1 itransform}if}b┆
0x1540…1560 64 66 0a 25 2d 20 4d 6f 76 65 73 20 74 6f 20 61 20 70 6f 69 6e 74 2c 20 73 63 61 6c 65 64 20 69 ┆df %- Moves to a point, scaled i┆
0x1560…1580 66 20 6e 65 63 65 73 73 61 72 79 0a 2f 67 6d 7b 65 78 63 68 20 69 74 20 6d 6f 76 65 74 6f 7d 62 ┆f necessary /gm{exch it moveto}b┆
0x1580…15a0 64 66 0a 2f 6c 6d 7b 64 6c 6d 20 65 78 65 63 7d 62 64 66 0a 2f 64 6c 6d 7b 7b 70 6f 70 20 63 75 ┆df /lm{dlm exec}bdf /dlm{{pop cu┆
0x15a0…15c0 72 72 65 6e 74 70 6f 69 6e 74 20 73 66 6c 7b 6d 78 31 20 74 72 61 6e 73 66 6f 72 6d 7d 69 66 20 ┆rrentpoint sfl{mx1 transform}if ┆
0x15c0…15e0 65 78 63 68 20 70 6f 70 20 73 75 62 20 30 20 65 78 63 68 20 69 74 20 72 6d 6f 76 65 74 6f 7d 7d ┆exch pop sub 0 exch it rmoveto}}┆
0x15e0…1600 62 64 66 0a 2f 66 6d 7b 73 74 61 74 75 73 64 69 63 74 20 2f 6d 61 6e 75 61 6c 66 65 65 64 20 6b ┆bdf /fm{statusdict /manualfeed k┆
0x1600…1620 6e 6f 77 6e 7d 62 64 66 0a 2f 73 65 7b 73 74 61 74 75 73 64 69 63 74 20 65 78 63 68 20 2f 6d 61 ┆nown}bdf /se{statusdict exch /ma┆
0x1620…1640 6e 75 61 6c 66 65 65 64 20 65 78 63 68 20 70 75 74 7d 62 64 66 0a 2f 6d 66 7b 64 75 70 20 2f 6d ┆nualfeed exch put}bdf /mf{dup /m┆
0x1640…1660 61 20 78 64 66 20 30 20 67 74 7b 66 6d 20 73 65 20 2f 74 31 20 35 20 73 74 20 6f 6b 20 6d 61 20 ┆a xdf 0 gt{fm se /t1 5 st ok ma ┆
0x1660…1680 31 20 67 74 20 61 6e 64 7b 2f 74 32 20 30 20 73 74 20 2f 74 33 20 30 20 73 74 0a 20 73 74 61 74 ┆1 gt and{/t2 0 st /t3 0 st stat┆
0x1680…16a0 75 73 64 69 63 74 20 2f 6d 61 6e 75 61 6c 66 65 65 64 74 69 6d 65 6f 75 74 20 33 36 30 30 20 70 ┆usdict /manualfeedtimeout 3600 p┆
0x16a0…16c0 75 74 0a 20 7d 69 66 7d 69 66 7d 62 64 66 0a 2f 6a 6e 7b 6f 6b 7b 73 74 61 74 75 73 64 69 63 74 ┆ut }if}if}bdf /jn{ok{statusdict┆
0x16c0…16e0 20 65 78 63 68 20 2f 6a 6f 62 6e 61 6d 65 20 65 78 63 68 20 70 75 74 7d 7b 70 6f 70 7d 69 66 65 ┆ exch /jobname exch put}{pop}ife┆
0x16e0…1700 6c 73 65 7d 62 64 66 0a 25 2d 20 53 65 74 73 20 76 65 72 74 69 63 61 6c 20 61 6e 64 20 68 6f 72 ┆lse}bdf %- Sets vertical and hor┆
0x1700…1720 69 7a 6f 6e 74 61 6c 20 77 69 64 74 68 20 6f 66 20 70 65 6e 20 6c 69 6e 65 0a 2f 70 65 6e 7b 70 ┆izontal width of pen line /pen{p┆
0x1720…1740 6e 6d 20 6d 75 6c 20 2f 70 6e 73 68 20 78 64 66 20 70 6e 6d 20 6d 75 6c 20 2f 70 6e 73 76 20 78 ┆nm mul /pnsh xdf pnm mul /pnsv x┆
0x1740…1760 64 66 20 70 6e 73 68 20 73 65 74 6c 69 6e 65 77 69 64 74 68 7d 62 64 66 0a 2f 6d 69 6e 7b 32 20 ┆df pnsh setlinewidth}bdf /min{2 ┆
0x1760…1780 63 6f 70 79 20 67 74 7b 65 78 63 68 7d 69 66 20 70 6f 70 7d 62 64 66 0a 2f 6d 61 78 7b 32 20 63 ┆copy gt{exch}if pop}bdf /max{2 c┆
0x1780…17a0 6f 70 79 20 6c 74 7b 65 78 63 68 7d 69 66 20 70 6f 70 7d 62 64 66 0a 2f 64 68 7b 66 67 20 36 20 ┆opy lt{exch}if pop}bdf /dh{fg 6 ┆
0x17a0…17c0 31 20 70 75 74 20 61 72 72 61 79 20 61 73 74 6f 72 65 20 65 78 63 68 20 70 6f 70 20 65 78 63 68 ┆1 put array astore exch pop exch┆
0x17c0…17e0 20 70 6f 70 20 65 78 63 68 20 73 65 74 64 61 73 68 7d 62 64 66 0a 2f 69 68 5b 63 75 72 72 65 6e ┆ pop exch setdash}bdf /ih[curren┆
0x17e0…1800 74 64 61 73 68 5d 64 65 66 0a 2f 72 68 7b 66 67 20 36 20 30 20 70 75 74 20 69 68 20 61 6c 6f 61 ┆tdash]def /rh{fg 6 0 put ih aloa┆
0x1800…1820 64 20 70 6f 70 20 73 65 74 64 61 73 68 7d 62 64 66 0a 2f 64 6c 7b 67 73 61 76 65 20 6e 6c 77 20 ┆d pop setdash}bdf /dl{gsave nlw ┆
0x1820…1840 70 79 73 20 64 69 76 20 73 65 74 6c 69 6e 65 77 69 64 74 68 20 30 20 73 65 74 67 72 61 79 7d 62 ┆pys div setlinewidth 0 setgray}b┆
0x1840…1860 64 66 0a 2f 64 6c 69 6e 7b 65 78 63 68 20 63 75 72 72 65 6e 74 70 6f 69 6e 74 20 6e 65 77 70 61 ┆df /dlin{exch currentpoint newpa┆
0x1860…1880 74 68 20 6d 6f 76 65 74 6f 20 6c 69 6e 65 74 6f 20 63 75 72 72 65 6e 74 70 6f 69 6e 74 20 73 74 ┆th moveto lineto currentpoint st┆
0x1880…18a0 72 6f 6b 65 20 67 72 65 73 74 6f 72 65 20 6d 6f 76 65 74 6f 7d 62 64 66 0a 25 2d 20 44 72 61 77 ┆roke grestore moveto}bdf %- Draw┆
0x18a0…18c0 20 6c 69 6e 65 20 75 73 69 6e 67 20 63 75 72 72 65 6e 74 20 6f 70 65 72 61 74 6f 72 0a 2f 6c 69 ┆ line using current operator /li┆
0x18c0…18e0 6e 7b 66 67 20 36 20 67 65 74 20 30 20 6e 65 7b 6c 69 6e 65 74 6f 20 63 75 72 72 65 6e 74 70 6f ┆n{fg 6 get 0 ne{lineto currentpo┆
0x18e0…1900 69 6e 74 20 30 20 64 6f 6f 70 20 6d 6f 76 65 74 6f 7d 0a 20 7b 65 78 63 68 20 63 75 72 72 65 6e ┆int 0 doop moveto} {exch curren┆
0x1900…1920 74 70 6f 69 6e 74 20 2f 70 6e 6c 76 20 78 64 66 20 2f 70 6e 6c 68 20 78 64 66 20 67 73 61 76 65 ┆tpoint /pnlv xdf /pnlh xdf gsave┆
[…truncated at 200 lines…]