C   TYPE CODES
C      1  COMMENT      2  CONTINUATION 3  ASSIGNMENT   4  ASSIGN TO 
C      5  GO TO        6  ASSIGN GO TO 7  COMP. GO TO  8  ARITH. IF 
C      9  LOGICAL IF   10 DO           11 CONTINUE     12 CALL
C      13 RETURN       14 STOP         15 PAUSE        16 READ
C      17 WRITE        18 REWIND       19 BACKSPACE    20 END FILE
C      21 FORMAT       22 INTEGER      23 REAL         24 DOUB PREC 
C      25 COMPLEX      26 LOGICAL      27 EXTERNAL     28 DIMENSION 
C      29 COMMON       30 EQUIVALENCE  31 DATA         32 BLOCK DATA
C      33 SUBROUTINE   34 FUNCTION     35 END          36 *ROUGUE*
C      37 ENTRY        38 IMPLICIT     39 DEFINE FILE  40 PRINT 
C      41 NAMELIST     42 PUNCH        43 PROGRAM      44 LABELNAME 
C      45 REREAD       46 DEBUG        47 ENCODE       48 DECODE
C      49 BYTE         50 ACCEPT       51 TYPE         52 PARAMETER
C      53 VIRTUAL
C   DECLARATIONS
      BYTE  BSTRT(54)
      DIMENSION KALP(34),KSUC(68),KFAL(68),KF(4),KPARM(9)
      DIMENSION KSTRT(27) 
      EQUIVALENCE (KSTRT, BSTRT)
      DATA KF/2HFU,2HNC,2HTI,2HON/ 
      DATA KC   ,KD   ,KBLNK,KLPAR,KRPAR,KEQ  ,KAPOS
     $    /   67,   68,   32,   40,   41,   61,   39/
C    $    /Z00C3,Z00C4,Z0040,Z004D,Z005D,Z007E,Z007D/ 
      DATA KH   ,KSLSH,KASTK,KZERO,KCMA 
     &    /   72,   47,   42,   48,  44/
C    $    /Z00C8,Z0061,Z005C,Z00F0,Z006B/ 
C                  P  A  R  A  M  E  T  E  R
      DATA KPARM /80,65,82,65,77,69,84,69,82/
C   CHARACTER SCAN FOR TREE SCAN
C     DATA KALP/20HIFNGOTO(CAONMMPREADL,
C    $          20HTWFOUDIAOUWSTUENDFXQ,
C    $          20HBALALPARTMENUIOOARFB,
C    $           8HTCCYSCT /
      DATA KALP/'IF','NG','OT','O(','CA','ON','MM','PR','EA','DL',
     $          'TW','FO','UD','IA','OU','WS','TU','EN','DF','XQ',
     $          'BA','LA','LP','AR','TM','EN','UI','OO','AR','FB',
     $          'TC','CY','SC','TV'/
C   SUCCEED LINK FOR TREE SCAN
      DATA KSUC/2,-8,61,5,6,7,8,-7,10,-12,12,-11,14,-29,-25,17,18,19,- 
     1 16,-23,-13,-18,24,-21,-34,27,-28,-31,30,-24,-17,33,-14,-33,36,37,
     2 38,-20,-27,-30,42,-19,-32,65, 56,47,-15, 54,-37,-38, 59,-41,-42, 
     3 -40,-43,-26,-44,-45,-39,-46,-22,-47,-48,-49,-4,-50,-51,-53/ 
C   FAIL LINK FOR TREE SCAN 
      DATA KFAL/4,3, 50,9,-36,-36,-36,-5,16,11,-36,13,-36,15,-36,23,-36,
     1 21,20,-36,22, 58,26,25,-36,31,28,29, 51,-36,32,35,34,-36,41,39,49
     2 ,-35,40,-36,44,43, 64,45,46,52,48, 53, 62,-36,-36,67,-36,55,-36,
     3 57,-36,-36,60, 63,-36,-36,-36,-36,66,-36,68,-36/ 
C   START COUNTER TO POINT PAST FORTRAN KEYWORDS
C     DATA KSTRT/Z0000,Z0006,Z0004,Z0402,Z0202,Z0004,Z0000,Z0004,Z0506, 
C    $           Z0907,Z0007,Z040F,Z0707,Z0809,Z060B,Z0409,Z0A08,Z0000, 
C    $           Z0508,Z0A05,Z0805,Z0709,Z0605,Z0606,Z0409,Z0700/
      DATA BSTRT/0,0, 0,6, 0,4, 4,2, 2,2, 0,4, 0,0, 0,4, 5,6,
     $           9,7, 0,7, 4,15,7,7, 8,9, 6,11,4,9, 10,8,0,0,
     $           5,8, 10,5,8,5, 7,9, 6,5, 6,6, 4,6,  4,9, 7,0/