%!PS-Adobe-2.0 EPSF-1.3 %%Title: ZK-0092.PS %%Creator: RAGS - MOPS v1.2 %%CreationDate: Fri Jan 6 11:27:40 1989 %%Pages: 1 %%BoundingBox: 139.558 348.923 472.442 443.077 %%EndComments %%BeginProlog /MopsDict 150 dict def MopsDict begin /an /arcn load def /ar /arc load def /cl /closepath load def /ex /exch load def /fi /eofill load def /Bxr {arcto pop pop pop pop} bind def /gs /gsave load def /gr /grestore load def /li /lineto load def /mo /moveto load def /np /newpath load def /rl /rlineto load def /ro /rotate load def /rgb /setrgbcolor load def /sh /show load def /sc /scale load def /sd /setdash load def /slc /setlinecap load def /slj /setlinejoin load def /slw /setlinewidth load def /st /stroke load def /tr /translate load def % THIS SECTION WILL DEFINE THE ISOLATIN1 VECTOR... mark % CREATE ISOLatin1 ENCODING /ISOLatin1 8#000 1 8#054 {StandardEncoding exch get} for /minus 8#056 1 8#217 {StandardEncoding exch get} for /dotlessi 8#301 1 8#317 {StandardEncoding exch get} for /space /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis /ISOLatin1 where not {256 array astore def} if cleartomark % % THIS ROUTINE WILL RE-ENCODE THE FILE... /reencodedict 10 dict def %Local storage for ReENCODE /ReENCODE { % /basefont /newfont encoding ReENCODE /newencoding exch def %ARG: NAME OF ENCODING VECTOR /newfontname exch def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING findfont /basefontdict exch def %ARG: NAME OF FONT TO BE RE-ENCODED basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE 1 index /FID ne { def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS } { %else pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING } ifelse } forall /FontName newfontname def %DEFINE NEW NAME /Encoding newencoding def %DEFINE NEW ENCODING VECTOR newfontname currentdict definefont %TURN IT INTO A PS FONT pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT end } bind def /CBdict 5 dict def /CMdict 3 dict def /TBdict 5 dict def /ELPdict 2 dict def /MOPSpage /showpage load def /Arc { np 1 eq {ar} {an} ifelse } bind def /Box { np mo li li li cl } bind def /Circle { np 0 360 ar } bind def /Ellipse { ELPdict begin /elpscratch matrix def np elpscratch currentmatrix pop tr neg ro sc 0 0 1 0 360 ar elpscratch setmatrix end } bind def /LF { findfont } bind def /SF { makefont setfont } bind def /Line { np mo li } bind def /Pie { np 1 eq {ar} {an} ifelse li cl } bind def /TextBox { TBdict begin /y2 ex def /x2 ex def /y1 ex def /x1 ex def np x1 y1 mo x2 y1 li x2 y2 li x1 y2 li cl end } bind def /Text { np mo dup 4 1 roll stringwidth pop ex 72 mul ex sub ex div dup dup sub 3 -1 roll ashow } bind def /OText { gs np mo slw false charpath st gr } bind def /Label { np mo sh } bind def /Crop { CBdict begin /y2 ex def /x2 ex def /y1 ex def /x1 ex def np x1 y1 mo x2 y1 li x2 y2 li x1 y2 li cl 1 eq {gs rgb fi gr} {pop pop pop} ifelse clip np end } bind def /Cropmark { CMdict begin /ys ex def /xs ex def .2 slw np xs ys mo 1 eq {ys add xs ex li st} {xs add ys li st} ifelse end } bind def /ImgCropBox { mo rl rl rl rl clip np } bind def end %%EndProlog %%BeginSetup MopsDict begin %%EndSetup save 139.558 443.077 tr 1 -1 sc 0.923 slw 0 slc 0 slj 0.000 0.000 0.000 0 0.000 0.000 332.885 94.154 Crop /Helvetica /Helvetica@ISO ISOLatin1 ReENCODE /Helvetica@ISO LF [10 0 0 -10 0 0] SF 7 0.410 (main\( \)) 6.115 10.154 Text 15 1.051 (SYS$SETEF \(4\) ;) 14.423 60.000 Text 1 0.077 (4) 274.962 66.692 Text 1 0.077 (1) 320.885 48.000 Text /Helvetica-Oblique /Helvetica-Oblique@ISO ISOLatin1 ReENCODE /Helvetica-Oblique@ISO LF [10 0 0 -10 0 0] SF 20 1.269 (number of arguments:) 131.654 48.000 Text 15 0.859 (first argument:) 161.192 67.385 Text 0.923 slw 0 slc 226.731 35.077 328.731 35.077 328.731 53.077 226.731 53.077 Box st 226.731 53.538 328.731 53.538 328.731 71.538 226.731 71.538 Box st 104.885 0.000 206.885 0.000 206.885 18.000 104.885 18.000 Box st 21 1.333 (Argument pointer \(AP\)) 109.500 12.923 Text np 326.465 28.152 mo 322.823 31.795 li 328.285 33.615 li 326.465 28.152 li gs 0.000 0.000 0.000 rgb fi gr 0.923 slw 0 slc 322.823 31.795 326.465 28.152 Line st 328.285 33.615 322.823 31.795 Line st 326.465 28.152 328.285 33.615 Line st 0.923 slw 0 slc 235.737 -367.625 377.856 -275.783 -265.831 1 Arc st 273.205 83.319 75.014 -45.803 -89.540 -1 Arc st 0.923 slw 2 slc 8.077 13.731 6.692 13.731 Line st 4.385 16.038 6.692 13.731 Line st 0.923 slw 0 slc 4.385 21.000 4.385 16.385 Line st 0.923 slw 2 slc 2.077 23.423 4.385 21.115 Line st 4.385 25.731 2.077 23.423 Line st 2.077 23.423 1.154 23.423 Line st 0.923 slw 0 slc 4.385 30.692 4.385 26.077 Line st 0.923 slw 2 slc 6.692 33.577 4.385 31.269 Line st 8.077 33.577 6.692 33.577 Line st 0.462 64.500 1.846 64.500 Line st 4.154 66.808 1.846 64.500 Line st 0.923 slw 0 slc 4.154 71.769 4.154 67.154 Line st 0.923 slw 2 slc 6.462 74.192 4.154 71.885 Line st 4.154 76.500 6.462 74.192 Line st 6.462 74.192 7.385 74.192 Line st 0.923 slw 0 slc 4.154 81.462 4.154 76.846 Line st 0.923 slw 2 slc 1.846 84.346 4.154 82.038 Line st 0.462 84.346 1.846 84.346 Line st /Helvetica@ISO LF [10 0 0 -10 0 0] SF 10 0.859 (ZK-0092-GE) 271.038 92.308 Text 1 0.038 (.) 34.731 42.462 Text 1 0.038 (.) 34.731 48.923 Text 1 0.038 (.) 34.731 36.000 Text MOPSpage restore end %%Trailer