C S U B T A S K 1 C - - - - - - - - C C ENSURE EVENT FLAG IS CLEAR CALL CLREF(1) C SUSPEND WRITE(5,50) CALL SUSPND WRITE(5,100) C WAIT UNTIL FLAG IS SET CALL WAITFR(1) CALL EXIT 50 FORMAT(' SUBTASK1 STARTED') 100 FORMAT(' SUBTASK1 RESUMED') END