*DECK  ERROR
USETEXT COMCBEG 
USETEXT COMRDSD 
PROC ERROR; 
# TITLE ERROR - PROCESS INVALID COMMAND # 
  
      BEGIN  # ERROR #
  
# 
**    ERROR - PROCESS INVALID COMMAND 
* 
*     WHEN AN INVALID COMMAND HAS BEEN RECIEVED, DISPLAY
*     "INVALID COMMAND" AND THE BAD COMMAND ON THE LEFT SCREEN. 
* 
*     PROC ERROR. 
* 
*     ENTRY      - INVALID COMMAND IN DSDLBUF 
* 
*     EXIT       - "INVALID COMMAND" AND BAD COMMAND DISPLAYED
* 
*     PROCESSING -
*         MOVE "INVALID COMMAND" TO L DISPLAY BUFFER
*         MOVE BAD COMMAND TO L DISPLAY BUFFER
*         RETURN
# 
  
# 
****  PROC ERROR - XREF LIST BEGIN. 
# 
  
# 
****  PROC ERROR - XREF LIST END. 
# 
  
    CONTROL IFEQ OS$NOS;
      BASED ARRAY BC$LINE [0:0] S(1); 
        BEGIN 
        ITEM BC$FBYTE   U(00,00,12);
        END 
  
      ITEM I    I;                   # LOOP INDEX # 
    CONTROL ENDIF;
CONTROL EJECT;
  
      DSD$INVC[0] = INVCOMMAND; 
      DSD$CMDBC[0] = DSD$CMDC[0]; 
    CONTROL IFEQ OS$NOS;
      P<BC$LINE> = LOC(DSD$CMDBC) + 1;
      SLOWFOR I = 1 STEP 1 UNTIL 7
      DO
        BEGIN 
        IF BC$FBYTE EQ 0
        THEN
          BEGIN 
          BC$FBYTE = O"5555"; 
          END 
  
        P<BC$LINE> = P<BC$LINE> + 1;
        END 
    CONTROL ENDIF;
  
      RETURN; 
      END 
  
      TERM
