/* RepeatImport © 1993 PSR Software */
/* $VER: Rimport v1.0 (14.09.93)
 */

Address SPOT
Options Results

If Show('p','Rimport.spot.rexx') Then Do
   'RequestNotify PROMPT "Rimport already running."'
   Exit
   End

If ~Show('l','rexxsupport.library') then Call Addlib('rexxsupport.library',0,-30,0)

If ~OpenPort('Rimport.spot.rexx') Then Do
   'RequestNotify PROMPT "Could not create Arexx port.  Exiting."'
   Exit
   End

Do While Show('p','TrapDoor')

   'Import QUIET'
   Call Delay(1000)

End

'RequestNotify PROMPT "Trapdoor is closed!"'