code:

---

 
Break OFF
$C = "a:\COMMAND.COM /E:1024 /C "
$1 = "A:"
$2 = "C:"
$5 = "meny"
$6 = "form"
$7 = "inst"
$8 = "prompt"
$9 = "eof"
Sleep 5
CLS

?
?
? "Ange vilken enhetsbokstav cd-spelaren har."
Get $cdr


$cdr = $cdr + ":"
$ram = %RAMD% + ":"

:meny
CLS
?
?
?  "V„lj!"
?
?
? "1. Formatera C:\ och installera Windows 98."
?
? "2. Installera Windows 98 ovanp† en gammal installation."
?
? "3. G† till MS-DOS prompten. (C:\)"
?
? "Nr. " Get $3

If $3 = "1"
  Goto $6
EndIf

If $3 = "2"
  Goto $7
EndIf

If $3 = "3"
  Goto $8
EndIf

:form
CLS
?
?
? "„r du s„ker?"
? "Det h„r kommer att RADERA ALLT som finns p† H†rddisken."
?
? "Tryck p† j eller n." Get $4

If $4 = "j"
  Go $1
  Shell $C + "format C: /Q"
  Shell $C + "Copy " + $cdr + "\sys\io.sys " + $ram + "\ > NUL"
  Shell $C + "Copy " + $cdr + "\sys\msdos.sys " + $ram + "\ > NUL"
  Shell $C + "Copy " + $cdr + "\sys\command.com " + $ram + "\ > NUL"
  Shell $C + "Copy " + $cdr + "\sys\drvspace.bin " + $ram + "\ > NUL"
  Shell $C + $ram +"\sys c:"
  Go $2
  Shell $C + "md windows"
  CD windows
  Shell $C + "md options"
  CD options
  Shell $C + "md cabs"
  CD cabs
  Shell $C + "md Win98"
  CD Win98
  Go $cdr
  CD Win98
  CLS
  ?
  ?
  ? "V„nta...  Filkopiering p†g†r"
  Shell $C + "Copy *.* c:\Windows\options\cabs\win98 > NUL"
  Shell $C + "Copy " + $cdr + "\sys\Start.bat c:\ > NUL"
  CLS
  ?
  ?
  ? "Ta ur Cd-skivan och starta om datorn."
  ?
  ? "N„r datorn har startat om skriver du Start vid prompten och trycker p† Enter."
  ?
  ? "OBS! RADERA C:\start.bat efter att Windows 98 „r installerat."
  ?
  ?
  ? "tryck p† valfri tangent..."
  CLS
  Goto $9
EndIf

If $4 = "n"
  Goto $5
EndIf

:inst
Go $cdr
Shell $C + $cdr + "\win98\install /iq /iw /ie /s /im"
Goto $9

:prompt
Go $1
CLS
Goto $9

:eof
Exit

 

---

code:

---

$1 = "A" ;leave out the ':' (better in my opinion as this is a Label Indicator)
$2 = "C"
$5 = "meny"
$6 = "form"
$7 = "inst"
$8 = "prompt"
$9 = "eof"

$ = execute("goto $1")

---

Really dunno as I don't have a copy of 2.33 nor willing to test

[ 09. January 2003, 13:42: Message edited by: jpols ]