G4C - Pakit

;Kevin Anderson    andersok@mail.bogo.co.uk  {using Gui4Cli by D.Keletsekis}

;This Gui is for archiving/encoding files for the Net

WINBIG 10 20 350 90 'Pakit'
WinType 11010000
WinFont Times.font 11 000

XOnload
GuiOpen Pakit

Text 10 2 100 10 'Choose your In-File(s):' 23 NOBOX
GadFont times.font 13 010

xTextIn 5 17 315 15 '' InFileVar In-File 100
GadID 1
xButton 324 17 22 15 'Get'
ReqFile 0 0 100 300 'Choose Infile(s)' MULTI InFileVar '' ;get file(s)
UpDate Pakit 1 $InFileVar

Text 10 37 100 10 'Choose your destination drawer:' 50 NOBOX
GadFont times.font 13 010

xTextIn 5 50 315 15 '' OutFileVar Out-File 100
GadID 2
xButton 324 50 22 15 'Get'
ReqFile 0 0 100 300 'Choose drawer and Outfile' LOAD OutFileVar '' ;get dest
UpDate Pakit 2 $OutFileVar

xButton 3 70 69 15 'LHA-compress'
CLI 'c:lha -a -r a $OutFileVar $InFileVar'
 
xButton 72 70 69 15 'MIME-encode'
CLI 'c:base64encode $InFileVar $OutFileVar'

xButton 140 70 69 15 'UU-encode'
CLI 'c:uuhx a $OutFileVar $InFileVar'

xButton 212 70 69 15 'LHA-MIME'
SetVar LhaFileVar $.A.NetBar
Extract OutFileVar FILE BitVar
AppVar LhaFileVar $BitVar
CLI 'c:lha -a -r a $LhaFileVar $InFileVar'
AppVar LhaFileVar .lha
CLI 'c:base64encode $LhaFileVar $OutFileVar'
Delete $LhaFileVar

xButton 280 70 69 15 'LHA-UU'
SetVar LhaFileVar $.A.NetBar
Extract OutFileVar FILE BitVar
AppVar LhaFileVar $BitVar
CLI 'c:lha -a -r a $LhaFileVar $InFileVar'
AppVar LhaFileVar .lha
CLI 'c:uuhx a $OutFileVar $LhaFileVar'
Delete $LhaFileVar

xMenu 'Help' 'Help Pakit' '' H
CLI 'c:amigaguide NetBar:NetBar.guide'

xONCLOSE
DelVar InFileVar
DelVar OutFileVar
DelVar LhaFileVar
DelVar BitVar
GuiQuit Pakit
