;GUI Viewing Images DCG
;FastView must be in C:


LAB Start
C:Requestchoice >env:choice "DCG""Select Option""View""ViewLhA""ViewLzX""Cancel"

IF $choice eq "0"
skip Endit
ENDIF

IF $choice eq "1"
skip view
ENDIF

IF $choice eq "2"
skip hview
ENDIF

if $choice eq "3"
skip zview
endif

LAB view
requestfile Ram: >env:vfile title "Files to View"
list lformat "c:vt delay 3 >nil: %p%n" $vfile > ram:script
execute ram:script
delete ram:script
skip endit

LAB hview
requestfile Ram: >env:vfile pattern=#?.lha title "File to UnPack and View"
makedir ram:PicS
c:lha x $vfile ram:pics/ 
list lformat "c:vt delay 3 >nil: %p%n" ram:pics/#? > ram:pics/script
execute ram:pics/script
delete all ram:pics
skip endit

LAB zview
requestfile Ram: >env:vfile pattern=#?.lzx title "File to UnPack and View"
makedir ram:PicS
c:lzx x $vfile ram:pics/ 
list lformat "c:vt delay 3 >nil: %p%n" ram:pics/#? > ram:pics/script
execute ram:pics/script
delete all ram:pics

lab endit
endcli

END
