START:
set progress_bar = "\\ac\\c0F \\c87±±±±±±±±±±±±±±±±±±±± \\c0F"
clear
set textCursorY=9
print "\ac\c0F \c87±±±±±±±±±±±±±±±±±±±±\c0F \n"
SET TEXTCURSORY = 22
print c "Enter Password to Boot DVD"
set textCursorX = 30
set textCursorY = 9
set counter = 21
set password = "98111111"
set inputCode = ""

BOOT_Counter_Start:
set counter = $counter - 1
if $counter == 0; THEN GOTO BOOTC
else print "\cF1Û"

tpInputLoop:
getkey 1 goto BOOT_Counter_Start
if $lastKey == key[t]; then goto tpCompare
set inputCode = "$inputCode$<$lastKey"
goto tpInputLoop

tpCompare:
if compare["$inputCode" "$password"]
then goto pc
#change BOOTC below to REBOOT as alternative
else goto BOOTC

pc:
SET TEXTCURSORY = 10
print c "  \c0F\n\n Password Correct!"
getkey 2
TXT:
SET TEXTCOLOR = color[grey on black]
SET BOLDCOLOR = color[white on blue]

SET MENU = 1
SET OPT = 100

SET MENUY = 5
SET MENUX = 7
SET DIVX = 29
SET SUBMENUX = 33
SET OPTMAX = 20

SET N = 0
SET CLEARWIDTH = ""
SETCLEARWIDTH:
SET N = $N + 1
SET CLEARWIDTH = "$CLEARWIDTH "
IF $N != 80-$SUBMENUX; THEN GOTO SETCLEARWIDTH

SET DIV = $MENUY-1
CLEAR

CALL HEADER


MENU:

SET MENUEND = 14

set A1 = "Install 2003/2000"
set A2 = "Install XP"
set A3 = "Install NT4/ME/98/95"
set A4 = "Install LINUX"
set A5 = "Backup & Recovery"
set A6 = "Partition Tools"
set A7 = "Hard Disk Tools"
set A8 = "Hard Disk Diagnosis"
set A9 = "Hard Disk Management"
set A10 = "Filesystem Tools"
set A11 = "Memory Tools"
set A12 = "System Tools"
set A13 = "Miscellaneous"
set A14 = "Boot Disks"

SET TEXTCURSORY = $MENUY
SET TEXTCURSORX = $MENUX

PRINT "\N"
SET TEXTCURSORX = $MENUX
IF $MENU == 1; THEN PRINT "\cXX$A1\N"
ELSE PRINT "\cxx$A1\N"
IF $MENU == 1; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 2; THEN PRINT "\cXX$A2\N"
ELSE PRINT "\cxx$A2\N"
IF $MENU == 2; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 3; THEN PRINT "\cXX$A3\N"
ELSE PRINT "\cxx$A3\N"
IF $MENU == 3; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 4; THEN PRINT "\cXX$A4\N"
ELSE PRINT "\cxx$A4\N"
IF $MENU == 4; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
PRINT "\N"
SET TEXTCURSORX = $MENUX
IF $MENU == 5; THEN PRINT "\cXX$A5\N"
ELSE PRINT "\cxx$A5\N"
IF $MENU == 5; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 6; THEN PRINT "\cXX$A6\N"
ELSE PRINT "\cxx$A6\N"
IF $MENU == 6; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 7; THEN PRINT "\cXX$A7\N"
ELSE PRINT "\cxx$A7\N"
IF $MENU == 7; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 8; THEN PRINT "\cXX$A8\N"
ELSE PRINT "\cxx$A8\N"
IF $MENU == 8; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 9; THEN PRINT "\cXX$A9\N"
ELSE PRINT "\cxx$A9\N"
IF $MENU == 9; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 10; THEN PRINT "\cXX$A10\N"
ELSE PRINT "\cxx$A10\N"
IF $MENU == 10; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 11; THEN PRINT "\cXX$A11\N"
ELSE PRINT "\cxx$A11\N"
IF $MENU == 11; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 12; THEN PRINT "\cXX$A12\N"
ELSE PRINT "\cxx$A12\N"
IF $MENU == 12; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 13; THEN PRINT "\cXX$A13\N"
ELSE PRINT "\cxx$A13\N"
IF $MENU == 13; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX
IF $MENU == 14; THEN PRINT "\cXX$A14\N"
ELSE PRINT "\cxx$A14\N"
IF $MENU == 14; THEN CALL MENUFETCH
SET TEXTCURSORX = $MENUX

CALL DIVIDER
CALL FOOTER

GETKEY 1 GOTO MENU

