//
//  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