boot:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
cls
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\cXXSpeedCD9\n\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "    Press any key to install Windows XP... \n"
getkey 10 boot 0x80
# Printing the Interface
goto menu

menu:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXSpeedCD9\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n"
print c "\n"
print "  Press 1 to Install Windows XP Professional\n"
print "  Press 2 to Install Windows XP Home\n"
print "  Press 3 to Install Windows XP Media Center\n"
print c "\n"
print "  Press Q to Quit to Command Prompt \n"
print "  Press R to Reboot \n"
print c "\n"

MainKey:
getkey 20 boot 0x80
if $lastKey == key[1]; then goto XP_Pro
if $lastKey == key[2]; then goto XP_Home
if $lastKey == key[3]; then goto MCE_R
if $lastKey == key[q]; then end
if $lastKey == key[r]; then reboot
if $lastKey == key[esc]; then boot 0x80

Help:
cls
print c "\n\cXXSpeedCD9 Help \n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print " Special Thanks to Gosh, Flyakite, Jaws75, Alanoll, and everyone that has  \n"
print " helped me and led me along the way.  I am not the Pioneer, they were. \n"
Print c "\n\n"
print " Retail versions of XP require a valid key and will need to be activated \n"
print " OEM versions of XP are for OEM product Keys only\n"
print " Corporate Edition is only for Corporate or Student Keys \n"
Print c "\n\n"
print " There are 3 sub-options for each version of XP. Choosing 1 will ask \n"
print " for your input while Windows is being installed. Choosing 2 will  \n"
print " automatically fill in the info, but will allow you to alter it. \n"
print " Choosing 3 will only ask you for the product key \n"
Print c "\n\n"
Print c "\n\n"
print "Press any other key to return to main menu... \n"
getkey
goto menu

XP_Pro:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Professional\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 for XP Professional Retail Version \n"
print "  Press 2 for XP Professional OEM Version \n"
print "  Press 3 for XP Professional Corporate Edition\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

XP_Pro_Key:
getkey 20 goto menu
if $lastKey == key[1]; then goto PRO_R
if $lastKey == key[2]; then goto PRO_O
if $lastKey == key[3]; then goto PRO_C
if $lastKey == key[F1]; then goto Help
goto menu

PRO_R:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Professional Retail Version\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

PRO_R_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPPR.DAT
if $lastKey == key[2]; then chain /APPR.DAT    
if $lastKey == key[3]; then chain /UPPR.DAT
if $lastKey == key[F1]; then goto Help
goto menu

PRO_O:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Professional OEM Version\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

PRO_O_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPPO.DAT
if $lastKey == key[2]; then chain /APPO.DAT    
if $lastKey == key[3]; then chain /UPPO.DAT
if $lastKey == key[F1]; then goto Help
goto menu

PRO_C:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Professional Corporate Edition\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

PRO_C_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPPC.DAT
if $lastKey == key[2]; then chain /APPC.DAT    
if $lastKey == key[3]; then chain /UPPC.DAT
if $lastKey == key[F1]; then goto Help
goto menu

XP_Home:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Home\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 for XP Home Retail Version \n"
print "  Press 2 for XP Home OEM Version \n"
print c "\n"
print "  Press any other key to return to main menu... \n"

XP_Pro_Key:
getkey 20 goto menu
if $lastKey == key[1]; then goto HOME_R
if $lastKey == key[2]; then goto HOME_O
if $lastKey == key[F1]; then goto Help
goto menu

HOME_R:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Home Retail Version\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

HOME_R_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPHR.DAT
if $lastKey == key[2]; then chain /APHR.DAT    
if $lastKey == key[3]; then chain /UPHR.DAT
if $lastKey == key[F1]; then goto Help
goto menu

HOME_O:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Home OEM Version\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

HOME_O_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPHO.DAT
if $lastKey == key[2]; then chain /APHO.DAT    
if $lastKey == key[3]; then chain /UPHO.DAT
if $lastKey == key[F1]; then goto Help
goto menu

MCE_R:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
print l "\n\cXXPress \c0BESC \cXXto Exit"; print r "\cXXPress \c0BF1 \cXXfor Help \n"
print c "\n"
print c "\cXXMicrosoft Windows XP Media Center Edition\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "  Press 1 If you want to supply your own settings\n"
print "  Press 2 If you want SpeedCD to provide recomendations\n"
print "  Press 3 If you want SpeedCD to do all the work for you\n"
print c "\n"
print "  Press any other key to return to main menu... \n"

MCE_R_key:
getkey 20 goto menu
if $lastKey == key[1]; then chain /XPMR.DAT
if $lastKey == key[2]; then chain /APMR.DAT    
if $lastKey == key[3]; then chain /UPMR.DAT
if $lastKey == key[F1]; then goto Help
goto menu
end

boot:
cls
set textColor= color[white on black]
set boldColor= color[cyan on black]
cls
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\cXXSpeedCD9\n\n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n\n"
print c "\n\n"
print "    Press Enter to install Windows XP... \n"
getkey 10 boot 0x80
if $lastKey == key[enter]; then goto menu
# When no key found...
boot 0x80

getkey
goto menu