Commit | Line | Data |
---|---|---|
1 | C \ eH P A D A T . F T - - A D A T E\r | |
2 | C\r | |
3 | SUBROUTINE ADATE (STR)\r | |
4 | INTEGER STR(3)\r | |
5 | C\r | |
6 | INTEGER TOASCI\r | |
7 | EXTERNAL TOASCI\r | |
8 | C\r | |
9 | INTEGER M,D,Y\r | |
10 | C\r | |
11 | CALL DATE (M,D,Y)\r | |
12 | STR(1)=TOASCI(M)\r | |
13 | STR(2)=TOASCI(D)\r | |
14 | STR(3)=TOASCI(Y)\r | |
15 | RETURN\r | |
16 | END\r | |
17 | \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 |