// FOR KOTO ONLY -- BEWARE
// NewUserBigDisk.cm -- create a new user disk
// Be sure that you have a clean partition.  If you have never run
// Lisp, be sure to use DIEX init headers, then BFS at least 100 passes.
// 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
// This size vmem should leave about 1000 free pages on the disk
FTP/-EA PHYLUM Dir/c Alto Ret/>A InstallSwat.run Sys.Errors CreateFile.run
InstallSwat
Delete installswat.run
CREATEFILE.run LISP.VIRTUALMEM 20000D
Delete CREATEFILE.run

// Bring over Lisp files
FTP/-EA PHYLUM Dir/C <Lisp>Koto>Basics> Ret/C LISP.run LISP.syms DoradoLispMC.EB AltoD1MC.eb

FTP/-EA PHYLUM Dir/C <Lisp>Current> Ret/S PARC-INIT.DCOM INIT.LISP 

FTP/-EA PHYLUM Dir/C <Lisp>Koto>CM> Ret/S UpdateLisp.cm UpdateLisp.cm