*COMDECK CON$PAR
   COMMON CON$PAR            ;
                             BEGIN
   ARRAY CTYPE S(1)          ;# RETURNED PARAM FROM CSTATUS MACRO      #
                             BEGIN
   ITEM CONWORD#0,0,60#      U(0,0,60)=[0];# FULL WORD OF CONSOLE TYPE #
   ITEM CONTYPE#U,0,0,12#    U(0,0,12);    # ACTUAL CONSOLE TYPE FIELD #
                             END
                             END
                                                                       #
*                                                                     ##
          USE    *
                                                                      ##
*                                                                      #
