set ConfirmerDemarrage = 0
set DureeReponse = 20
set 24Heures = 1 
set BootToujours = 0

if $vga; then if $vesa; then set ModeGraphique = 1; else set ModeGraphique = 0

Debut:
if $ConfirmerDemarrage == 1; then goto boot; else goto menu

boot:
cls
print "\n"
print " Appuyez sur Entree (vous avez 5s) pour d‚marrer le DVD... \n"
getkey 5 goto DisqueDur
if $lastKey == key[enter]; then goto menu

PreparerHeure:
if $24Heures == 1; then set time = "$timeHour:$timeMinute"; then return
if $timeHour > 12
then set hour = $timeHour - 12; then set ampm = "pm"
else set hour = $timeHour; set ampm = "am"
set time = "$hour:$timeMinute$ampm"
return

PreparerDate:
if $dateMonth == 1; then set month = "Janvier"
if $dateMonth == 2; then set month = "F‚vrier"
if $dateMonth == 3; then set month = "Mars"
if $dateMonth == 4; then set month = "Avril"
if $dateMonth == 5; then set month = "Mai"
if $dateMonth == 6; then set month = "Juin"
if $dateMonth == 7; then set month = "Juillet"
if $dateMonth == 8; then set month = "Aout"
if $dateMonth == 9; then set month = "Septembre"
if $dateMonth == 10; then set month = "Octobre"
if $dateMonth == 11; then set month = "Novembre"
if $dateMonth == 12; then set month = "D‚cembre"
set date = "$dateDay $month $dateYear"
return

Entete:
call PreparerDate
call PreparerHeure
set textColor= color[grey on black]
set boldColor= color[cyan on black]
cls
#print c "\n\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ<\c0B$date $time\cXX>Ä\n\n"
print c "\n\cXXÄÄÄ< DVD DELL >ÄÄÄÄÄÄÄÄÄÄÄÄ<\c0B$date $time\cXX>Ä\n\n"
#print c "\cXX DVD Installation DELL\n\n"
print c "\cXX $DVD multi-installation DELL \n\n"
print l "\cXX Appuyez \c0BF1 \cXXpour l'aide";
print r "\c0Bhttp://severinterrier.free.fr/Boot/UltimeDVD/ \n"
print c "\cXXÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n\n"
return

menu:
#if $ModeGraphique; then show image menu.csi menu.bmp; then goto MainKey
set TitreMenu = "Menu principal du DVD multiboot"
call Entete
print "    Installer Windows :                     D‚marrer un OS depuis le DVD :     \n\n"
print " 1) Windows XP GX 150         \n"
print " 2) Windows XP GX 250         \n"
print " 3) Windows XP GX 520         \n"
print " 4) Windows XP PRECISION 360  \n"
print " 5) Windows XP PRECISION 370  \n"
print " 6) Windows XP DELL SP2       \n"

MainKey:
getkey $DureeReponse goto DisqueDur
if $lastKey == key[F1]; then goto Aide
if $lastKey == key[1]; then if file[/SETUP/W150/I386/WINNT32.EXE]; then memdisk /SETUP/W150/I386/WINNT32.EXE
if $lastKey == key[1]; then if file[/SETUP/W260/I386/WINNT32.EXE]; then memdisk /SETUP/W260/I386/WINNT32.EXE
if $lastKey == key[1]; then if file[/SETUP/W360/I386/WINNT32.EXE]; then memdisk /SETUP/W360/I386/WINNT32.EXE
if $lastKey == key[1]; then if file[/SETUP/W370/I386/WINNT32.EXE]; then memdisk /SETUP/W370/I386/WINNT32.EXE
if $lastKey == key[1]; then if file[/SETUP/W520/I386/WINNT32.EXE]; then memdisk /SETUP/W520/I386/WINNT32.EXE
if $lastKey == key[1]; then if file[/SETUP/Woff/I386/WINNT32.EXE]; then memdisk /SETUP/Woff/I386/WINNT32.EXE
goto menu

AutresOptions:
set TitreMenu = "Plus d'options"
call Entete
print " 1) Lire et copier des fichiers depuis des volumes NTFS vers FAT32/16 \n"
print " 2) DOS avec support CD-Rom \n"
print " 3) DOS avec support reseau \n"
print " 4) Disquette de 5 Mo \n"
print " 5) Disquette de 11 Mo \n"
print " 6) Voir les num‚ros de s‚rie pour les installations. \n"
print c "\n\n"
print " Appuyez sur une touche pour revenir au menu principal... \n"

AutresOptions_Key:
getkey $DureeReponse goto menu
if $lastKey == key[F1]; then goto Aide
if $lastKey == key[1]; then memdisk /lfn-ntfs.img
if $lastKey == key[2]; then memdisk /cdrom.img
if $lastKey == key[3]; then memdisk /msnet.img
if $lastKey == key[4]; then bcdw /fd005760.ima
if $lastKey == key[5]; then bcdw /fd011520.ima
if $lastKey == key[6]; then goto NumeroSerie
goto menu

Aide:
set TitreMenu = "Aide du DVD Multi-Boot"
call Entete
print " Appuyez la touche de votre choix dans le menu principal -> \n"
print "\n"
print "\n"
print " Types d'installation \n"
print " ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ \n"
print " Normal -        Installation avec saisie d'informations par l'utilisateur. \n"
print " Automatis‚ -    Installation automatis‚e, sans intervention. \n"
print " OEMPreinstall - Installation Windows et autres programmes, sans intervention.\n"
print "\n"
print "\n"
print " Appuyez sur une touche pour revenir au menu principal... \n"
getkey
goto menu

Disquette:
if bootCheck[0]; then boot 0x00
if $BootToujours == 1; then boot 0x00
cls
print " La disquette ne semble pas bootable, essayer quand meme (O/N) ? \n\n"
getkey
if $lastKey == key[o]; then boot 0x00
if $lastKey == key[O]; then boot 0x00
goto menu

DisqueDur:
if bootCheck[0x80] == 3; then boot 0x80            # Boot HDD 0
if bootCheck[0x81] == 3; then boot 0x81            # Boot HDD 1
if $BootToujours == 1; then boot 0x00
cls
print " Le disque dur ne semble pas bootable, essayer quand meme (O/N) ? \n\n"
getkey
if $lastKey == key[o]; then boot 0x80
if $lastKey == key[O]; then boot 0x80
goto menu

LigneDeCommande:
set TitreMenu = "Ligne de commande de CD Shell"
call Entete
print " Vous etes maintenant en mode ligne de commande de CD Shell \n\n"
print " Vous pouver relancer le menu avec la commande : script cdshell.ini \n\n"
print " list <commands/functions/keys/modules> \n"
print "      permet d'avoir la liste des commandes/fonctions/cles/modules...\n"
print "\n"
print " Vous pouvez taper help (ou help nom-commande) pour avoir un peu d'aide \n\n"
print " Quelques commandes possibles : \n\n"
print " cd                  : change de repertoire \n"
print " dir (ou ls)         : affiche le contenu du repertoire \n"
print " chain nom-fichier   : charge et lance un secteur de boot \n"
print " memdisk nom-fichier : charge et lance une image de disquette \n"
print "\n"

Fin:
end