* THIS ROUTINE RETURNS THE INTERNAL OR EXTERNAL DATE GIVEN EXTERNAL OR INTERNAL - BMT 4/29/87
1 INPUT X
IF X='' OR X='END' THEN GOTO 900
O=OCONV(X,"D")
I=ICONV(X,"D")
PRINT O
PRINT I
GOTO 1
900 STOP
END