%% added the following command \ Dick McGowan gsave 90 216 translate %!PS-Adobe-2.0 %%Creator: VAX DOCUMENT V1.2B %%+(+1 PSEUDOCONDENSE) -- this prolog provided by the CUPFAMILY011 kit %%+Copyright 1986,1987,1988,1989,1990 DIGITAL EQUIPMENT CORPORATION. %%+All Rights Reserved. %%DocumentFonts: (atend) %%Pages: (atend) %%EndComments /DEC_DVC$dict where { %FIND DICTIONARY pop }{ %else /DEC_DVC$dict 300 dict def } ifelse /BeginDVC$PSDoc { %BEGIN DOCUMENT vmstatus pop pop 0 eq { DEC_DVC$dict begin InitializeState }{ %else /DVC$PSJob save def DEC_DVC$dict begin InitializeState /DVC$PSFonts save def } ifelse } def /EndDVC$PSDoc { %END DOCUMENT % --- Preserving current page count --- vmstatus pop pop 0 eq { end }{ %else DVC$PSFonts restore end DVC$PSJob restore } ifelse } def % DEC_DVC$dict begin % 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 % /DECMCS ISOLatin1 256 array copy def mark % CREATE DECMCS ENCODING 8#240 8#244 8#246 8#254 8#255 8#256 8#257 8#264 8#270 8#276 8#320 8#336 8#360 8#376 8#377 counttomark {DECMCS exch /.notdef put} repeat % STACK NOW CONTAINS MARK 8#250 /currency 8#327 /OE 8#335 /Ydieresis 8#367 /oe 8#375 /ydieresis counttomark -1 bitshift % DIVIDE BY 2 {DECMCS 3 1 roll put} repeat % STACK NOW CONTAINS MARK cleartomark % /DOCPSE DECMCS 256 array copy def mark % CREATE DOCPSE ENCODING 8#055 /hyphen 8#201 /bullet 8#202 /emdash 8#203 /endash 8#204 /dagger 8#205 /daggerdbl 8#206 /registered 8#207 /trademark %8#210 /Delta 8#211 /fi 8#212 /fl counttomark -1 bitshift % DIVIDE BY 2 {DOCPSE 3 1 roll put} repeat % STACK NOW CONTAINS MARK cleartomark % /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 } def % /cvsstr 64 string def /tempmatrix matrix def % /BP { % BEGIN PAGE /Magnification exch def /Colorsused 0 def /RVmatrix matrix def /DVC$PSPage save def } def % /EP {DVC$PSPage restore} def % END PAGE % /XP { % EXIT PAGE (TEMPORARILY) TO ADD FONTS/CHARS % SAVE CURRENT POINT AND COLOR INFORMATION SO IT CAN BE RESET LATER matrix currentmatrix aload pop currentrgbcolor Colorsused /Xpos where {pop Xpos} {0} ifelse /Ypos where {pop Ypos} {0} ifelse /currentpoint cvx stopped {0 0 moveto currentpoint} if /DVC$PSPage where {pop DVC$PSPage restore} if moveto /Ypos exch def /Xpos exch def /Colorsused exch def setrgbcolor matrix astore setmatrix } def % /RP {/DVC$PSPage save def} def % RESUME PAGE % /PF {GlobalMode LocalMode} def % PURGE FONTS TO RECLAIM MEMORY % /GlobalMode { % SWITCH TO BASE SAVE/RESTORE LEVEL, SAVING STATE RVmatrix aload pop PortraitMode PaperWidth PaperHeight PxlResolution Resolution Magnification Ymax Xorigin Yorigin RasterScaleFactor % SAVE CURRENTPOINT INFORMATION TO RESET LATER /currentpoint cvx stopped {0 0 moveto currentpoint} if /DVC$PSPage where {pop DVC$PSPage restore} if DVC$PSFonts restore RecoverState } def % /RecoverState { % PRESERVE STATE AT BASE LEVEL 18 copy /Ypos exch def /Xpos exch def /RasterScaleFactor exch def /Yorigin exch def /Xorigin exch def /Ymax exch def /Magnification exch def /Resolution exch def /PxlResolution exch def /PaperHeight exch def /PaperWidth exch def /PortraitMode exch def matrix astore /RVmatrix exch def DoInitialScaling RVmatrix concat PortraitMode not {PaperWidth 0 SetupLandscape} if Xpos Ypos moveto } def % /InitializeState { % INITIALIZE STATE VARIABLES TO DEFAULT VALUES /Resolution 3600 def /PxlResolution 300 def /RasterScaleFactor PxlResolution Resolution div def /PortraitMode true def /Magnification 1000 def /Xorigin 0 def /Yorigin 0 def /Xpos 0 def /Ypos 0 def /InitialMatrix matrix currentmatrix def /Colorsused 0 def /RVmatrix matrix def } def % /LocalMode { % SWITCH FROM BASE SAVE/RESTORE LEVEL, RESTORING STATE /Ypos exch def /Xpos exch def /RasterScaleFactor exch def /Yorigin exch def /Xorigin exch def /Ymax exch def /Magnification exch def /Resolution exch def /PxlResolution exch def /PaperHeight exch def /PaperWidth exch def /PortraitMode exch def matrix astore /RVmatrix exch def DoInitialScaling RVmatrix concat PortraitMode not {PaperWidth 0 SetupLandscape} if Xpos Ypos moveto /DVC$PSFonts save def /DVC$PSPage save def } def % % ABBREVIATIONS /S /show load def /SV /save load def /RST /restore load def /Yadjust {Ymax exch sub} def % /SXY { % (x,y) POSITION ABSOLUTE, JUST SET Xpos & Ypos, DON'T MOVE Yadjust /Ypos exch def /Xpos exch def } def % /XY { % (x,y) POSITION ABSOLUTE Yadjust 2 copy /Ypos exch def /Xpos exch def moveto } def % /X { % (x,0) POSITION ABSOLUTE currentpoint exch pop 2 copy /Ypos exch def /Xpos exch def moveto } def % /Y { % (0,y) POSITION ABSOLUTE currentpoint pop exch Yadjust 2 copy /Ypos exch def /Xpos exch def moveto } def % /xy { % (x,y) POSITION RELATIVE neg rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /x { % (x,0) POSITION RELATIVE 0 rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /y { % (0,y) POSITION RELATIVE 0 exch neg rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /R { % DRAW A RULE /ht exch def /wd exch def gsave % 0 setgray currentpoint newpath moveto 0 ht rlineto wd 0 rlineto 0 ht neg rlineto wd neg 0 rlineto closepath fill grestore wd 0 rmoveto currentpoint /Ypos exch def /Xpos exch def } def % /RES { % RES /Resolution exch def /PxlResolution exch def /RasterScaleFactor PxlResolution Resolution div def DoInitialScaling } def % /DoInitialScaling { % DO INITIAL SCALING InitialMatrix setmatrix 72 Resolution div dup scale } def % /PM { % PM XP /PaperWidth exch def /PaperHeight exch def /Ymax PaperHeight def /PortraitMode true def DoInitialScaling RP } def % /SetupLandscape {translate 90 rotate} def /LM { % LM XP /PaperWidth exch def /PaperHeight exch def /Ymax PaperWidth def /PortraitMode false def DoInitialScaling PaperWidth 0 SetupLandscape RP } def % /MAG { % CHANGE MAGNIFICATION SETTING XP /Magnification exch def RP } def % /SPB { % SPB - BEGIN "\SPECIAL" MODE Yadjust /Yorigin exch def /Xorigin exch def currentrgbcolor Colorsused GlobalMode Xorigin Yorigin translate Resolution 72 div dup scale % RESTORE DEFAULT SCALING Magnification 1000 div dup scale % ADJUST FOR ANY MAGNIFICATION /Xpos Xpos 72 Resolution div mul 1000 Magnification div mul def /Ypos Ypos 72 Resolution div mul 1000 Magnification div mul def /spsavobj save def %SAVE STATE & STACK DEPTH FOR CLEANUP AFTER FIGURE /showpage {} def %DISABLE DURING FIGURE; `RESTORE' WILL BLOW DEF AWAY /DEC$EDMS_setrgbcolor /setrgbcolor load def % save standard definition /setrgbcolor { % create new definition /DEC$EDMS_SEPARATE_COLORS where % if separating colors { pop DEC$EDMS_SEPARATE_COLORS 0 ne % and not on color pass 0 { pop pop pop 1 1 1 } if % ...then write white } if DEC$EDMS_setrgbcolor % set color as now specified } def /DEC$EDMS_image /image load def % save standard definition /image { % create new definition /DEC$EDMS_SEPARATE_COLORS where % if separating colors { pop DEC$EDMS_SEPARATE_COLORS 0 ne % and not on color pass 0 { gsave % ...save current device state nulldevice % ...make no marks DEC$EDMS_image % ...process the image grestore % ...restore old device state } { DEC$EDMS_image } ifelse % if on color pass 0 - image } { DEC$EDMS_image } ifelse % if not separating colors - image } def mark } def % /SPE { % SPE - END "\SPECIAL" MODE cleartomark spsavobj restore 1000 Magnification div dup scale % UN-ADJUST FOR ANY MAGNIFICATION 72 Resolution div dup scale % RESTORE DEFAULT INTERNAL SCALING LocalMode /Colorsused exch def setrgbcolor } def % /PP % % If DEC$EDMS_MAKE_FILM is defined, it will add the crop & alignment marks, % and the document name, page number, & ink color identifiers to the page. % % Formal Arguments: None % % Referenced Variables: DocumentName % Colorsused % Currentpagecount % DEC$EDMS_MAKE_FILM % % Referenced Procedures: AlignMark % % Side Effects: Leaves the current font as Helvetica 8 point. % Creates the variable "junkstr". % { /PageNumber exch def /DEC$EDMS_MAKE_FILM where % if making film... { pop 2 DEC$EDMS_SEPARATE_COLORS exp cvi Colorsused and 0 ne % and if the correct separation { /Helvetica findfont 400 scalefont setfont 20 setlinewidth 0 setgray PaperWidth 150 add PaperHeight 100 add moveto % show the ink color (Ink: ) show DEC$EDMS_COLOR_NAMES DEC$EDMS_SEPARATE_COLORS get show PaperWidth 150 add PaperHeight 600 add moveto (Page: ) show % show the page number /junkstr 4 string def PageNumber junkstr cvs show ( of ) show DEC$EDMS_TOTAL_PAGES junkstr cvs show 150 PaperHeight 100 add moveto % show the document name (Document: ) show DEC$EDMS_DOCUMENT_ID show 150 -500 moveto % show ownership text (This film is the property of Digital Equipment Corporation) show stroke /mask 15 % all crop marks on by default /DEC$EDMS_SUPPRESS_CROPMARKS where % if defined, xor in the suppression mask { pop DEC$EDMS_SUPPRESS_CROPMARKS xor } if def mask 1 and 1 eq { PaperWidth PaperHeight moveto % Upper Right 450 0 rmoveto 1350 0 rlineto -1800 1800 rmoveto 0 -1350 rlineto } if mask 2 and 2 eq { PaperWidth 0 moveto % Lower Right 450 0 rmoveto 1350 0 rlineto -1800 -1800 rmoveto 0 1350 rlineto } if mask 4 and 4 eq { 0 0 moveto % Lower Left -450 0 rmoveto -1350 0 rlineto 1800 -1800 rmoveto 0 1350 rlineto } if mask 8 and 8 eq { 0 PaperHeight moveto % Upper Left -450 0 rmoveto -1350 0 rlineto 1800 1800 rmoveto 0 -1350 rlineto } if stroke /mask 15 % all registration marks on by default /DEC$EDMS_SUPPRESS_REGMARKS where % if defined, xor in the suppression mask { pop DEC$EDMS_SUPPRESS_REGMARKS xor } if def mask 1 and 1 eq % Top Center { gsave PaperWidth 2 div PaperHeight /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if translate AlignMark grestore } if mask 2 and 2 eq % Right Center { gsave PaperWidth /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS -50 mul add } if PaperHeight 2 div translate AlignMark grestore } if mask 4 and 4 eq % Bottom Center { gsave PaperWidth 2 div 0 /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if translate AlignMark grestore } if mask 8 and 8 eq % Left Center { gsave 0 /DEC$EDMS_POSITION_REGMARKS where { pop DEC$EDMS_POSITION_REGMARKS 50 mul add } if PaperHeight 2 div translate AlignMark grestore } if showpage } { erasepage } ifelse } { showpage } ifelse } def /CLRP {erasepage} def % /DMF { % /font-name DMF /psz exch def /nam exch def nam findfont psz scalefont setfont } def % /concatnam { % /abcd (xxx) concatnam ==> /abcdxxx /xxx exch def /nam exch def /namstr nam cvsstr cvs def /newnam namstr length xxx length add string def newnam 0 namstr putinterval newnam namstr length xxx putinterval newnam cvn } def % /strip { % /abcdef 2 strip ==> /cdef /num exch def /nam exch def /namstr nam cvsstr cvs def /newlen namstr length num sub def namstr num newlen getinterval cvn } def % ROUTINES TO HANDLE PACKING/UNPACKING NUMBERS /PackHW { % PackHW --> /num exch def /pos exch def /target exch def num 16#0000FFFF and 1 pos sub 16 mul bitshift target or } def /PackByte { % PackByte --> /num exch def /pos exch def /target exch def num 16#000000FF and 3 pos sub 8 mul bitshift target or } def /UnpkHW { % UnpkHW --> /num exch def /pos exch def num 1 pos sub -16 mul bitshift 16#0000FFFF and dup 16#00007FFF gt {16#00010000 sub} if } def /UnpkByte { % UnpkByte --> /num exch def /pos exch def num 3 pos sub -8 mul bitshift 16#000000FF and dup 16#0000007F gt {16#00000100 sub} if } def % % FOR POSTSCRIPT FONTS, LOOK AT SIZE REQUESTED. IF IT HAS A DECIMAL REMAINDER % EQUIVALENT TO .001-.009 POINTS (I.E., .050-.450 VAXDOC UNITS), THAT'S A FLAG % TO STRETCH IT VERTICALLY BY ADDING 1-9 EXTRA POINTS TO THE VERTICAL SCALING. % /TESTING false def % /ps-scalefont { % save requested size - as entered and as integer dup /x-size exch def cvi /x-int exch def % calc decimal remainder, mul x 1000, round x-size x-int sub 1000 mul round cvi /remainder exch def % see how we scale... remainder 50 lt remainder 450 gt or { % scale isomorphically /ystretch 0 def x-size scalefont } { % scale anamorphically /ystretch remainder def x-int ystretch add /y-size exch def [x-int 0 0 y-size 0 0] makefont } ifelse % TESTING { (\nSIZE ) print x-size 12 string cvs print (\tINT ) print x-int 12 string cvs print ( REM ) print remainder 12 string cvs print ( +Y ) print ystretch 12 string cvs print ( =\t) print ystretch 0 eq { x-size 12 string cvs print ( scalefont) print } { ([) print x-int 12 string cvs print ( 0 0 ) print y-size 12 string cvs print ( 0 0] makefont) print } ifelse } if } def % /DPSF { % /procname size /fontname DPSF findfont exch ps-scalefont [ exch /setfont cvx ] cvx def } def % /PXLBuildCharDict 17 dict def /CMEncodingArray 256 array def 0 1 255 {CMEncodingArray exch dup cvsstr cvs cvn put} for /RasterConvert {RasterScaleFactor div} def /TransformBBox { aload pop /BB-ury exch def /BB-urx exch def /BB-lly exch def /BB-llx exch def [ BB-llx RasterConvert BB-lly RasterConvert BB-urx RasterConvert BB-ury RasterConvert ] } def /RunLengthToRasters { % none yet } def /GenerateRasters { % GENERATE RASTERS FOR "IMAGEMASK" rasters runlength 1 eq {RunLengthToRasters} if } def % /int-dict-name {int (-dict) concatnam} def /int-dict {int (-dict) concatnam cvx load} def % /DefinePXLFont { % ... % ...[llx lly urx ury]DefinePXLFont /newfont exch def /bb exch def /num exch def /psz exch def /dsz exch def /pxlmag exch def /ext exch def /int exch def /fnam ext (-) concatnam pxlmag cvsstr cvs concatnam def newfont not { int-dict-name 13 dict def int-dict begin /FontType 3 def /FontMatrix [ 1 dsz div 0 0 1 dsz div 0 0 ] def /FontBBox bb TransformBBox def /Encoding CMEncodingArray def /CharDict 1 dict def CharDict begin /Char-Info num array def end /BuildChar { PXLBuildCharDict begin /char exch def /fontdict exch def fontdict /CharDict get /Char-Info get char get aload pop /rasters exch def /PackedWord1 exch def 0 PackedWord1 UnpkHW 16#7FFF ne { /PackedWord2 exch def /wx 0 PackedWord1 UnpkHW def /rows 2 PackedWord1 UnpkByte def /cols 3 PackedWord1 UnpkByte def /llx 0 PackedWord2 UnpkByte def /lly 1 PackedWord2 UnpkByte def /urx 2 PackedWord2 UnpkByte def /ury 3 PackedWord2 UnpkByte def }{ %else /PackedWord2 exch def /PackedWord3 exch def /PackedWord4 exch def /wx 1 PackedWord1 UnpkHW def /rows 0 PackedWord2 UnpkHW def /cols 1 PackedWord2 UnpkHW def /llx 0 PackedWord3 UnpkHW def /lly 1 PackedWord3 UnpkHW def /urx 0 PackedWord4 UnpkHW def /ury 1 PackedWord4 UnpkHW def } ifelse rows 0 lt { /rows rows neg def /runlength 1 def }{ %else /runlength 0 def } ifelse wx 0 llx RasterConvert lly RasterConvert urx RasterConvert ury RasterConvert setcachedevice rows 0 ne { gsave cols rows true RasterScaleFactor 0 0 RasterScaleFactor neg llx .5 add neg ury .5 add tempmatrix astore GenerateRasters imagemask grestore } if end } def end fnam int-dict definefont pop } if int-dict-name fnam findfont psz scalefont def currentdict int [ int-dict /setfont cvx ] cvx put } def /PXLF { true DefinePXLFont} def % SIGNAL THAT FONT IS ALREADY LOADED /PXLNF {false DefinePXLFont} def % SIGNAL THAT FONT IS NOT ALREADY LOADED % /PXLC { % ... % ...PXLC /rasters exch def /runlength exch def /cols exch def /rows exch def /ury exch def /urx exch def /lly exch def /llx exch def /wx exch def /code exch def /int exch def % SEE IF LONG OR SHORT FORMAT IS REQUIRED true cols CKSZ rows CKSZ ury CKSZ urx CKSZ lly CKSZ llx CKSZ TackRunLengthToRows { int-dict /CharDict get /Char-Info get code [ 0 0 llx PackByte 1 lly PackByte 2 urx PackByte 3 ury PackByte 0 0 wx PackHW 2 rows PackByte 3 cols PackByte rasters ] put }{ %else int-dict /CharDict get /Char-Info get code [ 0 0 urx PackHW 1 ury PackHW 0 0 llx PackHW 1 lly PackHW 0 0 rows PackHW 1 cols PackHW 0 0 16#7FFF PackHW 1 wx PackHW rasters ] put } ifelse } def % /CKSZ {abs 127 le and} def /TackRunLengthToRows {runlength 0 ne {/rows rows neg def} if} def % /PLOTC { % PLOTC /rasters exch def /runlength exch def /cols exch def /rows exch def /ury exch def /urx exch def /lly exch def /llx exch def /psz exch def /dsz exch def /wx exch def % "PLOT" A CHARACTER'S RASTER PATTERN rows 0 ne { gsave currentpoint translate psz dsz div dup scale cols rows true RasterScaleFactor 0 0 RasterScaleFactor neg llx .5 add neg ury .5 add tempmatrix astore GenerateRasters imagemask grestore } if wx x } def % /AlignMark % % This procedure draws an alignment mark centered on the coordinate system % origin. If the variable DEC$EDMS_SEPARATE_COLORS = 0 then a "positive" % alignment mark is drawn. If DEC$EDMS_SEPARATE_COLORS <> 0 then a "negative" % alignment mark is drawn. % % Formal Arguments: NONE % % Referenced Variables: DEC$EDMS_SEPARATE_COLORS % % Referenced Procedures: NONE % % Side Effects: NONE % { DEC$EDMS_SEPARATE_COLORS 0 eq { 0 0 300 0 360 arc 0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke } { 0 0 450 0 360 arc fill 1 setgray 0 0 300 0 360 arc 0 -450 moveto 0 450 lineto -450 0 moveto 450 0 lineto stroke 0 setgray } ifelse } def /SC % If not making film, the following procedure sets the current color using the % RGB color model. If making film, the procedure notes the "color pass" and, % if the specified color index matches the color pass, subsequent marks are % written in black. If the specified color index does not match the color pass, % marks are written in white. Use of colors on individual pages is also tracked % to allow pages that don't use a particular color to be suppressed on that % color pass (by the code in the /PP routine). % % Formal Arguments: color index (on stack) % % Referenced Variables: Colorsused % DEC$EDMS_SEPARATE_COLORS % DEC$EDMS_SUPPRESS_COLOR % % Referenced Procedures: NONE % % Side Effects: Modifies the variable Colorsused to record use of the color. % { /DEC$EDMS_SUPPRESS_COLOR where % if suppressing color { pop 0 setgray pop } % .then set "color" to Black { /DEC$EDMS_SEPARATE_COLORS where % .else if separating colors { pop dup DEC$EDMS_SEPARATE_COLORS eq % ..and if on this color pass { 0 setgray /Colorsused Colorsused % ...then write black (do write) 2 3 index exp cvi or def } % ...and note use of the "color" { 1 setgray } ifelse pop } % ...else write white (don't write) { dup ( ) cvs dup length 15 add string % ..using the color index, /tstr exch def % ..build up the name of the tstr 0 (DEC$EDMS_COLOR_) putinterval % ..potential external color tstr exch 15 exch putinterval % ..name procedure tstr cvn where % ..and see if it is defined { pop pop tstr cvn cvx exec } % ...if it is, execute it { DEC$EDMS_COLOR_ARRAY exch get % ..else execute the internal exec } ifelse % ..color setting procedure } ifelse } ifelse } def /RV % .. gross recto/verso translate { /DEC$EDMS_ENABLE_RECTOVERSO where { pop /RVmatrix DEC$EDMS_ENABLE_RECTOVERSO 50 mul 0 matrix translate def RVmatrix concat } if } def end %DEC_DVC$dict %%EndProlog %%BeginSetup /DEC$EDMS_MAKE_FILM where % if we are making film... { pop % ..clean up the stack 54 dup translate % ..make room for the film info } if BeginDVC$PSDoc /PaperWidth 8.500 Resolution mul def /PaperHeight 11.000 Resolution mul def /Ymax PaperHeight def CLRP 300 3600 RES %> Postamble of file WRITER:[RMCGOWAN.RT11.UTILITIES.NEW]S1481BC20_CONTENTS.DVI_PS. % DefineFont:F151 Category:10 Pointsize:10 /NewCenturySchlbk-Roman /NewCenturySchlbk-Roman@DOCPSE DOCPSE ReENCODE /F151 500.0 /NewCenturySchlbk-Roman@DOCPSE DPSF % DefineFont:F26 Category:10 Pointsize:12 /Helvetica /Helvetica@DOCPSE DOCPSE ReENCODE /F26 600.0 /Helvetica@DOCPSE DPSF % DefineFont:F20 Category:10 Pointsize:18 /Helvetica-Bold /Helvetica-Bold@DOCPSE DOCPSE ReENCODE /F20 900.0 /Helvetica-Bold@DOCPSE DPSF %%BeginDEC$EDMSInfo /DEC$EDMS_DOCUMENT_ID () def /DEC$EDMS_COLOR_NAMES [ (0_BLACK) ] def /DEC$EDMS_COLOR_ARRAY [ %%RGBCustomColor 0.000 0.000 0.000 0_BLACK { 0.000 0.000 0.000 setrgbcolor } % 0_BLACK not found ] def /DEC$EDMS_TOTAL_PAGES 0 def %%EndDEC$EDMSInfo /DEC$EDMS_MAKE_FILM where { pop /DEC$EDMS_SEPARATE_COLORS where { pop } { (ERROR - DEC$EDMS_MAKE_FILM requires DEC$EDMS_SEPARATE_COLORS be defined) = quit } ifelse } if /DEC$EDMS_SEPARATE_COLORS where { pop /DEC$EDMS_SUPPRESS_COLOR where { pop (ERROR - DEC$EDMS_SEPARATE_COLORS and DEC$EDMS_SUPPRESS_COLOR are mutually exclusive) = quit } if } if /DVC$PSFonts save def %%EndSetup % %%Page: III 1 %%BeginPageSetup %%EndPageSetup %%PageFonts: (atend) %%PageCustomColors: (atend) 1000 BP PaperHeight PaperWidth PM 0 0 XY %%BeginCustomColor: 0_BLACK 0 SC 22154 6068 XY F20(Chapter)S 298 x(20)S 3675 X 546 y 23160 48 R 3675 8308 XY F26(Chapter)S 200 x(20)S 599 x(Peripheral)S 200 x(Intercha)S 2 x(nge)S 200 x(Utility)S 198 x(\(PIP\))S 3675 X 224 y 23160 48 R 6365 9229 XY F151(Calling)S 166 x(and)S 166 x(T)S -45 x(erminating)S 166 x(PIP)S 183 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 617 x(20\2031)S 6365 X 698 y(PIP)S 166 x(Command-Line)S 166 x(Syntax)S 263 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 617 x(20\2032)S 6365 X 697 y (Using)S 166 x(W)S -19 x(ildcards)S 166 x(with)S 166 x(PIP)S 277 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 617 x(20\2033)S 6365 X 697 y(PIP)S 166 x(Option)S 166 x(Summary)S 115 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 617 x(20\2034)S 6365 X 698 y(PIP)S 166 x(Option)S 166 x(Descriptions)S 94 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 617 x(20\2036)S 6365 X 697 y (DCL)S 165 x(Equivalents)S 166 x(of)S 166 x(PIP)S 167 x(Utility)S 165 x (Operations)S 186 x(.)S 161 x(.)S 160 x(.)S 161 x(.)S 161 x(.)S 161 x (.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x(.)S 161 x (.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 160 x (.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x(.)S 161 x (.)S 160 x(.)S 161 x(.)S 340 x(20\20320)S 3675 14111 XY %%EndCustomColor % 1 PP EP (put comments around these SDML page commands so the bar %% would print on same page as the contents page. \Dick McG) %%PageTrailer %%PageFonts: Helvetica-Bold Helvetica %%+ NewCenturySchlbk-Roman %%PageCustomColors: 0_BLACK % %%Trailer EndDVC$PSDoc /DEC$EDMS_MAKE_FILM where % if we are making film... { pop % ..clean up the stack -54 dup translate % ..undo the film translation } if %%Pages: 1 %%DocumentFonts: NewCenturySchlbk-Roman %%+ Helvetica Helvetica-Bold %%DocumentCustomColors: 0_BLACK grestore %!PS-Adobe-1.0 %%Title: rpage-8x11 %%Creator: Auto-trol PostScript Interface Version 3.6 %%CreationDate: 08/27/91 14:06:09 DIMARE %%Pages: 1 %%BoundingBox: 48 174 744 1050 %%EndComments [1. 0. 0. 1. 0. 0.] concat /a /arc load def /b /arcn load def /c /closepath load def /cc /concat load def /cm {/cmtx matrix currentmatrix def} bind def /f /eofill load def /gr /grestore load def /gs /gsave load def /l /lineto load def /m /moveto load def /n /newpath load def /p /currentpoint load def /q /rotate load def /r /rlineto load def /s /stroke load def /sm {cmtx setmatrix} bind def /t {findfont exch scalefont setfont} bind def /tm {/tmtx matrix currentmatrix def} bind def /w /setlinewidth load def /x /setrgbcolor load def /xm {tmtx setmatrix} bind def /y {rlineto closepath stroke} bind def /z {rlineto stroke} bind def /CenterShow { dup stringwidth pop 2 div neg 0 rmoveto show } def /TRUE 1 def /FALSE 0 def /Mirror FALSE def /CenterText { Mirror TRUE eq {show} {CenterShow} ifelse } def % Place between the parentheses '()' the desired string. Do NOT % add spaces to the beginning or end of the string. % EXAMPLE: Correct (Your Label) -- Incorrect ( Your Label ) % This will print both right- and left- handed pages. /TextString (PIP) def % To Print an 8½ x 11 Page append the following line to your page. % This will move your page to center of a B-size sheet of paper. % % -90 -216 translate % %%EndProlog /mtx matrix currentmatrix def 1 setlinecap n 84 216 m 48 216 l .18 w 0 0 0 x s 90 210 m 90 174 l s 702 210 m 702 174 l s 708 216 m 744 216 l s 84 1008 m 48 1008 l s 90 1014 m 90 1050 l s 702 1014 m 702 1050 l s 708 1008 m 744 1008 l s 666 204 m 720 204 l 720 1020 l 666 1020 l c f [0 -1 1 0 684 612] cc 0 0 m 1 1 1 x 12 /Helvetica t TextString CenterText mtx setmatrix showpage /mtx matrix currentmatrix def 1 setlinecap n 708 1008 m 744 1008 l .18 w 0 0 0 x s 702 1014 m 702 1050 l s 90 1014 m 90 1050 l s 84 1008 m 48 1008 l s 708 216 m 744 216 l s 702 210 m 702 174 l s 90 210 m 90 174 l s 84 216 m 48 216 l s 126 1020 m 72 1020 l 72 204 l 126 204 l c f [0 1 -1 0 108 612] cc 0 0 m 1 1 1 x 12 /Helvetica t TextString CenterText mtx setmatrix showpage