failat 21
stack 50000
set InstallerToFront $ACTUALDIR/c/SWindow >NIL: MARInA_Disk-Installer f

cd >ENV:ACTUALDIR

echo "*ec*n"
echo "*e[1m MARInA - Surf the System*e[0m   © TNE) 1998"
echo "*n Installation from  $ACTUALDIR"

$ACTUALDIR/c/wait 5
$InstallerToFront

lab a
set Package MARInA
set disk 1
set return b
skip Install

lab b
cd $ACTUALDIR
cd /
echo "*ec*n *e[1mInstallation end*e[0m."
echo "*n*n This window will be closed in 10 seconds."
$ACTUALDIR/c/wait 10
endcli >NIL:

;----------------------
lab Install

$InstallerToFront

echo "*ec*n ... unpacking *e[1m$Package.lha*e[0m to harddisk."
echo " __________________________________________________*n*n"
$ACTUALDIR/c/wait 2
$ACTUALDIR/c/lha x -am -F $Package.lha
if not warn
   delete $Package.lha QUIET
endif

$ACTUALDIR/c/drawicon $Package

$ACTUALDIR/c/wait 2
$InstallerToFront

echo "*ec*n ... Installing the *e[1m$Package-Package*e[0m."
echo " Needed Disk-space on System-Partition: < 3MB*n"
echo " *e[1mPlease, open *e[0m the newly created drawer *e[1m$Package*e[0m now."
echo " Then: Double-click the herein appearing icon!*n*n" NOLINE
ask " Press *e[1mENTER*e[0m after completed installation!"

$ACTUALDIR/c/wait 2
$InstallerToFront

cd $ACTUALDIR
setenv ACTUALPATH $ACTUALDIR/$Package
echo "*ec*n *e[1mThe drawer $Package may be deleted now.*e[0m"
echo " Please note, to copy the Icons you'd like to use somewhere else"
echo " before doing so:"
echo " Just call the  MARInA FileManager (rShift F5) for that purpose!*n"
ask " y: delete  n=ENTER: do not delete ?"
if warn
 $ACTUALDIR/c/delete $Package ALL
 $ACTUALDIR/c/iconkill $Package
endif

$ACTUALDIR/c/wait 2
$InstallerToFront

skip $return BACK