/executive { execdict begin clearinterrupt disableinterrupt /execdepth execdepth 1 add def (\nPostScript(tm) Version ) print version print (\n\nCopyright (c) 1985 Adobe Systems Incorporated.\n) print { % loop ... /quitflag false def $error /newerror false put % execute prompt /prompt load stopped { % if stopped ... handleerror (Error during prompt execution\n) print exit } if { % open (%statementedit) ... mark idleproc clearinterrupt /stmtfile (%statementedit) (r) file def disableinterrupt } stopped { % if stopped ... disableinterrupt cleartomark $error /newerror get { % if ... $error /errorname get /undefinedfilename ne { % if ... handleerror } if $error /newerror false put exit } if } { % if not stopped ... pop stmtfile end % execdict { clearinterrupt cvx exec disableinterrupt } stopped execdict begin { % if stopped ... disableinterrupt handleerror stmtfile closefile } if } ifelese checkquit } loop /quitflag false def /execdepth execdepth 1 sub def end % execdict $error /doclose false put interrupt } bind def systemdict begin /stack { count dup 1 add copy { % repeat ... { dup type /stringtype ne { =string cvs } if print } exec (\n) print } repeat pop } bind def /prompt { (PS) print execdepth { (>) print } repeat flush } bind def end userdict begin /pstack { count dup 1 add copy { == } repeat pop } bind def /cleardictstack { countdictstack 2 sub { end } repeat } bind def end DInitialization.ps Doug Wyatt, October 9, 1986 4:56:38 pm PDT Κ˜codešœ™Kšœ*™*K™—šœ ˜ šœ˜Kšœ˜Kšœ˜Kšœ0˜0Kšœ=˜=šœ ˜ Kšœ˜Kšœ˜Kšœ˜Kšœ˜šœ˜Kšœ ˜ Kšœ(˜(Kšœ˜Kšœ˜—šœ˜Kšœ˜Kšœ(˜(Kšœ˜Kšœ ˜ —šœ˜Kšœ˜šœ˜Kšœ˜šœ ˜ Kšœ ˜ Kšœ˜—Kšœ˜Kšœ˜Kšœ˜—Kšœ˜—šœ˜Kšœ˜Kšœ ˜ Kšœ˜Kšœ5˜5Kšœ˜šœ˜Kšœ˜Kšœ ˜ Kšœ˜Kšœ˜—Kšœ ˜ —Kšœ ˜ Kšœ˜—Kšœ˜Kšœ˜Kšœ˜—Kšœ˜Kšœ ˜ Kšœ ˜ —K˜šœ˜šœ ˜ Jšœ˜šœ˜Jšœ:˜:Jšœ ˜ Jšœ ˜ —Jšœ˜Jšœ ˜ —K˜DKšœ˜K˜—šœ˜Jšœ;˜;Jšœ@˜@Kšœ˜K˜——…—€