| 1 | C -+-+-+-+-+ \ e H P E T I M . F T \ e -+-+-+-+-+\r |
| 2 | C\r |
| 3 | C\r |
| 4 | SUBROUTINE ETIME\r |
| 5 | C PRINT THE MINUTES AND SECONDS ELAPSING ONTO VIDEO TERMINAL\r |
| 6 | C\r |
| 7 | REAL TIME\r |
| 8 | INTEGER TOASCI\r |
| 9 | EXTERNAL TIME,TOASCI\r |
| 10 | C\r |
| 11 | INTEGER A,MM,SS\r |
| 12 | DATA A/0/\r |
| 13 | C\r |
| 14 | IF (TIME(B)+2.LT.A) GOTO 10 @ NEW CALL CLOCK\r |
| 15 | IF ((0.5+TIME(B)).LT.A) RETURN @ LESS THAN ONE SECOND SINCE LAST CALL\r |
| 16 | 10 A=INT(TIME(B)+0.5)\r |
| 17 | SS=TOASCI(MOD(A,60))\r |
| 18 | MM=TOASCI(A/60)\r |
| 19 | A=A+1\r |
| 20 | WRITE (4,1) MM,SS\r |
| 21 | RETURN\r |
| 22 | 1 FORMAT (1H+,A2,1H:,A2)\r |
| 23 | END\r |
| 24 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |