/*REXX*/
/*--- GET INFO FROM REXX INTERPRETER ---- 1993 - MARK MCDONALD -------*/
SAY "ADDRESS() RETURNS'"ADDRESS()"'"
SAY " "
PARSE VERSION NAME VER DATED DATEM DATEY
SAY "VERSION: LANG='"NAME"' VERSION='"VER"' DATE='"DATED DATEM DATEY"'"
SAY " "
PARSE SOURCE S1 S2 S3 S4 S5 S6 S7 S8 S9
SAY "SOURCE:     ENV '"S1"'"
SAY "        SOURCE2 '"S2"'"
SAY "        SOURCE3 '"S3"'"
SAY "        SOURCE4 '"S4"'"
SAY "        SOURCE5 '"S5"'"
SAY "        SOURCE6 '"S6"'"
SAY "        SOURCE7 '"S7"'"
SAY "        SOURCE8 '"S8"'"
SAY "        SOURCE9 '"S9"'"
PULL Z
EXIT