In the NLM 1.1 documentation, page 17, topic - Verifying the TSR is loaded, there is sample code for testing whether the TSR has been loaded. There is a mistake in the order of the parameters for the Index function. The correct order appears below:
* Now check if the VOC file is under the NLM's control.
*
OPEN "VOC" to VOC then
If Index( VOC, "FFFFFF", 1) ELSE
MsgTxt = "The VOC file is NOT under the NLM's"
MsgTxt := "Control.|"
MsgTxt := "Please contact the system"
MsgTxt := "administrator.||"
MsgTxt := "you will now be logged off."
IF @UserName NE "BACKDOOR" THEN
Msg(MsgTxt, "", "", "" )
PERFORM "OFF"
END
END
END
Thanks to Matthew Fields, A.Mus.D., U-Mich Medical Center, for pointing the error out to us.