Retro1.org codex

*DECK NS$STD
PROC NS$STD;
 
      BEGIN    # NS$STD # 
# 
**    THIS IS DUMMY AT THE MOMENT.  IMS WILL BE FURTHER 
*     PROVIDED WHEN IT IS ENHANCED. 
# 
 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;
        END 
      $END
 
      XREF
        BEGIN 
        PROC NETOFF;         # AIP NETOFF PROCEDURE                    #
        END 
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("STD");         # TRACE CALL                              #
      $END
 
      RETURN; 
      END   # NS$STD #
      TERM