DoDistro.HC

//Make Your own Distro by #include-ing this file.

#define STD_DISTRO_DVD_CFG	"TB\nScale2Mem(2048,0x40000)\nT\n\n\n\n"

U0 MakeMyISO(U8 *_out_iso_filename)
{//Does everything with current drive.
//If you have not recompiled $FG,2$Kernel$FG$ and defined your CD/DVD drive, use $LK,"Mount",A="MN:Mount"$.
  U8 *out_iso_filename=FileNameAbs(_out_iso_filename);
  if (!DrvIsWritable)
  {
    "Drive must be writable.  Install on Hard drive, first.\n";
    return;
  }
  DelTree("/Distro");
  Del(out_iso_filename);
  DirMk("/Distro");
  In(STD_DISTRO_DVD_CFG);
  BootDVDIns;
  Copy("/*","/Distro");
  Del("/Distro/" KERNEL_BIN_C);
  CopyTree(BOOT_DIR,	"/Distro" BOOT_DIR);
  CopyTree("/Home",	"/Distro/Home");
  CopyTree("/Adam",	"/Distro/Adam");
  CopyTree("/Apps",	"/Distro/Apps");
  CopyTree("/Compiler",	"/Distro/Compiler");
  CopyTree("/Demo",	"/Distro/Demo");
  CopyTree("/Doc",	"/Distro/Doc");
  CopyTree("/Kernel",	"/Distro/Kernel");
  CopyTree("/Misc",	"/Distro/Misc");
  //To save space, optionally delete dictionary.
  Del("/Distro/Adam/AutoComplete/ACDefs.DATA");
  Del("/Distro/Home/DoDistro.HC.Z");
  DelTree("/Downloads/TemplarLetters");
  CopyTree("/Downloads","/Distro/Downloads");	  //You can leave this out.
  DirMk("/Distro/Tmp");
  DirMk("/Distro/Tmp/ScrnShots");
  RedSeaISO(out_iso_filename,"/Distro","/Distro" BOOT_DIR_KERNEL_BIN_C);
  Free(out_iso_filename);
}

MakeMyISO("/Tmp/MyDistro.ISO.C");

// Study my account examples $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOS/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOS/TOSDistro.HC,1"$.