Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |