BLOCK DATA CMTABD
C
C     COMMAND TABLE BLOCK DATA -- CMTABLBD
C
INCLUDE,L (SCANLIB.PARAMS)
INCLUDE,L (SCANLIB.CMTABL)
INCLUDE,L (SCANLIB.CMTABL.EQUIVS)
C
C     TABLES OF COMMAND KEYWORDS AND INITIAL LIST TYPE CODES --
C
      DATA CMDTBE( 1) / 'CMD01 ' / , CARGTP( 1) /1/
      DATA CMDTBE( 2) / 'CMD02 ' / , CARGTP( 2) /1/
      DATA CMDTBE( 3) / 'CMD03 ' / , CARGTP( 3) /2/
      DATA CMDTBE( 4) / 'CMD04 ' / , CARGTP( 4) /2/
      DATA CMDTBE( 5) / 'CMD05 ' / , CARGTP( 5) /3/
      DATA CMDTBE( 6) / 'CMD06 ' / , CARGTP( 6) /3/
      DATA CMDTBE( 7) / 'CMD07 ' / , CARGTP( 7) /4/
      DATA CMDTBE( 8) / 'CMD08 ' / , CARGTP( 8) /4/
      DATA CMDTBE( 9) / 'CMD09 ' / , CARGTP( 9) /1/
      DATA CMDTBE(10) / 'XXXXXX' / , CARGTP(10) /1/
      DATA CMDTBE(11) / 'XXXXXX' / , CARGTP(11) /1/
      DATA CMDTBE(12) / 'XXXXXX' / , CARGTP(12) /1/
      DATA CMDTBE(13) / 'XXXXXX' / , CARGTP(13) /1/
      DATA CMDTBE(14) / 'XXXXXX' / , CARGTP(14) /1/
      DATA CMDTBE(15) / 'XXXXXX' / , CARGTP(15) /1/
      DATA CMDTBE(16) / 'XXXXXX' / , CARGTP(16) /1/
      DATA CMDTBE(17) / 'XXXXXX' / , CARGTP(17) /1/
      DATA CMDTBE(18) / 'XXXXXX' / , CARGTP(18) /1/
      DATA CMDTBE(19) / 'XXXXXX' / , CARGTP(19) /1/
      DATA CMDTBE(20) / 'XXXXXX' / , CARGTP(20) /1/
      DATA CMDTBE(21) / 'XXXXXX' / , CARGTP(21) /1/
      DATA CMDTBE(22) / 'XXXXXX' / , CARGTP(22) /1/
      DATA CMDTBE(23) / 'XXXXXX' / , CARGTP(23) /1/
      DATA CMDTBE(24) / 'XXXXXX' / , CARGTP(24) /1/
      DATA CMDTBE(25) / 'XXXXXX' / , CARGTP(25) /1/
      DATA CMDTBE(26) / 'XXXXXX' / , CARGTP(26) /1/
      DATA CMDTBE(27) / 'XXXXXX' / , CARGTP(27) /1/
      DATA CMDTBE(28) / 'XXXXXX' / , CARGTP(28) /1/
      DATA CMDTBE(29) / 'XXXXXX' / , CARGTP(29) /1/
      DATA CMDTBE(30) / 'XXXXXX' / , CARGTP(30) /1/
      DATA CMDTBE(31) / 'XXXXXX' / , CARGTP(31) /1/
      DATA CMDTBE(32) / 'XXXXXX' / , CARGTP(32) /1/
      DATA CMDTBE(33) / 'XXXXXX' / , CARGTP(33) /1/
      DATA CMDTBE(34) / 'XXXXXX' / , CARGTP(34) /1/
      DATA CMDTBE(35) / 'XXXXXX' / , CARGTP(35) /1/
      DATA CMDTBE(36) / 'XXXXXX' / , CARGTP(36) /1/
      DATA CMDTBE(37) / 'XXXXXX' / , CARGTP(37) /1/
      DATA CMDTBE(38) / 'XXXXXX' / , CARGTP(38) /1/
      DATA CMDTBE(39) / 'XXXXXX' / , CARGTP(39) /1/
      DATA CMDTBE(40) / 'XXXXXX' / , CARGTP(40) /1/
      DATA CMDTBE(41) / 'XXXXXX' / , CARGTP(41) /1/
      DATA CMDTBE(42) / 'XXXXXX' / , CARGTP(42) /1/
      DATA CMDTBE(43) / 'XXXXXX' / , CARGTP(43) /1/
      DATA CMDTBE(44) / 'XXXXXX' / , CARGTP(44) /1/
      DATA CMDTBE(45) / 'XXXXXX' / , CARGTP(45) /1/
      DATA CMDTBE(46) / 'XXXXXX' / , CARGTP(46) /1/
      DATA CMDTBE(47) / 'XXXXXX' / , CARGTP(47) /1/
      DATA CMDTBE(48) / 'XXXXXX' / , CARGTP(48) /1/
      DATA CMDTBE(49) / 'XXXXXX' / , CARGTP(49) /1/
      DATA CMDTBE(50) / 'XXXXXX' / , CARGTP(50) /1/
