The $TEST() function returns the text of the source for the line specified in its argument, allowing this text to be assigned to a variable. The complete line will be returned, including label, commands, and comments.
If $TEST() cannot access the source for the current object or the source that is found doesn’t match the object in use, $TEXT() will return the empty string.
entryref specifies the label, offest, and routine name of the line that $TEXT() returns.
If the label and offset are not in the routine, $TEST() returns the null string.
If entryref specifies an offset of zero or no offset from the beginning of the routine, the routine name is returned.
If entryref does not specify a routine, it is assumed that the routine is the current routine.
An extension to $TEST() allows negative offsets, however these offsets must be preceded by a + sign (ie LABEL+-1), but if this causes the line to be before the zero line, a run-time error occurs.
FOR I=1:1 SET J=$TEXT(+I) QUIT:K=”” WRITE !,J
This command uses the $TEXT() function to write all of the source for whatever the current routine is.
This command returns the name of the current routine.