home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / comm / fido / spot / rexx / repeatimport.spot < prev    next >
Text File  |  1993-12-21  |  547b  |  28 lines
  1. /* RepeatImport © 1993 PSR Software */
  2. /* $VER: Rimport v1.0 (14.09.93)
  3.  */
  4.  
  5. Address SPOT
  6. Options Results
  7.  
  8. If Show('p','Rimport.spot.rexx') Then Do
  9.    'RequestNotify PROMPT "Rimport already running."'
  10.    Exit
  11.    End
  12.  
  13. If ~Show('l','rexxsupport.library') then Call Addlib('rexxsupport.library',0,-30,0)
  14.  
  15. If ~OpenPort('Rimport.spot.rexx') Then Do
  16.    'RequestNotify PROMPT "Could not create Arexx port.  Exiting."'
  17.    Exit
  18.    End
  19.  
  20. Do While Show('p','TrapDoor')
  21.  
  22.    'Import QUIET'
  23.    Call Delay(1000)
  24.  
  25. End
  26.  
  27. 'RequestNotify PROMPT "Trapdoor is closed!"'
  28.