*DECK UNIVERS 
          IDENT  UNIVERS     - UNIVERSAL CHARACTER ENTRY POINT
          COMMENT  UNIVERSAL CHARACTER INFORMATION
UNIVERS   TITLE    UNIVERS - UNIVERSAL CHARACTER INFORMATION
          ENTRY  UNIVERS
UNIVERS   DATA   100B   THIS CELL WILL RECEIVE THE UNIVERSAL
*                            CHARACTER SUPPLIED WITH THE UNIVERSAL
*                            DIRECTIVE.  IT IS INITIALLY SET TO 0 TO
*                            INDICATE THAT NO SUCH DIRECTIVE HAS BEEN 
*                            GIVEN YET. 
          ENTRY   RTBLCAL 
RTBLCAL   DATA   0
          END 
