//
//  Install Fugue.3 on an 1100 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 10000D
Delete dumper.boot 

//  Install Lisp Systems Files
FTP Maxc Ret/C <XEOS>LISP.SYSOUT
FTP Phylum Dir/C <Lisp>Current> Ret/>A ^
LISP.run LISP.syms ^
DolphinLispMC.eb XMBDolphinLispMC.eb X3DolphinLispMC.eb ^
AltoD0MC.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

//  Install Burn-in test
FTP Phylum Ret/C <Lisp>Test>Test 
FTP Indigo Dir/C Alto Ret/C ^
Scavenger.run KeyTest.run CopyDisk.run Neptune.run ^
Peek.run PeekPup.run EtherWatch.run EDP.run PUPTest.run ^
 

//Scavenge the disk
Scavenger.run

Delete  MakeCustomerDisk.cm