Retro1.org codex

*DECK NS$OFF
USETEXT COM$NS
USETEXT DEF$NS
      PROC NS$OFF;           # NETOFF PROCESSOR                        #
 
# TITLE NS$OFF - NS NETOFF PROCESSING.                                 #
 
      BEGIN    # NS$OFF # 
# 
**    NS$OFF - NS NETOFF PROCESSING.
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE PROCESSES NS NETOFF. 
* 
*     PROC NS$OFF 
* 
*     ENTRY:  
*       NONE. 
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       PRINT NS STATISTICS.
*       NETOFF. 
* 
# 
 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE CALL                              #
        END 
      $END
 
      XREF
        BEGIN 
        PROC NETOFF;         # NETOFF                                  #
        PROC NS$STD;         # PRINT STATISTICS                        #
        END 
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("OFF");         # TRACE CALL                              #
      $END
 
      NS$STD;                # PRINT NS STATISTICS                     #
      NETOFF;                # DISCONNECT FROM NETWORK                 #
 
      RETURN; 
      END # NS$OFF #
      TERM