(FILECREATED " 4-May-84 16:08:38" {PHYLUM}<LISPCORE>LIBRARY>PROTOTYPE.SEQUENTIALRUNS;12
 2035   

      changes to:  (VARS PROTOTYPECOMS)

      previous date: " 2-May-84 19:44:49" {PHYLUM}<LISPCORE>LIBRARY>PROTOTYPE.SEQUENTIALRUNS;10)


(* Copyright (c) 1984 by Xerox Corporation)

(PRETTYCOMPRINT PROTOTYPECOMS)

[RPAQQ PROTOTYPECOMS
 
  ((FILES SEQUENTIAL)
   (VARS (PROTOTYPE.SEQUENTIALRUNS
	     (create SEQUENTIALRUNS 
		 INITFORMS      _ (QUOTE ((PRINT "Initialized" T)))
		 CLEANUPFORMS   _ (QUOTE ((PRINT "Done!" T)
                                    ((LAMBDA (DRIBBLE)
							  (COND 
							   (DRIBBLE 
								(RENAMEFILE 
									DRIBBLE
									(QUOTE {DSK}BATCHDRIBBLE.ARCHIVE))
								(EMPRESS (QUOTE {DSK}BATCHDRIBBLE.ARCHIVE)
                                                  NIL 
                                                  (OR (CAR (MKLIST DEFAULTPRINTINGHOST)) 
                                                      (QUOTE Expresso))))))
                                    (DRIBBLE NIL))))
		 FINALREM.CM    _ "Q
" 
		 RELOADINGFORMS _ (QUOTE ((PROGN (PRINT "First Run Commences" T)
				 				  (PRINT "First Run Finishes" T))
							 (PROGN (PRINT "Second Run Commences" T)
								   (PRINT "Second Run Finishes" T]
(FILESLOAD SEQUENTIAL)

[RPAQQ PROTOTYPE.SEQUENTIALRUNS
 
     (SEQUENTIALRUNS ((PRINT "Initialized" T))
                     ((PRINT "Done!" T)
                      ((LAMBDA (DRIBBLE)
				    (COND 
				     (DRIBBLE 
					  (RENAMEFILE DRIBBLE
							    (QUOTE {DSK}BATCHDRIBBLE.ARCHIVE))
					  (EMPRESS (QUOTE {DSK}BATCHDRIBBLE.ARCHIVE)
							 NIL 
							 (OR (CAR (MKLIST DEFAULTPRINTINGHOST)) 
								(QUOTE Expresso))))))
				  (DRIBBLE NIL)))
                     "Q
" 
                     (PROGN (PRINT "First Run Commences" T)
				 	  (PRINT "First Run Finishes" T))
                     (PROGN (PRINT "Second Run Commences" T)
					  (PRINT "Second Run Finishes" T]

(PUTPROPS PROTOTYPE.SEQUENTIALRUNS COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY (FILEMAP (NIL)))
STOP