-- 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  4-Oct-84/for Harmony release
\Partition 10 Mb disk for 1 Interlisp-D volume and 1 LispFiles volume(2000 Pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
SystemTools 3500 normal
LispFiles 2000 normal
Lisp  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 10 Mb disk for 1 Interlisp-D/LOOPS volume and 1 LispFiles volume(1000 Pages)
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
SystemTools 3500 normal
LispFiles 1000 normal
Lisp  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 29 Mb disk for 1 Interlisp-D volume and 1 LispFiles volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 3
SystemTools 3500 normal
Lisp 16200 normal
LispFiles  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 29 or 42 Mb disk for 2 Interlisp-D volumes and 1 LispFiles volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 4
SystemTools 3500 normal
Lisp 16200 normal
Lisp2 16200 normal
LispFiles  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Partition 42 Mb disk for 3 Interlisp-D volumes and 1 LispFiles volume
Comment WARNING - PARTITIONING A DISK DESTROYS ALL ITS CONTENTS
Confirm Continue?
Create Rd0 YLisp 5
SystemTools 3500 normal
Lisp 16200 normal
Lisp2 16200 normal
Lisp3 16200 normal
LispFiles  normal
Check RD0
Comment Disk partitioned for Interlisp-D
\Initialize SystemTools Volume
Online RD0
Request Installation Utility
Comment Installing Lisp microcode file...
Initial RD0 Lisp11SAx000Initial.db
Comment Lisp microcode installed
Germ SystemTools DLion.germ Y
Comment Installing SystemTools files...
Request System Files
Pilot SystemTools Mesa.db Y
Fetch SystemTools TajoDLion.boot
Set Physical SystemTools YYY
Comment SystemTools files installed
\Erase SystemTools volume
Confirm Continue?
Online RD0
Check RD0
Comment Erasing SystemTools volume...
Erase SystemTools
Comment SystemTools erased
\Erase LispFiles volume
Confirm Continue?
Online RD0
Comment Erasing LispFiles volume...
Erase LispFiles
Comment LispFiles erased
\Scavenge SystemTools Volume
Online RD0
Comment Scavenging SystemTools volume...
Logical SystemTools Y
Comment SystemTools scavenged
\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 Part 5 installed on Lisp
Confirm Another Disk?
Request Lisp Sysout #6
Comment Installing Interlisp-D software (part 6)...
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 Part 5 installed on Lisp2
Confirm Another Disk?
Request Lisp Sysout #6
Comment Installing Interlisp-D software (part 6)...
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 Part 5 installed on Lisp3
Confirm Another Disk?
Request Lisp Sysout #6
Comment Installing Interlisp-D software (part 6)...
Diagnostic Lisp3 Lisp.sysout Y
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 SystemTools volume
Online RD0
Boot SystemTools 
\