/* $VER:dA->UU<-dIRECTOR 1.9 (9.12.96) (c) by Marcel Doering

Ui, haste mein Code `rausgefunden oder wie ?
Bitte nicht gleich alles klauen, kannst ja abguggen aber musst
ja nicht einfach nur Deinen Namen hier drueber setzen. Thx.
Copyright (c) Marcel Doering 1996

Hmm, you found out my code, okay, but don`t simply write your
name above this program, it`s (c) by me !

*/

if ~exists('LIBS:rexxsupport.library') then do
call open(output,'CON:0/100/350/50/Fehler !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,'RexxSupport.library nicht gefunden !')
exit
end

IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
   IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
      SAY 'Kann die <Rexxsupport.library> nicht öffnen ! '
      EXIT(10)
    END
END


if ~exists('LIBS:rexxreqtools.library') then do
call open(output,'CON:0/100/350/50/Fehler !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,'RexxReqTools.library nicht gefunden !')
delay(500)
exit
end

IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN DO
   IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN DO
         SAY 'No RexxReqTools.library found !'
         SAY 'Available on Aminet !'
   EXIT(10)
   END
END

IF ~SHOW('LIBRARIES','locale.library') THEN DO
   IF ~ADDLIB('locale.library',-10,-30,0) THEN DO
      SAY 'Couldn`t open <locale.library> !'
      uselocale=FALSE
   END
END

if ~exists('LIBS:rexxtricks.library') then do
call open(output,'CON:0/100/350/50/Fehler !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,'RexxTricks.library v. 38.6+ nicht gefunden !')
delay(500)
exit
end

IF ~SHOW('LIBRARIES','rexxtricks.library') THEN DO
   IF ~ADDLIB('rexxtricks.library',2,-30,0) THEN DO
      SAY 'Kann die <Rexxtricks.library> nicht öffnen !'
      Say 'Available on Aminet !'
      EXIT(10)
    END
END

if ~exists('LIBS:tritonrexx.library') then do
call open(output,'CON:0/100/350/50/Fehler !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,'TritonRexx.library nicht gefunden !')
delay(500)
exit
end

IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
   IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
     SAY 'Kann die <tritonrexx.library> nicht öffnen !'
     EXIT(10)
   END
END

TRUE=1
FALSE=0

uselocale=TRUE

writestr:

catfile='ENVARC:dA->UU<-dIRECTOR.strings'

if ~EXISTS('ENVARC:dA->UU<-dIRECTOR.strings') THEN DO

call open(out,'CON:0/200/450/50/Locale-Support...','W')
writeln(out,'Please Wait, initialising locale-support.')
writeln(out,'Bitte warten, initialisiere Locale-Support.')

call open(loc,catfile,'W')
writeln(loc,'/* NEVER EDIT THIS FILE ! NIEMALS DIESE DATEI AENDERN !!!!')
WriteCH(out,'.')
writeln(loc,'** $VER: dA->UU<-dIRECTOR.strings V1.9 Locale-Support-File for dA->UU<-dIRECTOR (c) by M.Döring')
WriteCH(out,'.')
writeln(loc,'**')
WriteCH(out,'.')
writeln(loc,'** Locale-Support-File für dA->UU<-dIRECTOR (c) von Marcel Döring alle')
WriteCH(out,'.')
writeln(loc,'** Rechte vorbehalten')
WriteCH(out,'.')
writeln(loc,'*/')
WriteCH(out,'.')
writeln(loc,' ')
WriteCH(out,'.')
writeln(loc,'MSG_APPVER_STRING=0')
WriteCH(out,'.')
writeln(loc,'MSG_APPDATE_STRING=1')
WriteCH(out,'.')
writeln(loc,'MSG_NOREXXSUPPORT_STRING=2')
WriteCH(out,'.')
writeln(loc,'MSG_NOREXXTRICKS_STRING=3')
WriteCH(out,'.')
writeln(loc,'MSG_NOREXXTRITON_STRING=4')
WriteCH(out,'.')
writeln(loc,'MSG_REXXTRICKSVERSION_STRING=5')
WriteCH(out,'.')
writeln(loc,'MSG_UUENCODE_STRING=6')
WriteCH(out,'.')
writeln(loc,'MSG_UUDECODE_STRING=7')
WriteCH(out,'.')
writeln(loc,'MSG_LIGHT_STRING=8')
WriteCH(out,'.')
writeln(loc,'MSG_NORMAL_STRING=9')
WriteCH(out,'.')
writeln(loc,'MSG_MAXIMUM_STRING=10')
WriteCH(out,'.')
writeln(loc,'MSG_ABOUT_STRING=11')
WriteCH(out,'.')
writeln(loc,'MSG_ABOUTTRITON_STRING=12')
WriteCH(out,'.')
writeln(loc,'MSG_QUIT_STRING=13')
WriteCH(out,'.')
writeln(loc,'MSG_MODUS_STRING=14')
WriteCH(out,'.')
writeln(loc,'MSG_QUELLDAT_STRING=15')
WriteCH(out,'.')
writeln(loc,'MSG_ZIELVERZ_STRING=16')
WriteCH(out,'.')
writeln(loc,'MSG_SPLIT_STRING=17')
WriteCH(out,'.')
writeln(loc,'MSG_ERSTPACKEN_STRING=18')
WriteCH(out,'.')
writeln(loc,'MSG_PACKMODUS_STRING=19')
WriteCH(out,'.')
writeln(loc,'MSG_Q1_STRING=20')
WriteCH(out,'.')
writeln(loc,'MSG_Q2_STRING=21')
WriteCH(out,'.')
writeln(loc,'MSG_Q3_STRING=22')
WriteCH(out,'.')
writeln(loc,'MSG_Q5_STRING=23')
WriteCH(out,'.')
writeln(loc,'MSG_Q6_STRING=24')
WriteCH(out,'.')
writeln(loc,'MSG_Q7_STRING=25')
WriteCH(out,'.')
writeln(loc,'MSG_Q8_STRING=26')
WriteCH(out,'.')
writeln(loc,'MSG_Q9_STRING=27')
WriteCH(out,'.')
writeln(loc,'MSG_Q123_STRING=28')
WriteCH(out,'.')
writeln(loc,'MSG_Q124_STRING=29')
WriteCH(out,'.')
writeln(loc,'MSG_QR1_STRING=30')
WriteCH(out,'.')
writeln(loc,'MSG_QR2_STRING=31')
WriteCH(out,'.')
writeln(loc,'MSG_QR3_STRING=32')
WriteCH(out,'.')
writeln(loc,'MSG_QR4_STRING=33')
WriteCH(out,'.')
writeln(loc,'MSG_REALQUIT_STRING=34')
WriteCH(out,'.')
writeln(loc,'MSG_YESNO_STRING=35')
WriteCH(out,'.')
writeln(loc,'MSG_COSYSOP_STRING=36')
WriteCH(out,'.')
writeln(loc,'MSG_NOPACKER_STRING=37')
WriteCH(out,'.')
writeln(loc,'MSG_NOSOURCE_STRING=38')
WriteCH(out,'.')
writeln(loc,'MSG_NODEST_STRING=39')
WriteCH(out,'.')
writeln(loc,'MSG_ERRWITH1_STRING=40')
WriteCH(out,'.')
writeln(loc,'MSG_ERRWITH2_STRING=41')
WriteCH(out,'.')
writeln(loc,'MSG_ABORTWEITA_STRING=42')
WriteCH(out,'.')
writeln(loc,'MSG_BECAUSE_STRING=43')
WriteCH(out,'.')
writeln(loc,'MSG_ERRSPLIT_STRING=44')
WriteCH(out,'.')
writeln(loc,'MSG_NOLHA_STRING=45')
WriteCH(out,'.')
writeln(loc,'MSG_NOLZX_STRING=46')
WriteCH(out,'.')
writeln(loc,'MSG_READY_STRING=47')
WriteCH(out,'.')
writeln(loc,'MSG_UUENCODING_STRING=48')
WriteCH(out,'.')
writeln(loc,'MSG_UUDECODING_STRING=49')
WriteCH(out,'.')
writeln(loc,'MSG_PACKING_STRING=50')
WriteCH(out,'.')
writeln(loc,'MSG_SPLITTING_STRING=51')
WriteCH(out,'.')
writeln(loc,'MSG_PROGRESSBARQHELP_STRING=52')
WriteCH(out,'.')
writeln(loc,'MSG_INFOTEXTQHELP_STRING=53')
WriteCH(out,'.')
writeln(loc,'MSG_ICONIFY_STRING=54')
WriteCH(out,'.')
writeln(loc,'MSG_VERSENDEN_STRING=55')
WriteCH(out,'.')
writeln(loc,'MSG_VIAMD_STRING=56')
WriteCH(out,'.')
writeln(loc,'MSG_NOSEND1_STRING=57')
WriteCH(out,'.')
writeln(loc,'MSG_NOSEND2_STRING=58')
WriteCH(out,'.')
writeln(loc,'MSG_SENDEMP_STRING=59')
WriteCH(out,'.')
writeln(loc,'MSG_NOMDPORT_STRING=60')
WriteCH(out,'.')
writeln(loc,'MSG_OKALLAB_STRING=61')
WriteCH(out,'.')
writeln(loc,'MSG_MDSENDING_STRING=62')
WriteCH(out,'.')
writeln(loc,'MSG_GETDOKFILE_STRING=63')
WriteCH(out,'.')
writeln(loc,'MSG_GETFILES_STRING=64')
WriteCH(out,'.')
writeln(loc,'MSG_GETDEST_STRING=65')
WriteCH(out,'.')
writeln(loc,'MSG_NOCAMIGAGUIDE_STRING=66')
WriteCH(out,'.')
writeln(loc,'MSG_NOOS3XGUIDE1_STRING=67')
WriteCH(out,'.')
writeln(loc,'MSG_NOOS3XGUIDE2_STRING=68')
WriteCH(out,'.')
writeln(loc,'MSG_SHOWINGGUIDE_STRING=69')
WriteCH(out,'.')
writeln(loc,'MSG_CHECKSOURCE_STRING=70')
WriteCH(out,'.')
writeln(loc,'MSG_CHECKDEST_STRING=71')
WriteCH(out,'.')
writeln(loc,'MSG_CHECKLIMIT_STRING=72')
WriteCH(out,'.')
writeln(loc,'MSG_CHECKPACKER_STRING=73')
WriteCH(out,'.')
writeln(loc,'MSG_DEDICATED_STRING=74')
WriteCH(out,'.')
WriteCH(out,'50%')
writeln(loc,'strings.0 = "dA->UU<-dIRECTOR 1.9 (c) by Marcel Doering"')
WriteCH(out,'.')
writeln(loc,'strings.1 = "9.12.1996"')
WriteCH(out,'.')
writeln(loc,'strings.2 = "No RexxSupport.library found !"')
WriteCH(out,'.')
writeln(loc,'strings.3 = "No RexxTricks.library V38.6> found !"')
WriteCH(out,'.')
writeln(loc,'strings.4 = "No TritonRexx.library found !"')
WriteCH(out,'.')
writeln(loc,'strings.5 = "You need RexxTricks.library 38.6 or better !"')
WriteCH(out,'.')
writeln(loc,'strings.6 = "UU-Encode"')
WriteCH(out,'.')
writeln(loc,'strings.7 = "UU-Decode"')
WriteCH(out,'.')
writeln(loc,'strings.8 = "Light"')
WriteCH(out,'.')
writeln(loc,'strings.9 = "Normal"')
WriteCH(out,'.')
writeln(loc,'strings.10 = "Maximum"')
WriteCH(out,'.')
writeln(loc,'strings.11 = "A_About"')
WriteCH(out,'.')
writeln(loc,'strings.12 = "T_About Triton"')
WriteCH(out,'.')
writeln(loc,'strings.13 = "Q_Quit"')
WriteCH(out,'.')
writeln(loc,'strings.14 = "M_ode:"')
WriteCH(out,'.')
writeln(loc,'strings.15 = " _Source(s):"')
WriteCH(out,'.')
writeln(loc,'strings.16 = "      _Destination:"')
WriteCH(out,'.')
writeln(loc,'strings.17 = "_Split-Size:    "')
WriteCH(out,'.')
writeln(loc,'strings.18 = "_Pack first ?"')
WriteCH(out,'.')
writeln(loc,'strings.19 = "_Crunchmode:"')
WriteCH(out,'.')
writeln(loc,'strings.20 = "This nice button gives you an filerequester."')
WriteCH(out,'.')
writeln(loc,'strings.21 = "What do you think ?"')
WriteCH(out,'.')
writeln(loc,'strings.22 = "This button gives you an filerequester for the destination-directory"')
WriteCH(out,'.')
writeln(loc,'strings.23 = "If the checkmark ist set, the data will be packed before uuencoding"')
WriteCH(out,'.')
writeln(loc,'strings.24 = "Choose between UUEncoding/UUDecoding here."')
WriteCH(out,'.')
writeln(loc,'strings.25 = "Here are the files showed for en/decoding."')
WriteCH(out,'.')
writeln(loc,'strings.26 = "Here you can choose the packer for packing the files before encoding."')
WriteCH(out,'.')
writeln(loc,'strings.27 = "Set the packmode for the packer here. "')
WriteCH(out,'.')
writeln(loc,'strings.28 = "Specify the split-size for the uuencoded file here."')
WriteCH(out,'.')
writeln(loc,'strings.29 = "Here comes the destination-directory."')
WriteCH(out,'.')
writeln(loc,'strings.30 = "After closing this requester,"')
WriteCH(out,'.')
writeln(loc,'strings.31 = "the QuickHelp ist activated,"')
WriteCH(out,'.')
writeln(loc,'strings.32 = "move the requester above an object and let it there"')
WriteCH(out,'.')
writeln(loc,'strings.33 = "for 1-2 seconds, you`ll get an nice helptext then."')
WriteCH(out,'.')
writeln(loc,'strings.34 = "Do you really want to leave dA->UU<-dIRECTOR"')
WriteCH(out,'.')
writeln(loc,'strings.35 = "Yes|No"')
WriteCH(out,'.')
writeln(loc,'strings.36 = "CoSysop of X-cellence of X-ecution BBS:"')
WriteCH(out,'.')
writeln(loc,'strings.37 = "No packer chosen."')
WriteCH(out,'.')
writeln(loc,'strings.38 = "No source chosen"')
WriteCH(out,'.')
writeln(loc,'strings.39 = "No destination chosen"')
WriteCH(out,'.')
writeln(loc,'strings.40 = "Error with File"')
WriteCH(out,'.')
writeln(loc,'strings.41 = "!"')
WriteCH(out,'.')
writeln(loc,'strings.42 = "Abort|Continue"')
WriteCH(out,'.')
writeln(loc,'strings.43 = "Because:"')
WriteCH(out,'.')
writeln(loc,'strings.44 = "Only 0 (no split), 16, 32, 64, 128, 256 or 512 Kbytes splitting possible."')
WriteCH(out,'.')
writeln(loc,'strings.45 = "LHA wasn`t found."')
WriteCH(out,'.')
writeln(loc,'strings.46 = "LZX wasn`t found."')
WriteCH(out,'.')
writeln(loc,'strings.47 = "Ready"')
WriteCH(out,'.')
writeln(loc,'strings.48 = "UUEncoding..."')
WriteCH(out,'.')
writeln(loc,'strings.49 = "UUDecoding..."')
WriteCH(out,'.')
writeln(loc,'strings.50 = "Packing..."')
WriteCH(out,'.')
writeln(loc,'strings.51 = "Splitting..."')
WriteCH(out,'.')
writeln(loc,'strings.52 = "The progressbar shows you how far the actual operation already went."')
WriteCH(out,'.')
writeln(loc,'strings.53 = "The infotext shows you what`s happening."')
WriteCH(out,'.')
writeln(loc,'strings.54 = "I_Iconify"')
WriteCH(out,'.')
writeln(loc,'strings.55 = "Send"')
WriteCH(out,'.')
writeln(loc,'strings.56 = "M_Via MicroDot"')
WriteCH(out,'.')
writeln(loc,'strings.57 = "Sending is not possible,"')
WriteCH(out,'.')
writeln(loc,'strings.58 = "no files have been UU-encoded."')
WriteCH(out,'.')
writeln(loc,'strings.59 = "Enter the receiver for file:"')
WriteCH(out,'.')
writeln(loc,'strings.60 = "Couldn`t find MicroDot-ARexx-Port !"')
WriteCH(out,'.')
writeln(loc,'strings.61 = "_Okay|_All|_Cancel"')
WriteCH(out,'.')
writeln(loc,'strings.62 = "MicroDot sending..."')
WriteCH(out,'.')
writeln(loc,'strings.63 = "Choose the Docfile..."')
WriteCH(out,'.')
writeln(loc,'strings.64 = "Pick sourcefiles..."')
WriteCH(out,'.')
writeln(loc,'strings.65 = "Pick destination directory..."')
WriteCH(out,'.')
writeln(loc,'strings.66 = "Couldn`t find C:AmigaGuide for viewing !"')
WriteCH(out,'.')
writeln(loc,'strings.67 = "Couldn`t find SYS:Utilities/Multiview"')
WriteCH(out,'.')
writeln(loc,'strings.68 = "or C:AmigaGuide for viewing !"')
WriteCH(out,'.')
writeln(loc,'strings.69 = "Showing docfile..."')
WriteCH(out,'.')
writeln(loc,'strings.70 = "Checking Source(s)..."')
WriteCH(out,'.')
writeln(loc,'strings.71 = "Checking Destination..."')
WriteCH(out,'.')
writeln(loc,'strings.72 = "Checking Limit..."')
WriteCH(out,'.')
writeln(loc,'strings.73 = "Checking for packer..."')
WriteCH(out,'.')
writeln(loc,'strings.74 = "This program is dedicated to my lovely girlfriend Karin"')
call close(loc)
WriteLN(out,'100%')
call close(out)
if updatestr='Ja' then
call finupdate
END

call open(loc,catfile,'R')
dummy0=readln(loc)
strver=readln(loc)
call close(loc)
if strver~='** $VER: dA->UU<-dIRECTOR.strings V1.9 Locale-Support-File for dA->UU<-dIRECTOR (c) by M.Döring' then do
say "Die Locale-Support-Datei wird updated"
say "Updating locale-support-file"
delete('ENVARC:dA->UU<-dIRECTOR.strings')
call writestr
end

finupdate:

PARSE SOURCE . . . script .
position = LASTPOS('/',script)

IF position = 0 THEN
   position = LASTPOS(':',script)
ELSE
   position = position-1

progdir = SUBSTR(script,1,position)

IF ~loadrexx(catfile,'') THEN DO
   say 'Error initialising locale-support !'
   exit(10)
END

IF uselocale THEN DO
   catalogfile = 'catalogs/deutsch/dA->UU<-dIRECTOR.catalog'

   IF RIGHT(progdir,1) = ':' THEN
      catalog = OPENCATALOG(progdir||'catalogs/deutsch/dA->UU<-dIRECTOR.catalog','english',0)
   ELSE
      catalog = OPENCATALOG(progdir||'/catalogs/deutsch/dA->UU<-dIRECTOR.catalog','english',0)

   IF catalog = 0 THEN
      catalog = OPENCATALOG('dA->UU<-dIRECTOR.catalog','english',0)
END

if ~exists('LIBS:tritonrexx.library') then do
call open(output,'CON:0/100/350/50/Error !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,localestring(MSG_NOTRITONREXX_STRING))
delay(500)
exit
end

if ~exists('LIBS:RexxTricks.library') then do
call open(output,'CON:0/100/350/50/Error !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,localestring(MSG_NOREXXTRICKS_STRING))
delay(500)
exit
end

versiontest=REXXTRICKSVERSION()

version=LEFT(versiontest,2)||SUBSTR(versiontest,4,1)

IF version<386 THEN DO
call open(output,'CON:0/100/350/50/Error !','W')
writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«')
writeln(output,localestring(MSG_REXXTRICKSVERSION_STRING))
delay(500)
exit
end

SIGNAL ON break_c
SIGNAL ON failure
SIGNAL ON halt
SIGNAL ON ioerr
SIGNAL ON syntax

rtv=TritonRexxVersion()
tv=TritonVersion()

appver=localestring(MSG_APPVER_STRING)
appvershort='1.9'
appdate=9.12.96


HelpBool=0
nummer=0
modus=1
dateiop=1
datei=0
zpath=''
splitdizzed=0
packfirst=0
packer=''
pnum='1'
nl='0a'x
iconified=0
sendposs=0
doc=''
helpon=0
os3x=0

ki=open(kikk,'ENV:Kickstart','R')

if ki=1 then do
  input=readln(kikk)
   leftver=left(input,length(input)-length(input)+2)
  if leftver > 39 then; os3x=1
end

call close(kikk)

uucycle.0='2'
uucycle.1=localestring(MSG_UUENCODE_STRING)
uucycle.2=localestring(MSG_UUDECODE_STRING)

dateienlist.0='0'

packmodusc.0='3'
packmodusc.1=localestring(MSG_LIGHT_STRING)
packmodusc.2=localestring(MSG_NORMAL_STRING)
packmodusc.3=localestring(MSG_MAXIMUM_STRING)

MSG_READY=localestring(MSG_READY_STRING)
MSG_UUENCODING=localestring(MSG_UUENCODING_STRING)
MSG_UUDECODING=localestring(MSG_UUDECODING_STRING)
MSG_PACKING=localestring(MSG_PACKING_STRING)
MSG_SPLITTING=localestring(MSG_SPLITTING_STRING)
MSG_SHOWINGGUIDE=localestring(MSG_SHOWINGGUIDE_STRING)
MSG_MDSENDING=localestring(MSG_MDSENDING_STRING)
MSG_CHECKSOURCE=localestring(MSG_CHECKSOURCE_STRING)
MSG_CHECKDEST=localestring(MSG_CHECKDEST_STRING)
MSG_CHECKLIMIT=localestring(MSG_CHECKLIMIT_STRING)
MSG_CHECKPACKER=localestring(MSG_CHECKPACKER_STRING)

MSG_DEDICATED=localestring(MSG_DEDICATED_STRING)

windowtags =   WindowID(1),
               QuickHelpOn(HelpBool),
               WindowFlags('TRWF_APPWINDOW'),
               WindowBackFillFB,
               WindowTitle(appver),
                 BeginMenu('Project'),
                  MenuItem(localestring(MSG_ABOUT_STRING),91),
                  MenuItem(localestring(MSG_ABOUTTRITON_STRING),92) ItemBarlabel,
                  MenuItemC('U_QuickHelp',94),
                  MenuItem('O_OnlineHelp',222) ItemBarlabel,
                  MenuItem(localestring(MSG_ICONIFY_STRING),95) ItemBarlabel,
                  MenuItem(localestring(MSG_QUIT_STRING),93),
                   BeginMenu(localestring(MSG_VERSENDEN_STRING)),
                    MenuItemD(localestring(MSG_VIAMD_STRING),191),
                  'HorizGroupA',
                  'SpaceS',
                  NamedFrameBox('dA->UU<-dIRECTOR'),
                    'VertGroupA',
                     'Space',
                     'HorizGroupAC',
                        'Space',
                        TextID(localestring(MSG_MODUS_STRING),6) 'TRAT_Flags TRTX_3D',
                        'SpaceS',
                        'BeginLine',
                        CycleGadget('uucycle',0,6),
                        'EndLine',
                        'Space',
                     'EndGroup',
                     'Space',
                     LINE(TROF_HORIZ),
                     'Space',
                     'HorizGroupSA',
                     TextID(localestring(MSG_QUELLDAT_STRING),1) 'TRAT_Flags TRTX_3D',
                     'SpaceB',
                     'EndGroup',
                     'LineArray',
                     'BeginLine',
                     'Space',
                     GetDrawerButton(1),
                     ListSS('dateienlist',7,0,0),
                     'EndLine',
                     'Space',
                     'EndGroup',
                     'SpaceS',
                     LINE(TROF_HORIZ),
                     'Space',
                     'HorizGroupA',
                     'Space',
                     TextID(localestring(MSG_ZIELVERZ_STRING),3) 'TRAT_Flags TRTX_3D',
                     'Space',
                     GetDrawerButton(3),
                     StringGadget('',124),
                     'SpaceS',
                     'EndGroup',
                     'SpaceS',
                     'HorizGroupA',
                     'Space',
                     TextID("      "localestring(MSG_SPLIT_STRING),123) 'TRAT_Flags TRTX_3D',
                     'SpaceS',
                     StringGadget('64',123),
                     'SpaceS',
                     TextID(" Bytes",9997) 'TRAT_Flags TRTX_3D',
                     'SpaceS',
                     'EndGroup',
                     'SpaceS',
                      'VertGroupA',
                      'SpaceS',
                      'HorizGroupA',
                       'BeginLine',
                       TextID(" "localestring(MSG_ERSTPACKEN_STRING),5) 'TRAT_Flags TRTX_3D',
                       'SpaceS',
                        CheckBoxLEFT(5),
                        Button('Packe_r',8),
                       'SpaceS',
                       TextID(" "localestring(MSG_PACKMODUS_STRING)" ",9) 'TRAT_Flags TRTX_3D',
                        CycleGadget('packmodusc',0,9),
                       'EndLine',
                      'EndGroup',
                      'SpaceS',
                      'EndGroup',
                      'SpaceS',
                     'HorizGroupA',
                     'SpaceS',
                     Button('S_tart',2),
                     'SpaceS',
                     'EndGroup',
                     'SpaceS',
                     LINE(TROF_HORIZ),
                     'SpaceS',
                     'HorizGroupA',
                      'SpaceS',
                       Progress(5,0,125),
                      'SpaceS',
                     'EndGroup',
                      'SpaceS',
                        'HorizGroupSA',
                        TextB("0%"),
                        'SpaceB',
                        TextN("25%"),
                        'SpaceB',
                        TextB("50%"),
                        'SpaceB',
                        TextN("75%"),
                        'SpaceB',
                        TextB("100%"),
                        'EndGroup',
                     'SpaceS',
                     LINE('TROF_HORIZ'),
                     'SpaceS',
                      'HorizGroupA',
                        'SpaceS',
                        TextBox('Status:'MSG_READY,126,50),
                       'SpaceS',
                       'EndGroup',
                       'SpaceS',
                       LINE('TROF_HORIZ'),
                     'SpaceS',
                  'EndGroup',
                  'SpaceS',
                 'EndGroup',
                 'SpaceS',
               'EndProject'


app = TR_CREATEAPP('TRCA_Name     dA->UU<-dIRECTOR',
                   'TRCA_LongName "dA->UU<-dIRECTOR (c) by Marcel Doering"',
                   'TRCA_Info     "Tool for UUEn/Decoding"',
                   'TRCA_Version  1.8',
                   'TRCA_Release  1',
                   'TRCA_Date     8.11.96',
                   'TAG_END')

IF app ~= '00000000'x THEN DO

   window = TR_OPENPROJECT(app,windowtags)

   IF window ~= '00000000'x THEN DO
      ende = 0
   END

main:
      DO WHILE ende ~= 1
         CALL TR_WAIT(app,'')

         DO WHILE TR_HANDLEMSG(app,'event')

            IF event.trm_class = 'TRMS_ICONDROPPED' THEN DO

              DO i = 1 TO event.trm_data.0
                   IF LEFT(STATEF(event.trm_data.i),4) = 'FILE' THEN DO
                         number = dateienlist.0+1

                         dateienlist.number = event.trm_data.i

                         dateienlist.0    = dateienlist.0+1
                    END
              END

              CALL TR_SETATTRIBUTE(window,7,'TROB_Listview','dateienlist')
              CALL TR_SETATTRIBUTE(window,7,'TRAT_Value',dateienlist.0-1)

              datei=1

              call tr_setattribute(window,125,'TROB_Progress',dateienlist.0)
              call tr_setattribute(window,125,'trat_value',0)

            END

            IF event.trm_class = 'TRMS_NEWVALUE' THEN DO
               SELECT

                  WHEN event.trm_id = 7 THEN DO
                     numm  = event.trm_data+1
                     datei = dateienlist.numm
                  END

                  WHEN event.trm_id = 9 THEN DO
                       num = event.trm_data+1
                    pmodus = packmodusc.num
                    pnum   = num
                  END

                  WHEN event.trm_id = 5 THEN DO
                    IF event.trm_data = 0 THEN
                    packfirst=0

                    IF event.trm_data = 1 THEN
                    packfirst=1
                  END

                  WHEN event.trm_id = 6 THEN DO
                     modusnummer = event.trm_data+1
                     modus=modusnummer
                     if event.trm_data=1 then do
                     CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',1)
                     CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',1)
                     CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',1)
                     CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',1)
                     splitdizzed=1
                     end

                     if event.trm_data=0 then do
                     CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',0)
                     CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',0)
                     CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',0)
                     CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',0)
                     splitdizzed=0
                     end
                  END

                  WHEN event.trm_id = 94 then do
                    nummer = TR_GETATTRIBUTE(window,94,'TRAT_VALUE')
                    CALL TR_SETATTRIBUTE(window,0,'TRWI_QuickHelp',nummer)
                    CALL TR_SETATTRIBUTE(window,1,'TRDO_QuickHelpString',localestring(MSG_Q1_STRING))
                    CALL TR_SETATTRIBUTE(window,2,'TRDO_QuickHelpString',localestring(MSG_Q2_STRING))
                    CALL TR_SETATTRIBUTE(window,3,'TRDO_QuickHelpString',localestring(MSG_Q3_STRING))
                    CALL TR_SETATTRIBUTE(window,5,'TRDO_QuickHelpString',localestring(MSG_Q5_STRING))
                    CALL TR_SETATTRIBUTE(window,6,'TRDO_QuickHelpString',localestring(MSG_Q6_STRING))
                    CALL TR_SETATTRIBUTE(window,7,'TRDO_QuickHelpString',localestring(MSG_Q7_STRING))
                    CALL TR_SETATTRIBUTE(window,8,'TRDO_QuickHelpString',localestring(MSG_Q8_STRING))
                    CALL TR_SETATTRIBUTE(window,9,'TRDO_QuickHelpString',localestring(MSG_Q9_STRING))
                    CALL TR_SETATTRIBUTE(window,123,'TRDO_QuickHelpString',localestring(MSG_Q123_STRING))
                    CALL TR_SETATTRIBUTE(window,124,'TRDO_QuickHelpString',localestring(MSG_Q124_STRING))
                    CALL TR_SETATTRIBUTE(window,125,'TRDO_QuickHelpString',localestring(MSG_PROGRESSBARQHELP_STRING))
                    CALL TR_SETATTRIBUTE(window,126,'TRDO_QuickHelpString',localestring(MSG_INFOTEXTQHELP_STRING))
                    if nummer=1 then
                    easyrequest(localestring(MSG_QR1_STRING)||'0a'x||localestring(MSG_QR2_STRING)||'0a'x||localestring(MSG_QR3_STRING)||'0a'x||localestring(MSG_QR4_STRING),'Okay',mainwindow)
                  END

                  WHEN event.trm_id = 123 then
                  call checkbytes

               OTHERWISE
              NOP

            END
         END

            IF event.trm_class = 'TRMS_ACTION' THEN DO
     SELECT
            WHEN event.trm_id = 1 then
            call getfile

            WHEN event.trm_id = 2 then
            call start

            WHEN event.trm_id = 3 then
            call getzpath

            WHEN event.trm_id = 8 then
            call dogetpacker

            WHEN event.trm_id = 91 then
            call about

            WHEN event.trm_id = 92 then
            call tritoninfo

            WHEN event.trm_id = 93 then
            call quit

            WHEN event.trm_id = 95 then
            call iconify

            WHEN event.trm_id = 191 then
            call sendviamd

            WHEN event.trm_id = 222 then
            call openhelp

      OTHERWISE
         NOP
   END
END

            IF event.trm_class = 'TRMS_KEYPRESSED' THEN DO
              if event.trm_code==223 then
              call openhelp

            END


            IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO
               if iconified=1 then
               call uniconify
               if iconified=0 then
               call quit
            END
         END
      END

      CALL TR_CLOSEPROJECT(window)

   CALL TR_DELETEAPP(app)

EXIT(0)

easyrequest:
PARSE ARG text,gadgets,project

          IF project ~= '00000000'x THEN
            tags = 'TREZ_LockProject' C2D(window) 'TREZ_ReqPos TRWP_MOUSEPOINTER TAG_END'
          else
            tags = 'TAG_END'

RETURN(TR_EASYREQUEST(app,text,gadgets,tags))

quit:
realquit=easyrequest(localestring(MSG_REALQUIT_STRING),localestring(MSG_YESNO_STRING),mainwindow)
if realquit=1 THEN DO
ende=1
return
END
RETURN

getfile:
boo2=ASL_RequestFile(window,'dateienlist',,
    "ASLFR_PubScreenName" '"Workbench"',
    "ASLFR_InitialDrawer" '"SYS:"',
    "ASLFR_InitialPattern" '""',
    "ASLFR_TitleText" '"'localestring(MSG_GETFILES_STRING)'"',
    "ASLFR_DoMultiSelect" '"1"',
    "ASLFR_DrawersOnly" '"0"')

if boo2=0 then
RETURN


dpath=dateienlist.1

if ~exists(dpath) then
return

IF RIGHT(dpath,Length(dpath)-Length(dpath)+1)=':' then
return
IF RIGHT(dpath,Length(dpath)-Length(dpath)+1)='/' then
return
destdir=dpath
CALL TR_SETATTRIBUTE(window,7,'TROB_Listview',dateienlist)
datei=1
call tr_setattribute(window,125,'TROB_Progress',dateienlist.0)
call tr_setattribute(window,125,'trat_value',0)
return

TritonInfo:
CALL TR_AUTOREQUEST(app,window,PubScreenName('workbench'),
        BeginRequester('About TriTon','TRWP_CENTERDISPLAY'),
           'VertGroupA',
              'Space',
              'HorizSeparator',
              'Space',
              NamedSeparator('About TriTon:'),
              'Space',
              CenteredText('This application uses the Triton GUI creation system (c) by Stefan Zeiger'),
              'Space',
              'HorizSeparator',
              'Space',
              CenteredText('**********************************************'),
              'Space',
              'Space',
              CenteredText('Triton'),
              'Space',
              'Space',
              CenteredText('An object oriented GUI creation system.'),
              'Space',
              'Space',
              CenteredText('Release 1.4'),
              'Space',
              'Space',
              CenteredText('(c) 1993-1995 Stefan Zeiger'),
              'Space',
              'Space',
              CenteredText('**********************************************'),
              'Space',
              'HorizSeparator',
              'Space',
           'EndGroup',
           'BeginRequesterGads',
           CenteredButtonRE('_Okay',10000),
        'EndRequester')
RETURN

about:
   CALL TR_AUTOREQUEST(app,window,PubScreenName('workbench'),
         BeginRequester('About','TRWP_CENTERDISPLAY'),
            'VertGroupA',
               'Space',
               'HorizSeparator',
               'Space',
               NamedSeparator('dA->UU<-dIRECTOR'),
               'Space',
               CenteredText('Status: FD'),
               'Space',
               CenteredText('Version:' appvershort),
               'Space',
               CenteredText('Released:' appdate),
               'Space',
               CenteredText('(c) by Marcel Döring '),
               'Space',
               CenteredText('e-Mail: DonDoringo@GURU.rhein-main.de'),
               'Space',
               'HorizSeparator',
               'Space',
               NamedSeparator('Libraries:'),
               'Space',
               CenteredText('Tritonrexx.library v.' rtv '(c) by Juergen Kohrmeyer.'),
               'Space',
               CenteredText('Triton.library v.' tv '(c) by Stefan Zeiger.'),
               'Space',
               CenteredText('RexxTricks.library (c) by Juergen Kohrmeyer'),
               'Space',
               'HorizSeparator',
               'SpaceS',
               CenteredTextB(MSG_DEDICATED),
               'SpaceS',
               'HorizSeparator',
               'Space',
            'EndGroup',
            'BeginRequesterGads',
            CenteredButtonRE('_Okay',10000),
         'EndRequester')

RETURN

start:
call dagads
select
   when modus=1 then
   call gover

   when modus=2 then
   call goent
  OTHERWISE
  NOP
END
call engads
return

GOVER:
call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKPACKER)
if packfirst=1 then do

LeftBorder   = 0
TopBorder    = 300
OutPutWidth  = 500
OutPutHeight = 120

ScreenOutPut = 'CON:'LeftBorder'/'TopBorder'/'OutPutWidth'/'OutPutHeight'/dA->UU<-dIRECTOR.../SCREEN' PubScreen'/AUTO/CLOSE'
CALL CLOSE('STDOUT')
IF ~OPEN('STDOUT',ScreenOutPut,'W') THEN
EXIT(10)

CALL CLOSE('STDIN')
CALL OPEN('STDIN','*','W')
CALL PRAGMA('*','STDOUT')
CALL PRAGMA('*','STDIN')

  if packer='' then do
    err=easyrequest(localestring(MSG_NOPACKER_STRING),'Okay',mainwindow)
    return
  end

i=1
o=0

CALL TR_SETATTRIBUTE(window,7,'TRAT_Value','0')
call tr_setattribute(window,126,'trat_text','Status: 'MSG_PACKING)

   if packer='LHA' then do
     do forever
       call tr_setattribute(window,125,'trat_value',i)
       datei=dateienlist.i
       fdat=FILEPART(datei)
       cmd='LHA a -'pnum' T:'fdat'.lha "'datei'"'
       datei='T:'fdat'.lha'
       dateienlist.i='T:'fdat'.lha'
       address command cmd
       i=i+1
       if i=dateienlist.o+1 then break
     end
   end

    if packer='LZX' then do
        if pnum='3' then
        pnum='9'
      do forever
       call tr_setattribute(window,125,'trat_value',i)
       datei=dateienlist.i
       fdat=FILEPART(datei)
       cmd='LZX a -'pnum' T:'fdat'.lzx "'datei'"'
       datei='T:'fdat'.lzx'
       dateienlist.i='T:'fdat'.lzx'
       address command cmd
       i=i+1
       if i=dateienlist.o+1 then break
     end
    end

END

call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKLIMIT)
limit=TR_GETATTRIBUTE(window,123,'TROB_String')

call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKSOURCE)
if datei=0 then do
err=easyrequest(localestring(MSG_NOSOURCE_STRING),'Okay',mainwindow)
call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return
end

call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKDEST)
zpath=TR_GETATTRIBUTE(window,124,'TROB_String')
if zpath='' then do
err=easyrequest(localestring(MSG_NODEST_STRING),'Okay',mainwindow)
call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return
end

abort=0

i=1
o=0
TR_SETATTRIBUTE(window,7,'TRAT_Value','0')
call tr_setattribute(window,126,'trat_text','Status: 'MSG_UUENCODING'/'MSG_SPLITTING)
call tr_setattribute(window,125,'trat_value',0)

do forever
call tr_setattribute(window,125,'trat_value',i)
pathpat=PATHPART(dateienlist.i)
z1datei=FILEPART(dateienlist.i)
zdatei=zpath''z1datei
datei=dateienlist.i

if limit~=0 then
   BOOL = UUENCODE(datei,zdatei,limit,S)
else
   BOOL = UUENCODE(datei,zdatei,,S)


if bool=0 then
abort=easyrequest(localestring(MSG_ERRWITH1_STRING) datei localestring(MSG_ERRWITH2_STRING),localestring(MSG_ABORTWEITA_STRING),mainwindow)
if abort=1 then break
i=i+1
o=o+1
TR_SETATTRIBUTE(window,7,'TRAT_Value',o)
if packfirst=1 then
delete(datei)
if i=dateienlist.0+1 then break
end

IF GETDIR(zpath,'(#?.u#?)','filevar','FILES','PATH',) THEN DO
sendposs=1
CALL TR_SETATTRIBUTE(window,191,'TRAT_Disabled',0)
end

call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
RETURN


GOENT:
call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKSOURCE)
if datei=0 then do
err=easyrequest(localestring(MSG_NOSOURCE_STRING),'Okay',mainwindow)
call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return
end

call tr_setattribute(window,126,'trat_text','Status: 'MSG_CHECKDEST)
zpath=TR_GETATTRIBUTE(window,124,'TROB_String')
if zpath='' then do
err=easyrequest(localestring(MSG_NODEST_STRING),'Okay',mainwindow)
call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return
end

abort=0

i=1
o=0
TR_SETATTRIBUTE(window,7,'TRAT_Value','0')
call tr_setattribute(window,126,'trat_text','Status: 'MSG_UUDECODING)
call tr_setattribute(window,125,'trat_value',0)

do forever
call tr_setattribute(window,125,'trat_value',i)
datei=dateienlist.i
bool = UUDECODE(datei,zpath)
if bool=0 then
abort=easyrequest(localestring(MSG_ERRWITH1_STRING)||'0a'x||localestring(MSG_BECAUSE_STRING)' 'uuerror_text' ',localestring(MSG_ABORTWEITA_STRING),mainwindow)
if abort=1 then break
i=i+1
o=o+1
TR_SETATTRIBUTE(window,7,'TRAT_Value',o)
if i=dateienlist.0+1 then break
end

call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
RETURN

checkbytes:
limit=TR_GETATTRIBUTE(window,123,'TROB_String')

select

   when limit=0 then
   nop

   when limit=16 then
   nop

   when limit=32 then
   nop

   when limit=64 then
   nop

   when limit=128 then
   nop

   when limit=256 then
   nop

   when limit=512 then
   nop

 OTHERWISE DO
  easyrequest(localestring(MSG_ERRSPLIT_STRING),'Okay',mainwindow)
  limit=TR_SETATTRIBUTE(window,123,'TROB_String','64')
 END
END

RETURN

getzpath:
boo3=ASL_RequestFile(window,'mork',,
    "ASLFR_PubScreenName" '"Workbench"',
    "ASLFR_InitialDrawer" '"SYS:"',
    "ASLFR_InitialPattern" '""',
    "ASLFR_TitleText" '"'localestring(MSG_GETDEST_STRING)'"',
    "ASLFR_DrawersOnly" '"1"')

if boo2=0 then
RETURN

zpath=mork.1

if ~exists(zpath) then
return

IF RIGHT(zpath,Length(zpath)-Length(zpath)+1)~=':' then
zpath=zpath'/'
if zpath ='Ram Disk:' then
zpath='RAM:'

TR_SETATTRIBUTE(window,124,'TROB_String',zpath)
RETURN

dagads:
CALL TR_SETATTRIBUTE(window,1,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,2,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,3,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,6,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,7,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',1)
CALL TR_SETATTRIBUTE(window,124,'TRAT_Disabled',1)
RETURN

engads:
CALL TR_SETATTRIBUTE(window,1,'TRAT_Disabled',0)
CALL TR_SETATTRIBUTE(window,2,'TRAT_Disabled',0)
CALL TR_SETATTRIBUTE(window,3,'TRAT_Disabled',0)
if modus=1 then
CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',0)
CALL TR_SETATTRIBUTE(window,6,'TRAT_Disabled',0)
CALL TR_SETATTRIBUTE(window,7,'TRAT_Disabled',0)
if modus=1 then
CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',0)
if modus=1 then
CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',0)
if splitdizzed=0 then
CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',0)
CALL TR_SETATTRIBUTE(window,124,'TRAT_Disabled',0)
RETURN

break_c:
Say 'Quitting dA->UU<-dIRECTOR'
IF app ~= '00000000'x THEN
 CALL TR_DELETEAPP(app)

EXIT(10)


failure:
halt:
ioerr:
syntax:
CALL easyrequest('Error' rc 'in line' sigl ||NL|| SOURCELINE(sigl) ||NL|| ERRORTEXT(rc),'_Quit',mainwindow)

      IF app ~= '00000000'x THEN
      CALL TR_DELETEAPP(app)

EXIT(10)

dogetpacker:
call TR_LOCKPROJECT(window)

packer.0 = '2'

if exists('C:LHA') then
packer.1 = 'LHA'
else
packer.1 = localestring(MSG_NOLHA_STRING)

if exists('C:LZX') then
packer.2 = 'LZX'
else
packer.2 = localestring(MSG_NOLZX_STRING)

auswindowtags = WindowID(2),
                WindowFlags(TRWI_Backfill TRBF_SHINE),
                WindowBackFillFB,
                WindowTitle('Packer'),
                  'HorizGroupA',
                     'Space',
                     'VertGroupA',
                        'Space',
                        CenteredTextID("_Packer",1),
                        'Space',
                        ListSS('packer',7,0,0),
                        'Space',
                     'EndGroup',
                     'Space',
                  'EndGroup',
               'EndProject'

ausapp = TR_CREATEAPP('TRCA_Name     dA->UU<-dIRECTOR-Packer',
                      'TRCA_LongName "UU-Utility-Packer"',
                      'TRCA_Info     "Tool using UU-Packer"',
                      'TRCA_Version  1.0',
                      'TRCA_Release  1',
                      'TRCA_Date     18.7.96',
                      'TAG_END')


IF ausapp ~= '00000000'x THEN DO

   auswindow = TR_OPENPROJECT(ausapp,auswindowtags)

   IF auswindow ~= '00000000'x THEN DO
      ausende = 0

      DO WHILE ausende ~= 1
         CALL TR_WAIT(ausapp,'')

         DO WHILE TR_HANDLEMSG(ausapp,'event')
            IF event.trm_class = 'TRMS_NEWVALUE' THEN DO
               SELECT
                  WHEN event.trm_id = 7 THEN DO
                     nummer = event.trm_data+1
                     packer=packer.nummer
                     call usenewpacker
                  END

                  OTHERWISE
                     NOP
               END
            END

            IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO
               nummer = TR_GETATTRIBUTE(auswindow,7,'TRAT_Value')+1
               packer=packer.nummer

               ausende = 1
            END
         END
      END

      CALL TR_CLOSEPROJECT(auswindow)
   END

   CALL TR_DELETEAPP(ausapp)
END

CALL TR_UNLOCKPROJECT(window)

call main

usenewpacker:
CALL TR_CLOSEPROJECT(auswindow)
CALL TR_DELETEAPP(ausapp)
CALL TR_UNLOCKPROJECT(window)
call main

localestring:
   PARSE ARG stringnumber

   IF uselocale THEN
      RETURN(GETCATALOGSTR(catalog,stringnumber,strings.stringnumber))
   ELSE
      RETURN(strings.stringnumber)

loadrexx:
   PARSE ARG dir,file,store

   IF dir ~= '' THEN DO
      IF RIGHT(dir,1) = ':' THEN
         file = dir||file
      ELSE
         file = dir||'/'||file
   END

   IF ~OPEN('rexxfile',file,'R') THEN
      RETURN(FALSE)

   rexxtext = READCH('rexxfile',64000)
   INTERPRET rexxtext

   CALL CLOSE('rexxfile')

   IF store ~= '' THEN
      INTERPRET store '= rexxtext'

   DROP rexxtext

   RETURN(TRUE)

iconify:
dummywindow = TR_OPENPROJECT(app,WindowID(1000) WindowTitle(appver '('appdate')') PubScreenName('workbench') BeginMenu('Project') MenuItem(localestring(MSG_QUIT_STRING),0815) 'EndProject')

IF dummywindow ~= '00000000'x THEN DO
   CALL TR_CLOSEPROJECT(window)
   Iconified=1
END
ELSE
NOP
RETURN

uniconify:
CALL TR_CLOSEPROJECT(dummywindow)
dummywindow = '00000000'x
window = TR_OPENPROJECT(app,windowtags)

IF window = '00000000'x THEN
call quit

   Iconified=0
call main
return

sendviamd:
IF ~Show(P,'MICRODOT') THEN DO
preferror=easyrequest(localestring(MSG_NOMDPORT_STRING),'Okay',mainwindow)
noport=1
RETURN
END

if sendposs=0 then do
  easyrequest(localestring(MSG_NOSEND1_STRING)||'0a'x||localestring(MSG_NOSEND2_STRING),'Okay',mainwindow)
 return
end

DO z=1 to filevar.0
 name=rtgetstring(,localestring(MSG_SENDEMP_STRING)''||'0a'x||''filevar.z,'dA->UU<-dIRECTOR',localestring(MSG_OKALLAB_STRING),'rtgs_flags=gsreqf_centertext','empresult')

  if name~='' then do
    filevar.z.emp=name
    filevar.z.sendit=1
  end

   if name='' then
   filevar.z.sendit=0

    if empresult=2 then do
      do z=z to filevar.0
       filevar.z.emp=name
       filevar.z.sendit=1
      END
    END

END

call tr_setattribute(window,126,'trat_text','Status: 'MSG_MDSENDING)

ADDRESS 'MICRODOT'

do m=1 to filevar.0

if filevar.m.sendit~=0 then do
  sub=FILEPART(filevar.m)

  text1='TO='filevar.m.emp
  text2='BODYFILE="'filevar.m'"'
  text3='SUBJECT="'sub'"'

  SENDMAIL text1 text2 text3
end

end

ADDRESS

call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return

openhelp:
call tr_setattribute(window,126,'trat_text','Status: 'MSG_SHOWINGGUIDE)
helpon=0
IF ~exists('S:dUd.prefs') then do
writed=1

getdocfile:
boo4=ASL_RequestFile(window,'docfile',,
    "ASLFR_PubScreenName" '"Workbench"',
    "ASLFR_InitialDrawer" '"SYS:"',
    "ASLFR_InitialPattern" '""',
    "ASLFR_TitleText" '"'localestring(MSG_GETDOKFILE_STRING)'"',
    "ASLFR_DoMultiSelect" '"0"',
    "ASLFR_DrawersOnly" '"0"')

if boo4=0 then
RETURN

doc=docfile.1

if ~exists(doc) then
return

IF RIGHT(doc,Length(doc)-Length(doc)+1)=':' then
return
IF RIGHT(doc,Length(doc)-Length(doc)+1)='/' then
return

  if writed=1 then do
    if ~open(dwrite,'S:dUd.prefs','W') then
     return
    writeln(dwrite,doc)
    call close(dwrite)
  end
end

if doc='' then do
if ~open(rdoc,'S:dUd.prefs','R') then
call getdocfile
doc=readln(rdoc)
call close(rdoc)
end

if os3x=1 then
if exists('SYS:Utilities/Multiview') then do
address command 'Run <>NIL: SYS:Utilities/Multiview 'doc
helpon=1
end
else
if exists('C:AmigaGuide') then do
address command 'Run <>NIL: C:AmigaGuide 'doc
helpon=1
end

if os3x=0 then
if exists('C:AmigaGuide') then do
address command 'Run <>NIL: C:AmigaGuide 'doc
helpon=1
end

if helpon=0 then do

  if os3x=0 then
   easyrequest(localestring(MSG_NOCAMIGAGUIDE_STRING),'_Okay',mainwindow)

  if os3x=1 then
  easyrequest(localestring(MSG_NOOS3XGUIDE1_STRING)''||'0a'x||''localestring(MSG_NOOS3XGUIDE2_STRING),'_Okay',mainwindow)

end

call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY)
return