// NewUserDisk.KSA -- create a new user disk 29-Jun-83 17:31:07 by Masinter
// You should first install new operating system, and ERASE disk
//   so that CREATEFILE can find contiguous blocks.
// You should also delete unnecessary ucode files after this finishes
//   On Dolphin, delete DoradoLispMC.EB AltoD1MC.EB
//   On Dorado, delete DolphinLispMC.EB AltoD0MC.EB

delete DMT.boot // garbage file

//install swat just in case
ftp/-EA INDIGO directory/c Alto retrieve/>A InstallSwat.run Sys.Errors 
InstallSwat
Delete installswat.run

//Now create Lisp.virtualmem
ftp/-EA INDIGO directory/c Alto retrieve/>A CreateFile.run 
CREATEFILE.run LISP.VIRTUALMEM 12002D
Delete CREATEFILE.run

// bring over Lisp files
FTP/-EA Phylum directory/C <Lisp>Fugue> retrieve/C LISP.run LISP.syms DolphinLispMC.EB AltoD0MC.EB  DoradoLispMC.EB AltoD1MC.EB  retrieve/S UpdateLisp.KSA UpdateLisp.cm retrieve/S <LISP>INIT.KSA INIT.LISP