| 1 | EXTERNAL SYNC\r |
| 2 | INTEGER FUNC,RATE,WORD(2),CLENTS,I,J\r |
| 3 | EXTERNAL CLENTS\r |
| 4 | C\r |
| 5 | 10 WRITE (4,5)\r |
| 6 | READ (4,1) FUNC,RATE\r |
| 7 | CALL CLOCK (FUNC,RATE)\r |
| 8 | CALL OCTAL (CLENTS(0),WORD)\r |
| 9 | WRITE (4,2) WORD\r |
| 10 | IF (FUNC.EQ.8) GOTO 10\r |
| 11 | WRITE (4,3)\r |
| 12 | DO 20 J=1,30000\r |
| 13 | IF (SYNC(1,FIRE).NE.0) WRITE (4,4) FIRE\r |
| 14 | 20 CONTINUE\r |
| 15 | GO TO 10\r |
| 16 | 1 FORMAT (I2,I4)\r |
| 17 | 2 FORMAT (' CLOCK STATUS REGISTER:',3(A6,1X))\r |
| 18 | 3 FORMAT (' JETZT WIRD AUF SCHMITT TRIGGER GEWARTET.'/)\r |
| 19 | 4 FORMAT (1H+,I5)\r |
| 20 | 5 FORMAT (' FUNCTION,RATE (I2,I4) :',$)\r |
| 21 | END\r |
| 22 | \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 |