C	EINGABE DES OS/8-DATUMS
C	AUS 12-BIT-SIG NEWS #27/MARCH 78
C	MODIF.ST.25-JAN-79
C
S	DUMMY DATE
S	DUMMY DATEX
	WRITE(1,1)
1	FORMAT(/'DATUM EINGEBEN'/)
2	READ(1,3)IDA2
3	FORMAT('TAG  :',I2)
	IF(31-IDA2)2,4,4
4	READ(1,5)IDA1
5	FORMAT('MONAT:',I2)
	IF(12-IDA1)4,6,6
6	READ(1,7)IDA3
7	FORMAT('JAHR :',I4)
	IF(78-IDA3)8,8,6
8	IDA3=IDA3-78
	IF(IDA3)6,10,10
10	IDEXT=(IDA3+8)/8
S	CLA CLL
S	TAD \IDA1
S	AND (17
S	CLL RAR
S	RTR
S	RTR
S	DCA TEMP
S	TAD \IDA2
S	AND (37
S	CLL RAL
S	RTL
S	TAD TEMP
S	DCA TEMP
S	TAD \IDA3
S	AND (7
S	TAD TEMP
S	DCA I DATE
S	TAD \IDEXT
S	AND (3
S	CLL RTR
S	RTR
S	RTR
S	DCA \IDEXT
S	TAD I DATEX
S	AND (7177
S	TAD \IDEXT
S	DCA I DATEX
	CALL EXIT
S	CPAGE 4
SDATE,	6211
S	7666
SDATEX,	6201
S	7777
STEMP,	0
	END