home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / loaders / random_file_ < prev   
Encoding:
Text File  |  1996-04-26  |  1.2 KB  |  47 lines
  1. /* $VER: Random_File_ 1.08 (25.4.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. IF ~SHOW('L',"rexxsupport.library") THEN CALL ADDLIB("rexxsupport.library",0,-30)
  7. SIGNAL ON SYNTAX
  8. CALL NULL()
  9. SIGNAL OFF SYNTAX
  10. FileDir=GETCLIP('Directory')
  11. ADPRO_TO_FRONT
  12. GETDIR "'Select a directory'" FileDir
  13. IF rc=10 THEN EXIT
  14. FileDir=ADPro_Result
  15. SETCLIP('Directory',FileDir)
  16. FileName=TRANSLATE(SHOWDIR(FileDir,'FILE',':'),'/ ',' :')
  17. DO WHILE WORDS(FileName)>1
  18.  FileName=SUBWORD(Filename,TRUNC(WORDS(FileName)/2+1.5))||' '||SUBWORD(Filename,1,TRUNC(WORDS(FileName)/2+.5))
  19.  FileName=DELWORD(FileName,RANDOM(1,WORDS(FileName),TIME(seconds)),1)
  20. END
  21. FileName=TRANSLATE(COMPRESS(FileName),' ','/')
  22. ADPRO_TO_FRONT
  23. OKAY1 FileName
  24. IF RIGHT(FileDir,1)~=':' & FileDir~='' THEN FileDir=FileDir||'/'
  25. LFORMAT
  26. OldLoader=ADPro_Result
  27. LFORMAT 'UNIVERSAL'
  28. LOAD FileDir||FileName
  29. IF rc=10 THEN DO
  30.  ADPRO_TO_FRONT
  31.  OKAY1 'Error loading file'||NL||,
  32.         FileDir||FileName
  33. END
  34. LFORMAT OldLoader
  35. IF rc=10 THEN DO
  36.  ADPRO_TO_FRONT
  37.  OKAY1 'Error: Loader not found'||NL||,
  38.        '"Loaders2/'||OldLoader||'"'
  39. END
  40. EXIT
  41.  
  42. SYNTAX:
  43.  ADPRO_TO_FRONT
  44.  OKAY1 'Error: rexxsupport.library'||NL||,
  45.        'not available'
  46. END
  47.