Return to np1.F CVS log

Up to [CSRG BSD Unix] / 43BSDReno / games / dungeon

Annotation of 43BSDReno/games/dungeon/np1.F, revision 1.1

1.1     ! root        1: C SPARSE-      START OF PARSE
        !             2: C
        !             3: C COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142
        !             4: C ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED
        !             5: C WRITTEN BY R. M. SUPNIK
        !             6: C
        !             7: C DECLARATIONS
        !             8: C
        !             9: C THIS ROUTINE DETAILS ON BIT 2 OF PRSFLG
        !            10: C
        !            11:        INTEGER  FUNCTION  SPARSE(LBUF,LLNT,VBFLAG)
        !            12:        IMPLICIT INTEGER(A-Z)
        !            13:        INTEGER  LBUF(40)
        !            14:        LOGICAL  LIT,OTEST,VBFLAG
        !            15: #include "parser.h"
        !            16: #include "gamestate.h"
        !            17: #include "debug.h"
        !            18: #include "objects.h"
        !            19: #include "oindex.h"
        !            20: #include "advers.h"
        !            21: #include "verbs.h"
        !            22: #include "vocab.h"
        !            23: C SPARSE, PAGE 2
        !            24: C
        !            25: C FUNCTIONS AND DATA
        !            26: C
        !            27:        OTEST(R)=(R.GT.0).AND.(R.LT.R50MIN)
        !            28: C
        !            29: C   THE FOLLOWING DATA STATEMENT ORIGINALLY WAS:
        !            30: C
        !            31: C      DATA R50MIN/1RA/,R50WAL/3RWAL/
        !            32: C
        !            33:        DATA R50MIN/1600/,R50WAL/36852/
        !            34: C
        !            35: C BUZZ WORDS-- IGNORED IN SYNTACTIC PROCESSING
        !            36: C
        !            37: C   THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM:
        !            38: C
        !            39: C      DATA BVOC/3RAND,0,2RBY,0,2RIS,0,1RA,0,
        !            40: C&             2RAN,0,3RTHE,0,3RRUN,0,2RGO,0,3RPRO,3RCEE,0,0/
        !            41: C
        !            42:        DATA BVOC/2164,0,4200,0,15160,0,1600,0,
        !            43: &              2160,0,32325,0,29654,0,11800,0,26335,5005,0,0/
        !            44: C
        !            45: C
        !            46: C PREPOSITIONS--       MAPS PREPOSITIONS TO INDICES
        !            47: C
        !            48: C   THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM:
        !            49: C
        !            50: C      DATA PVOC/3ROVE,1RR,1,3RWIT,1RH,2,3RUSI,2RNG,2,3RTHR,3ROUG,2,
        !            51: C&             2RAT,0,3,2RTO,0,4,2RIN,0,5,3RINS,3RIDE,5,3RINT,1RO,5,
        !            52: C&             3RDOW,1RN,6,2RUP,0,7,3RUND,2RER,8,2ROF,0,9,2RON,0,10,
        !            53: C&             3ROFF,0,11/
        !            54: C
        !            55:        DATA PVOC/24885,28800,1,37180,12800,2,34369,22680,2,
        !            56: &              32338,24847,2,2400,0,3,32600,0,4,14960,0,5,
        !            57: &              14979,14565,5,14980,0,5,7023,22400,6,34240,0,7,
        !            58: &              34164,8720,8,24240,0,9,24560,0,10,24246,0,11/
        !            59: C
        !            60: C
        !            61: C DIRECTIONS-- MAPS DIRECTIONS TO INDICES
        !            62: C
        !            63: C   THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM:
        !            64: C
        !            65: C      DATA DVOC/1RN,0,"2000,3RNOR,2RTH,"2000,1RS,0,"12000,
        !            66: C&      1RE,0,"6000,3REAS,1RT,"6000,1RW,0,"16000,3RWES,1RT,"16000,
        !            67: C&      2RSE,0,"10000,2RSW,0,"14000,
        !            68: C&      2RNE,0,"4000,2RNW,0,"20000,
        !            69: C&      1RU,0,"22000,2RUP,0,"22000,1RD,0,"24000,3RDOW,1RN,"24000,
        !            70: C&      3RLAU,3RNCH,"26000,3RLAN,1RD,"30000,3RENT,2RER,"32000,
        !            71: C&      3REXI,1RT,"34000,3ROUT,0,"34000,3RLEA,2RVE,"34000,
        !            72: C&      3RTRA,3RVEL,"36000,3RSOU,2RTH,"12000,
        !            73: C&      2RIN,0,"32000,
        !            74: C&      3RCRO,2RSS,"36000/
        !            75: C
        !            76:        DATA DVOC/22400,0,o"2000",23018,32320,o"2000",30400,0,o"12000",
        !            77: &              8000,0,o"6000",8059,32000,o"6000",36800,0,o"16000",
        !            78: &              37019,32000,o"16000",30600,0,o"10000",31320,0,o"14000",
        !            79: &              22600,0,o"4000",23320,0,o"20000",
        !            80: &              33600,0,o"22000",34240,0,o"22000",6400,0,o"24000",
        !            81: &              7023,22400,o"24000",19261,22528,o"26000",
        !            82: &              19254,6400,o"30000",8580,8720,o"32000",
        !            83: &              8969,32000,o"34000",24860,0,o"34000",
        !            84: &              19401,35400,o"34000",32721,35412,o"36000",
        !            85: &              31021,32320,o"12000",14960,0,o"32000",
        !            86: &              5535,31160,o"36000"/
        !            87: C
        !            88: C
        !            89: C SPARSE, PAGE 3
        !            90: C
        !            91: C ADJECTIVES-- MAPS ADJECTIVES TO OBJECT NUMBERS
        !            92: C
        !            93: C EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF A TWO WORD
        !            94: C ADJECTIVE IN RADIX-50 FOLLOWED BY ONE OR MORE OBJECT NUMBERS.
        !            95: C NOTE THAT ADJECTIVES CAN BE DISTINGUISHED FROM OBJECTS AS
        !            96: C FOLLOWS-- ALL ADJECTIVES ARE .GE. 1RA (1600), WHILE ALL OBJECTS
        !            97: C ARE .LE. OLNT (255 MAX).
        !            98: C
        !            99: C   THE DATA STATEMENT BELOW WAS CONVERTED FROM:
        !           100: C
        !           101: C      DATA AVOC1/3RBRO,2RWN,1,81,3RELO,3RNGA,1,3RHOT,0,3,3RPEP,3RPER,3,
        !           102: C&      3RVIT,3RREO,4,3RJAD,1RE,6,3RHUG,1RE,8,3RENO,3RRMO,8,122,
        !           103: C&      3RTRO,3RPHY,9,3RCLE,2RAR,10,3RLAR,2RGE,12,26,47,95,96,123,
        !           104: C&      133,135,146,147,150,176,3RNAS,2RTY,13,3RELV,3RISH,14,
        !           105: C&      3RBRA,2RSS,15,16,46,156,
        !           106: C&      3RBRO,3RKEN,16,22,92,113,155,158,3RORI,3RENT,17,
        !           107: C&      3RBLO,3RODY,20,3RRUS,2RTY,21,3RBUR,3RNED,22,
        !           108: C&      3RDEA,1RD,22,3ROLD,0,25,41,44,45,3RLEA,3RTHE,25,
        !           109: C&      3RPLA,3RTIN,26,3RPEA,2RRL,27,
        !           110: C&      3RMOB,1RY,31,3RCRY,3RSTA,32,126,
        !           111: C&      3RGOL,1RD,33,85,104,157,158,188,
        !           112: C&      3RIVO,2RRY,34,3RSAP,3RPHI,37,3RWOO,3RDEN,38,67,136,137,
        !           113: C&      165,173,174,175,3RWOO,1RD,38,67,136,137,165,173,174,175,
        !           114: C&      3RSTE,2REL,39,125,189,
        !           115: C&      3RDEN,3RTED,39,3RFAN,2RCY,40,3RANC,3RIEN,41,44,
        !           116: C&      3RSMA,2RLL,5,46,52,53,89,102,103,153,187,
        !           117: C&      3RBLA,2RCK,47,162,3RTOU,1RR,49,
        !           118: C&      3RVIS,3RCOU,55,3RVIC,3RIOU,62,
        !           119: C&      3RGLA,2RSS,10,126,132,3RTRA,1RP,66/
        !           120: C
        !           121: C
        !           122:        DATA AVOC1/3935,37360,1,81,8495,22681,1,13420,0,3,25816,25818,3,
        !           123: &       35580,29015,4,16044,8000,6,13647,8000,8,8575,29335,8,122,
        !           124: &       32735,25945,9,5285,2320,10,19258,11400,12,26,47,95,96,123,
        !           125: &       133,135,146,147,150,176,22459,33000,13,8502,15168,14,
        !           126: &       3921,31160,15,16,46,156,
        !           127: &       3935,17814,16,22,92,113,155,158,24729,8580,17,
        !           128: &       3695,24185,20,29659,33000,21,4058,22604,22,
        !           129: &       6601,6400,22,24484,0,25,41,44,45,19401,32325,25,
        !           130: &       26081,32374,26,25801,29280,27,
        !           131: &       21402,40000,31,5545,31201,32,126,
        !           132: &       11812,6400,33,85,104,157,158,188,
        !           133: &       15295,29800,34,30456,25929,37,37415,6614,38,67,136,137,
        !           134: &       165,173,174,175,37415,6400,38,67,136,137,165,173,174,175,
        !           135: &       31205,8480,39,125,189,
        !           136: &       6614,32204,39,9654,5800,40,2163,14614,41,44,
        !           137: &       30921,19680,5,46,52,53,89,102,103,153,187,
        !           138: &       3681,5240,47,162,32621,28800,49,
        !           139: &       35579,5421,55,35563,15021,62,
        !           140: &       11681,31160,10,126,132,32721,25600,66/
        !           141: C
        !           142: C
        !           143: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           144: C
        !           145: C      DATA AVOC2/3RFRO,2RNT,68,3RSTO,2RNE,69,150,214,3RMAN,3RGLE,72,
        !           146: C&      3RRED,0,79,94,140,161,170,171,3RYEL,3RLOW,80,159,
        !           147: C&      3RBLU,1RE,82,112,114,141,
        !           148: C&      3RVAM,3RPIR,83,3RMAG,2RIC,90,
        !           149: C&      3RSEA,3RWOR,90,3RTAN,0,91,3RSHA,2RRP,92,
        !           150: C&      3RWIC,3RKER,98,3RCLO,2RTH,100,
        !           151: C&      3RBRA,3RIDE,101,
        !           152: C&      3RGAU,2RDY,108,3RSQU,3RARE,109,127,3RCLA,1RY,109,
        !           153: C&      3RSHI,2RNY,110,3RTHI,1RN,110,
        !           154: C&      3RGRE,2REN,115,143,3RPUR,3RPLE,116,3RWHI,2RTE,117,147,160,
        !           155: C&      3RMAR,3RBLE,119,3RCOK,1RE,121,3REMP,2RTY,121,
        !           156: C&      3RROU,2RND,128,3RTRI,3RANG,129,
        !           157: C&     2 3RRAR,1RE,134,3ROBL,3RONG,135,3REAT,3R$ME,138,
        !           158: C&      3REAT,2RME,138,3RORA,3RNGE,139,3RECC,1RH,141/
        !           159: C
        !           160: C
        !           161:        DATA AVOC2/10335,23200,68,31215,22600,69,150,214,20854,11685,72,
        !           162: &              29004,0,79,94,140,161,170,171,40212,19823,80,159,
        !           163: &              3701,8000,82,112,114,141,
        !           164: &              35253,25978,83,20847,14520,90,
        !           165: &              30601,37418,90,32054,0,91,30721,29440,92,
        !           166: &              37163,17818,98,5295,32320,100,
        !           167: &              3921,14565,101,
        !           168: &              11261,7400,108,31101,2325,109,127,5281,4000,109,
        !           169: &              30729,23400,110,32329,22400,110,
        !           170: &              11925,8560,115,143,26458,26085,116,
        !           171: &              37129,32200,117,147,160,
        !           172: &              20858,3685,119,5411,8000,121,8536,33000,121,
        !           173: &              29421,22560,128,32729,2167,129,
        !           174: &              28858,8000,134,24092,24567,135,8060,43725,138,
        !           175: &              8060,21000,138,24721,22685,139,8123,12800,141/
        !           176: C
        !           177: C
        !           178: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           179: C
        !           180: C      DATA AVOC3/3RROC,2RKY,147,3RSHE,2RER,147,
        !           181: C&      3R200,0,148,3RNEA,1RT,148,3RSHI,3RMME,151,
        !           182: C&      3RZUR,3RICH,152,3RBIR,2RDS,153,154,155,
        !           183: C&      3RENC,3RRUS,154,155,3RBEA,3RUTI,156,3RCLO,3RCKW,157,158,
        !           184: C&      3RMEC,3RHAN,157,158,
        !           185: C&      3RMAH,3ROGA,163,3RPIN,1RE,164,3RLON,1RG,166,
        !           186: C&      3RCEN,3RTER,166,3RSHO,2RRT,167,1RT,0,168,
        !           187: C&      3RCOM,3RPAS,169,211,3RBRO,3RNZE,172,3RCEL,1RL,174,175,
        !           188: C&      3RLOC,3RKED,174,3RSUN,0,177,
        !           189: C&      3RBAR,1RE,200,3RSON,1RG,203,
        !           190: C&      3RNOR,2RTH,205,3RNOR,3RTHE,205,3RSOU,2RTH,206,
        !           191: C&      3RSOU,3RTHE,206,3REAS,1RT,207,3REAS,3RTER,207,
        !           192: C&      3RWES,1RT,208,3RWES,3RTER,208,3RDUN,3RGEO,215/
        !           193: C
        !           194: C
        !           195:        DATA AVOC3/29403,18600,147,30725,8720,147,
        !           196: &              52430,0,148,22601,32000,148,30729,21325,151,
        !           197: &              42458,14528,152,3578,7160,153,154,155,
        !           198: &              8563,29659,154,155,3401,34409,156,5295,5263,157,158,
        !           199: &              21003,12854,157,158,
        !           200: &              20848,24281,163,25974,8000,164,19814,11200,166,
        !           201: &              5014,32218,166,30735,29600,167,32000,0,168,
        !           202: &              5413,25659,169,211,3935,23445,172,5012,19200,174,175,
        !           203: &              19803,17804,174,31254,0,177,
        !           204: &              3258,8000,200,31014,11200,203,
        !           205: &              23018,32320,205,23018,32325,205,31021,32320,206,
        !           206: &              31021,32325,206,8059,32000,207,8059,32218,207,
        !           207: &              37019,32000,208,37019,32218,208,7254,11415,215/
        !           208: C
        !           209: C
        !           210: C
        !           211:        DATA AVOCND/-1/
        !           212: C SPARSE, PAGE 4
        !           213: C
        !           214: C VERBS--      MAPS VERBS TO SYNTAX SLOTS
        !           215: C
        !           216: C EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF ONE OR MORE
        !           217: C TWO WORD VERBS IN RADIX-50 FOLLOWED BY A SYNTAX WORD COUNT
        !           218: C FOLLOWED BY ONE OR MORE SYNTAXES.  NOTE THAT VERBS CAN BE
        !           219: C DISTINGUISHED FROM WORD COUNTS AS FOLLOWS--
        !           220: C ALL VERBS ARE .GE. 1RA (1600), WHILE ALL SYNTAX WORD COUNTS
        !           221: C ARE .LE. 255.
        !           222: C
        !           223: C SYNTAX ENTRIES CONSIST OF A FLAG WORD FOLLOWED BY 0, 1, OR 2
        !           224: C OBJECT DESCRIPTIONS.  THE FLAG WORD HAS THE FOLLOWING FORMAT--
        !           225: C
        !           226: C BIT <14>     IF 1, SYNTAX INCLUDES DIRECT OBJECT
        !           227: C BIT <13>     IF 1, SYNTAX INCLUDES INDIRECT OBJECT
        !           228: C BIT <12>     IF 1, DIRECT OBJECT IS IMPLICIT (STANDARD FORM)
        !           229: C BIT <11>     IF 1, DIRECT AND INDIRECT OBJECT MUST BE SWAPPED
        !           230: C                      AFTER SYNTAX PROCESSING
        !           231: C BIT <10>     IF 1, THIS IS DEFAULT SYNTAX FOR ORPHANERY
        !           232: C BITS <8:0>   VERB NUMBER FOR VAPPLI
        !           233: C
        !           234: C OBJECT DESCRIPTIONS CONSIST OF A FLAG WORD AND TWO FWIM WORDS.
        !           235: C THE FLAG WORD HAS THE FOLLOWING FORMAT--
        !           236: C
        !           237: C BIT <14>     IF 1, SEARCH ADVENTURER FOR OBJECT
        !           238: C BIT <13>     IF 1, SEARCH ROOM FOR OBJECT
        !           239: C BIT <12>     IF 1, PARSER WILL TRY TO TAKE OBJECT
        !           240: C BIT <11>     IF 1, ADVENTURER MUST HAVE OBJECT
        !           241: C BIT <10>     IF 1, QUALIFYING BITS (NORMALLY -1,-1) ARE SAME
        !           242: C                      AS FWIM BITS
        !           243: C BIT <9>      IF 1, OBJECT MUST BE REACHABLE
        !           244: C BITS <8:0>   PREPOSITION NUMBER FOR SYNMCH
        !           245: C
        !           246: C THE FWIM WORDS HAVE THE SAME FORMAT AS THE TWO OBJECT FLAG WORDS.
        !           247: C
        !           248: C NOTE THAT BITS 12 AND 11 OF OBJECT DESCRIPTIONS ACTUALLY HAVE
        !           249: C FOUR DISTINCT STATES--
        !           250: C
        !           251: C      BIT 12  BIT 11  MDLDESC         INTERPRETATION
        !           252: C      ------  ------  -------         ---------------
        !           253: C
        !           254: C        0       0      --             NO PARSER ACTION
        !           255: C        0       1      HAVE           ADVENTURER MUST HAVE OBJECT
        !           256: C        1       0      TRY            TRY TO TAKE, DONT CARE IF FAIL
        !           257: C        1       1      TAKE           TRY TO TAKE, CARE IF FAIL
        !           258: C
        !           259: C SPARSE, PAGE 5
        !           260: C
        !           261: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           262: C
        !           263: C      DATA VVOC1/3RBRI,2REF,1,70,3RVER,3RBOS,1,71,
        !           264: C&      3RSUP,3RERB,1,72,3RSTA,1RY,1,73,3RVER,3RSIO,1,74,
        !           265: C&      3RSWI,1RM,3RBAT,2RHE,3RWAD,1RE,1,75,3RGER,3RONI,1,76,
        !           266: C&      3RULY,3RSSE,3RODY,3RSSE,1,77,
        !           267: C&      3RWEL,1RL,1,78,3RPRA,1RY,1,79,3RTRE,3RASU,1,80,
        !           268: C&      3RTEM,3RPLE,1,81,3RBLA,2RST,1,82,3RSCO,2RRE,1,83,
        !           269: C&      1RQ,0,3RQUI,1RT,1,84,3RHEL,1RP,1,40,3RINF,1RO,1,41,
        !           270: C&      3RHIS,3RTOR,3RUPD,3RATE,1,42,3RBAC,1RK,1,43,
        !           271: C&      3RSIG,1RH,3RMUM,3RBLE,1,44/
        !           272: C
        !           273: C
        !           274:        DATA VVOC1/3929,8240,1,70,35418,3819,1,71,
        !           275: &              31256,8722,1,72,31201,40000,1,73,35418,30775,1,74,
        !           276: &              31329,20800,3260,13000,36844,8000,1,75,11418,24569,1,76,
        !           277: &              34105,31165,24185,31165,1,77,
        !           278: &              37012,19200,1,78,26321,40000,1,79,32725,2381,1,80,
        !           279: &              32213,26085,1,81,3681,31200,1,82,30535,29000,1,83,
        !           280: &              27200,0,28049,32000,1,84,13012,25600,1,40,
        !           281: &              14966,24000,1,41,
        !           282: &              13179,32618,34244,2405,1,42,3243,17600,1,43,
        !           283: &              30767,12800,21653,3685,1,44/
        !           284: C
        !           285: C
        !           286: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           287: C
        !           288: C      DATA VVOC1A/3RCHO,2RMP,3RLOS,1RE,3RBAR,1RF,1,45,
        !           289: C&      3RDUN,3RGEO,1,46,3RFRO,3RBOZ,1,47,3RFOO,0,3RBLE,3RTCH,
        !           290: C&      3RBAR,0,1,48,3RREP,3RENT,1,49,3RHOU,2RRS,3RSCH,3REDU,1,50,
        !           291: C&      3RWIN,0,1,51,3RYEL,1RL,3RSCR,3REAM,3RSHO,2RUT,1,52,
        !           292: C&      3RHOP,0,3RSKI,1RP,1,53,3RFUC,1RK,3RSHI,1RT,3RDAM,1RN,
        !           293: C&      3RCUR,2RSE,1,54,3RZOR,1RK,1,55,3RGRA,3RNIT,1,"50070,
        !           294: C&      3RSAV,1RE,1,149,3RRES,3RTOR,1,150,3RTIM,1RE,1,90,
        !           295: C&      3RDIA,3RGNO,1,94,3REXO,3RRCI,1,105,3RINV,3RENT,
        !           296: C&      1RI,0,1,133,3RWAI,1RT,1,128,
        !           297: C&      3RINC,3RANT,1,95,3RANS,3RWER,1,96/
        !           298: C
        !           299: C
        !           300: C
        !           301:        DATA VVOC1A/5135,21440,19819,8000,3258,9600,1,45,
        !           302: &              7254,11415,1,46,10335,3826,1,47,10215,0,3685,32128,
        !           303: &              3258,0,1,48,29016,8580,1,49,13421,29560,30528,8181,1,50,
        !           304: &              37174,0,1,51,40212,19200,30538,8053,30735,34400,1,52,
        !           305: &              13416,0,30849,25600,1,53,
        !           306: &              10443,17600,30729,32000,6453,22400,5658,30600,1,54,
        !           307: &              42218,17600,1,55,11921,22780,1,o"50070",
        !           308: &              30462,8000,1,149,29019,32618,1,150,32373,8000,1,90,
        !           309: &              6761,11775,1,94,8975,28929,1,105,14982,8580,
        !           310: &              14400,0,1,133,36849,32000,1,128,
        !           311: &              14963,2180,1,95,2179,37018,1,96/
        !           312: C
        !           313: C
        !           314: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           315: C
        !           316: C      DATA VVOC1B/3RAGA,2RIN,1,57,3RNOO,2RBJ,1,58,
        !           317: C&      3RBUG,0,3RGRI,2RPE,3RCOM,3RPLA,1,59,
        !           318: C&      3RFEA,3RTUR,3RCOM,3RMEN,3RSUG,3RGES,3RIDE,1RA,1,60,
        !           319: C&      3RROO,1RM,1,65,3ROBJ,3RECT,1,66,3RRNA,2RME,1,67/
        !           320: C
        !           321: C
        !           322: C
        !           323:        DATA VVOC1B/1881,14960,1,57,23015,3600,1,58,
        !           324: &              4047,0,11929,25800,5413,26081,1,59,
        !           325: &              9801,32858,5413,21014,31247,11419,14565,1600,1,60,
        !           326: &              29415,20800,1,65,24090,8140,1,66,29361,21000,1,67/
        !           327: C
        !           328: C
        !           329: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           330: C
        !           331: C      DATA VVOC2/3RDEF,3RLAT,1,"50147,
        !           332: C&      3RDES,3RCRI,3RWHA,1RT,3REXA,3RMIN,1,"50170,
        !           333: C&      3RFIL,1RL,11,"60206,"61000,"200,0,"61002,"400,0,
        !           334: C&             "40206,"61000,"200,0,
        !           335: C&      3RFIN,1RD,3RSEE,1RK,3RWHE,2RRE,3RSEE,0,4,"40177,"60000,-1,-1,
        !           336: C&      3RFOL,3RLOW,2,"125,"50125,
        !           337: C&      3RKIC,1RK,3RBIT,1RE,3RTAU,2RNT,1,"50153,3RLOW,2RER,1,"50156,
        !           338: C&      3RPUS,1RH,3RPRE,2RSS,1,"50160,3RRIN,1RG,3RPEA,1RL,1,"50127,
        !           339: C&      3RRUB,0,3RCAR,3RESS,3RTOU,2RCH,3RFON,3RDLE,1,"50157,
        !           340: C&      3RSHA,2RKE,1,"50171,3RSPI,1RN,1,"50201,
        !           341: C&      3RUNT,2RIE,3RFRE,1RE,1,"50161,3RWAL,1RK,9,"50216,
        !           342: C&             "40126,"61002,-1,-1,"40126,"61005,-1,-1/
        !           343: C
        !           344: C
        !           345: C
        !           346:        DATA VVOC2/6606,19260,1,o"50147",
        !           347: &              6619,5529,37121,32000,8961,21174,1,o"50170",
        !           348: &              9972,19200,11,
        !           349: &                      o"60206",o"61000",o"200",0,o"61002",o"400",0,
        !           350: &                      o"40206",o"61000",o"200",0,
        !           351: &              9974,6400,30605,17600,37125,29000,30605,0,4,
        !           352: &                      o"40177",o"60000",-1,-1,
        !           353: &              10212,19823,2,o"125",o"50125",
        !           354: &              17963,17600,3580,8000,32061,23200,1,o"50153",
        !           355: &              19823,8720,1,o"50156",
        !           356: &              26459,12800,26325,31160,1,o"50160",
        !           357: &              29174,11200,25801,19200,1,o"50127",
        !           358: &              29642,0,4858,8779,32621,5120,10214,6885,1,o"50157",
        !           359: &              30721,17800,1,o"50171",31049,22400,1,o"50201",
        !           360: &              34180,14600,10325,8000,1,o"50161",
        !           361: &              36852,17600,9,o"50216",o"40126",o"61002",-1,-1,
        !           362: &                      o"40126",o"61005",-1,-1/
        !           363: C
        !           364: C
        !           365: C
        !           366: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           367: C
        !           368: C      DATA VVOC3/3RATT,3RACK,3RFIG,2RHT,3RINJ,3RURE,3RHIT,0,3RHUR,1RT,
        !           369: C&             7,"60215,"21000,0,"200,"44002,0,"1000,
        !           370: C&      3RBOA,2RRD,4,"40202,"21000,0,"2,
        !           371: C&      3RBRU,2RSH,3RCLE,2RAN,5,"52130,"70130,"61002,-1,-1,
        !           372: C&      3RBUR,1RN,3RIGN,3RITE,3RINC,3RINE,7,"60211,"61000,"20,0,
        !           373: C&             "64002,"10,0,
        !           374: C&      3RCLI,2RMB,12,"40235,"20007,0,"4000,
        !           375: C&             "40236,"20006,0,"4000,"40234,"20000,0,"4000,
        !           376: C&      3RCLO,2RSE,4,"40176,"61000,"10200,0,
        !           377: C&      3RDIG,0,4,"40131,"44002,"4,0,
        !           378: C&      3RDIS,3REMB,4,"40203,"20000,0,"2,
        !           379: C&      3RDRI,2RNK,3RIMB,3RIBE,3RSWA,3RLLO,4,"40210,"61000,"400,0,
        !           380: C&      3RDRO,1RP,3RREL,3REAS,11,"42221,"41000,-1,-1,
        !           381: C&             "60221,"41000,-1,-1,"61005,-1,-1,
        !           382: C&      3REAT,0,3RCON,3RSUM,3RGOB,3RBLE,3RMUN,2RCH,3RTAS,2RTE,
        !           383: C&             4,"40207,"75000,"2000,0,
        !           384: C&      3REXT,3RING,3RDOU,2RSE,4,"40174,"75000,"100,0/
        !           385: C
        !           386: C
        !           387:        DATA VVOC3/2420,1731,9967,13600,14970,34325,13180,0,13658,32000,
        !           388: &                      7,o"60215",o"21000",0,o"200",o"44002",0,o"1000",
        !           389: &              3801,28960,4,o"40202",o"21000",0,o"2",
        !           390: &              3941,30720,5285,2160,5,o"52130",o"70130",o"61002",-1,-1,
        !           391: &              4058,22400,14694,15205,14963,14965,
        !           392: &                      7,o"60211",o"61000",o"20",0,o"64002",o"10",0,
        !           393: &              5289,20880,12,o"40235",o"20007",0,o"4000",o"40236",
        !           394: &                      o"20006",0,o"4000",o"40234",o"20000",0,o"4000",
        !           395: &              5295,30600,4,o"40176",o"61000",o"10200",0,
        !           396: &              6767,0,4,o"40131",o"44002",o"4",0,
        !           397: &              6779,8522,4,o"40203",o"20000",0,o"2",
        !           398: &              7129,22840,14922,14485,31321,19695,
        !           399: &                      4,o"40210",o"61000",o"400",0,
        !           400: &              7135,25600,29012,8059,11,o"42221",o"41000",-1,-1,
        !           401: &                      o"60221",o"41000",-1,-1,o"61005",-1,-1,
        !           402: &              8060,0,5414,31253,11802,3685,21654,5120,32059,32200,
        !           403: &                      4,o"40207",o"75000",o"2000",0,
        !           404: &              8980,14967,7021,30600,4,o"40174",o"75000",o"100",0/
        !           405: C
        !           406: C
        !           407: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           408: C
        !           409: C      DATA VVOC4/3RGIV,1RE,3RHAN,1RD,3RDON,3RATE,11,"72222,"21004,
        !           410: C&             "40,0,"64222,"21000,"40,0,"61000,-1,-1,
        !           411: C&      3RHEL,2RLO,2RHI,0,2,"2227,"50227,
        !           412: C&      3RBLO,1RW,15,"62146,"61007,-1,-1,"61002,"4,0,
        !           413: C&             "40160,"61007,-1,-1,"40165,"61005,-1,-1,
        !           414: C&      3RINF,3RLAT,4,"70146,"61002,"4,0,
        !           415: C&      3RJUM,1RP,3RLEA,1RP,5,"133,"40133,"61001,-1,-1,
        !           416: C&      3RKIL,1RL,3RMUR,3RDER,3RSLA,1RY,3RSTA,1RB,3RDIS,3RPAT,
        !           417: C&             7,"60213,"21000,0,"200,
        !           418: C&             "44002,0,"1000,
        !           419: C&      3RKNO,2RCK,3RRAP,0,12,"42166,"61003,-1,-1,
        !           420: C&             "40166,"61012,-1,-1,"40215,"23006,"40,0,
        !           421: C&      3RLIG,2RHT,11,"42173,"75000,"100,0,
        !           422: C&             "60211,"61000,"100,0,"54002,"10,0,
        !           423: C&      3RLOC,1RK,4,"40134,"20000,-1,-1/
        !           424: C
        !           425: C
        !           426: C
        !           427:        DATA VVOC4/11582,8000,12854,6400,7014,2405,11,o"72222",o"21004",
        !           428: &                      o"40",0,o"64222",o"21000",o"40",
        !           429: &                      0,o"61000",-1,-1,
        !           430: &              13012,19800,13160,0,2,o"2227",o"50227",
        !           431: &              3695,36800,15,o"62146",o"61007",-1,-1,o"61002",o"4",0,
        !           432: &                      o"40160",o"61007",-1,-1,o"40165",o"61005",-1,-1,
        !           433: &              14966,19260,4,o"70146",o"61002",o"4",0,
        !           434: &              16853,25600,19401,25600,
        !           435: &                      5,o"133",o"40133",o"61001",-1,-1,
        !           436: &              17972,19200,21658,6618,30881,40000,31201,3200,
        !           437: &                      6779,25660,7,o"60213",o"21000",0,o"200",
        !           438: &                      o"44002",0,o"1000",
        !           439: &              18175,5240,28856,0,12,o"42166",o"61003",-1,-1,o"40166",
        !           440: &                      o"61012",-1,-1,o"40215",o"23006",o"40",0,
        !           441: &              19567,13600,11,o"42173",o"75000",o"100",0,o"60211",
        !           442: &                      o"61000",o"100",0,o"54002",o"10",0,
        !           443: &              19803,17600,4,o"40134",o"20000",-1,-1/
        !           444: C
        !           445: C
        !           446: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           447: C
        !           448: C      DATA VVOC5/3RLOO,1RK,1RL,0,3RSTA,2RRE,3RGAZ,1RE,
        !           449: C&             13,"167,"40167,"60003,-1,-1,
        !           450: C&             "40231,"61010,-1,-1,"40230,"60005,-1,-1,
        !           451: C&      3RMEL,1RT,3RLIQ,3RUIF,4,"70145,"61002,"10,0,
        !           452: C&      3RMOV,1RE,4,"40172,"20000,-1,-1,
        !           453: C&      3RPUL,1RL,3RTUG,0,8,"42172,"21000,-1,-1,
        !           454: C&             "40172,"21012,-1,-1,
        !           455: C&      3RMUN,1RG,3RHAC,1RK,3RFRO,1RB,3RDAM,3RAGE,
        !           456: C&             5,"52212,"70212,"44002,-1,-1,
        !           457: C&      3ROPE,1RN,11,"42175,"61000,"10200,0,
        !           458: C&             "60175,"61000,"10200,0,"54002,"4,"1000,
        !           459: C&      3RPIC,1RK,4,"40204,"61007,"20000,"40,
        !           460: C&      3RPLU,1RG,3RGLU,1RE,3RPAT,2RCH,4,"70152,"61002,-1,-1,
        !           461: C&      3RPOK,1RE,3RBRE,2RAK,3RJAB,0,7,"60212,"21000,0,"200,
        !           462: C&             "44002,0,"1000,
        !           463: C&      3RPOU,1RR,3RSPI,2RLL,11,"42223,"42000,"400,0,
        !           464: C&             "60223,"42000,"400,0,"60005,-1,-1,
        !           465: C&             3RPUM,1RP,4,"60232,"60007,-1,-1/
        !           466: C
        !           467: C
        !           468: C
        !           469:        DATA VVOC5/19815,17600,19200,0,31201,29000,11266,8000,
        !           470: &                      13,o"167",o"40167",o"60003",-1,-1,
        !           471: &                      o"40231",o"61010",-1,-1,o"40230",o"60005",-1,-1,
        !           472: &              21012,32000,19577,33966,4,o"70145",o"61002",o"10",0,
        !           473: &              21422,8000,4,o"40172",o"20000",-1,-1,
        !           474: &              26452,19200,32847,0,8,o"42172",o"21000",-1,-1,
        !           475: &                      o"40172",o"21012",-1,-1,
        !           476: &              21654,11200,12843,17600,10335,3200,6453,1885,
        !           477: &                      5,o"52212",o"70212",o"44002",-1,-1,
        !           478: &              24645,22400,11,o"42175",o"61000",o"10200",0,o"60175",
        !           479: &                      o"61000",o"10200",0,o"54002",o"4",o"1000",
        !           480: &              25963,17600,4,o"40204",o"61007",o"20000",o"40",
        !           481: &              26101,11200,11701,8000,25660,5120,
        !           482: &                      4,o"70152",o"61002",-1,-1,
        !           483: &              26211,8000,3925,2040,16042,0,7,o"60212",o"21000",
        !           484: &                      0,o"200",o"44002",0,o"1000",
        !           485: &              26221,28800,31049,19680,11,o"42223",o"42000",o"400",0,
        !           486: &                      o"60223",o"42000",o"400",0,o"60005",-1,-1,
        !           487: &              26453,25600,4,o"60232",o"60007",-1,-1/
        !           488: C
        !           489: C
        !           490: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           491: C
        !           492: C      DATA VVOC6/3RPUT,0,3RINS,3RERT,3RSTU,2RFF,3RPLA,2RCE,
        !           493: C&             8,"72220,"61005,-1,-1,
        !           494: C&             "40221,"61006,-1,-1,
        !           495: C&      3RRAI,2RSE,3RLIF,1RT,5,"52155,"40155,"61007,-1,-1,
        !           496: C&      3RREA,1RD,3RSKI,1RM,11,"42144,"71000,"40000,0,
        !           497: C&             "60144,"71000,"40000,0,"61002,-1,-1,
        !           498: C&      3RSTR,3RIKE,12,"60215,"23000,"40,0,
        !           499: C&             "44002,0,"1000,"42215,"23000,"40,0,"50173,
        !           500: C&      3RSWI,2RNG,3RTHR,3RUST,7,"60214,"44000,0,"1000,
        !           501: C&             "21003,0,"200,
        !           502: C&      3RTAK,1RE,3RGET,0,3RHOL,1RD,3RCAR,2RRY,3RREM,3ROVE,
        !           503: C&             4,"40204,"61000,"20000,"40,
        !           504: C&      3RTEL,1RL,3RCOM,3RMAN,3RREQ,3RUES,4,"40217,"20000,0,"2000,
        !           505: C&      3RTHR,2ROW,3RHUR,1RL,3RCHU,2RCK,14,"60224,"44000,-1,-1,
        !           506: C&             "21003,"40,0,"60224,"44000,-1,-1,"21002,"40,0/
        !           507: C
        !           508: C
        !           509: C
        !           510:        DATA VVOC6/26460,0,14979,8740,31221,9840,26081,5000,
        !           511: &                      8,o"72220",o"61005",-1,-1,
        !           512: &                      o"40221",o"61006",-1,-1,
        !           513: &              28849,30600,19566,32000,
        !           514: &                      5,o"52155",o"40155",o"61007",-1,-1,
        !           515: &              29001,6400,30849,20800,11,o"42144",o"71000",o"40000",0,
        !           516: &                      o"60144",o"71000",o"40000",0,o"61002",-1,-1,
        !           517: &              31218,14845,12,o"60215",o"23000",o"40",0,o"44002",
        !           518: &                      0,o"1000",o"42215",o"23000",o"40",0,o"50173",
        !           519: &              31329,22680,32338,34380,7,o"60214",o"44000",0,o"1000",
        !           520: &                      o"21003",0,o"200",
        !           521: &              32051,8000,11420,0,13412,6400,4858,29800,29013,24885,
        !           522: &                      4,o"40204",o"61000",o"20000",o"40",
        !           523: &              32212,19200,5413,20854,29017,33819,
        !           524: &                      4,o"40217",o"20000",0,o"2000",
        !           525: &              32338,24920,13658,19200,5141,5240,14,o"60224",o"44000",
        !           526: &                      -1,-1,o"21003",o"40",0,o"60224",o"44000",
        !           527: &                      -1,-1,o"21002",o"40",0/
        !           528: C
        !           529: C
        !           530: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           531: C
        !           532: C      DATA VVOC7/3RTIE,0,3RFAS,3RTEN,11,"70162,"61004,-1,-1,
        !           533: C&             "60163,"21000,"40,0,"65002,"4,0,
        !           534: C&      3RTUR,1RN,3RSET,0,22,"62164,"61000,"2,0,
        !           535: C&             "64002,"4,0,
        !           536: C&             "40173,"75012,"100,0,"40174,"75013,"100,0,
        !           537: C&             "60237,"61000,"2,0,"20004,-1,-1,
        !           538: C&      3RUNL,3ROCK,7,"60135,"21000,-1,-1,
        !           539: C&             "74002,"4,0,
        !           540: C&      3RWAK,1RE,3RSUR,3RPRI,3RALA,2RRM,3RSTA,3RRTL,
        !           541: C&             8,"42150,"20000,"40,0,
        !           542: C&             "40150,"20007,"40,0,
        !           543: C&      3RWAV,1RE,3RFLA,3RUNT,3RBRA,3RNDI,4,"40154,"40000,-1,-1,
        !           544: C&      3RWIN,1RD,5,"50233,"40233,"61007,-1,-1/
        !           545: C
        !           546: C
        !           547: C
        !           548:        DATA VVOC7/32365,0,9659,32214,11,o"70162",o"61004",-1,-1,
        !           549: &              o"60163",o"21000",o"40",0,o"65002",o"4",0,
        !           550: &       32858,22400,30620,0,22,o"62164",o"61000",o"2",0,
        !           551: &              o"64002",o"4",0,
        !           552: &              o"40173",o"75012",o"100",0,o"40174",o"75013",o"100",0,
        !           553: &              o"60237",o"61000",o"2",0,o"20004",-1,-1,
        !           554: &       34172,24131,7,o"60135",o"21000",-1,-1,
        !           555: &              o"74002",o"4",0,
        !           556: &       36851,8000,31258,26329,2081,29320,31201,29612,
        !           557: &              8,o"42150",o"20000",o"40",0,
        !           558: &              o"40150",o"20007",o"40",0,
        !           559: &       36862,8000,10081,34180,3921,22569,4,o"40154",o"40000",-1,-1,
        !           560: &       37174,6400,5,o"50233",o"40233",o"61007",-1,-1/
        !           561: C
        !           562: C
        !           563:        DATA VVOCND/-1/
        !           564: C SPARSE, PAGE 6
        !           565: C
        !           566: C OBJECTS--    MAPS OBJECTS TO OBJECT INDICES
        !           567: C
        !           568: C SAME FORMAT AS AVOC.
        !           569: C
        !           570: C
        !           571: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           572: C
        !           573: C      DATA OVOC1/3RBAG,0,1,25,100,3RSAC,1RK,1,3RGAR,3RLIC,2,
        !           574: C&      3RCLO,2RVE,2,3RFOO,1RD,3,3RSAN,3RDWI,3,3RLUN,2RCH,3,
        !           575: C&      3RDIN,3RNER,3,
        !           576: C&      3RGUN,1RK,4,55,3RPIE,2RCE,4,143,186,3RSLA,1RG,4,3RCOA,1RL,5,
        !           577: C&      3RPIL,1RE,5,18,38,78,87,88,122,3RHEA,1RP,5,
        !           578: C&      3RFIG,3RURI,6,
        !           579: C&      3RMAC,3RHIN,7,3RPDP,2R10,7,3RPDP,2R11,7,3RDRY,2RER,7,
        !           580: C&      3RLID,0,7,3RDIA,3RMON,8,3RCAS,1RE,9,123,3RBOT,3RTLE,10,121,
        !           581: C&      3RCON,3RTAI,10,3RWAT,2RER,11,209,3RQUA,3RNTI,11,209,
        !           582: C&      3RLIQ,3RUID,11,209,3RH2O,0,11,209,
        !           583: C&      3RROP,1RE,12,101,3RHEM,1RP,12,3RCOI,1RL,12,110,
        !           584: C&      3RKNI,2RFE,13,21,3RBLA,2RDE,13,14,3RSWO,2RRD,14,3RORC,3RHRI,14,
        !           585: C&      3RGLA,3RMDR,14,3RLAM,1RP,15,16,22,3RLAN,3RTER,15,16,22,
        !           586: C&      3RRUG,0,17,3RCAR,3RPET,17,
        !           587: C&      3RLEA,3RVES,18,3RLEA,1RF,18,3RTRO,2RLL,19,
        !           588: C&      3RAXE,0,20,3RDIN,3RNER,3/
        !           589: C
        !           590: C
        !           591:        DATA OVOC1/3247,0,1,25,100,30443,17600,1,11258,19563,2,
        !           592: &       5295,35400,2,10215,6400,3,30454,7329,3,20054,5120,3,
        !           593: &       6774,22618,3,
        !           594: &       12054,17600,4,55,25965,5000,4,143,186,30881,11200,4,5401,19200,5,
        !           595: &       25972,8000,5,18,38,78,87,88,122,13001,25600,5,
        !           596: &       9967,34329,6,
        !           597: &       20843,13174,7,25776,50800,7,25776,50840,7,7145,8720,7,
        !           598: &       19564,0,7,6761,21414,8,4859,8000,9,123,3820,32485,10,121,
        !           599: &       5414,32049,10,36860,8720,11,209,28041,23209,11,209,
        !           600: &       19577,33964,11,209,14095,0,11,209,
        !           601: &       29416,8000,12,101, 13013,25600,12,5409,19200,12,110,
        !           602: &       18169,9800,13,21,3681,6600,13,14,31335,28960,14,24723,13529,14,
        !           603: &       11681,20978,14,19253,25600,15,16,22,19254,32218,15,16,22,
        !           604: &       29647,0,17,4858,25820,17,
        !           605: &       19401,35419,18,19401,9600,18,32735,19680,19,
        !           606: &       2565,0,20,6774,22618,3/
        !           607: C
        !           608: C
        !           609: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           610: C
        !           611: C      DATA OVOC2/3RKEY,1RS,23,3RKEY,0,23,
        !           612: C&      3RSET,0,23,3RBON,2RES,24,3RSKE,3RLET,24,3RBOD,1RY,24,73,
        !           613: C&      3RCOI,2RNS,25,3RBAR,0,26,165,168,
        !           614: C&      3RNEC,3RKLA,27,3RPEA,3RRLS,27,3RMIR,3RROR,28,29,212,
        !           615: C&      3RICE,0,30,3RMAS,1RS,30,3RGLA,3RCIE,30,3RRUB,1RY,31,
        !           616: C&      3RTRI,3RDEN,32,3RFOR,1RK,32,3RCOF,3RFIN,33,3RCAS,3RKET,33,
        !           617: C&      3RTOR,2RCH,34,3RCAG,1RE,35,36,124,125,3RDUM,3RBWA,35,36,
        !           618: C&      3RBAS,3RKET,35,36,98,113,3RBRA,3RCEL,37,
        !           619: C&      3RJEW,2REL,37,3RTIM,3RBER,38,3RBOX,0,39,53,105,3RSTR,3RADI,40,
        !           620: C&      3RVIO,3RLIN,40,3RENG,3RRAV,41,3RINS,3RCRI,41,44,3RGHO,2RST,42,
        !           621: C&      3RSPI,3RRIT,42,3RFIE,2RND,42,3RGRA,2RIL,43,3RPRA,3RYER,44,47,
        !           622: C&      3RTRU,2RNK,45,3RCHE,2RST,45,3RBEL,1RL,46,
        !           623: C&      3RBOO,1RK,47,49,114,115,116,117,3RBIB,2RLE,47/
        !           624: C
        !           625: C
        !           626:        DATA OVOC2/17825,30400,23,17825,0,23,
        !           627: &       30620,0,23,3814,8760,24,30845,19420,24,3804,40000,24,73,
        !           628: &       5409,23160,25,3258,0,26,165,168,
        !           629: &       22603,18081,27,25801,29299,27,21178,29418,28,29,212,
        !           630: &       14525,0,30,20859,30400,30,11681,5165,30,29642,40000,31,
        !           631: &       32729,6614,32,10218,17600,32,5406,9974,33,4859,17820,33,
        !           632: &       32618,5120,34,4847,8000,35,36,124,125,7253,4121,35,36,
        !           633: &       3259,17820,35,36,98,113,3921,5012,37,
        !           634: &       16223,8480,37,32373,3418,38,3824,0,39,53,105,31218,1769,40,
        !           635: &       35575,19574,40,8567,28862,41,14979,5529,41,44,11535,31200,42,
        !           636: &       31049,29180,42,9965,22560,42,11921,14880,43,26321,40218,44,47,
        !           637: &       32741,22840,45,5125,31200,45,3412,19200,46,
        !           638: &       3815,17600,47,49,114,115,116,117,3562,19400,47/
        !           639: C
        !           640: C
        !           641: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           642: C
        !           643: C      DATA OVOC3/3RGOO,3RDBO,47,3RCAN,3RDLE,48,3RPAI,1RR,48,
        !           644: C&      3RGUI,3RDEB,49,
        !           645: C&      3RGUI,2RDE,49,3RPAP,2RER,50,122,143,186,3RNEW,3RSPA,50,
        !           646: C&      3RISS,2RUE,50,3RREP,3RORT,50,3RMAG,3RAZI,50,3RNEW,1RS,50,
        !           647: C&      3RMAT,3RCHB,51,
        !           648: C&      3RMAT,2RCH,51,3RMAT,3RCHE,51,3RADV,3RERT,52,3RPAM,3RPHL,52,
        !           649: C&      3RLEA,3RFLE,52,3RBOO,3RKLE,52,3RMAI,3RLBO,53,
        !           650: C&      3RTUB,1RE,54,3RTOO,3RTHP,54,3RPUT,2RTY,55,3RMAT,3RERI,55,
        !           651: C&      3RGLU,1RE,55,3RWRE,3RNCH,56,3RSCR,3REWD,57,
        !           652: C&      3RCYC,3RLOP,58,3RMON,3RSTE,58,3RCHA,3RLIC,59,3RCUP,0,59,
        !           653: C&      3RGOB,3RLET,59,3RPAI,3RNTI,60,149,3RART,0,60,149,
        !           654: C&      3RCAN,3RVAS,60,3RPIC,3RTUR,60,3RWOR,1RK,60,
        !           655: C&      3RMAS,3RTER,60,215,3RTHI,2REF,61,3RROB,3RBER,61,
        !           656: C&      3RCRI,3RMIN,61,3RBAN,3RDIT,61,3RCRO,2ROK,61,3RGEN,1RT,61,
        !           657: C&      3RGEN,3RTLE,61,3RMAN,0,61,3RTHU,1RG,61,
        !           658: C&      3RBAG,3RMAN,61,3RSTI,3RLLE,62/
        !           659: C
        !           660: C
        !           661:        DATA OVOC3/11815,6495,47,4854,6885,48,25649,28800,48,
        !           662: &       12049,6602,49,
        !           663: &       12049,6600,49,256656,8720,50,122,143,186,22623,31041,50,
        !           664: &       15179,33800,50,29016,24740,50,20847,2649,50,22623,30400,50,
        !           665: &       20860,5122,51,
        !           666: &       20860,5120,51,20860,5125,51,1782,8740,52,25653,25932,52,
        !           667: &       19401,10085,52,3815,18085,52,20849,19295,53,
        !           668: &       32842,8000,54,32615,32336,54,26460,33000,55,20860,8729,55,
        !           669: &       11701,8000,55,37525,22528,56,30538,8924,57,
        !           670: &       5803,19816,58,21414,31205,58,5121,19563,59,5656,0,59,
        !           671: &       11802,19420,59,25649,23209,60,149,2340,0,60,149,
        !           672: &       4854,35259,60,25963,32858,60,37418,17600,60,
        !           673: &       20859,32218,60,215,32329,8240,61,29402,3418,61,
        !           674: &       5529,21175,61,3254,6780,61,5535,24440,61,11414,32000,61,
        !           675: &       11414,32485,61,20854,0,61,32341,11200,61,
        !           676: &       3247,20854,61,31209,19685,62/
        !           677: C
        !           678: C
        !           679: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           680: C
        !           681: C      DATA OVOC4/3RWIN,3RDOW,63,3RBOL,1RT,64,3RNUT,0,64,
        !           682: C&      3RGRA,2RTE,65,3RGRA,3RTIN,65,3RDOO,1RR,66,67,68,69,
        !           683: C&      164,172,173,174,175,189,3RTRA,3RPDO,66,
        !           684: C&      3RTRA,3RP$D,66,3RSWI,3RTCH,70,76,79,80,81,82,170,
        !           685: C&      3RHEA,1RD,71,120,3RCOR,3RPSE,72,73,3RBOD,3RIES,73,
        !           686: C&      3RDAM,0,74,3RGAT,2RES,74,76,3RGAT,1RE,74,76,
        !           687: C&      3RFCD,0,74,3RRAI,1RL,75,3RRAI,3RLIN,75,
        !           688: C&      3RBUT,3RTON,76,79,80,81,82,127,128,129,170,176,
        !           689: C&      3RBUB,3RBLE,77,3RLEA,1RK,78,3RDRI,1RP,78,
        !           690: C&      3RHOL,1RE,78,107,
        !           691: C&      3RBAT,0,83,3RRAI,3RNBO,84,
        !           692: C&      3RPOT,0,85,3RSTA,3RTUE,86,3RSCU,3RLPT,86,3RROC,1RK,86,
        !           693: C&      3RBOA,1RT,87,88,90,3RPLA,3RSTI,87,88,
        !           694: C&      3RPUM,1RP,89/
        !           695: C
        !           696: C
        !           697:        DATA OVOC4/37174,7023,63,3812,32000,64,23260,0,64,
        !           698: &       11921,32200,65,11921,32374,65,7015,28800,66,67,68,69,
        !           699: &       164,172,173,174,175,189,32721,25775,66,
        !           700: &       32721,26684,66,31329,32128,70,76,79,80,81,82,170,
        !           701: &       13001,6400,71,120,5418,26365,72,73,3804,14619,73,
        !           702: &       6453,0,74,11260,8760,74,76,11260,8000,74,76,
        !           703: &       9724,0,74,28849,19200,75,28849,19574,75,
        !           704: &       4060,32614,76,79,80,81,82,127,128,129,170,176,
        !           705: &       4042,3685,77,19401,17600,78,7129,25600,78,
        !           706: &       13412,8000,78,107,
        !           707: &       3260,0,83,28849,22495,84,
        !           708: &       26220,0,85,31201,32845,86,30541,19860,86,29403,17600,86,
        !           709: &       3801,32000,87,88,90,26081,31209,87,88,
        !           710: &       26453,25600,89/
        !           711: C
        !           712: C
        !           713: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           714: C
        !           715: C      DATA OVOC5/3RAIR,3RPUM,89,3RAIR,3R$PU,89,3RLAB,2REL,91,112,
        !           716: C&      3RFIN,3REPR,91,3RSTI,2RCK,92,3RBAR,3RREL,93,3RBUO,1RY,94,
        !           717: C&      3REME,3RRAL,95,3RSHO,3RVEL,96,3RGUA,2RNO,97,3RCRA,1RP,97,
        !           718: C&      3RSHI,1RT,97,3RHUN,1RK,97,3RBAL,3RLOO,98,113,
        !           719: C&      3RREC,3REPT,99,3RWIR,1RE,101,110,
        !           720: C&      3RHOO,1RK,102,103,3RZOR,3RKMI,104,148,3RCOI,1RN,104,
        !           721: C&      3RSAF,1RE,105,3RCAR,1RD,106,188,3RNOT,1RE,106,186,
        !           722: C&      3RSLO,1RT,107,187,3RCRO,2RWN,108,3RBRI,2RCK,109,
        !           723: C&      3RFUS,1RE,110,3RGNO,2RME,111,152,
        !           724: C&      3RSTA,2RMP,118,
        !           725: C&      3RTOM,1RB,119,3RCRY,2RPT,119,3RGRA,2RVE,119,3RHEA,2RDS,120,
        !           726: C&      3RPOL,2RES,120,3RIMP,3RLEM,120/
        !           727: C
        !           728: C
        !           729:        DATA OVOC5/1978,26453,89,1978,43861,89,19242,8480,91,112,
        !           730: &       9974,8658,91,31209,5240,92,3258,29012,93,4055,40000,94,
        !           731: &       8525,28852,95,30735,35412,96,12041,23000,97,5521,25600,97,
        !           732: &       30729,32000,97,13654,17600,97,3252,19815,98,113,
        !           733: &       29003,8660,99,37178,8000,101,110,
        !           734: &       13415,17600,102,103,42218,18129,104,148,5409,22400,104,
        !           735: &       30446,8000,105,4858,6400,106,188,23020,8000,106,186,
        !           736: &       30895,32000,107,187,5535,37360,108,3929,5240,109,
        !           737: &       10459,8000,110,11775,21000,111,152,
        !           738: &       31201,21440,118,
        !           739: &       32613,3200,119,5545,26400,119,11921,35400,119,13001,7160,120,
        !           740: &       26212,8760,120,14936,19413,120/
        !           741: C
        !           742: C
        !           743: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           744: C
        !           745: C      DATA OVOC6/3RLOS,3RERS,120,3RCOK,2RES,121,
        !           746: C&      3RLIS,3RTIN,122,3RSTA,2RCK,122,
        !           747: C&      3RPRI,3RNTO,122,
        !           748: C&      3RSPH,3RERE,126,3RBAL,1RL,126,
        !           749: C&      3RETC,3RHIN,130,131,
        !           750: C&      3RWAL,2RLS,130,131,198,205,206,207,208,3RWAL,1RL,
        !           751: C&      130,131,159,160,161,162,163,164,198,205,206,207,208,
        !           752: C&      3RFLA,2RSK,132,3RPOO,1RL,133,3RSEW,3RAGE,133,
        !           753: C&      3RTIN,0,134,3RSAF,3RFRO,134,3RSPI,3RCES,134,3RTAB,2RLE,135,
        !           754: C&      3RPOS,1RT,136,166,167,3RPOS,2RTS,136,3RBUC,3RKET,137,
        !           755: C&      3RCAK,1RE,138,139,140,141,3RICI,2RNG,139,140,141,
        !           756: C&      3RROB,2ROT,142,3RROB,2RBY,142,
        !           757: C&      3RC3P,1RO,142,3RR2D,1R2,142/
        !           758: C
        !           759: C
        !           760:        DATA OVOC6/19819,8739,120,5411,8760,121,
        !           761: &       19579,32374,122,31201,5240,122,
        !           762: &       26329,23215,122,
        !           763: &       31048,8725,126,3252,19200,126,
        !           764: &       8803,13174,130,131,
        !           765: &       36852,19960,130,131,198,205,206,207,208,36852,19200,
        !           766: &       130,131,159,160,161,162,163,164,198,205,206,207,208,
        !           767: &       10081,30840,132,26215,19200,133,30623,1885,133,
        !           768: &       32374,0,134,30446,10335,134,31049,5019,134,32042,19400,135,
        !           769: &       26219,32000,136,166,167,26219,32760,136,4043,17820,137,
        !           770: &       4851,8000,138,139,140,141,14529,22680,139,140,141,
        !           771: &       29402,24800,142,29402,4200,142,
        !           772: &       6136,24000,142,30084,51200,142/
        !           773: C
        !           774: C
        !           775: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           776: C
        !           777: C      DATA OVOC6A/3RPAN,2REL,159,160,161,162,163,164,213,
        !           778: C&      3RPOL,1RE,166,167,3RTBA,1RR,168,3RT$B,2RAR,168,
        !           779: C&      3RARR,2ROW,169,3RPOI,2RNT,169,3RBEA,1RM,171,
        !           780: C&      3RDIA,1RL,177,3RSUN,3RDIA,177,1R1,0,178,
        !           781: C&      3RONE,0,178,1R2,0,179,3RTWO,0,179,1R3,0,180,
        !           782: C&      3RTHR,2REE,180,1R4,0,181,3RFOU,1RR,181,1R5,0,182,
        !           783: C&      3RFIV,1RE,182,1R6,0,183,3RSIX,0,183,1R7,0,184,
        !           784: C&      3RSEV,2REN,184,1R8,0,185,3REIG,2RHT,185,
        !           785: C&      3RWAR,3RNIN,186,3RSLI,1RT,187,
        !           786: C&      2RIT,0,192,3RTHA,1RT,192,3RTHI,1RS,192/
        !           787: C
        !           788: C
        !           789:        DATA OVOC6A/25654,8480,159,160,161,162,163,164,213,
        !           790: &       26212,8000,166,167,32081,28800,168,33082,2320,168,
        !           791: &       2338,24920,169,26209,23200,169,3401,20800,171,
        !           792: &       6761,19200,177,31254,6761,177,49600,0,178,
        !           793: &       24565,0,178,51200,0,179,32935,0,179,52800,0,180,
        !           794: &       32338,8200,180,54400,0,181,10221,28800,181,56000,0,182,
        !           795: &       9982,8000,182,57600,0,183,30784,0,183,59200,0,184,
        !           796: &       30622,8560,184,60800,0,185,8367,13600,185,
        !           797: &       36858,22774,186,30889,32000,187,
        !           798: &       15200,0,192,32321,32000,192,32329,30400,192/
        !           799: C
        !           800: C
        !           801: C   THE FOLLOWING DATA STATEMENT WAS ORIGINALLY:
        !           802: C
        !           803: C      DATA OVOC7/2RME,0,193,3RMYS,3RELF,193,3RCRE,3RTIN,193,
        !           804: C&      3RALL,0,194,3REVE,3RRYT,194,
        !           805: C&      3RTRE,3RASU,195,3RVAL,3RUAB,195,3RSAI,3RLOR,196,3RTEE,2RTH,197,
        !           806: C&      3RGRU,1RE,199,3RHAN,1RD,200,3RHAN,2RDS,200,
        !           807: C&      3RLUN,2RGS,201,3RAIR,0,201,3RAVI,3RATO,202,
        !           808: C&      3RFLY,2RER,202,3RTRE,1RE,144,145,204,
        !           809: C&      3RCLI,2RFF,146,147,3RLED,2RGE,146,147,3RPOR,3RTRA,149,
        !           810: C&      3RSTA,2RCK,148,3RBIL,2RLS,148,
        !           811: C&      3RVAU,2RLT,150,3RCUB,1RE,150,3RLET,3RTER,67,150,
        !           812: C&      3RCUR,3RTAI,151,3RLIG,2RHT,151,3RNES,1RT,153,
        !           813: C&      3REGG,0,154,155,3RBAU,3RBLE,156,3RCAN,3RARY,157,158,
        !           814: C&      3RBIR,1RD,203,3RSON,3RGBI,203,
        !           815: C&      3RGUA,2RRD,210,3RGUA,3RRDI,210,3RROS,1RE,211,
        !           816: C&      3RSTR,3RUCT,212,3RCHA,3RNNE,214,
        !           817: C&      3RKEE,3RPER,215,3RLAD,3RDER,216/
        !           818: C
        !           819: C
        !           820:        DATA OVOC7/21000,0,193,21819,8486,193,5525,32374,193,
        !           821: &       2092,0,194,8885,29820,194,
        !           822: &       32725,2381,195,35252,33642,195,30449,19818,196,32205,32320,197,
        !           823: &       11941,8000,199,12854,6400,200,12854,7160,200,
        !           824: &       20054,11960,201,1978,0,201,2489,2415,202,
        !           825: &       10105,8720,202,32725,8000,144,145,204,
        !           826: &       5289,9840,146,147,19404,11400,146,147,26218,32721,149,
        !           827: &       31201,5240,148,3572,19960,148,
        !           828: &       35261,20000,150,5642,8000,150,19420,32218,67,150,
        !           829: &       5658,32049,151,19567,13600,151,22619,32000,153,
        !           830: &       8287,0,154,155,3261,3685,156,4854,2345,157,158,
        !           831: &       3578,6400,203,31014,11289,203,
        !           832: &       12041,28960,210,12041,28969,210,29419,8000,211,
        !           833: &       31218,33740,212,5121,22965,214,
        !           834: &       17805,25818,215,19244,6618,216/
        !           835: C
        !           836: C
        !           837:        DATA OVOCND/-1/
        !           838: C SPARSE, PAGE 7
        !           839: C
        !           840: C SET UP FOR PARSING
        !           841: C
        !           842:        SPARSE=-1
        !           843: C                                              !ASSUME PARSE FAILS.
        !           844:        ADJ=0
        !           845: C                                              !CLEAR PARTS HOLDERS.
        !           846:        ACT=0
        !           847:        PREP=0
        !           848:        PPTR=0
        !           849:        O1=0
        !           850:        O2=0
        !           851:        P1=0
        !           852:        P2=0
        !           853: #ifdef debug
        !           854:        DFLAG=and(PRSFLG,4).NE.0
        !           855: #endif
        !           856: C
        !           857:        BUZLNT=20
        !           858:        PRPLNT=48
        !           859:        DIRLNT=75
        !           860: C SPARSE, PAGE 8
        !           861: C
        !           862: C NOW LOOP OVER INPUT BUFFER OF LEXICAL TOKENS.
        !           863: C
        !           864:        DO 1000 I=1,LLNT,2
        !           865: C                                              !TWO WORDS/TOKEN.
        !           866:          LBUF1=LBUF(I)
        !           867: C                                              !GET CURRENT TOKEN.
        !           868:          LBUF2=LBUF(I+1)
        !           869: #ifdef debug
        !           870:          if (dflag) write(0,*) 'lbuf1=',lbuf1,' lbuf2=',lbuf2
        !           871: #endif
        !           872:          IF(LBUF1.EQ.0) GO TO 1500
        !           873: C                                              !END OF BUFFER?
        !           874: C
        !           875: C CHECK FOR BUZZ WORD
        !           876: C
        !           877:          DO 50 J=1,BUZLNT,2
        !           878:            IF((LBUF1.EQ.BVOC(J)).AND.(LBUF2.EQ.BVOC(J+1)))
        !           879: &              GO TO 1000
        !           880: 50       CONTINUE
        !           881: C
        !           882: C CHECK FOR ACTION OR DIRECTION
        !           883: C
        !           884:          IF(ACT.NE.0) GO TO 75
        !           885: C                                              !GOT ACTION ALREADY?
        !           886:          J=1
        !           887: C                                              !CHECK FOR ACTION.
        !           888: 125      IF((LBUF1.EQ.VVOC(J)).AND.(LBUF2.EQ.VVOC(J+1)))
        !           889: &              GO TO 3000
        !           890: 150      J=J+2
        !           891: C                                              !ADV TO NEXT SYNONYM.
        !           892:          IF(.NOT.OTEST(VVOC(J))) GO TO 125
        !           893: C                                              !ANOTHER VERB?
        !           894:          J=J+VVOC(J)+1
        !           895: C                                              !NO, ADVANCE OVER SYNTAX.
        !           896:          IF(VVOC(J).NE.-1) GO TO 125
        !           897: C                                              !TABLE DONE?
        !           898: C
        !           899: 75       IF((ACT.NE.0).AND.((VVOC(ACT).NE.R50WAL).OR.
        !           900: &              (PREP.NE.0))) GO TO 200
        !           901:          DO 100 J=1,DIRLNT,3
        !           902: C                                              !THEN CHK FOR DIR.
        !           903:            IF((LBUF1.EQ.DVOC(J)).AND.(LBUF2.EQ.DVOC(J+1)))
        !           904: &              GO TO 2000
        !           905: 100      CONTINUE
        !           906: C
        !           907: C NOT AN ACTION, CHECK FOR PREPOSITION, ADJECTIVE, OR OBJECT.
        !           908: C
        !           909: 200      DO 250 J=1,PRPLNT,3
        !           910: C                                              !LOOK FOR PREPOSITION.
        !           911:            IF((LBUF1.EQ.PVOC(J)).AND.(LBUF2.EQ.PVOC(J+1)))
        !           912: &              GO TO 4000
        !           913: 250      CONTINUE
        !           914: C
        !           915:          J=1
        !           916: C                                              !LOOK FOR ADJECTIVE.
        !           917: 300      IF((LBUF1.EQ.AVOC(J)).AND.(LBUF2.EQ.AVOC(J+1)))
        !           918: &              GO TO 5000
        !           919:          J=J+1
        !           920: 325      J=J+1
        !           921: C                                              !ADVANCE TO NEXT ENTRY.
        !           922:          IF(OTEST(AVOC(J))) GO TO 325
        !           923: C                                              !A RADIX 50 CONSTANT?
        !           924:          IF(AVOC(J).NE.-1) GO TO 300
        !           925: C                                              !POSSIBLY, END TABLE?
        !           926: C
        !           927:          J=1
        !           928: C                                              !LOOK FOR OBJECT.
        !           929: 450      IF((LBUF1.EQ.OVOC(J)).AND.(LBUF2.EQ.OVOC(J+1)))
        !           930: &              GO TO 600
        !           931:          J=J+1
        !           932: 500      J=J+1
        !           933:          IF(OTEST(OVOC(J))) GO TO 500
        !           934:          IF(OVOC(J).NE.-1) GO TO 450
        !           935: C
        !           936: C NOT RECOGNIZABLE
        !           937: C
        !           938:          IF(VBFLAG) CALL RSPEAK(601)
        !           939:          RETURN
        !           940: C SPARSE, PAGE 9
        !           941: C
        !           942: C OBJECT PROCESSING (CONTINUATION OF DO LOOP ON PREV PAGE)
        !           943: C
        !           944: 600      OBJ=GETOBJ(J,ADJ,0)
        !           945: C                                              !IDENTIFY OBJECT.
        !           946: #ifdef debug
        !           947:          IF(DFLAG) PRINT 60,J,OBJ
        !           948: #ifdef NOCC
        !           949: 60       FORMAT('SPARSE- OBJ AT ',I6,'  OBJ= ',I6)
        !           950: #else NOCC
        !           951: 60       FORMAT(' SPARSE- OBJ AT ',I6,'  OBJ= ',I6)
        !           952: #endif NOCC
        !           953: #endif
        !           954:          IF(OBJ.LE.0) GO TO 6000
        !           955: C                                              !IF LE, COULDNT.
        !           956:          IF(OBJ.NE.ITOBJ) GO TO 650
        !           957: C                                              !"IT"?
        !           958:          OBJ=GETOBJ(0,0,LASTIT)
        !           959: C                                              !FIND LAST.
        !           960:          IF(OBJ.LE.0) GO TO 6000
        !           961: C                                              !IF LE, COULDNT.
        !           962: C
        !           963: 650      IF(PREP.EQ.9) GO TO 8000
        !           964: C                                              !"OF" OBJ?
        !           965:          IF(PPTR.EQ.2) GO TO 7000
        !           966: C                                              !TOO MANY OBJS?
        !           967:          PPTR=PPTR+1
        !           968:          OBJVEC(PPTR)=OBJ
        !           969: C                                              !STUFF INTO VECTOR.
        !           970:          PRPVEC(PPTR)=PREP
        !           971: 700      PREP=0
        !           972:          ADJ=0
        !           973: C Go to end of do loop (moved "1000 CONTINUE" to end of module, to avoid
        !           974: C complaints about people jumping back into the doloop.)
        !           975:          GOTO 1000
        !           976: C SPARSE, PAGE 10
        !           977: C
        !           978: C SPECIAL PARSE PROCESSORS
        !           979: C
        !           980: C 2000--       DIRECTION
        !           981: C
        !           982: 2000   PRSA=WALKW
        !           983:        PRSO=DVOC(J+2)
        !           984:        SPARSE=1
        !           985: #ifdef debug
        !           986:        IF(DFLAG) PRINT 10,J
        !           987: #ifdef NOCC
        !           988: 10     FORMAT('SPARSE- DIR AT ',I6)
        !           989: #else NOCC
        !           990: 10     FORMAT(' SPARSE- DIR AT ',I6)
        !           991: #endif NOCC
        !           992: #endif debug
        !           993:        RETURN
        !           994: C
        !           995: C 3000--       ACTION
        !           996: C
        !           997: 3000   ACT=J
        !           998:        OACT=0
        !           999: #ifdef debug
        !          1000:        IF(DFLAG) PRINT 20,J
        !          1001: #ifdef NOCC
        !          1002: 20     FORMAT('SPARSE- ACT AT ',I6)
        !          1003: #else NOCC
        !          1004: 20     FORMAT(' SPARSE- ACT AT ',I6)
        !          1005: #endif NOCC
        !          1006:        if(dflag) write(0,*) "count=",vvoc(j+2)," vnr=",vvoc(j+3)
        !          1007: #endif
        !          1008:        GO TO 1000
        !          1009: C
        !          1010: C 4000--       PREPOSITION
        !          1011: C
        !          1012: 4000   IF(PREP.NE.0) GO TO 4500
        !          1013:        PREP=PVOC(J+2)
        !          1014:        ADJ=0
        !          1015: #ifdef debug
        !          1016:        IF(DFLAG) PRINT 30,J
        !          1017: #ifdef NOCC
        !          1018: 30     FORMAT('SPARSE- PREP AT ',I6)
        !          1019: #else NOCC
        !          1020: 30     FORMAT(' SPARSE- PREP AT ',I6)
        !          1021: #endif NOCC
        !          1022: #endif debug
        !          1023:        GO TO 1000
        !          1024: C
        !          1025: 4500   IF(VBFLAG) CALL RSPEAK(616)
        !          1026:        RETURN
        !          1027: C
        !          1028: C 5000--       ADJECTIVE
        !          1029: C
        !          1030: 5000   ADJ=J
        !          1031:        J=(and(ONAME,OFLAG))
        !          1032: #ifdef debug
        !          1033:        IF(DFLAG) PRINT 40,ADJ,J
        !          1034: #ifdef NOCC
        !          1035: 40     FORMAT('SPARSE- ADJ AT ',I6,' ORPHAN= ',I6)
        !          1036: #else NOCC
        !          1037: 40     FORMAT(' SPARSE- ADJ AT ',I6,' ORPHAN= ',I6)
        !          1038: #endif NOCC
        !          1039: #endif debug
        !          1040:        IF((J.NE.0).AND.(I.GE.LLNT)) GO TO 600
        !          1041:        GO TO 1000
        !          1042: C
        !          1043: C 6000--       UNIDENTIFIABLE OBJECT (INDEX INTO OVOC IS J)
        !          1044: C
        !          1045: 6000   IF(OBJ.LT.0) GO TO 6100
        !          1046:        J=579
        !          1047:        IF(LIT(HERE)) J=618
        !          1048:        IF(VBFLAG) CALL RSPEAK(J)
        !          1049:        RETURN
        !          1050: C
        !          1051: 6100   IF(OBJ.NE.-10000) GO TO 6200
        !          1052:        IF(VBFLAG) CALL RSPSUB(620,ODESC2(AVEHIC(WINNER)))
        !          1053:        RETURN
        !          1054: C
        !          1055: 6200   IF(VBFLAG) CALL RSPEAK(619)
        !          1056:        IF(ACT.EQ.0) ACT=(and(OFLAG,OACT))
        !          1057:        CALL ORPHAN(-1,ACT,O1,PREP,J)
        !          1058:        RETURN
        !          1059: C
        !          1060: C 7000--       TOO MANY OBJECTS.
        !          1061: C
        !          1062: 7000   IF(VBFLAG) CALL RSPEAK(617)
        !          1063:        RETURN
        !          1064: C
        !          1065: C 8000--       RANDOMNESS FOR "OF" WORDS
        !          1066: C
        !          1067: 8000   IF(OBJVEC(PPTR).EQ.OBJ) GO TO 700
        !          1068:        IF(VBFLAG) CALL RSPEAK(601)
        !          1069:        RETURN
        !          1070: C
        !          1071: C End of do-loop.
        !          1072: C
        !          1073: 1000   CONTINUE
        !          1074: C                                              !AT LAST.
        !          1075: C
        !          1076: C NOW SOME MISC CLEANUP -- We fell out of the do-loop
        !          1077: C
        !          1078: 1500   IF(ACT.EQ.0) ACT=(and(OFLAG,OACT))
        !          1079:        IF(ACT.EQ.0) GO TO 9000
        !          1080: C                                              !IF STILL NONE, PUNT.
        !          1081:        IF(ADJ.NE.0) GO TO 10000
        !          1082: C                                              !IF DANGLING ADJ, PUNT.
        !          1083: C
        !          1084:        IF((OFLAG.NE.0).AND.(OPREP.NE.0).AND.(PREP.EQ.0).AND.
        !          1085: &              (O1.NE.0).AND.(O2.EQ.0).AND.(ACT.EQ.OACT))
        !          1086: &              GO TO 11000
        !          1087: C
        !          1088:        SPARSE=0
        !          1089: C                                              !PARSE SUCCEEDS.
        !          1090:        IF(PREP.EQ.0) GO TO 1750
        !          1091: C                                              !IF DANGLING PREP,
        !          1092:        IF((PPTR.EQ.0).OR.(PRPVEC(PPTR).NE.0))
        !          1093: &              GO TO 12000
        !          1094:        PRPVEC(PPTR)=PREP
        !          1095: C                                              !CVT TO 'PICK UP FROB'.
        !          1096: C
        !          1097: C 1750--       RETURN A RESULT
        !          1098: C
        !          1099: 1750   CONTINUE
        !          1100: C                                              !WIN.
        !          1101: #ifdef debug
        !          1102:        IF(DFLAG) PRINT 70,ACT,O1,O2,P1,P2
        !          1103: #ifdef NOCC
        !          1104: 70     FORMAT('SPARSE RESULTS- ',5I7)
        !          1105: #else NOCC
        !          1106: 70     FORMAT(' SPARSE RESULTS- ',5I7)
        !          1107: #endif NOCC
        !          1108:        if(dflag) write(0,*) "sparse=",sparse
        !          1109: #endif
        !          1110:        RETURN
        !          1111: C                                              !LOSE.
        !          1112: C
        !          1113: C 9000--       NO ACTION, PUNT
        !          1114: C
        !          1115: 9000   IF(O1.EQ.0) GO TO 10000
        !          1116: C                                              !ANY DIRECT OBJECT?
        !          1117:        IF(VBFLAG) CALL RSPSUB(621,ODESC2(O1))
        !          1118: C                                              !WHAT TO DO?
        !          1119:        CALL ORPHAN(-1,0,O1,0,0)
        !          1120:        RETURN
        !          1121: C
        !          1122: C 10000--      TOTAL CHOMP
        !          1123: C
        !          1124: 10000  IF(VBFLAG) CALL RSPEAK(622)
        !          1125: C                                              !HUH?
        !          1126:        RETURN
        !          1127: C
        !          1128: C 11000--      ORPHAN PREPOSITION.  CONDITIONS ARE
        !          1129: C              O1.NE.0, O2=0, PREP=0, ACT=OACT
        !          1130: C
        !          1131: 11000  IF(OSLOT.NE.0) GO TO 11500
        !          1132: C                                              !ORPHAN OBJECT?
        !          1133:        P1=OPREP
        !          1134: C                                              !NO, JUST USE PREP.
        !          1135:        GO TO 1750
        !          1136: C
        !          1137: 11500  O2=O1
        !          1138: C                                              !YES, USE AS DIRECT OBJ.
        !          1139:        P2=OPREP
        !          1140:        O1=OSLOT
        !          1141:        P1=0
        !          1142:        GO TO 1750
        !          1143: C
        !          1144: C 12000--      TRUE HANGING PREPOSITION.
        !          1145: C              ORPHAN FOR LATER.
        !          1146: C
        !          1147: 12000  CALL ORPHAN(-1,ACT,0,PREP,0)
        !          1148: C                                              !ORPHAN PREP.
        !          1149:        GO TO 1750
        !          1150: C
        !          1151:        END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.