if $vesa
then goto graphics_main
else goto nographics_main

graphics_main:
show image mriopen.csi
goto common

nographics_main:
set textColor= color[white on black]
print "TestCD                                                 by Anon    \n"
set textColor= color[orange on black]
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~\n"
print "\n"
print "Press 1 for Astra                     Press 2 For PC-Certify\n"
print "Press 3 for the Troubleshooter        Press 4 for MemTest86+ 1.55\n"
print "Press 5 for Hitachi DFT 4.04          Press 6 for Ontrack Disk Manager\n"
print "Press 7 for PC-Check                  Press 8 for Norton Ghost 8.0\n"
print "Press 9 for Partition Magic           Press 0 for Ontrack Easy Recovery\n"
print "Press A for DiskCommander             Press B for F-Prot Antivirus\n"
print "Press C for F-Prot Antivirus (NTFS)   Press D for DOS Boot Disc\n"
print "Press E for DOS Boot Disc (NTFS/Dos USB)\n"
print "Press F for XP/2K Linux Password Recoverer\n"
print "Press G for ERD 2000 PE\n"
set textColor= color[red on black]
print "Press ESC to Boot from HDD\n"
print "Press L to Boot from FDD\n"
print "Press R to Reboot\n"
set textColor= color[white on black]
print "You have 120 Seconds to Choose: "
set textColor= color[white on black]
goto common

common:
getkey 120 set lastKey = key[esc]
if $lastKey == key[1]; then goto astra
if $lastKey == key[2]; then goto pc
if $lastKey == key[3]; then goto ts
if $lastKey == key[4]; then goto memlin
if $lastKey == key[5]; then goto dft
if $lastKey == key[6]; then goto otdm
if $lastKey == key[7]; then goto pcchk
if $lastKey == key[8]; then goto ghost
if $lastKey == key[9]; then goto pm8
if $lastKey == key[0]; then goto oter
if $lastKey == key[a]; then goto dcd
if $lastKey == key[b]; then goto fprot
if $lastKey == key[c]; then goto fprotn
if $lastKey == key[d]; then goto win98
if $lastKey == key[e]; then goto win98n
if $lastKey == key[f]; then goto pass
if $lastKey == key[g]; then goto erd
if $lastKey == key[l]; then boot 0
if $lastKey == key[r]; then reboot cold
if $lastKey == key[esc]; then boot 0x80

astra:
memdisk astra.img

pc:
memdisk pc.img

dft:
memdisk dft.img

memlin:
memtest

ts:
memdisk ts.img

otdm:
memdisk otdm.ima

pcchk:
memdisk pcchk.ima

ghost:
memdisk ghost8.img

pm8:
memdisk pm8.img

oter:
memdisk oter.ima

dcd:
memdisk dcd.img

fprot:
memdisk fprot.ima

fprotn:
memdisk fprotn.ima

win98:
memdisk w98.img

win98n:
memdisk win98n.ima

pass:
memdisk passch.bin

erd:
chain \erd.bin

exit:
end