Make TJ6 handle years later than 1999.

Use RQATE instead of relying on .RDATE's two-digit year.

src/tj6/tj6.29

@@ -4430,25 +4430,27 @@ BEG:	SETOM	RAN		;indicate program has run
 	.SUSET [.RUNAME,,UNAME]	;Uname
 	.SUSET [.RSNAME,,RSYSNM]	;get sname
 	.BREAK	12,[5,,RCHBUF]	;try reading jcl
-BEGDAT:	.RDATE	B,
-	LDB	A,[140600,,B]	;month
-	SUBI	A,'0		;low digit-1
-	TLNE	B,1		;high digit?
-	ADDI	A,10.
+BEGDAT: .CALL	[SETZ
+		'RQDATE
+		SETZM B]
+	 .VALUE
+	LDB	A,[270400,,B]	;month
 	MOVE	H,MONTHS-1(A)	;byte pntr to asciz month
 	MOVE	K,[440700,,DATE]
 	PUSHJ	P,ASHTK		;move month to date buffer
-	LDB	A,[60600,,B]	;high digit of day
-	CAIE	A,'0		;skip if 0
-	PUSHJ	P,BEG6D		;put 6bit in a to date buffer
-	LDB	A,[600,,B]
-	PUSHJ	P,BEG6D
-	MOVE	H,[440700,,[ASCIZ /, 19/]]
+	PUSH	P,TYRFL
+	MOVEI	A,BEGCH		;redirect output
+	MOVEM	A,TYRFL
+	PUSH	P,B
+	LDB	A,[220500,,B]	;day
+	PUSHJ	P,DPT
+	MOVE	H,[440700,,[ASCIZ /, /]]
 	PUSHJ	P,ASHTK
-	LDB	A,[360600,,B]	;1st year digit
-	PUSHJ	P,BEG6D
-	LDB	A,[300600,,B]
-	PUSHJ	P,BEG6D
+	POP	P,B
+	LDB	A,[331100,,B]	;year
+	ADDI	A,1900.
+	PUSHJ	P,DPT
+	POP	P,TYRFL
 	SKIPE	RCHBUF
 	JRST	BEGJCL		;there is a jcl
 	PUSHJ	P,PVERSE	;print NNTJ6 and version #
@@ -4467,7 +4469,7 @@ ASHTK:	ILDB	A,H		;move asciz in h to asci in k
 	POPJ	P,
 
 BEG6D:	ADDI	A,40		;change a to asci
-	IDPB	A,K
+BEGCH:	IDPB	A,K
 	POPJ	P,
 
 MONTHS: