@DefineProject
   @Name = "MILO"
   @Version = "1.0"
   @OutDrive = C
   @SubDir = "\\MILOCD\\MILO"
   @Immediate = 1
@EndProject

/*
@BackgroundMode(4,,)
*/

@Display
  This program will install MILO 1.0 to your hard drive.
  This great NAPALM release was supplied by Stone Vyper!
   @Pause
@EndDisplay


@GetOutDrive
  Where would you like to install MILO?
@EndOutDrive


/*
@If(@Removable())
  @Display
    Please specify a writable hard drive letter...
  @Pause
  @Abort
  @EndDisplay
@EndIf
*/

/*
@GetSubdir
  Please specify a directory name...
  @Prompt = "Which directory ([Enter] = \\MILO)?"
@EndSubdir
*/

@Display
  Creating temp directory and modifying files...
  @MkDir ("@OutDrive:\\milo")
  @MkDir ("@OutDrive:\\milo\\temp")
  @Write ("@OutDrive:\\milo\\milo.ini","wt","[CD]\n@InDrive")
@EndDisplay

@DefineDisk
  @Label = "Disk Number 1"
  @File \milocd\milo\milo.exe @Out \milo\*.*
  @File \milocd\milo\dllglue.dll @Out \milo\*.*
  @File \milocd\milo\fm.dll @Out \milo\*.*
  @File \milocd\milo\fileio.dll @Out \milo\*.*
  @File \milocd\milo\lingo.ini @Out \milo\*.*
  @File \milocd\milo\milo.ico @Out \milo\*.*
@EndDisk


@DefineVars
  @Qstring @name1 = "MILO"
  @Qstring @name2 = "@OutDrive:\\milo\\milo.exe"
  @Qstring @name3 = "@OutDrive:\\milo\\milo.ico"
@EndVars
@ProgramManager( "[CreateGroup(@name1)] [AddItem(@name2,MILO,@name3)]" )
