%!PS-Adobe-2.0 EPSF-1.2 %%Title: ZK-5503.PS %%Creator: RAGS - MOPS v1.4 %%CreationDate: Mon Jan 23 15:39:39 1989 %%Pages: 1 %%BoundingBox: 142.154 311.538 469.846 480.462 %%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 142.154 480.462 tr 1 -1 sc 0.923 slw 0 slc 0 slj 0.000 0.000 0.000 0 0.000 0.000 327.692 168.923 Crop 0.923 slw 0 slc 325.846 1.846 1.846 1.846 1.846 25.846 325.846 25.846 Box st 325.846 25.846 1.846 25.846 1.846 49.846 325.846 49.846 Box st 325.846 49.846 1.846 49.846 1.846 73.846 325.846 73.846 Box st 325.846 73.846 1.846 73.846 1.846 121.846 325.846 121.846 Box st 325.846 121.846 1.846 121.846 1.846 145.846 325.846 145.846 Box st /Helvetica /Helvetica@ISO ISOLatin1 ReENCODE /Helvetica@ISO LF [10 0 0 -10 0 0] SF 1 0.077 (0) 134.769 18.462 Text 1 0.077 (n) 287.077 18.462 Text 4 0.269 (arg1) 154.154 42.462 Text 4 0.269 (arg2) 154.154 66.462 Text 4 0.269 (argn) 154.154 138.462 Text 325.846 1.846 253.846 1.846 253.846 25.846 325.846 25.846 Box st 10 0.859 (ZK-5503-GE) 264.000 165.231 Text 1 0.038 (.) 161.538 99.692 Text 1 0.038 (.) 161.538 87.692 Text 1 0.038 (.) 161.538 111.692 Text MOPSpage restore end %%Trailer