11 lines
203 B
Plaintext
Executable File
11 lines
203 B
Plaintext
Executable File
* 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
|