BLOCK DATA 
 
      INTEGER  NINE 
      INTEGER  COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE 
      INTEGER  RBRACE, LBRACE, RETOP, CRUTCH 
      INTEGER  LPAREN, RPAREN, LBK, RBK 
      INTEGER  EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      INTEGER  PLUS, MINUS, MULT, DIVIDE, MODOP 
      INTEGER  OROP, ANDOP, AOROP, XOROP, AANDOP 
      INTEGER  LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      INTEGER  NEG, UPARO, DNARO, COM 
      INTEGER  LOC, GIZZY, QUOTE, ZRL, TEMPL 
      INTEGER  SP, DP, ST, HEX 
      INTEGER  ATSIGN 
      INTEGER  ICLP06 
      COMMON /OPERS/     NINE 
      COMMON /OPERS/     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE 
      COMMON /OPERS/     RBRACE, LBRACE, RETOP, CRUTCH 
      COMMON /OPERS/     LPAREN, RPAREN, LBK, RBK 
      COMMON /OPERS/     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW 
      COMMON /OPERS/     PLUS, MINUS, MULT, DIVIDE, MODOP 
      COMMON /OPERS/     OROP, ANDOP, AOROP, XOROP, AANDOP 
      COMMON /OPERS/     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT 
      COMMON /OPERS/     NEG, UPARO, DNARO, COM 
      COMMON /OPERS/     LOC, GIZZY, QUOTE, ZRL, TEMPL 
      COMMON /OPERS/     SP, DP, ST, HEX 
      COMMON /OPERS/    ATSIGN 
      COMMON /OPERS/    ICLP06 
      DATA     NINE     /1/ 
      DATA     COMMA, SEMIC, PERIOD, COLON, FOR, DOOP, WHILE /   2, 
     13,      4,     5,   6,    7,     8/ 
      DATA     RBRACE, LBRACE, RETOP, CRUTCH /    9,     10,    11, 
     112/ 
      DATA     LPAREN, RPAREN, LBK, RBK /   13,     14,  15,  16/ 
      DATA     EQUAL, NEQUAL, GTR, GEQ, LESS, LESSEQ, ARROW /  17,     1
     18,  19,  20,   21,     22,    23/ 
      DATA     PLUS, MINUS, MULT, DIVIDE, MODOP / 24,    25,   26,     2
     17,    28/ 
      DATA     OROP, ANDOP, AOROP, XOROP, AANDOP / 29,    30,    31, 
     132,     33/ 
      DATA     LSHIFT, RSHIFT, LCYCLE, RCYCLE, ALSHFT, ARSHFT /   34, 
     1 35,     36,     37,     38,     39/ 
      DATA     NEG, UPARO, DNARO, COM /40,    41,    42,  43/ 
      DATA     LOC, GIZZY, QUOTE, ZRL, TEMPL /44,    45,    46,  47, 
     148/ 
      DATA     SP, DP, ST, HEX /49, 50, 51,  52/ 
      DATA     ATSIGN /    53/ 
      END