[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / hpadat.ft

C	\ eH P A D A T . F T   - -   A D A T E\r
C\r
	SUBROUTINE ADATE (STR)\r
	INTEGER STR(3)\r
C\r
	INTEGER TOASCI\r
	EXTERNAL TOASCI\r
C\r
	INTEGER M,D,Y\r
C\r
	CALL DATE (M,D,Y)\r
	STR(1)=TOASCI(M)\r
	STR(2)=TOASCI(D)\r
	STR(3)=TOASCI(Y)\r
	RETURN\r
	END\r
\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
Commit	Line	Data
81e70d48 PH	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