*COMDECK RETCODE
      * 
      *            SET PROPER SWITCHES
      * 
       RETURN-CODE-00.
           SET SW2, SW3, SW4 TO OFF.
           IF RETURN-CODE EQUALS ZERO 
               SET SW2 TO ON
               GO TO RETURN-CODE-XIT. 
           IF RETURN-CODE EQUALS 8
               SET SW3 TO ON
               GO TO RETURN-CODE-XIT. 
           IF RETURN-CODE EQUALS 12 
               SET SW4 TO ON. 
       RETURN-CODE-XIT. 
           EXIT.
