//
//  Install Fugue.3 on an 1132 customer disk (after NEWOS initialization)

//First, delete garbage on disk
delete dmt.boot dumper.boot 
//Install swat and create Lisp.VirtualMem file
ftp Indigo  ^
Dir/C Alto Ret/>A InstallSwat.run Sys.Errors CreateFile.run 
InstallSwat
CREATEFILE.run LISP.VIRTUALMEM 12000D
Delete dumper.boot 

//  Install Lisp Systems Files
FTP Maxc Ret/C <XSIS>LISP.SYSOUT
FTP Phylum Dir/C <Lisp>Current> Ret/>A ^
LISP.run LISP.syms ^
DORADOLispMC.eb ^
AltoD1MC.eb ^
Init.Sample Init.NoNet ^
Ret/S CustomerUser.cm User.cm ^

//  Install Lisp fonts, Lisp>Library and LispUsers files
FTP Phylum Dir/C <Lisp>Current> Ret/C ^
InstallFonts.cm InstallLispLibrary.cm InstallLispUsers.cm
@InstallFonts.cm@
@InstallLispLibrary.cm@
@InstallLispUsers.cm@
Delete InstallFonts.cm InstallLispLibrary.cm InstallLispUsers.cm


//Scavenge the disk
Scavenger.run

Delete  MakeCustomerDORADODisk.cm