IF $lastKey == key[up]; THEN CALL UP
IF $lastKey == key[down]; THEN CALL DOWN
IF $lastKey == key[left]; THEN CALL LEFT
IF $lastKey == key[right]; THEN CALL RIGHT
IF $lastKey == key[f1]; THEN GOTO HELP
IF $lastKey == key[f2]; THEN GOTO BOOTC
IF $lastKey == key[f3]; THEN GOTO BOOTA
IF $lastKey == key[esc]; THEN REBOOT COLD
IF $lastKey == key[enter]; THEN CALL BOOTFETCH
GOTO MENU

HEADER:
SET TEXTCURSORX = 0; SET TEXTCURSORY = 0
PRINT "\cXX                                                                                "
PRINT "\cXX     THE ULTIMATE MULTI-BOOT OS & UTILS DVD FOR TECHNICIANS & ADMINS v1.0       "
PRINT "\cXX                                                                                "
RETURN

DIVIDER:
SET DIV = $DIV + 1
SET TEXTCURSORX = $DIVX; SET TEXTCURSORY = $DIV
PRINT "\c11 "
IF $DIV == $OPTMAX; THEN SET DIV = $MENUY-1
IF $DIV == $MENUY-1; THEN RETURN
GOTO DIVIDER
RETURN

FOOTER:
SET TEXTCURSORX = 0; SET TEXTCURSORY = 22
PRINT "\c02 [F1] Help    [F2] Boot C:    [F3] Boot A:"
PRINT "                        "
PRINT "\c02[Esc] Reboot\N"
PRINT "\N"  
PRINT "\cXX                                                             "
SET YEAR = $dateYear - 2000
IF $YEAR < 10; THEN PRINT "\cXX$dateDay/$dateMonth/0$YEAR "
ELSE PRINT "\cXX$dateDay/$dateMonth/$YEAR "
SET HOUR = $timeHour
IF $timeHour == 00; THEN SET HOUR = 12
IF $timeHour > 12; THEN SET HOUR = $timeHour - 12
IF $timeHour > 11; THEN SET AMPM = "PM "; ELSE SET AMPM = "AM"
IF $HOUR < 10; THEN PRINT "\cXX0$HOUR:$timeMinute $AMPM"
ELSE PRINT "\cXX$HOUR:$timeMinute$AMPM"
RETURN

UP:
IF $OPT == 100 || $OPTEND == 0; THEN SET MENU = $MENU - 1
ELSE SET OPT = $OPT - 1
IF $MENU == 0; THEN SET MENU = $MENUEND
IF $OPT == 0; THEN SET OPT = $OPTEND
IF $OPT == 100; THEN CALL CLEAR
RETURN

DOWN:
IF $OPT == 100 || $OPTEND == 0; THEN SET MENU = $MENU + 1
ELSE SET OPT = $OPT + 1
IF $MENU == $MENUEND + 1; THEN SET MENU = 1
IF $OPT == $OPTEND + 1; THEN SET OPT = 1
IF $OPT == 100; THEN CALL CLEAR
RETURN

LEFT:
SET OPT = 100
RETURN

RIGHT:
IF $OPTEND != 0; THEN SET OPT = 1
RETURN

CLEAR:
SET DIV = $DIV + 1
SET TEXTCURSORX = $SUBMENUX; SET TEXTCURSORY = $DIV
PRINT "\c00$CLEARWIDTH"
IF $DIV == $OPTMAX; THEN SET DIV = $MENUY-1
IF $DIV == $MENUY-1; THEN RETURN
GOTO CLEAR
RETURN

MENUFETCH:
SET TEXTX = $TEXTCURSORX; SET TEXTY = $TEXTCURSORY
SET TEXTCURSORY = $MENUY
CALL MENU$MENU
SET TEXTCURSORX = $TEXTX; SET TEXTCURSORY = $TEXTY
RETURN


MENU1:

SET OPTEND = 8

set B1 = "Enterprise"
set B2 = "Datacenter"
set B3 = "Standard"
set B4 = "Web"
set B5 = "Advanced Server"
set B6 = "Datacenter"
set B7 = "Server"
set B8 = "Workstation"

SET TEXTCURSORX = $SUBMENUX + 7;SET TEXTCURSORY = 6
print "\c0cWindows Server 2003"
SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 13
print "\c0cWindows 2000 Pro"

SET TEXTCURSORX = $SUBMENUX + 12;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$B1\N"
ELSE PRINT "\cxx$B1\N"
SET TEXTCURSORX = $SUBMENUX + 12
IF $OPT == 2; THEN PRINT "\cXX$B2\N"
ELSE PRINT "\cxx$B2\N"
SET TEXTCURSORX = $SUBMENUX + 13
IF $OPT == 3; THEN PRINT "\cXX$B3\N"
ELSE PRINT "\cxx$B3\N"
SET TEXTCURSORX = $SUBMENUX + 15
IF $OPT == 4; THEN PRINT "\cXX$B4\N"
ELSE PRINT "\cxx$B4\N"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 15
IF $OPT == 5; THEN PRINT "\cXX$B5\N"
ELSE PRINT "\cxx$B5\N"
SET TEXTCURSORX = $SUBMENUX + 13
IF $OPT == 6; THEN PRINT "\cXX$B6\N"
ELSE PRINT "\cxx$B6\N"
SET TEXTCURSORX = $SUBMENUX + 15
IF $OPT == 7; THEN PRINT "\cXX$B7\N"
ELSE PRINT "\cxx$B7\N"
SET TEXTCURSORX = $SUBMENUX + 13
IF $OPT == 8; THEN PRINT "\cXX$B8\N"
ELSE PRINT "\cxx$B8\N"
RETURN


MENU2:

SET OPTEND = 12

set C1 = "Standard Attended"
set C2 = "Media Center"
set C3 = "Tablet Pc"
set C4 = "Home Edition"
set C5 = " Std Unattended Auto Partition"
set C6 = " Std Unattended Manual Partition"
set C7 = " Std Unattended Auto Partition OEM"
set C8 = " Std Unattended Manual Partition OEM"
set C9 = "Lite Unattended Auto Partition"
set C10 = "Lite Unattended Manual Partition"
set C11 = "Lite Unattended Auto Partition OEM"
set C12 = "Lite Unattended Manual Partition OEM"

SET TEXTCURSORX = $SUBMENUX + 13;SET TEXTCURSORY = 6
print "\c0cXP Pro"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 12
print "\c0cCustom XP Pro"

SET TEXTCURSORX = $SUBMENUX + 8;SET TEXTCURSORY = 7
IF $OPT == 1; THEN PRINT "\cXX$C1\N"
ELSE PRINT "\cxx$C1\N"
SET TEXTCURSORX = $SUBMENUX + 10
IF $OPT == 2; THEN PRINT "\cXX$C2\N"
ELSE PRINT "\cxx$C2\N"
SET TEXTCURSORX = $SUBMENUX + 11
IF $OPT == 3; THEN PRINT "\cXX$C3\N"
ELSE PRINT "\cxx$C3\N"
SET TEXTCURSORX = $SUBMENUX + 10
IF $OPT == 4; THEN PRINT "\cXX$C4\N"
ELSE PRINT "\cxx$C4\N"
SET TEXTCURSORX = $SUBMENUX + 1;SET TEXTCURSORY = 13
IF $OPT == 5; THEN PRINT "\cXX$C5\N"
ELSE PRINT "\cxx$C5\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 6; THEN PRINT "\cXX$C6\N"
ELSE PRINT "\cxx$C6\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 7; THEN PRINT "\cXX$C7\N"
ELSE PRINT "\cxx$C7\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 8; THEN PRINT "\cXX$C8\N"
ELSE PRINT "\cxx$C8\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 9; THEN PRINT "\cXX$C9\N"
ELSE PRINT "\cxx$C9\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 10; THEN PRINT "\cXX$C10\N"
ELSE PRINT "\cxx$C10\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 11; THEN PRINT "\cXX$C11\N"
ELSE PRINT "\cxx$C11\N"
SET TEXTCURSORX = $SUBMENUX + 1
IF $OPT == 12; THEN PRINT "\cXX$C12\N"
ELSE PRINT "\cxx$C12\N"
RETURN


MENU3:

SET OPTEND = 6

set D1 = "Enterprise"
set D2 = "Server"
set D3 = "Workstation"
set D4 = "ME"
set D5 = "98"
set D6 = "95"

SET TEXTCURSORX = $SUBMENUX + 13;SET TEXTCURSORY = 6
print "\c0cNT 4.0"
SET TEXTCURSORX = $SUBMENUX + 15;SET TEXTCURSORY = 12
print "\c0c9X"

SET TEXTCURSORX = $SUBMENUX + 11;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$D1\N"
ELSE PRINT "\cxx$D1\N"
SET TEXTCURSORX = $SUBMENUX + 13
IF $OPT == 2; THEN PRINT "\cXX$D2\N"
ELSE PRINT "\cxx$D2\N"
SET TEXTCURSORX = $SUBMENUX + 11
IF $OPT == 3; THEN PRINT "\cXX$D3\N"
ELSE PRINT "\cxx$D3\N"
SET TEXTCURSORX = $SUBMENUX + 15;SET TEXTCURSORY = 14
IF $OPT == 4; THEN PRINT "\cXX$D4\N"
ELSE PRINT "\cxx$D4\N"
SET TEXTCURSORX = $SUBMENUX + 15
IF $OPT == 5; THEN PRINT "\cXX$D5\N"
ELSE PRINT "\cxx$D5\N"
SET TEXTCURSORX = $SUBMENUX + 15
IF $OPT == 6; THEN PRINT "\cXX$D6\N"
ELSE PRINT "\cxx$D6\N"
RETURN


MENU4:

SET OPTEND =1

set E1 = "Linux Knoppix"

SET TEXTCURSORX = $SUBMENUX + 14;SET TEXTCURSORY = 6
print "\c0cLinux"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$E1\N"
ELSE PRINT "\cxx$E1\N"
RETURN


MENU5:

SET OPTEND = 12

set F1 = "Ghost"
set F2 = "Drive Image"
set F3 = "TrueImage"
set F4 = "TrueImage Server"
set F5 = "Erd Commander"
set F6 = "Erd Commander Ram"
set F7 = "Disk Editor"
set F8 = "Drive Cleanser"
set F9 = "Migrate Easy"
set F10 = "OS Selector"
set F11 = "Recovery Expert"
set F12 = "WinPE"

SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 6
print "\c0cBackup"
SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 11
print "\c0cRecovery"

SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 7
IF $OPT == 1; THEN PRINT "\cXX$F1\N"
ELSE PRINT "\cxx$F1\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 2; THEN PRINT "\cXX$F2\N"
ELSE PRINT "\cxx$F2\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 3; THEN PRINT "\cXX$F3\N"
ELSE PRINT "\cxx$F3\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 4; THEN PRINT "\cXX$F4\N"
ELSE PRINT "\cxx$F4\N"
SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 12
IF $OPT == 5; THEN PRINT "\cXX$F5\N"
ELSE PRINT "\cxx$F5\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 6; THEN PRINT "\cXX$F6\N"
ELSE PRINT "\cxx$F6\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 7; THEN PRINT "\cXX$F7\N"
ELSE PRINT "\cxx$F7\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 8; THEN PRINT "\cXX$F8\N"
ELSE PRINT "\cxx$F8\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 9; THEN PRINT "\cXX$F9\N"
ELSE PRINT "\cxx$F9\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 10; THEN PRINT "\cXX$F10\N"
ELSE PRINT "\cxx$F10\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 11; THEN PRINT "\cXX$F11\N"
ELSE PRINT "\cxx$F11\N"
SET TEXTCURSORX = $SUBMENUX + 9
IF $OPT == 12; THEN PRINT "\cXX$F12\N"
ELSE PRINT "\cxx$F12\N"
RETURN


MENU6:

SET OPTEND = 12

set G1 = "Partition Magic"
set G2 = "Partition Expert Safe"
set G3 = "Partition Expert Full"
set G4 = "Ranish Partition Manager V2.44"
set G5 = "XFDISK V0.9.3b (Extended FDISK)"
set G6 = "SPFDISK 2000-03p (Special FDISK)"
set G7 = "TestDisk V5.1 (Check/undelete partitions)"
set G8 = "Partition Resizer V1.3.4"
set G9 = "Partition Saving V2.80"
set G10 = "Free FDISK V1.2.1"
set G11 = "MBRtool V2.2.100"
set G12 = "MBRWork V1.07b"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 6
print "\c0cPartition Tools"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$G1\N"
ELSE PRINT "\cxx$G1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$G2\N"
ELSE PRINT "\cxx$G2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$G3\N"
ELSE PRINT "\cxx$G3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$G4\N"
ELSE PRINT "\cxx$G4\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 5; THEN PRINT "\cXX$G5\N"
ELSE PRINT "\cxx$G5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$G6\N"
ELSE PRINT "\cxx$G6\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 7; THEN PRINT "\cXX$G7\N"
ELSE PRINT "\cxx$G7\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 8; THEN PRINT "\cXX$G8\N"
ELSE PRINT "\cxx$G8\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 9; THEN PRINT "\cXX$G9\N"
ELSE PRINT "\cxx$G9\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 10; THEN PRINT "\cXX$G10\N"
ELSE PRINT "\cxx$G10\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 11; THEN PRINT "\cXX$G11\N"
ELSE PRINT "\cxx$G11\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 12; THEN PRINT "\cXX$G12\N"
ELSE PRINT "\cxx$G12\N"
RETURN


MENU7:

SET OPTEND = 8

set H1 = "AutoClave V0.3"
set H2 = "Active@ KillDisk Free Edition V3.0"
set H3 = "Darik's Boot and Nuke V1.0.2"
set H4 = "Spinrite"
set H5 = "HDClone V2.0 (Free Edition)"
set H6 = "g4u V1.14"
set H7 = "Maxtor MaxBlast 3 V3.6"
set H8 = "Seagate DiscWizard 2003"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 6
print "\c0cHard Disk Wiping"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 13
print "\c0cHard Disk Cloning"
SET TEXTCURSORX = $SUBMENUX + 8;SET TEXTCURSORY = 17
print "\c0cHard Disk Installation"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$H1\N"
ELSE PRINT "\cxx$H1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$H2\N"
ELSE PRINT "\cxx$H2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$H3\N"
ELSE PRINT "\cxx$H3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$H4\N"
ELSE PRINT "\cxx$H4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 15
IF $OPT == 5; THEN PRINT "\cXX$H5\N"
ELSE PRINT "\cxx$H5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$H6\N"
ELSE PRINT "\cxx$H6\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 19
IF $OPT == 7; THEN PRINT "\cXX$H7\N"
ELSE PRINT "\cxx$H7\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 8; THEN PRINT "\cXX$H8\N"
ELSE PRINT "\cxx$H8\N"
RETURN


MENU8:

SET OPTEND = 10

set I1 = "Drive Fitness Test V3.60"
set I2 = "PowerMax V4.06"
set I3 = "SeaTools Desktop V1.06.02"
set I4 = "SeaTools Desktop v2.01.05"
set I5 = "DLG Diagnostic V4.15"
set I6 = "DLG Diagnostic V5.08"
set I7 = "Data Lifeguard V11.0"
set I8 = "SHDIAG V1.25"
set I9 = "HUTIL V1.15"
set I10 = "Diagnostic Tool V6.10"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 5
print "\c0cIBM/Hitachi"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 7
print "\c0cMaxtor/Quantum"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 9
print "\c0cSeagate"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 12
print "\c0cWestern Digital"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 16
print "\c0cSamsung"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 6
IF $OPT == 1; THEN PRINT "\cXX$I1\N"
ELSE PRINT "\cxx$I1\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 2; THEN PRINT "\cXX$I2\N"
ELSE PRINT "\cxx$I2\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 10
IF $OPT == 3; THEN PRINT "\cXX$I3\N"
ELSE PRINT "\cxx$I3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$I4\N"
ELSE PRINT "\cxx$I4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 13
IF $OPT == 5; THEN PRINT "\cXX$I5\N"
ELSE PRINT "\cxx$I5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$I6\N"
ELSE PRINT "\cxx$I6\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 7; THEN PRINT "\cXX$I7\N"
ELSE PRINT "\cxx$I7\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 17
IF $OPT == 8; THEN PRINT "\cXX$I8\N"
ELSE PRINT "\cxx$I8\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 9; THEN PRINT "\cXX$I9\N"
ELSE PRINT "\cxx$I9\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 10; THEN PRINT "\cXX$I10\N"
ELSE PRINT "\cxx$I10\N"
RETURN


MENU9:

SET OPTEND = 6

set J1 = "Feature Tool V1.92"
set J2 = "AMSET V4.00"
set J3 = "UATA100 V3.06"
set J4 = "Ultra ATA Manager (June, 2003)"
set J5 = "SMARTUDM V2.00 (HDD SMART Viewer)"
set J6 = "ATA P/W Tool V1.1 (Unlock P/W-protected hdisk)"


SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 6
print "\c0cIBM/Hitachi"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 8
print "\c0cMaxtor"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 10
print "\c0cSeagate"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 12
print "\c0cWestern Digital"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 14
print "\c0cOthers"


SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 7
IF $OPT == 1; THEN PRINT "\cXX$J1\N"
ELSE PRINT "\cxx$J1\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 9
IF $OPT == 2; THEN PRINT "\cXX$J2\N"
ELSE PRINT "\cxx$J2\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 11
IF $OPT == 3; THEN PRINT "\cXX$J3\N"
ELSE PRINT "\cxx$J3\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 13
IF $OPT == 4; THEN PRINT "\cXX$J4\N"
ELSE PRINT "\cxx$J4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 15
IF $OPT == 5; THEN PRINT "\cXX$J5\N"
ELSE PRINT "\cxx$J5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$J6\N"
ELSE PRINT "\cxx$J6\N"
RETURN



MENU10:

SET OPTEND = 9

