
    <<Initialization.ps>>
        <<Doug Wyatt, October 9, 1986 4:56:38 pm PDT>>
        <<>>
    /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