C PROGRAM TO TEST SEMAPHORE OPERATION C WRITTEN NOV 9,1979 BY HARRY ATHERTON C C TO DO THIS TEST RUN THIS TASK FROM MULTIPLE TERMINALS C 100 CONTINUE CALL SEMP(1) WRITE(5,200) 200 FORMAT('$SEMAPHORE SET, HIT CR ') READ(5,300) 300 FORMAT(A1) CALL SEMV(1) GO TO 100 END