requestchoice >ENV:xp8ft "XP8 HD Installer" "This is the XP8 hard disc installer.*nYou wll need about 3.5 meg free on the drive." "Proceed" "Abandon"
If val $xp8ft EQ 0
Skip abandon
Endif
unsetenv xp8ft
requestchoice >ENV:xp8ft "XP8 HD Installer" "This installer will create a directory called XP8.*nYou now need to choose the location for this directory." "Proceed" "Abandon"
If val $xp8ft EQ 0
Skip abandon
Endif
requestfile >env:xp8dest title "Select location for directory" drawersonly
echo $xp8dest >env:nosp
IF $xp8dest EQ ""
Skip abandon
Endif
IF "$nosp" EQ ""
Skip abandon
Endif
cd $nosp
unsetenv xp8ft
requestchoice >ENV:xp8ft "XP8 HD Installer" "About to install XP8 to $nosp" "Proceed" "Abandon"
If val $xp8ft EQ 0
Skip abandon
Endif
;so copy across the drawer & icon from disc 4, then all discs into it:
copy xp8di4:xp#? to $nosp all
copy xp8di4:#? to xp8/ all clone
copy xp8di3:#? to xp8/ all clone
copy xp8di2:#? to xp8/ all clone
copy xp8di1:#? to xp8/ all clone
delete xp8/xp8 all
delete xp8/xp8.info
delete xp8/HDInstall#?
delete xp8/test.info
requestchoice >ENV:xp8ft "XP8 HD Installer" "Installation Complete" "OK"
skip end
Lab abandon
requestchoice >ENV:xp8ft "XP8 HD Installer" "Installation abandoned" "OK"