Commit | Line | Data |
---|---|---|
1 | C -+-+-+-+-+ \ e T W A I T . F T \ e -+-+-+-+-+\r | |
2 | C\r | |
3 | C TIMED WAIT\r | |
4 | C CALL TWAIT (MILLI SECONDS)\r | |
5 | C STOPS THE PROGRAM FOR THE SPECIFIED TIME.\r | |
6 | C REMEMBER: THE CLOCK MUST BE ALREADY STARTED WITH CALL CLOCK (...)\r | |
7 | C\r | |
8 | SUBROUTINE TWAIT (DELAY)\r | |
9 | INTEGER DELAY\r | |
10 | REAL TIME\r | |
11 | EXTERNAL TIME\r | |
12 | C\r | |
13 | REAL I,J,K\r | |
14 | C\r | |
15 | K=DELAY*0.001+TIME(I)\r | |
16 | 10 IF (K.GT.TIME(I)) GOTO 10\r | |
17 | END\r | |
18 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |