-- Lisp.PrometheusScript. 
-- last edited  by Masinter 27-Jun-83 23:41:05
\Partition SA1000 disk for Interlisp-D
Comment WARNING - PARTITIONING A DISK DESTROYS ALL CONTENT
Confirm Continue?
Create Rd0 YLisp 2
Diagnostics 3500 normal
Lisp  normal
Request Installation Utility
Initial RD0 Lisp10SAx000Initial.db
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition SA4000, Q2000 for Interlisp-D
Comment WARNING - PARTITIONING A DISK DESTROYS ALL CONTENT
Confirm Continue?
Create Rd0 YLisp 4
Diagnostics 3500 normal
Lisp 14000 normal
Lisp2 14000 normal
Lisp3  normal
Request Installation Utility
Initial RD0 Lisp10SAx000Initial.db
Check RD0
Comment Disk partitioned for SA4000, Q2000
\Install Diagnostics
Comment Ready to Install Diagnostics Utility
Confirm Continue?
Physical RD0 NYN
Online RD0
Erase Diagnostics
Request Diagnostics Files
Comment Installing Diagnostics
Germ Diagnostics DLion.germ Y
Pilot Diagnostics Mesa.db Y
Fetch Diagnostics TajoDLion.boot
Set Physical Diagnostics YYY
\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

\Start Interlisp-D from Lisp volume
Online RD0
Set Physical Lisp Y
Quit
\Start Interlisp-D from Lisp2 volume
Online RD0
Set Physical Lisp2 Y
Quit
\Start Interlisp-D from Lisp3 volume
Online RD0
Set Physical Lisp3 Y
Quit
\Start Diagnostics
Boot Diagnostics
\Install Diagnostics Files After Starting
Request Diagnostics Files
Root Diagnostics Diagnostics.bcd
Root Diagnostics Bye.bcd
Root Diagnostics User.cm
Close
Comment Diagnostics Installation Complete
\Install [older] demo floppies on Lisp Volume
Comment Ready to Install Interlisp-D on Lisp Volume
Confirm Continue?
Physical RD0 NYN
Online RD0
Erase Lisp
Request Interlisp Demo 1
Comment Installing Interlisp-D software (part 1)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 1 installed on Lisp
Request Interlisp Demo 2
Comment Installing Interlisp-D software (part 2)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 2 installed on Lisp
Request Interlisp Demo 3
Comment Installing Interlisp-D software (part 3)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 3 installed on Lisp
Confirm Another Disk?
Request Interlisp Demo 4
Comment Installing Interlisp-D software (part 4)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Part 4 installed on Lisp
Confirm Another Disk?
Request Interlisp Demo 5
Comment Installing Interlisp-D software (part 5)...
Diagnostic Lisp Lisp.sysout Y
Close
Comment Lisp Sysout installed on Lisp Volume