home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / arexx.stuff < prev    next >
Text File  |  1988-04-28  |  886b  |  45 lines
  1. /* This is a reader routine */
  2. /* Done in 30 minutes using AREXX with much laughter! */
  3. /* By J. Scott Thayer M.D.  9/22/88 */
  4.  
  5. check = addlib('rexxsupport.library',0,-30,0)
  6. check = addlib('rexxarplib.library',0,-30,0)
  7. /**/
  8. arg x
  9. /**/
  10. if x = "" then do
  11. /**/
  12.      dir = ""
  13.      filename = ""
  14.      x = getfile(315,70,dir,filename,"CLICK/DIRECTORY & FILE",)
  15.      if x = "" then exit
  16.      end
  17. /**/
  18. if ~exists(x) then do
  19.      say "Hmmm... "||x||" isn't around."
  20.      exit
  21.      end
  22. /**/
  23. rd x   /* Put YOUR favorite 'reader' program here. */
  24. exit
  25. /**/
  26.  
  27. /* This is a 'run whatever' routine */
  28. /* By J. Scott Thayer M.D.  9/22/88 */
  29.  
  30. check = addlib('rexxsupport.library',0,-30,0)
  31. check = addlib('rexxarplib.library',0,-30,0)
  32.  
  33. arg x
  34.  
  35. if x = "" then do
  36.  
  37.      dir = ""
  38.      filename = ""
  39.      x = getfile(315,70,dir,filename,"CLICK/DIRECTORY & FILE",)
  40.      if x = "" then exit
  41.      end
  42.  
  43. run x
  44. exit
  45.