//See Install Documentation.
//Study the account examples: Config Strs, Update Funs

#include "BootDVD"
#include "DiskISORedSea"
#include "DiskISO9660"

#help_index "Install"

#define KERNEL_ZXE              "Kernel.ZXE"
#define BOOT_DIR                    "/Boot"
#define BOOT_DIR_DVD_KERNEL_ZXE BOOT_DIR "/DVD" KERNEL_ZXE

U0 MakeAll()
{
    if (Comp("/Compiler/Compiler", "Compiler",, ':'))
        throw;
    if (Comp("/Kernel/Kernel", "Kernel",, ':'))
        throw;
}

public U0 BootDVDIns(U8 drv_let=0)
{//See ::/Misc/DoDistro.ZC.
    try
    {
        if (!Drive(drv_let))
            throw;
        MakeAll;
        Move("/Kernel/Kernel.ZXE", BOOT_DIR_DVD_KERNEL_ZXE);
    }
    catch
    {
        PutExcept;
        Beep;
    }
}