| 1 | INCLUDE HAPART.FI\r |
| 2 | INTEGER A,B,HH,MM,SS,AHH,AMM,ASS\r |
| 3 | DATA A,B,HH,MM,SS\r |
| 4 | * / 5*0 /\r |
| 5 | WRITE (4,2)\r |
| 6 | 2 FORMAT (24(/),' HHMMSS ',$)\r |
| 7 | READ (4,3) HH,MM,SS\r |
| 8 | 3 FORMAT (3I2)\r |
| 9 | WRITE (4,4)\r |
| 10 | 4 FORMAT ('+',15X)\r |
| 11 | CALL CLOCK (0,1)\r |
| 12 | 10 IF (A.GT.INT(TIME(B))) GOTO 10\r |
| 13 | A=A+1\r |
| 14 | SS=MOD(SS+1,60)\r |
| 15 | IF (SS.EQ.0) MM=MOD(MM+1,60)\r |
| 16 | IF (MM.EQ.0 .AND. SS.EQ.0) HH=MOD(HH+1,24)\r |
| 17 | AHH=TOASCI(HH)\r |
| 18 | AMM=TOASCI(MM)\r |
| 19 | ASS=TOASCI(SS)\r |
| 20 | WRITE (4,1) AHH,AMM,ASS\r |
| 21 | GOTO 10\r |
| 22 | 1 FORMAT (1H+,2(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 |