C
C     TABLES OF ARGUMENT KEYWORDS AND LIST TYPE CODES --
C
      DATA KWDTBE( 1) / 'KWD01 ' / , KARGTP( 1) /1/
      DATA KWDTBE( 2) / 'KWD02 ' / , KARGTP( 2) /1/
      DATA KWDTBE( 3) / 'KWD03 ' / , KARGTP( 3) /2/
      DATA KWDTBE( 4) / 'KWD04 ' / , KARGTP( 4) /2/
      DATA KWDTBE( 5) / 'KWD05 ' / , KARGTP( 5) /3/
      DATA KWDTBE( 6) / 'KWD06 ' / , KARGTP( 6) /3/
      DATA KWDTBE( 7) / 'KWD07 ' / , KARGTP( 7) /4/
      DATA KWDTBE( 8) / 'KWD08 ' / , KARGTP( 8) /4/
      DATA KWDTBE( 9) / 'KWD09 ' / , KARGTP( 9) /1/
      DATA KWDTBE(10) / 'XXXXXX' / , KARGTP(10) /1/
      DATA KWDTBE(11) / 'XXXXXX' / , KARGTP(11) /1/
      DATA KWDTBE(12) / 'XXXXXX' / , KARGTP(12) /1/
      DATA KWDTBE(13) / 'XXXXXX' / , KARGTP(13) /1/
      DATA KWDTBE(14) / 'XXXXXX' / , KARGTP(14) /1/
      DATA KWDTBE(15) / 'XXXXXX' / , KARGTP(15) /1/
      DATA KWDTBE(16) / 'XXXXXX' / , KARGTP(16) /1/
      DATA KWDTBE(17) / 'XXXXXX' / , KARGTP(17) /1/
      DATA KWDTBE(18) / 'XXXXXX' / , KARGTP(18) /1/
      DATA KWDTBE(19) / 'XXXXXX' / , KARGTP(19) /1/
      DATA KWDTBE(20) / 'XXXXXX' / , KARGTP(20) /1/
      DATA KWDTBE(21) / 'XXXXXX' / , KARGTP(21) /1/
      DATA KWDTBE(22) / 'XXXXXX' / , KARGTP(22) /1/
      DATA KWDTBE(23) / 'XXXXXX' / , KARGTP(23) /1/
      DATA KWDTBE(24) / 'XXXXXX' / , KARGTP(24) /1/
      DATA KWDTBE(25) / 'XXXXXX' / , KARGTP(25) /1/
      DATA KWDTBE(26) / 'XXXXXX' / , KARGTP(26) /1/
      DATA KWDTBE(27) / 'XXXXXX' / , KARGTP(27) /1/
      DATA KWDTBE(28) / 'XXXXXX' / , KARGTP(28) /1/
      DATA KWDTBE(29) / 'XXXXXX' / , KARGTP(29) /1/
      DATA KWDTBE(30) / 'XXXXXX' / , KARGTP(30) /1/
      DATA KWDTBE(31) / 'XXXXXX' / , KARGTP(31) /1/
      DATA KWDTBE(32) / 'XXXXXX' / , KARGTP(32) /1/
      DATA KWDTBE(33) / 'XXXXXX' / , KARGTP(33) /1/
      DATA KWDTBE(34) / 'XXXXXX' / , KARGTP(34) /1/
      DATA KWDTBE(35) / 'XXXXXX' / , KARGTP(35) /1/
      DATA KWDTBE(36) / 'XXXXXX' / , KARGTP(36) /1/
      DATA KWDTBE(37) / 'XXXXXX' / , KARGTP(37) /1/
      DATA KWDTBE(38) / 'XXXXXX' / , KARGTP(38) /1/
      DATA KWDTBE(39) / 'XXXXXX' / , KARGTP(39) /1/
      DATA KWDTBE(40) / 'XXXXXX' / , KARGTP(40) /1/
      DATA KWDTBE(41) / 'XXXXXX' / , KARGTP(41) /1/
      DATA KWDTBE(42) / 'XXXXXX' / , KARGTP(42) /1/
      DATA KWDTBE(43) / 'XXXXXX' / , KARGTP(43) /1/
      DATA KWDTBE(44) / 'XXXXXX' / , KARGTP(44) /1/
      DATA KWDTBE(45) / 'XXXXXX' / , KARGTP(45) /1/
      DATA KWDTBE(46) / 'XXXXXX' / , KARGTP(46) /1/
      DATA KWDTBE(47) / 'XXXXXX' / , KARGTP(47) /1/
      DATA KWDTBE(48) / 'XXXXXX' / , KARGTP(48) /1/
      DATA KWDTBE(49) / 'XXXXXX' / , KARGTP(49) /1/
      DATA KWDTBE(50) / 'XXXXXX' / , KARGTP(50) /1/
      DATA KWDTBE(51) / 'XXXXXX' / , KARGTP(51) /1/
      DATA KWDTBE(52) / 'XXXXXX' / , KARGTP(52) /1/
      DATA KWDTBE(53) / 'XXXXXX' / , KARGTP(53) /1/
      DATA KWDTBE(54) / 'XXXXXX' / , KARGTP(54) /1/
      DATA KWDTBE(55) / 'XXXXXX' / , KARGTP(55) /1/
      DATA KWDTBE(56) / 'XXXXXX' / , KARGTP(56) /1/
      DATA KWDTBE(57) / 'XXXXXX' / , KARGTP(57) /1/
      DATA KWDTBE(58) / 'XXXXXX' / , KARGTP(58) /1/
      DATA KWDTBE(59) / 'XXXXXX' / , KARGTP(59) /1/
      DATA KWDTBE(60) / 'XXXXXX' / , KARGTP(60) /1/
      DATA KWDTBE(61) / 'XXXXXX' / , KARGTP(61) /1/
      DATA KWDTBE(62) / 'XXXXXX' / , KARGTP(62) /1/
      DATA KWDTBE(63) / 'XXXXXX' / , KARGTP(63) /1/
      DATA KWDTBE(64) / 'XXXXXX' / , KARGTP(64) /1/
      DATA KWDTBE(65) / 'XXXXXX' / , KARGTP(65) /1/
      DATA KWDTBE(66) / 'XXXXXX' / , KARGTP(66) /1/
      DATA KWDTBE(67) / 'XXXXXX' / , KARGTP(67) /1/
      DATA KWDTBE(68) / 'XXXXXX' / , KARGTP(68) /1/
      DATA KWDTBE(69) / 'XXXXXX' / , KARGTP(69) /1/
      DATA KWDTBE(70) / 'XXXXXX' / , KARGTP(70) /1/
      DATA KWDTBE(71) / 'XXXXXX' / , KARGTP(71) /1/
      DATA KWDTBE(72) / 'XXXXXX' / , KARGTP(72) /1/
      DATA KWDTBE(73) / 'XXXXXX' / , KARGTP(73) /1/
      DATA KWDTBE(74) / 'XXXXXX' / , KARGTP(74) /1/
      DATA KWDTBE(75) / 'XXXXXX' / , KARGTP(75) /1/
      DATA KWDTBE(76) / 'XXXXXX' / , KARGTP(76) /1/
      DATA KWDTBE(77) / 'XXXXXX' / , KARGTP(77) /1/
      DATA KWDTBE(78) / 'XXXXXX' / , KARGTP(78) /1/
      DATA KWDTBE(79) / 'XXXXXX' / , KARGTP(79) /1/
      DATA KWDTBE(80) / 'XXXXXX' / , KARGTP(80) /1/
      DATA KWDTBE(81) / 'XXXXXX' / , KARGTP(81) /1/
      DATA KWDTBE(82) / 'XXXXXX' / , KARGTP(82) /1/
      DATA KWDTBE(83) / 'XXXXXX' / , KARGTP(83) /1/
      DATA KWDTBE(84) / 'XXXXXX' / , KARGTP(84) /1/
      DATA KWDTBE(85) / 'XXXXXX' / , KARGTP(85) /1/
      DATA KWDTBE(86) / 'XXXXXX' / , KARGTP(86) /1/
      DATA KWDTBE(87) / 'XXXXXX' / , KARGTP(87) /1/
      DATA KWDTBE(88) / 'XXXXXX' / , KARGTP(88) /1/
      DATA KWDTBE(89) / 'XXXXXX' / , KARGTP(89) /1/
      DATA KWDTBE(90) / 'XXXXXX' / , KARGTP(90) /1/
      DATA KWDTBE(91) / 'XXXXXX' / , KARGTP(91) /1/
      DATA KWDTBE(92) / 'XXXXXX' / , KARGTP(92) /1/
      DATA KWDTBE(93) / 'XXXXXX' / , KARGTP(93) /1/
      DATA KWDTBE(94) / 'XXXXXX' / , KARGTP(94) /1/
      DATA KWDTBE(95) / 'XXXXXX' / , KARGTP(95) /1/
      DATA KWDTBE(96) / 'XXXXXX' / , KARGTP(96) /1/
      DATA KWDTBE(97) / 'XXXXXX' / , KARGTP(97) /1/
      DATA KWDTBE(98) / 'XXXXXX' / , KARGTP(98) /1/
      DATA KWDTBE(99) / 'XXXXXX' / , KARGTP(99) /1/
      DATA KWDTBE(100)/ 'XXXXXX' / , KARGTP(100)/1/
C
C     TABLE OF NAME LIST ITEM KEYWORDS --
C
      DATA NAMTBE(  1) / 'NAM01 ' /
      DATA NAMTBE(  2) / 'NAM02 ' /
      DATA NAMTBE(  3) / 'NAM03 ' /
      DATA NAMTBE(  4) / 'NAM04 ' /
      DATA NAMTBE(  5) / 'NAM05 ' /
      DATA NAMTBE(  6) / 'NAM06 ' /
      DATA NAMTBE(  7) / 'NAM07 ' /
      DATA NAMTBE(  8) / 'NAM08 ' /
      DATA NAMTBE(  9) / 'NAM09 ' /
      DATA NAMTBE( 10) / 'XXXXXX' /
      DATA NAMTBE( 11) / 'XXXXXX' /
      DATA NAMTBE( 12) / 'XXXXXX' /
      DATA NAMTBE( 13) / 'XXXXXX' /
      DATA NAMTBE( 14) / 'XXXXXX' /
      DATA NAMTBE( 15) / 'XXXXXX' /
      DATA NAMTBE( 16) / 'XXXXXX' /
      DATA NAMTBE( 17) / 'XXXXXX' /
      DATA NAMTBE( 18) / 'XXXXXX' /
      DATA NAMTBE( 19) / 'XXXXXX' /
      DATA NAMTBE( 20) / 'XXXXXX' /
      DATA NAMTBE( 21) / 'XXXXXX' /
      DATA NAMTBE( 22) / 'XXXXXX' /
      DATA NAMTBE( 23) / 'XXXXXX' /
      DATA NAMTBE( 24) / 'XXXXXX' /
      DATA NAMTBE( 25) / 'XXXXXX' /
      DATA NAMTBE( 26) / 'XXXXXX' /
      DATA NAMTBE( 27) / 'XXXXXX' /
      DATA NAMTBE( 28) / 'XXXXXX' /
      DATA NAMTBE( 29) / 'XXXXXX' /
      DATA NAMTBE( 30) / 'XXXXXX' /
      DATA NAMTBE( 31) / 'XXXXXX' /
      DATA NAMTBE( 32) / 'XXXXXX' /
      DATA NAMTBE( 33) / 'XXXXXX' /
      DATA NAMTBE( 34) / 'XXXXXX' /
      DATA NAMTBE( 35) / 'XXXXXX' /
      DATA NAMTBE( 36) / 'XXXXXX' /
      DATA NAMTBE( 37) / 'XXXXXX' /
      DATA NAMTBE( 38) / 'XXXXXX' /
      DATA NAMTBE( 39) / 'XXXXXX' /
      DATA NAMTBE( 40) / 'XXXXXX' /
      DATA NAMTBE( 41) / 'XXXXXX' /
      DATA NAMTBE( 42) / 'XXXXXX' /
      DATA NAMTBE( 43) / 'XXXXXX' /
      DATA NAMTBE( 44) / 'XXXXXX' /
      DATA NAMTBE( 45) / 'XXXXXX' /
      DATA NAMTBE( 46) / 'XXXXXX' /
      DATA NAMTBE( 47) / 'XXXXXX' /
      DATA NAMTBE( 48) / 'XXXXXX' /
      DATA NAMTBE( 49) / 'XXXXXX' /
      DATA NAMTBE( 50) / 'XXXXXX' /
      DATA NAMTBE( 51) / 'XXXXXX' /
      DATA NAMTBE( 52) / 'XXXXXX' /
      DATA NAMTBE( 53) / 'XXXXXX' /
      DATA NAMTBE( 54) / 'XXXXXX' /
      DATA NAMTBE( 55) / 'XXXXXX' /
      DATA NAMTBE( 56) / 'XXXXXX' /
      DATA NAMTBE( 57) / 'XXXXXX' /
      DATA NAMTBE( 58) / 'XXXXXX' /
      DATA NAMTBE( 59) / 'XXXXXX' /
      DATA NAMTBE( 60) / 'XXXXXX' /
      DATA NAMTBE( 61) / 'XXXXXX' /
      DATA NAMTBE( 62) / 'XXXXXX' /
      DATA NAMTBE( 63) / 'XXXXXX' /
      DATA NAMTBE( 64) / 'XXXXXX' /
      DATA NAMTBE( 65) / 'XXXXXX' /
      DATA NAMTBE( 66) / 'XXXXXX' /
      DATA NAMTBE( 67) / 'XXXXXX' /
      DATA NAMTBE( 68) / 'XXXXXX' /
      DATA NAMTBE( 69) / 'XXXXXX' /
      DATA NAMTBE( 70) / 'XXXXXX' /
      DATA NAMTBE( 71) / 'XXXXXX' /
      DATA NAMTBE( 72) / 'XXXXXX' /
      DATA NAMTBE( 73) / 'XXXXXX' /
      DATA NAMTBE( 74) / 'XXXXXX' /
      DATA NAMTBE( 75) / 'XXXXXX' /
      DATA NAMTBE( 76) / 'XXXXXX' /
      DATA NAMTBE( 77) / 'XXXXXX' /
      DATA NAMTBE( 78) / 'XXXXXX' /
      DATA NAMTBE( 79) / 'XXXXXX' /
      DATA NAMTBE( 80) / 'XXXXXX' /
      DATA NAMTBE( 81) / 'XXXXXX' /
      DATA NAMTBE( 82) / 'XXXXXX' /
      DATA NAMTBE( 83) / 'XXXXXX' /
      DATA NAMTBE( 84) / 'XXXXXX' /
      DATA NAMTBE( 85) / 'XXXXXX' /
      DATA NAMTBE( 86) / 'XXXXXX' /
      DATA NAMTBE( 87) / 'XXXXXX' /
      DATA NAMTBE( 88) / 'XXXXXX' /
      DATA NAMTBE( 89) / 'XXXXXX' /
      DATA NAMTBE( 90) / 'XXXXXX' /
      DATA NAMTBE( 91) / 'XXXXXX' /
      DATA NAMTBE( 92) / 'XXXXXX' /
      DATA NAMTBE( 93) / 'XXXXXX' /
      DATA NAMTBE( 94) / 'XXXXXX' /
      DATA NAMTBE( 95) / 'XXXXXX' /
      DATA NAMTBE( 96) / 'XXXXXX' /
      DATA NAMTBE( 97) / 'XXXXXX' /
      DATA NAMTBE( 98) / 'XXXXXX' /
      DATA NAMTBE( 99) / 'XXXXXX' /
      DATA NAMTBE(100) / 'XXXXXX' /
      DATA NAMTBE(101) / 'XXXXXX' /
      DATA NAMTBE(102) / 'XXXXXX' /
      DATA NAMTBE(103) / 'XXXXXX' /
      DATA NAMTBE(104) / 'XXXXXX' /
      DATA NAMTBE(105) / 'XXXXXX' /
      DATA NAMTBE(106) / 'XXXXXX' /
      DATA NAMTBE(107) / 'XXXXXX' /
      DATA NAMTBE(108) / 'XXXXXX' /
      DATA NAMTBE(109) / 'XXXXXX' /
      DATA NAMTBE(110) / 'XXXXXX' /
      DATA NAMTBE(111) / 'XXXXXX' /
      DATA NAMTBE(112) / 'XXXXXX' /
      DATA NAMTBE(113) / 'XXXXXX' /
      DATA NAMTBE(114) / 'XXXXXX' /
      DATA NAMTBE(115) / 'XXXXXX' /
      DATA NAMTBE(116) / 'XXXXXX' /
      DATA NAMTBE(117) / 'XXXXXX' /
      DATA NAMTBE(118) / 'XXXXXX' /
      DATA NAMTBE(119) / 'XXXXXX' /
      DATA NAMTBE(120) / 'XXXXXX' /
      DATA NAMTBE(121) / 'XXXXXX' /
      DATA NAMTBE(122) / 'XXXXXX' /
      DATA NAMTBE(123) / 'XXXXXX' /
      DATA NAMTBE(124) / 'XXXXXX' /
      DATA NAMTBE(125) / 'XXXXXX' /
      DATA NAMTBE(126) / 'XXXXXX' /
      DATA NAMTBE(127) / 'XXXXXX' /
      DATA NAMTBE(128) / 'XXXXXX' /
      DATA NAMTBE(129) / 'XXXXXX' /
      DATA NAMTBE(130) / 'XXXXXX' /
      DATA NAMTBE(131) / 'XXXXXX' /
      DATA NAMTBE(132) / 'XXXXXX' /
      DATA NAMTBE(133) / 'XXXXXX' /
      DATA NAMTBE(134) / 'XXXXXX' /
      DATA NAMTBE(135) / 'XXXXXX' /
      DATA NAMTBE(136) / 'XXXXXX' /
      DATA NAMTBE(137) / 'XXXXXX' /
      DATA NAMTBE(138) / 'XXXXXX' /
      DATA NAMTBE(139) / 'XXXXXX' /
      DATA NAMTBE(140) / 'XXXXXX' /
      DATA NAMTBE(141) / 'XXXXXX' /
      DATA NAMTBE(142) / 'XXXXXX' /
      DATA NAMTBE(143) / 'XXXXXX' /
      DATA NAMTBE(144) / 'XXXXXX' /
      DATA NAMTBE(145) / 'XXXXXX' /
      DATA NAMTBE(146) / 'XXXXXX' /
      DATA NAMTBE(147) / 'XXXXXX' /
      DATA NAMTBE(148) / 'XXXXXX' /
      DATA NAMTBE(149) / 'XXXXXX' /
      DATA NAMTBE(150) / 'XXXXXX' /
      DATA NAMTBE(151) / 'XXXXXX' /
      DATA NAMTBE(152) / 'XXXXXX' /
      DATA NAMTBE(153) / 'XXXXXX' /
      DATA NAMTBE(154) / 'XXXXXX' /
      DATA NAMTBE(155) / 'XXXXXX' /
      DATA NAMTBE(156) / 'XXXXXX' /
      DATA NAMTBE(157) / 'XXXXXX' /
      DATA NAMTBE(158) / 'XXXXXX' /
      DATA NAMTBE(159) / 'XXXXXX' /
      DATA NAMTBE(160) / 'XXXXXX' /
      DATA NAMTBE(161) / 'XXXXXX' /
      DATA NAMTBE(162) / 'XXXXXX' /
      DATA NAMTBE(163) / 'XXXXXX' /
      DATA NAMTBE(164) / 'XXXXXX' /
      DATA NAMTBE(165) / 'XXXXXX' /
      DATA NAMTBE(166) / 'XXXXXX' /
      DATA NAMTBE(167) / 'XXXXXX' /
      DATA NAMTBE(168) / 'XXXXXX' /
      DATA NAMTBE(169) / 'XXXXXX' /
      DATA NAMTBE(170) / 'XXXXXX' /
      DATA NAMTBE(171) / 'XXXXXX' /
      DATA NAMTBE(172) / 'XXXXXX' /
      DATA NAMTBE(173) / 'XXXXXX' /
      DATA NAMTBE(174) / 'XXXXXX' /
      DATA NAMTBE(175) / 'XXXXXX' /
      DATA NAMTBE(176) / 'XXXXXX' /
      DATA NAMTBE(177) / 'XXXXXX' /
      DATA NAMTBE(178) / 'XXXXXX' /
      DATA NAMTBE(179) / 'XXXXXX' /
      DATA NAMTBE(180) / 'XXXXXX' /
      DATA NAMTBE(181) / 'XXXXXX' /
      DATA NAMTBE(182) / 'XXXXXX' /
      DATA NAMTBE(183) / 'XXXXXX' /
      DATA NAMTBE(184) / 'XXXXXX' /
      DATA NAMTBE(185) / 'XXXXXX' /
      DATA NAMTBE(186) / 'XXXXXX' /
      DATA NAMTBE(187) / 'XXXXXX' /
      DATA NAMTBE(188) / 'XXXXXX' /
      DATA NAMTBE(189) / 'XXXXXX' /
      DATA NAMTBE(190) / 'XXXXXX' /
      DATA NAMTBE(191) / 'XXXXXX' /
      DATA NAMTBE(192) / 'XXXXXX' /
      DATA NAMTBE(193) / 'XXXXXX' /
      DATA NAMTBE(194) / 'XXXXXX' /
      DATA NAMTBE(195) / 'XXXXXX' /
      DATA NAMTBE(196) / 'XXXXXX' /
      DATA NAMTBE(197) / 'XXXXXX' /
      DATA NAMTBE(198) / 'XXXXXX' /
      DATA NAMTBE(199) / 'XXXXXX' /
      DATA NAMTBE(200) / 'XXXXXX' /
C
C     TABLES OF MAX NUMBER OF LIST ITEMS AND LIST INDEXES
C     FOR INITIAL LIST, BY COMMAND --
C
      DATA CNARGS(  1) / -1 / , CLSTDX(  1) /  1 /
      DATA CNARGS(  2) /  1 / , CLSTDX(  2) /  2 /
      DATA CNARGS(  3) / -2 / , CLSTDX(  3) /  1 /
      DATA CNARGS(  4) /  2 / , CLSTDX(  4) /  2 /
      DATA CNARGS(  5) / -3 / , CLSTDX(  5) /  1 /
      DATA CNARGS(  6) /  3 / , CLSTDX(  6) /  2 /
      DATA CNARGS(  7) / -4 / , CLSTDX(  7) /  1 /
      DATA CNARGS(  8) /  4 / , CLSTDX(  8) /  2 /
      DATA CNARGS(  9) /  1 / , CLSTDX(  9) /  1 /
      DATA CNARGS( 10) /  1 / , CLSTDX( 10) /  1 /
      DATA CNARGS( 11) /  1 / , CLSTDX( 11) /  1 /
      DATA CNARGS( 12) /  1 / , CLSTDX( 12) /  1 /
      DATA CNARGS( 13) /  1 / , CLSTDX( 13) /  1 /
      DATA CNARGS( 14) /  1 / , CLSTDX( 14) /  1 /
      DATA CNARGS( 15) /  1 / , CLSTDX( 15) /  1 /
      DATA CNARGS( 16) /  1 / , CLSTDX( 16) /  1 /
      DATA CNARGS( 17) /  1 / , CLSTDX( 17) /  1 /
      DATA CNARGS( 18) /  1 / , CLSTDX( 18) /  1 /
      DATA CNARGS( 19) /  1 / , CLSTDX( 19) /  1 /
      DATA CNARGS( 20) /  1 / , CLSTDX( 20) /  1 /
      DATA CNARGS( 21) /  1 / , CLSTDX( 21) /  1 /
      DATA CNARGS( 22) /  1 / , CLSTDX( 22) /  1 /
      DATA CNARGS( 23) /  1 / , CLSTDX( 23) /  1 /
      DATA CNARGS( 24) /  1 / , CLSTDX( 24) /  1 /
      DATA CNARGS( 25) /  1 / , CLSTDX( 25) /  1 /
      DATA CNARGS( 26) /  1 / , CLSTDX( 26) /  1 /
      DATA CNARGS( 27) /  1 / , CLSTDX( 27) /  1 /
      DATA CNARGS( 28) /  1 / , CLSTDX( 28) /  1 /
      DATA CNARGS( 29) /  1 / , CLSTDX( 29) /  1 /
      DATA CNARGS( 30) /  1 / , CLSTDX( 30) /  1 /
      DATA CNARGS( 31) /  1 / , CLSTDX( 31) /  1 /
      DATA CNARGS( 32) /  1 / , CLSTDX( 32) /  1 /
      DATA CNARGS( 33) /  1 / , CLSTDX( 33) /  1 /
      DATA CNARGS( 34) /  1 / , CLSTDX( 34) /  1 /
      DATA CNARGS( 35) /  1 / , CLSTDX( 35) /  1 /
      DATA CNARGS( 36) /  1 / , CLSTDX( 36) /  1 /
      DATA CNARGS( 37) /  1 / , CLSTDX( 37) /  1 /
      DATA CNARGS( 38) /  1 / , CLSTDX( 38) /  1 /
      DATA CNARGS( 39) /  1 / , CLSTDX( 39) /  1 /
      DATA CNARGS( 40) /  1 / , CLSTDX( 40) /  1 /
      DATA CNARGS( 41) /  1 / , CLSTDX( 41) /  1 /
      DATA CNARGS( 42) /  1 / , CLSTDX( 42) /  1 /
      DATA CNARGS( 43) /  1 / , CLSTDX( 43) /  1 /
      DATA CNARGS( 44) /  1 / , CLSTDX( 44) /  1 /
      DATA CNARGS( 45) /  1 / , CLSTDX( 45) /  1 /
      DATA CNARGS( 46) /  1 / , CLSTDX( 46) /  1 /
      DATA CNARGS( 47) /  1 / , CLSTDX( 47) /  1 /
      DATA CNARGS( 48) /  1 / , CLSTDX( 48) /  1 /
      DATA CNARGS( 49) /  1 / , CLSTDX( 49) /  1 /
      DATA CNARGS( 50) /  1 / , CLSTDX( 50) /  1 /
C
C     TABLES OF MAX NUMBER OF LIST ITEMS, AND LIST INDEXES,
C     FOR KEYWORD ARGUMENT LISTS, BY KEYWORD --
C
      DATA KNARGS(  1) / -1 / , KLSTDX(  1) /  3 /
      DATA KNARGS(  2) /  1 / , KLSTDX(  2) /  4 /
      DATA KNARGS(  3) / -2 / , KLSTDX(  3) /  3 /
      DATA KNARGS(  4) /  2 / , KLSTDX(  4) /  4 /
      DATA KNARGS(  5) / -3 / , KLSTDX(  5) /  3 /
      DATA KNARGS(  6) /  3 / , KLSTDX(  6) /  4 /
      DATA KNARGS(  7) / -4 / , KLSTDX(  7) /  3 /
      DATA KNARGS(  8) /  4 / , KLSTDX(  8) /  4 /
      DATA KNARGS(  9) /  1 / , KLSTDX(  9) /  1 /
      DATA KNARGS( 10) /  1 / , KLSTDX( 10) /  1 /
      DATA KNARGS( 11) /  1 / , KLSTDX( 11) /  1 /
      DATA KNARGS( 12) /  1 / , KLSTDX( 12) /  1 /
      DATA KNARGS( 13) /  1 / , KLSTDX( 13) /  1 /
      DATA KNARGS( 14) /  1 / , KLSTDX( 14) /  1 /
      DATA KNARGS( 15) /  1 / , KLSTDX( 15) /  1 /
      DATA KNARGS( 16) /  1 / , KLSTDX( 16) /  1 /
      DATA KNARGS( 17) /  1 / , KLSTDX( 17) /  1 /
      DATA KNARGS( 18) /  1 / , KLSTDX( 18) /  1 /
      DATA KNARGS( 19) /  1 / , KLSTDX( 19) /  1 /
      DATA KNARGS( 20) /  1 / , KLSTDX( 20) /  1 /
      DATA KNARGS( 21) /  1 / , KLSTDX( 21) /  1 /
      DATA KNARGS( 22) /  1 / , KLSTDX( 22) /  1 /
      DATA KNARGS( 23) /  1 / , KLSTDX( 23) /  1 /
      DATA KNARGS( 24) /  1 / , KLSTDX( 24) /  1 /
      DATA KNARGS( 25) /  1 / , KLSTDX( 25) /  1 /
      DATA KNARGS( 26) /  1 / , KLSTDX( 26) /  1 /
      DATA KNARGS( 27) /  1 / , KLSTDX( 27) /  1 /
      DATA KNARGS( 28) /  1 / , KLSTDX( 28) /  1 /
      DATA KNARGS( 29) /  1 / , KLSTDX( 29) /  1 /
      DATA KNARGS( 30) /  1 / , KLSTDX( 30) /  1 /
      DATA KNARGS( 31) /  1 / , KLSTDX( 31) /  1 /
      DATA KNARGS( 32) /  1 / , KLSTDX( 32) /  1 /
      DATA KNARGS( 33) /  1 / , KLSTDX( 33) /  1 /
      DATA KNARGS( 34) /  1 / , KLSTDX( 34) /  1 /
      DATA KNARGS( 35) /  1 / , KLSTDX( 35) /  1 /
      DATA KNARGS( 36) /  1 / , KLSTDX( 36) /  1 /
      DATA KNARGS( 37) /  1 / , KLSTDX( 37) /  1 /
      DATA KNARGS( 38) /  1 / , KLSTDX( 38) /  1 /
      DATA KNARGS( 39) /  1 / , KLSTDX( 39) /  1 /
      DATA KNARGS( 40) /  1 / , KLSTDX( 40) /  1 /
      DATA KNARGS( 41) /  1 / , KLSTDX( 41) /  1 /
      DATA KNARGS( 42) /  1 / , KLSTDX( 42) /  1 /
      DATA KNARGS( 43) /  1 / , KLSTDX( 43) /  1 /
      DATA KNARGS( 44) /  1 / , KLSTDX( 44) /  1 /
      DATA KNARGS( 45) /  1 / , KLSTDX( 45) /  1 /
      DATA KNARGS( 46) /  1 / , KLSTDX( 46) /  1 /
      DATA KNARGS( 47) /  1 / , KLSTDX( 47) /  1 /
      DATA KNARGS( 48) /  1 / , KLSTDX( 48) /  1 /
      DATA KNARGS( 49) /  1 / , KLSTDX( 49) /  1 /
      DATA KNARGS( 50) /  1 / , KLSTDX( 50) /  1 /
      DATA KNARGS( 51) /  1 / , KLSTDX( 51) /  1 /
      DATA KNARGS( 52) /  1 / , KLSTDX( 52) /  1 /
      DATA KNARGS( 53) /  1 / , KLSTDX( 53) /  1 /
      DATA KNARGS( 54) /  1 / , KLSTDX( 54) /  1 /
      DATA KNARGS( 55) /  1 / , KLSTDX( 55) /  1 /
      DATA KNARGS( 56) /  1 / , KLSTDX( 56) /  1 /
      DATA KNARGS( 57) /  1 / , KLSTDX( 57) /  1 /
      DATA KNARGS( 58) /  1 / , KLSTDX( 58) /  1 /
      DATA KNARGS( 59) /  1 / , KLSTDX( 59) /  1 /
      DATA KNARGS( 60) /  1 / , KLSTDX( 60) /  1 /
      DATA KNARGS( 61) /  1 / , KLSTDX( 61) /  1 /
      DATA KNARGS( 62) /  1 / , KLSTDX( 62) /  1 /
      DATA KNARGS( 63) /  1 / , KLSTDX( 63) /  1 /
      DATA KNARGS( 64) /  1 / , KLSTDX( 64) /  1 /
      DATA KNARGS( 65) /  1 / , KLSTDX( 65) /  1 /
      DATA KNARGS( 66) /  1 / , KLSTDX( 66) /  1 /
      DATA KNARGS( 67) /  1 / , KLSTDX( 67) /  1 /
      DATA KNARGS( 68) /  1 / , KLSTDX( 68) /  1 /
      DATA KNARGS( 69) /  1 / , KLSTDX( 69) /  1 /
      DATA KNARGS( 70) /  1 / , KLSTDX( 70) /  1 /
      DATA KNARGS( 71) /  1 / , KLSTDX( 71) /  1 /
      DATA KNARGS( 72) /  1 / , KLSTDX( 72) /  1 /
      DATA KNARGS( 73) /  1 / , KLSTDX( 73) /  1 /
      DATA KNARGS( 74) /  1 / , KLSTDX( 74) /  1 /
      DATA KNARGS( 75) /  1 / , KLSTDX( 75) /  1 /
      DATA KNARGS( 76) /  1 / , KLSTDX( 76) /  1 /
      DATA KNARGS( 77) /  1 / , KLSTDX( 77) /  1 /
      DATA KNARGS( 78) /  1 / , KLSTDX( 78) /  1 /
      DATA KNARGS( 79) /  1 / , KLSTDX( 79) /  1 /
      DATA KNARGS( 80) /  1 / , KLSTDX( 80) /  1 /
      DATA KNARGS( 81) /  1 / , KLSTDX( 81) /  1 /
      DATA KNARGS( 82) /  1 / , KLSTDX( 82) /  1 /
      DATA KNARGS( 83) /  1 / , KLSTDX( 83) /  1 /
      DATA KNARGS( 84) /  1 / , KLSTDX( 84) /  1 /
      DATA KNARGS( 85) /  1 / , KLSTDX( 85) /  1 /
      DATA KNARGS( 86) /  1 / , KLSTDX( 86) /  1 /
      DATA KNARGS( 87) /  1 / , KLSTDX( 87) /  1 /
      DATA KNARGS( 88) /  1 / , KLSTDX( 88) /  1 /
      DATA KNARGS( 89) /  1 / , KLSTDX( 89) /  1 /
      DATA KNARGS( 90) /  1 / , KLSTDX( 90) /  1 /
      DATA KNARGS( 91) /  1 / , KLSTDX( 91) /  1 /
      DATA KNARGS( 92) /  1 / , KLSTDX( 92) /  1 /
      DATA KNARGS( 93) /  1 / , KLSTDX( 93) /  1 /
      DATA KNARGS( 94) /  1 / , KLSTDX( 94) /  1 /
      DATA KNARGS( 95) /  1 / , KLSTDX( 95) /  1 /
      DATA KNARGS( 96) /  1 / , KLSTDX( 96) /  1 /
      DATA KNARGS( 97) /  1 / , KLSTDX( 97) /  1 /
      DATA KNARGS( 98) /  1 / , KLSTDX( 98) /  1 /
      DATA KNARGS( 99) /  1 / , KLSTDX( 99) /  1 /
      DATA KNARGS(100) /  1 / , KLSTDX(100) /  1 /
C
C     TABLES OF INDEXES TO FIRST AND LAST KEYWORDS, BY COMMAND --
C
      DATA KWSTRT( 1) / 1 / , KWSTOP( 1) / 4 /
      DATA KWSTRT( 2) / 1 / , KWSTOP( 2) / 4 /
      DATA KWSTRT( 3) / 1 / , KWSTOP( 3) / 4 /
      DATA KWSTRT( 4) / 1 / , KWSTOP( 4) / 4 /
      DATA KWSTRT( 5) / 2 / , KWSTOP( 5) / 9 /
      DATA KWSTRT( 6) / 2 / , KWSTOP( 6) / 9 /
      DATA KWSTRT( 7) / 2 / , KWSTOP( 7) / 9 /
      DATA KWSTRT( 8) / 2 / , KWSTOP( 8) / 9 /
      DATA KWSTRT( 9) / 1 / , KWSTOP( 9) / 1 /
      DATA KWSTRT(10) / 1 / , KWSTOP(10) / 1 /
      DATA KWSTRT(11) / 1 / , KWSTOP(11) / 1 /
      DATA KWSTRT(12) / 1 / , KWSTOP(12) / 1 /
      DATA KWSTRT(13) / 1 / , KWSTOP(13) / 1 /
      DATA KWSTRT(14) / 1 / , KWSTOP(14) / 1 /
      DATA KWSTRT(15) / 1 / , KWSTOP(15) / 1 /
      DATA KWSTRT(16) / 1 / , KWSTOP(16) / 1 /
      DATA KWSTRT(17) / 1 / , KWSTOP(17) / 1 /
      DATA KWSTRT(18) / 1 / , KWSTOP(18) / 1 /
      DATA KWSTRT(19) / 1 / , KWSTOP(19) / 1 /
      DATA KWSTRT(20) / 1 / , KWSTOP(20) / 1 /
      DATA KWSTRT(21) / 1 / , KWSTOP(21) / 1 /
      DATA KWSTRT(22) / 1 / , KWSTOP(22) / 1 /
      DATA KWSTRT(22) / 1 / , KWSTOP(22) / 1 /
      DATA KWSTRT(24) / 1 / , KWSTOP(24) / 1 /
      DATA KWSTRT(25) / 1 / , KWSTOP(25) / 1 /
      DATA KWSTRT(26) / 1 / , KWSTOP(26) / 1 /
      DATA KWSTRT(27) / 1 / , KWSTOP(27) / 1 /
      DATA KWSTRT(28) / 1 / , KWSTOP(28) / 1 /
      DATA KWSTRT(29) / 1 / , KWSTOP(29) / 1 /
      DATA KWSTRT(30) / 1 / , KWSTOP(30) / 1 /
      DATA KWSTRT(31) / 1 / , KWSTOP(31) / 1 /
      DATA KWSTRT(32) / 1 / , KWSTOP(32) / 1 /
      DATA KWSTRT(33) / 1 / , KWSTOP(33) / 1 /
      DATA KWSTRT(34) / 1 / , KWSTOP(34) / 1 /
      DATA KWSTRT(35) / 1 / , KWSTOP(35) / 1 /
      DATA KWSTRT(36) / 1 / , KWSTOP(36) / 1 /
      DATA KWSTRT(37) / 1 / , KWSTOP(37) / 1 /
      DATA KWSTRT(38) / 1 / , KWSTOP(38) / 1 /
      DATA KWSTRT(39) / 1 / , KWSTOP(39) / 1 /
      DATA KWSTRT(40) / 1 / , KWSTOP(40) / 1 /
      DATA KWSTRT(41) / 1 / , KWSTOP(41) / 1 /
      DATA KWSTRT(42) / 1 / , KWSTOP(42) / 1 /
      DATA KWSTRT(43) / 1 / , KWSTOP(43) / 1 /
      DATA KWSTRT(44) / 1 / , KWSTOP(44) / 1 /
      DATA KWSTRT(45) / 1 / , KWSTOP(45) / 1 /
      DATA KWSTRT(46) / 1 / , KWSTOP(46) / 1 /
      DATA KWSTRT(47) / 1 / , KWSTOP(47) / 1 /
      DATA KWSTRT(48) / 1 / , KWSTOP(48) / 1 /
      DATA KWSTRT(49) / 1 / , KWSTOP(49) / 1 /
      DATA KWSTRT(50) / 1 / , KWSTOP(50) / 1 /
C
      DATA PUNTBL
     */ ' ' ,  '@' ,  ',' ,  '=' ,  ':' ,  '(' ,  ')' ,  '/' ,  ';' ,
     *'&'   /
      DATA PNCODE
     */NOISE,COMENT,LSTSEP,KEYSEP,LSTSEP,KEYSEP,ARGSEP,ARGSEP,CMTERM,
     *CONTIN/
      DATA EOL    /  73 /
      DATA CMUNIT /   5 /
      DATA ERUNIT /   6 /
      DATA NOECHO /   0 /
      DATA QUOTE  / '''' /
      END