failat 21
stack 50000

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
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f

lab a
set Package MARInA
set size "< 3MB"
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

"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f

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
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f

echo "*ec*n ... Installing the *e[1m$Package-Package*e[0m."
echo " Needed Disk-space on System-Partition: $size*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
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f

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
"$ACTUALDIR/c/SWindow" >NIL: MARInA_Disk-Installer f

skip $return BACK