;Xanim(BETA) GUI file viewer V1.11
;©1995 Ivan Smith
;For WorBench 3.X+ ONLY!
;Requestchoice and Request File must be in you C: dir.

IF NOT EXISTS ENV:X11
makedir >NIL: ENV:X11
ENDIF

LAB start
;Audio Enabled or not?
C:Requestchoice >env:Xoperat "Play With Audio or Not?""Choose A Method""audio""silent"
;Variables for Requestchoice
IF $Xoperat eq "0"
skip silent
ENDIF
IF $Xoperat eq "1"
skip audio
ENDIF
IF $Xoperat eq "2"
C:endcli
ENDIF

;Call the better vision player
LAB silent
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
;Set big enough stack for XANIM
Stack 50000
run Xamiga +f $Xfilename
C:endcli
skip start

;Call the Audio version
LAB audio
;Sets environment variables for X11
setenv X11/askmode 1
setenv X11/gfxcard 1
;Set big enough stack for XANIM
Stack 50000
;Ask for a file name
C:Requestfile >env:Xfilename TITLE "Which Vision File?"
run C:Xanim +Ae +b +f $Xfilename
C:endcli
skip start

;END