-- Prometheus.Script
-- last edited  by Masinter 27-Jun-83 23:41:05
-- last edited  by JFung.pasa	 21-Oct-83  9:29:41
-- last edited  by Tayloe Stansbury  25 Jan 1984
-- last edited  by JFung.pasa	    6-Feb-84 13:35:07
--  last edited  by JFung.pasa 30-May-84 17:00:48/for Carol release 
--  last edited  by JFung.pasa 19-Jun-84/added Online at Boot Diag.
--  last edited  by JFung.pasa 30-Jul-84 10:47:06/for Harmony release
\Partition 10 Mb disk for 1 Interlisp-D volume and 1 Large Dsk volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
Diagnostics 3500 normal
Dsk 2000 normal
Lisp  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 10 Mb disk for 1 Interlisp-D(LOOPS) volume and 1 Small Dsk volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
Diagnostics 3500 normal
Dsk 500 normal
Lisp  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 29 Mb disk for 1 Interlisp-D volume and 1 Dsk volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
Diagnostics 3500 normal
Lisp 16200 normal
Dsk  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 29 or 43 Mb disk for 2 Interlisp-D volumes and 1 Dsk volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 4
Diagnostics 3500 normal
Lisp 16200 normal
Lisp2 16200 normal
Dsk  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 43 Mb disk for 3 Interlisp-D volumes and 1 Dsk volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 5
Diagnostics 3500 normal
Lisp 16200 normal
Lisp2 16200 normal
Lisp3 16200 normal
Dsk  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Erase Diagnostics volume
Confirm Continue?
Online RD0
Check RD0
Comment Erasing Diagnostics volume...
Erase Diagnostics
Comment Diagnostics erased
\Erase DSK volume
Confirm Continue?
Online RD0
Comment Erasing DSK volume...
Erase DSK
Comment DSK erased
\Install Boot files
Online RD0
Comment Ready to Install Boot files
Confirm Continue?
Request Installation Utility
Comment Installing Lisp microcode file...
Initial RD0 Lisp10SAx000Initial.db
Comment Lisp microcode installed
Check RD0
Germ Diagnostics DLion.germ Y
Request Boot Files
Comment Installing Boot files...
Pilot Diagnostics Mesa.db Y
Fetch Diagnostics TajoDLion.boot
Set Physical Diagnostics YYY
Comment Boot files installed
\Install Interlisp-D on Lisp Volume
Comment Ready to Install Interlisp-D on Lisp Volume
Confirm Continue?
-- Physical RD0 NYN
Online RD0
Erase Lisp
Request Lisp Sysout #1
Comment Installing Interlisp-D software (part 1)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 1 installed on Lisp
Request Lisp Sysout #2
Comment Installing Interlisp-D software (part 2)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 2 installed on Lisp
Request Lisp Sysout #3
Comment Installing Interlisp-D software (part 3)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 3 installed on Lisp
Confirm Another Disk?
Request Lisp Sysout #4
Comment Installing Interlisp-D software (part 4)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 4 installed on Lisp
Confirm Another Disk?
Request Lisp Sysout #5
Comment Installing Interlisp-D software (part 5)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Lisp Sysout installed on Lisp Volume
\Install Interlisp-D on Lisp2 Volume
Comment Ready to Install Interlisp-D on Lisp2 Volume
Confirm Continue?
-- Physical RD0 NYN
Online RD0
Erase Lisp2
Request Lisp Sysout #1
Comment Installing Interlisp-D software (part 1)...
Diagnostic Lisp2 Lisp.sysout Y
Close
Comment Part 1 installed on Lisp2
Request Lisp Sysout #2
Comment Installing Interlisp-D software (part 2)...
Diagnostic Lisp2 Lisp.sysout Y
Close
Comment Part 2 installed on Lisp2
Request Lisp Sysout #3
Comment Installing Interlisp-D software (part 3)...
Diagnostic Lisp2 Lisp.sysout Y
Close
Comment Part 3 installed on Lisp2
Confirm Another Disk?
Request Lisp Sysout #4
Comment Installing Interlisp-D software (part 4)...
Diagnostic Lisp2 Lisp.sysout Y
Close
Comment Part 4 installed on Lisp2
Confirm Another Disk?
Request Lisp Sysout #5
Comment Installing Interlisp-D software (part 5)...
Diagnostic Lisp2 Lisp.sysout Y
Close
Comment Lisp Sysout installed on Lisp2 Volume
\Install Interlisp-D on Lisp3 Volume
Comment Ready to Install Interlisp-D on Lisp3 Volume
Confirm Continue?
-- Physical RD0 NYN
Online RD0
Erase Lisp3
Request Lisp Sysout #1
Comment Installing Interlisp-D software (part 1)...
Diagnostic Lisp3 Lisp.sysout Y
Close
Comment Part 1 installed on Lisp3
Request Lisp Sysout #2
Comment Installing Interlisp-D software (part 2)...
Diagnostic Lisp3 Lisp.sysout Y
Close
Comment Part 2 installed on Lisp3
Request Lisp Sysout #3
Comment Installing Interlisp-D software (part 3)...
Diagnostic Lisp3 Lisp.sysout Y
Close
Comment Part 3 installed on Lisp3
Confirm Another Disk?
Request Lisp Sysout #4
Comment Installing Interlisp-D software (part 4)...
Diagnostic Lisp3 Lisp.sysout Y
Close
Comment Part 4 installed on Lisp3
Confirm Another Disk?
Request Lisp Sysout #5
Comment Installing Interlisp-D software (part 5)...
Diagnostic Lisp3 Lisp.sysout Y
Close
Comment Lisp Sysout installed on Lisp3 Volume
\Boot Interlisp-D from Lisp volume
Online RD0
Set Physical Lisp Y
Quit
\Boot Interlisp-D from Lisp2 volume
Online RD0
Set Physical Lisp2 Y
Quit
\Boot Interlisp-D from Lisp3 volume
Online RD0
Set Physical Lisp3 Y
Quit
\Boot Diagnostics volume
Online RD0
Boot Diagnostics
\