;GUI for LzX LhA & DmS DCG
;LzX LhA & DmS must be in C:
;$VER:DzA 1.2 DCG


LAB Start
C:Requestchoice >env:achoice "DCG 1.2""Select Option""LzX""LhA""DmS""Cancel"

IF $achoice eq "0"
skip EndIt
ENDIF

IF $achoice eq "1"
skip lzx
ENDIF

IF $achoice eq "2"
skip lha
ENDIF

IF $achoice eq "3"
skip dms
ENDIF

lab again
c:requestchoice >env:gchoice "DCG 1.2""Go_Again""YeA""NaA"

if $gchoice eq "0"
skip endit
endif

if $gchoice eq "1"
skip start back
endif

lab lha
C:Requestchoice >env:lchoice "DCG 1.2""Select Option""LhA""UnLhA""Cancel"

if $lchoice eq "0"
skip EndIt
ENDIF

IF $lchoice eq "1"
skip Tolha
ENDIF

IF $lchoice eq "2"
skip unlha
ENDIF


LAB Tolha
C:Requestfile Ram: >env:lhafile pattern="#?|#?.info" TITLE "Select File to LhA"
skip wheretolha

lab wheretolha
c:requestfile Ram: >env:lhadrawer title "Where to LhA"
c:lha -r a -q $lhadrawer $lhafile

skip again back

LAB Unlha
C:Requestfile Ram: >env:lhafile pattern="#?.lha" TITLE "Select File to UnLhA"
skip Wherelha

LAB Wherelha
C:Requestfile Ram: >env:lhaDrawer TITLE "Where to UnLhA"
c:lha x -q $lhafile $lhaDrawer

skip again back


lab lzx
C:Requestchoice >env:zchoice "DCG 1.2""Select Option""LzX""UnLzX""Cancel"

if $zchoice eq "0"
skip EndIt
ENDIF

IF $zchoice eq "1"
skip Tolzx
ENDIF

IF $zchoice eq "2"
skip unlzx
ENDIF


LAB Tolzx
C:Requestfile Ram: >env:lzxfile pattern="#?|#?.info" TITLE "Select File to LzX"
skip wheretolzx

lab wheretolzx
c:requestfile Ram: >env:lzxdrawer title "Where to LzX"
c:lzx -r a -q $lzxdrawer $lzxfile

skip again back

LAB Unlzx
C:Requestfile Ram: >env:lzxfile pattern="#?.lzx" TITLE "Select File to UnLzX"
skip Wherelzx

LAB Wherelzx
C:Requestfile Ram: >env:lzxDrawer TITLE "Where to UnLzX"
c:lzx x -q $lzxfile $lzxDrawer

skip again back


lab dms
C:Requestchoice >env:dchoice "DCG 1.2""Select Option""DmS""UnDmS""Cancel"

if $dchoice eq "0"
skip EndIt
ENDIF

IF $dchoice eq "1"
skip Todms
ENDIF

IF $dchoice eq "2"
skip undms
ENDIF



lab todms
c:requestfile Ram: >env:dmsfile title "Select Device to DmS"
skip wheretodms

lab wheretodms
c:requestfile Ram: >env:dmsdrawer title "Where to DmS"
c:dms read $dmsdrawer from $dmsfile

skip again back


lab undms
c:requestfile Ram: >env:dmsfile pattern="#?.dms" title "Select File to UnDmS"
skip Wheredms

LAB Wheredms
C:Requestfile Ram: >env:dmsDrawer TITLE "Where to UnDmS"
c:dms write $dmsfile to $dmsDrawer

skip again back



lab endit
endcli

END