set K1 = "Smart BootManager V3.7R1"
set K2 = "Gujin V0.8"
set K3 = "DOS Navigator V3.7.0"
set K4 = "File Maven V3.5a"
set K5 = "NTAdmin"
set K6 = "Ntfs4Dos"
set K7 = "Offline NT Password & Registry Editor 040114"
set K8 = "Active NTFS Reader for DOS V1.0.1"
set K9 = "EditBINI (Edit BOOT.INI in NTFS partition)"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 5
print "\c0cBoot Managers"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 10
print "\c0cFile Managers"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 15
print "\c0cNTFS Tools"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 7
IF $OPT == 1; THEN PRINT "\cXX$K1\N"
ELSE PRINT "\cxx$K1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$K2\N"
ELSE PRINT "\cxx$K2\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 12
IF $OPT == 3; THEN PRINT "\cXX$K3\N"
ELSE PRINT "\cxx$K3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$K4\N"
ELSE PRINT "\cxx$K4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 16
IF $OPT == 5; THEN PRINT "\cXX$K5\N"
ELSE PRINT "\cxx$K5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$K6\N"
ELSE PRINT "\cxx$K6\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 7; THEN PRINT "\cXX$K7\N"
ELSE PRINT "\cxx$K7\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 8; THEN PRINT "\cXX$K8\N"
ELSE PRINT "\cxx$K8\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 9; THEN PRINT "\cXX$K9\N"
ELSE PRINT "\cxx$K9\N"
RETURN


MENU11:

SET OPTEND = 4

set L1 = "Memtest86 V3.1"
set L2 = "Memtest86+ V1.11"
set L3 = "Windows Memory Diagnostic"
set L4 = "DocMem RAM Diagnostic V2.1b"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 6
print "\c0cMemory"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$L1\N"
ELSE PRINT "\cxx$L1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$L2\N"
ELSE PRINT "\cxx$L2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$L3\N"
ELSE PRINT "\cxx$L3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$L4\N"
ELSE PRINT "\cxx$L4\N"
RETURN


MENU12:

SET OPTEND = 6

set M1 = "AMIDIAG 6.02"
set M2 = "AIDA16 V2.12"
set M3 = "NSSI V0.57.4"
set M4 = "PC-Config V9.33"
set M5 = "PCI V0.48b"
set M6 = "System Speed Test 32 V4.78"

SET TEXTCURSORX = $SUBMENUX + 7;SET TEXTCURSORY = 6
print "\c0cSystem Information"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 14
print "\c0cBenchmarks"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$M1\N"
ELSE PRINT "\cxx$M1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$M2\N"
ELSE PRINT "\cxx$M2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$M3\N"
ELSE PRINT "\cxx$M3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$M4\N"
ELSE PRINT "\cxx$M4\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 5; THEN PRINT "\cXX$M5\N"
ELSE PRINT "\cxx$M5\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 16
IF $OPT == 6; THEN PRINT "\cXX$M6\N"
ELSE PRINT "\cxx$M6\N"

RETURN


MENU13:

SET OPTEND = 5

set N1 = "F-Prot for DOS (10 Mar 2004)"
set N2 = "McAfee (10 Mar 2004)"
set N3 = "Norton Anti-Virus 2003"
set N4 = "CMOS Password Recovery V4.3"
set N5 = "Freesco (One-disk Router) V0.3.2"

SET TEXTCURSORX = $SUBMENUX + 9;SET TEXTCURSORY = 6
print "\c0cAntivirus Tools"
SET TEXTCURSORX = $SUBMENUX + 11;SET TEXTCURSORY = 12
print "\c0cBIOS Tools"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 16
print "\c0cNetwork Tools"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$N1\N"
ELSE PRINT "\cxx$N1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$N2\N"
ELSE PRINT "\cxx$N2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$N3\N"
ELSE PRINT "\cxx$N3\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 14
IF $OPT == 4; THEN PRINT "\cXX$N4\N"
ELSE PRINT "\cxx$N4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 18
IF $OPT == 5; THEN PRINT "\cXX$N5\N"
ELSE PRINT "\cxx$N5\N"
RETURN


MENU14:

SET OPTEND = 8

set O1 = "Dos 6"
set O2 = "Bart's CDROM Boot Disk"
set O3 = "Bart's Network Boot Disk"
set O4 = "FreeDOS Boot Disk"
set O5 = "Tom's Boot Disk V2.0.103"
set O6 = "Recovery Is Possible (RIP) V2.6"
set O7 = "BasicLinux V2.1"
set O8 = "Trinux V0.89"

SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 6
print "\c0cDOS Boot Disks"
SET TEXTCURSORX = $SUBMENUX + 10;SET TEXTCURSORY = 13
print "\c0cLinux Boot Disks"

SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 8
IF $OPT == 1; THEN PRINT "\cXX$O1\N"
ELSE PRINT "\cxx$O1\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 2; THEN PRINT "\cXX$O2\N"
ELSE PRINT "\cxx$O2\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 3; THEN PRINT "\cXX$O3\N"
ELSE PRINT "\cxx$O3\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 4; THEN PRINT "\cXX$O4\N"
ELSE PRINT "\cxx$O4\N"
SET TEXTCURSORX = $SUBMENUX;SET TEXTCURSORY = 15
IF $OPT == 5; THEN PRINT "\cXX$O5\N"
ELSE PRINT "\cxx$O5\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 6; THEN PRINT "\cXX$O6\N"
ELSE PRINT "\cxx$O6\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 7; THEN PRINT "\cXX$O7\N"
ELSE PRINT "\cxx$O7\N"
SET TEXTCURSORX = $SUBMENUX
IF $OPT == 8; THEN PRINT "\cXX$O8\N"
ELSE PRINT "\cxx$O8\N"
RETURN


BOOTFETCH:
IF $OPT == 100 && $OPTEND != 0; THEN RETURN
script run.ini


BOOTA:
cls
if bootCheck[0]; then boot 0x00
if $BootT == 1; then boot 0x00
print " The drive dosent seem to boot (y/n)? \n\n"
getkey
if $lastKey == key[y]; then boot 0x00
if $lastKey == key[Y]; then boot 0x00
GOTO START

BOOTC:
cls
if bootCheck[0x80] == 3; then boot 0x80            # Boot HDD 0
if bootCheck[0x81] == 3; then boot 0x81            # Boot HDD 1
if $BootT == 1; then boot 0x80
print " The drive dosent seem to boot (y/n)? \n\n"
getkey
if $lastKey == key[y]; then boot 0x80
if $lastKey == key[Y]; then boot 0x80
GOTO HOME

HELP:
cls
type help.txt
goto TXT


END:
END

IF $OPTEND == 0; THEN GOTO images$MENU-0; ELSE GOTO images$MENU-$OPT
GOTO END


#***** WIN 2003 AND  WIN 2000 *****

images1-1:
chain /23EC.DAT
GOTO END

images1-2:
chain /23DC.DAT
GOTO END

images1-3:
chain /23SC.DAT
GOTO END

images1-4:
chain /23WC.DAT
GOTO END

images1-5:
chain /2KAD.DAT
GOTO END

images1-6:
chain /2KDC.DAT
GOTO END

images1-7:
chain /2KSV.DAT
GOTO END

images1-8:
chain /2KWK.DAT
GOTO END




#***** WIN XP *****

images2-1:
chain /PRO1.DAT
GOTO END

images2-2:
chain /XPMC.DAT
GOTO END

images2-3:
chain /XPTB.DAT
GOTO END

images2-4:
chain /XPHC.DAT
GOTO END

images2-5:
chain /PRO2.DAT
GOTO END

images2-6:
chain /PRO3.DAT
GOTO END

images2-7:
chain /PRO4.DAT
GOTO END

images2-8:
chain /PRO5.DAT
GOTO END

images2-9:
chain /PRO6.DAT
GOTO END

images2-10:
chain /PRO7.DAT
GOTO END

images2-11:
chain /PRO8.DAT
GOTO END

images2-12:
chain /PRO5.DAT
GOTO END

images2-13:
chain /PRO5.DAT
GOTO END



#***** WIN NT 4.0 ME 98 95 *****

images3-1:
chain /NTET.DAT
GOTO END

images3-2:
chain /NTSV.DAT
GOTO END

images3-3:
chain /NTWK.DAT
GOTO END

images3-4:
memdisk /images/ME.ima
GOTO END

images3-5:
memdisk /images/98.ima
GOTO END

images3-6:
memdisk /images/95.ima
GOTO END


#***** LINUX *****

images4-1:
bcdw /isolinux/isolinux.bin
GOTO END


#***** BACKUP RECOVERY *****

images5-1:
memdisk /images/ghost.ima
GOTO END

images5-2:
bcdw /images/dimage.img
GOTO END

images5-3:
bcdw /images/timage.ima
GOTO END

images5-4:
bcdw /images/timages.ima
GOTO END

images5-5:
chain /ERD1.DAT
GOTO END

images5-6:
chain /ERD2.DAT
GOTO END

images5-7:
bcdw /images/disked.ima
GOTO END

images5-8:
bcdw /images/drivec.ima
GOTO END

images5-9:
bcdw /images/migrate.ima
GOTO END

images5-10:
bcdw /images/osselect.ima
GOTO END

images5-11:
bcdw /images/recovery.ima
GOTO END

