// NewUserDisk.CIS -- create a new user disk. Edit 10 Aug 84 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

delete DMT.boot // garbage file

// Install Swat (just in case) and make huge Lisp VMEM file
FTP/-EA Indigo Dir/c Alto Ret/>A InstallSwat.run Sys.Errors CreateFile.run
InstallSwat
Delete installswat.run
CREATEFILE.run LISP.VIRTUALMEM 12002D
Delete CREATEFILE.run

// find out what the current release name is
FTP/-EA ERIS RETRIEVE <LISP>CURRENT>RELEASE.NAME

// Bring over Lisp files
FTP/-EA ERIS Dir/C <Lisp>@release.name@>basics> Ret/C LISP.run LISP.syms DolphinLispMC.EB AltoD0MC.EB DoradoLispMC.EB AltoD1MC.eb directory/c <Lisp>Current> Ret/S INIT.CIS INIT.LISP Ret/S UpdateLisp.CIS UpdateLisp.cm

//   On Dolphin, delete DoradoLispMC.EB AltoD1MC.EB
//   On Dorado, delete DolphinLispMC.EB AltoD0MC.EB