C E X A M P L E 1 C - - - - - - - - BYTE BUFF(10) DATA BUFF/1H ,1HS,1HU,1HB,1HT,1HA,1HS,1HK,1H1,0/ C DEFINE AND DECALRE TDB NTDB=1 CALL DECTDB(NTDB) C INITIATE SUBTASK AND WAIT FOR SUBTASK EVENT WRITE(5,50) CALL RUNTS(BUFF,NTDB,1,,WAIT) C GET THE EVENT... CALL RDEVTS(ISTAT,NTDB) C SUSPENDED? IF (.NOT.ISTAT.AND.8) GOTO 1000 WRITE(5,100) C RESUME THE SUBTASK CALL RSUMTS(NTDB) C SET ITS EVENT FLAG #1 CALL STEVTS(1,NTDB) C WAIT FOR SUBTASK EVENT CALL CHKEVW(NTDB) C REA THE EVENT CALL RDEVTS(ISTAT,NTDB) IF (.NOT.ISTAT.AND.1)GOTO 1000 WRITE(5,200) CALL EXIT 1000 WRITE(5,300) CALL EXIT 50 FORMAT(' STARTING SUBTASK') 100 FORMAT(' SUBTASK SUSPENDED') 200 FORMAT(' SUBTASK TERMINATED') 300 FORMAT(' ERROR') END