;GUI 4 UnZip Version 0.6 by Kevin Anderson  andersok@mail.bogo.co.uk
;7th January 1997
;For use with UnZip by Greg Roelofs


LAB Start
C:Requestchoice >env:ZIPchoice "GUI 4 UnZip ver 0.6""So what do you wanna do then ?""List Zip""Test Zip""Extract Here""Extract To""Cancel"

IF $ZIPchoice eq "0"
skip EndIt
ENDIF

IF $ZIPchoice eq "1"
skip ListZIP
ENDIF

IF $ZIPchoice eq "2"
skip TestZIP
ENDIF

IF $ZIPchoice eq "3"
skip HereZIP
ENDIF

IF $ZIPchoice eq "4"
skip ToZIP
ENDIF

LAB ListZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to List"
Unzip -l $ZIPfile
wait 30
endcli
skip start

LAB TestZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to Test"
Unzip -t $ZIPfile
wait 30
endcli
skip start

LAB HereZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
unzip $ZIPfile
endcli
skip start

LAB ToZIP
C:Requestfile >env:ZIPfile TITLE "Choose ZipFile to UnZip"
skip WhereZip

LAB EndIt
endcli
skip start

LAB WhereZIP
C:Requestfile >env:ZIPDrawer TITLE "Where shall I UnZip to ?"
unzip $ZIPfile -d $ZIPDrawer
endcli
skip start

END
