/* $VER: Random_File_ 1.08 (25.4.96)© Felix C. Coronado
*/
ADDRESS "ADPro"
OPTIONS RESULTS
NL='0A'x
IF ~SHOW('L',"rexxsupport.library") THEN CALL ADDLIB("rexxsupport.library",0,-30)
SIGNAL ON SYNTAX
CALL NULL()
SIGNAL OFF SYNTAX
FileDir=GETCLIP('Directory')
ADPRO_TO_FRONT
GETDIR "'Select a directory'" FileDir
IF rc=10 THEN EXIT
FileDir=ADPro_Result
SETCLIP('Directory',FileDir)
FileName=TRANSLATE(SHOWDIR(FileDir,'FILE',':'),'/ ',' :')
DO WHILE WORDS(FileName)>1
 FileName=SUBWORD(Filename,TRUNC(WORDS(FileName)/2+1.5))||' '||SUBWORD(Filename,1,TRUNC(WORDS(FileName)/2+.5))
 FileName=DELWORD(FileName,RANDOM(1,WORDS(FileName),TIME(seconds)),1)
END
FileName=TRANSLATE(COMPRESS(FileName),' ','/')
ADPRO_TO_FRONT
OKAY1 FileName
IF RIGHT(FileDir,1)~=':' & FileDir~='' THEN FileDir=FileDir||'/'
LFORMAT
OldLoader=ADPro_Result
LFORMAT 'UNIVERSAL'
LOAD FileDir||FileName
IF rc=10 THEN DO
 ADPRO_TO_FRONT
 OKAY1 'Error loading file'||NL||,
        FileDir||FileName
END
LFORMAT OldLoader
IF rc=10 THEN DO
 ADPRO_TO_FRONT
 OKAY1 'Error: Loader not found'||NL||,
       '"Loaders2/'||OldLoader||'"'
END
EXIT

SYNTAX:
 ADPRO_TO_FRONT
 OKAY1 'Error: rexxsupport.library'||NL||,
       'not available'
END