images5-12:
chain /BART.DAT
GOTO END



#***** ULTIMATE BOOTCD *****

images6-1:
bcdw /images/pmagic.ima
GOTO END

images6-2:
bcdw /images/pexperts.ima
GOTO END

images6-3:
bcdw /images/pexpertf.ima
GOTO END

images6-4:
memdisk /images/ranish.img
GOTO END

images6-5:
memdisk /images/xfdisk.img
GOTO END

images6-6:
memdisk /images/spfdisk.img
GOTO END

images6-7:
memdisk /images/testdisk.img
GOTO END

images6-8:
memdisk /images/presizer.img
GOTO END

images6-9:
memdisk /images/savepart.img
GOTO END

images6-10:
memdisk /images/fdisk.img
GOTO END

images6-11:
memdisk /images/mbrtool.img
GOTO END

images6-12:
memdisk /images/mbrwork.img
GOTO END


images7-1:
memdisk /images/clave.img
GOTO END

images7-2:
memdisk /images/killdisk.img
GOTO END

images7-3:
memdisk /images/dban.img
GOTO END

images7-4:
memdisk /images/spinrite.ima
GOTO END

images7-5:
memdisk /images/hdclone.img
GOTO END

images7-6:
diskemu /images/g4u.img
GOTO END

images7-7:
memdisk /images/maxblast.img
GOTO END

images7-8:
memdisk /images/discwiz.img
GOTO END


images8-1:
memdisk /images/ibm.img
GOTO END

images8-2:
memdisk /images/maxtor.img
GOTO END

images8-3:
memdisk /images/seagate.img
GOTO END

images8-4:
memdisk /images/seatools.img
GOTO END

images8-5:
memdisk /images/dlgdiag4.img
GOTO END

images8-6:
memdisk /images/dlgdiag5.img
GOTO END

images8-7:
memdisk /images/datalife.img
GOTO END

images8-8:
memdisk /images/samsung.img
GOTO END

images8-9:
memdisk /images/hutil.img
GOTO END

images8-10:
memdisk /images/fujitsu.img
GOTO END


images9-1:
memdisk /images/ibmft.img
GOTO END

images9-2:
memdisk /images/ibmft.img
GOTO END

images9-3:
memdisk /images/ibmft.img
GOTO END

images9-4:
memdisk /images/dlgudma.img
GOTO END

images9-5:
memdisk /images/smartudm.img
GOTO END

images9-6:
memdisk /images/atapwd.img
GOTO END



images10-1:
memdisk /images/smrtimages.img
GOTO END

images10-2:
memdisk /images/gujin.img
GOTO END

images10-3:
diskemu /images/dosnavig.img
GOTO END

images10-4:
memdisk /images/fmaven.img
GOTO END

images10-5:
memdisk /images/ntadmin.ima
GOTO END

images10-6:
memdisk /images/ntfs.ima

images10-7:
memdisk /images/offline.img
GOTO END

images10-8:
memdisk /images/ntfsread.img
GOTO END

images10-9:
memdisk /images/editbini.img
GOTO END


images11-1:
diskemu /images/memtest.img
GOTO END

images11-2:
diskemu /images/memtestp.img
GOTO END

images11-3:
diskemu /images/windiag.img
GOTO END

images11-4:
diskemu /images/docmem.img
GOTO END


images12-1:
memdisk /images/ami.ima
GOTO END

images12-2:
memdisk /images/aida16.img
GOTO END

images12-3:
memdisk /images/nssi.img
GOTO END

images12-4:
memdisk /images/pcconfig.img
GOTO END

images12-5:
memdisk /images/pci.img
GOTO END

images12-6:
memdisk /images/sst.img
GOTO END


images13-1:
memdisk /images/fprot.img
GOTO END

images13-2:
memdisk /images/mcafee.img
GOTO END

images13-3:
memdisk /images/nv2003.img
GOTO END

images13-4:
memdisk /images/cmospwd.img
GOTO END

images13-5:
memdisk /images/freesco.img
GOTO END


images14-1:
memdisk /images/cdrom.img
GOTO END

images14-2:
memdisk /images/msnet.img
GOTO END

images14-3:
then memdisk /images/freedos.img
GOTO END

images14-4:
then memdisk /images/dos.ima
GOTO END

images14-5:
memdisk /images/tomsrtbt.img
GOTO END

images14-6:
memdisk /images/rip.img
GOTO END

images14-7:
memdisk /images/basiclin.img
GOTO END

images14-8:
memdisk /images/trinux.img
GOTO END

images15-0:
script cdshell.ini


END:
END

add this to the beginning[CODE]
to put your script in a box like this