Does anyone have any use for these?  They are command files that are meant 
to be inserted in a stream that prevent the stream from continuing until (1) a 
file shows up or (2) a file disappears.
Ex:
!STREAM ABC
!WAITFILE.COMMAND FILEA.DATA.ACCOUNT,120
!STREAM DEF
!WAITNOFL.COMMAND FILEB.DATA,60
!STREAM GHI



:print waitfile.command
PARM WAIT_FILE, WAIT_TIME
ECHO WAIT IN !WAIT_TIME SECOND INCREMENTS FOR FILE: !WAIT_FILE
SETVAR PAUSE_COUNT 0
SETVAR FILE_EXISTS     "N"
IF (FINFO ("!WAIT_FILE", 0))
    SETVAR FILE_EXISTS "Y"
    ENDIF
WHILE FILE_EXISTS = "N"
      IF (FINFO ("!WAIT_FILE", 0))
          SETVAR FILE_EXISTS "Y"
          ENDIF
      IF FILE_EXISTS = "N"
         PAUSE !WAIT_TIME
         SETVAR PAUSE_COUNT, PAUSE_COUNT + 1
         SHOWVAR PAUSE_COUNT
         ENDIF
ENDWHILE
ECHO PROCESSING WILL CONTINUE, FILE FOUND: !WAIT_FILE
:


:print waitnofl.command
PARM WAIT_NOFL, WAIT_TIME
ECHO WAIT IN !WAIT_TIME SECOND INCREMENTS FOR NO FILE: !WAIT_NOFL
SETVAR PAUSE_COUNT 0
SETVAR FILE_EXISTS     "N"
IF (FINFO ("!WAIT_NOFL", 0))
    SETVAR FILE_EXISTS "Y"
    ENDIF
WHILE FILE_EXISTS = "Y"
      SETVAR FILE_EXISTS "N"
      IF (FINFO ("!WAIT_NOFL", 0))
          SETVAR FILE_EXISTS "Y"
          ENDIF
      IF FILE_EXISTS = "Y"
         PAUSE !WAIT_TIME
         SETVAR PAUSE_COUNT, PAUSE_COUNT + 1
         SHOWVAR PAUSE_COUNT
         ENDIF
ENDWHILE
ECHO PROCESSING WILL CONTINUE, FILE NOT FOUND: !WAIT_NOFL
:

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *