COMMON /OS8COM/ ERROR C : C : C CALL FODT CALL TRAPD(#100) !Call with statement number, or if "/A" CALL TRAPD(#501) CALL TRAPC(#301) C ASSIGN 100 TO DIV0S !Assign the X/0 statemtent number C CALL TRAPD(DIV0S) !Set up the trap C C ASSIGN 100 TO DIV0T !Assign the X/0 statemtent number C CALL TRAPD(DIV0T) !Set up the trap C CALL TRAPO(DIV0T) C 601 CONTINUE DO 1 J=1,1000 WRITE(0,500) J 500 FORMAT(' J=',I3) X=1.0/(8-J) S=95.0-J Y=5.0/S C : C : C : 1 CONTINUE C STOP 100 CONTINUE 501 CONTINUE WRITE(0,110) ERROR 110 FORMAT(' DIVIDE BY 0 ERROR AT ADDRESS 'I5,/,' FROM TRAPD ',/) WRITE(0,600) 600 FORMAT(' END OF DIVIDE BY ZERO TEST ',//) C DO 2 J=1,99999 2 S=10**J*1000 WRITE(0,400) S 400 FORMAT(' S=',G13.5) 301 CONTINUE WRITE(0,444) 444 FORMAT(//,' HERE DUE TO TRAPC ',//) GO TO 601 STOP 101 WRITE(0,300) J 300 FORMAT(' OVERFLOW AT J=',I6) END