1 /* parse.h -- header file for parsing structures used by dungeon */ 2 3 /* These structures are only used by the parsing routines. They are in 4 * their own file since they are so large. 5 */ 6 7 #ifndef PARSE_H 8 #define PARSE_H 9 10 #ifndef EXTERN 11 #define EXTERN extern 12 #endif 13 14 EXTERN struct { 15 integer act, o1, o2, p1, p2; 16 } pv_; 17 18 #define pv_1 pv_ 19 #define pvec ((integer *)&pv_1) 20 #define objvec ((integer *)&pv_1 + 1) 21 #define prpvec ((integer *)&pv_1 + 3) 22 23 EXTERN struct { 24 integer vflag, dobj, dfl1, dfl2, dfw1, dfw2, iobj, ifl1, ifl2, ifw1, ifw2; 25 26 } syntax_; 27 28 #define syntax_1 syntax_ 29 #define syn ((integer *)&syntax_1) 30 31 /* Object flags (objflg) */ 32 33 #define VABIT (16384) 34 #define VRBIT (8192) 35 #define VTBIT (4096) 36 #define VCBIT (2048) 37 #define VEBIT (1024) 38 #define VFBIT (512) 39 #define VPMASK (511) 40 41 /* Syntax flags (synflg) */ 42 43 #define SDIR (16384) 44 #define SIND (8192) 45 #define SSTD (4096) 46 #define SFLIP (2048) 47 #define SDRIV (1024) 48 #define SVMASK (511) 49 50 /* BUZZ WORDS-- IGNORED IN SYNTACTIC PROCESSING */ 51 52 /* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */ 53 54 /* DATA BVOC/3RAND,0,2RBY,0,2RIS,0,1RA,0, */ 55 /* & 2RAN,0,3RTHE,0,3RRUN,0,2RGO,0,3RPRO,3RCEE,0,0/ */ 56 57 EXTERN const struct { 58 integer bvoc[20]; 59 } buzvoc_ 60 #ifdef INIT 61 = { 2164, 0, 4200, 0, 15160, 0, 1600, 0, 2160, 0, 32325, 0, 62 29654, 0, 11800, 0, 26335, 5005, 0, 0 } 63 #endif 64 ; 65 66 #define buzvoc_1 buzvoc_ 67 68 /* PREPOSITIONS-- MAPS PREPOSITIONS TO INDICES */ 69 70 /* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */ 71 72 /* DATA PVOC/3ROVE,1RR,1,3RWIT,1RH,2,3RUSI,2RNG,2,3RTHR,3ROUG,2, */ 73 /* & 2RAT,0,3,2RTO,0,4,2RIN,0,5,3RINS,3RIDE,5,3RINT,1RO,5, */ 74 /* & 3RDOW,1RN,6,2RUP,0,7,3RUND,2RER,8,2ROF,0,9,2RON,0,10, */ 75 /* & 3ROFF,0,11/ */ 76 77 EXTERN const struct { 78 integer pvoc[45]; 79 } prpvoc_ 80 #ifdef INIT 81 = { 24885, 28800, 1, 37180, 12800, 2, 34369, 22680, 2, 32338, 82 24847, 2, 2400, 0, 3, 32600, 0, 4, 14960, 0, 5, 14979, 14565, 5, 83 14980, 0, 5, 7023, 22400, 6, 34240, 0, 7, 34164, 8720, 8, 24240, 84 0, 9, 24560, 0, 10, 24246, 0, 11 } 85 #endif 86 ; 87 88 #define prpvoc_1 prpvoc_ 89 90 /* DIRECTIONS-- MAPS DIRECTIONS TO INDICES */ 91 92 /* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */ 93 94 /* DATA DVOC/1RN,0,"2000,3RNOR,2RTH,"2000,1RS,0,"12000, */ 95 /* & 1RE,0,"6000,3REAS,1RT,"6000,1RW,0,"16000,3RWES,1RT,"16000, */ 96 /* & 2RSE,0,"10000,2RSW,0,"14000, */ 97 /* & 2RNE,0,"4000,2RNW,0,"20000, */ 98 /* & 1RU,0,"22000,2RUP,0,"22000,1RD,0,"24000,3RDOW,1RN,"24000, */ 99 /* & 3RLAU,3RNCH,"26000,3RLAN,1RD,"30000,3RENT,2RER,"32000, */ 100 /* & 3REXI,1RT,"34000,3ROUT,0,"34000,3RLEA,2RVE,"34000, */ 101 /* & 3RTRA,3RVEL,"36000,3RSOU,2RTH,"12000, */ 102 /* & 2RIN,0,"32000, */ 103 /* & 3RCRO,2RSS,"36000/ */ 104 105 EXTERN const struct { 106 integer dvoc[75]; 107 } dirvoc_ 108 #ifdef INIT 109 = { 22400, 0, 1024, 23018, 32320, 1024, 30400, 0, 5120, 8000, 0, 110 3072, 8059, 32000, 3072, 36800, 0, 7168, 37019, 32000, 7168, 111 30600, 0, 4096, 31320, 0, 6144, 22600, 0, 2048, 23320, 0, 8192, 112 33600, 0, 9216, 34240, 0, 9216, 6400, 0, 10240, 7023, 22400, 113 10240, 19261, 22528, 11264, 19254, 6400, 12288, 8580, 8720, 13312, 114 8969, 32000, 14336, 24860, 0, 14336, 19401, 35400, 14336, 32721, 115 35412, 15360, 31021, 32320, 5120, 14960, 0, 13312, 5535, 31160, 116 15360 } 117 #endif 118 ; 119 120 #define dirvoc_1 dirvoc_ 121 122 /* ADJECTIVES-- MAPS ADJECTIVES TO OBJECT NUMBERS */ 123 124 /* EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF A TWO WORD */ 125 /* ADJECTIVE IN RADIX-50 FOLLOWED BY ONE OR MORE OBJECT NUMBERS. */ 126 /* NOTE THAT ADJECTIVES CAN BE DISTINGUISHED FROM OBJECTS AS */ 127 /* FOLLOWS-- ALL ADJECTIVES ARE .GE. 1RA (1600), WHILE ALL OBJECTS */ 128 /* ARE .LE. OLNT (255 MAX). */ 129 130 /* THE DATA STATEMENT BELOW WAS CONVERTED FROM: */ 131 132 /* DATA AVOC1/3RBRO,2RWN,1,81,3RELO,3RNGA,1,3RHOT,0,3,3RPEP,3RPER,3, */ 133 /* & 3RVIT,3RREO,4,3RJAD,1RE,6,3RHUG,1RE,8,3RENO,3RRMO,8,122, */ 134 /* & 3RTRO,3RPHY,9,3RCLE,2RAR,10,3RLAR,2RGE,12,26,47,95,96,123, */ 135 /* & 133,135,146,147,150,176,3RNAS,2RTY,13,3RELV,3RISH,14, */ 136 /* & 3RBRA,2RSS,15,16,46,156, */ 137 /* & 3RBRO,3RKEN,16,22,92,113,155,158,3RORI,3RENT,17, */ 138 /* & 3RBLO,3RODY,20,3RRUS,2RTY,21,3RBUR,3RNED,22, */ 139 /* & 3RDEA,1RD,22,3ROLD,0,25,41,44,45,3RLEA,3RTHE,25, */ 140 /* & 3RPLA,3RTIN,26,3RPEA,2RRL,27, */ 141 /* & 3RMOB,1RY,31,3RCRY,3RSTA,32,126, */ 142 /* & 3RGOL,1RD,33,85,104,157,158,188, */ 143 /* & 3RIVO,2RRY,34,3RSAP,3RPHI,37,3RWOO,3RDEN,38,67,136,137, */ 144 /* & 165,173,174,175,3RWOO,1RD,38,67,136,137,165,173,174,175, */ 145 /* & 3RSTE,2REL,39,125,189, */ 146 /* & 3RDEN,3RTED,39,3RFAN,2RCY,40,3RANC,3RIEN,41,44, */ 147 /* & 3RSMA,2RLL,5,46,52,53,89,102,103,153,187, */ 148 /* & 3RBLA,2RCK,47,162,3RTOU,1RR,49, */ 149 /* & 3RVIS,3RCOU,55,3RVIC,3RIOU,62, */ 150 /* & 3RGLA,2RSS,10,126,132,3RTRA,1RP,66/ */ 151 152 /* DATA AVOC2/3RFRO,2RNT,68,3RSTO,2RNE,69,150,214,3RMAN,3RGLE,72, */ 153 /* & 3RRED,0,79,94,140,161,170,171,3RYEL,3RLOW,80,159, */ 154 /* & 3RBLU,1RE,82,112,114,141, */ 155 /* & 3RVAM,3RPIR,83,3RMAG,2RIC,90, */ 156 /* & 3RSEA,3RWOR,90,3RTAN,0,91,3RSHA,2RRP,92, */ 157 /* & 3RWIC,3RKER,98,3RCLO,2RTH,100, */ 158 /* & 3RBRA,3RIDE,101, */ 159 /* & 3RGAU,2RDY,108,3RSQU,3RARE,109,127,3RCLA,1RY,109, */ 160 /* & 3RSHI,2RNY,110,3RTHI,1RN,110, */ 161 /* & 3RGRE,2REN,115,143,3RPUR,3RPLE,116,3RWHI,2RTE,117,147,160, */ 162 /* & 3RMAR,3RBLE,119,3RCOK,1RE,121,3REMP,2RTY,121, */ 163 /* & 3RROU,2RND,128,3RTRI,3RANG,129, */ 164 /* & 2 3RRAR,1RE,134,3ROBL,3RONG,135,3REAT,3R$ME,138, */ 165 /* & 3REAT,2RME,138,3RORA,3RNGE,139,3RECC,1RH,141/ */ 166 167 /* DATA AVOC3/3RROC,2RKY,147,3RSHE,2RER,147, */ 168 /* & 3R200,0,148,3RNEA,1RT,148,3RSHI,3RMME,151, */ 169 /* & 3RZUR,3RICH,152,3RBIR,2RDS,153,154,155, */ 170 /* & 3RENC,3RRUS,154,155,3RBEA,3RUTI,156,3RCLO,3RCKW,157,158, */ 171 /* & 3RMEC,3RHAN,157,158, */ 172 /* & 3RMAH,3ROGA,163,3RPIN,1RE,164,3RLON,1RG,166, */ 173 /* & 3RCEN,3RTER,166,3RSHO,2RRT,167,1RT,0,168, */ 174 /* & 3RCOM,3RPAS,169,211,3RBRO,3RNZE,172,3RCEL,1RL,174,175, */ 175 /* & 3RLOC,3RKED,174,3RSUN,0,177, */ 176 /* & 3RBAR,1RE,200,3RSON,1RG,203, */ 177 /* & 3RNOR,2RTH,205,3RNOR,3RTHE,205,3RSOU,2RTH,206, */ 178 /* & 3RSOU,3RTHE,206,3REAS,1RT,207,3REAS,3RTER,207, */ 179 /* & 3RWES,1RT,208,3RWES,3RTER,208,3RDUN,3RGEO,215/ */ 180 181 EXTERN const integer avoc[] 182 #ifdef INIT 183 = { 3935, 37360, 1, 81, 8495, 22681, 1, 13420, 0, 3, 25816, 184 25818, 3, 35580, 29015, 4, 16044, 8000, 6, 13647, 8000, 8, 8575, 185 29335, 8, 122, 32735, 25945, 9, 5285, 2320, 10, 19258, 11400, 12, 186 26, 47, 95, 96, 123, 133, 135, 146, 147, 150, 176, 22459, 33000, 187 13, 8502, 15168, 14, 3921, 31160, 15, 16, 46, 156, 3935, 17814, 188 16, 22, 92, 113, 155, 158, 24729, 8580, 17, 3695, 24185, 20, 189 29659, 33000, 21, 4058, 22604, 22, 6601, 6400, 22, 24484, 0, 25, 190 41, 44, 45, 19401, 32325, 25, 26081, 32374, 26, 25801, 29280, 27, 191 21402, 40000, 31, 5545, 31201, 32, 126, 11812, 6400, 33, 85, 104, 192 157, 158, 188, 15295, 29800, 34, 30456, 25929, 37, 37415, 6614, 193 38, 67, 136, 137, 165, 173, 174, 175, 37415, 6400, 38, 67, 136, 194 137, 165, 173, 174, 175, 31205, 8480, 39, 125, 189, 6614, 32204, 195 39, 9654, 5800, 40, 2163, 14614, 41, 44, 30921, 19680, 5, 46, 52, 196 53, 89, 102, 103, 153, 187, 3681, 5240, 47, 162, 32621, 28800, 49, 197 35579, 5421, 55, 35563, 15021, 62, 11681, 31160, 10, 126, 132, 198 32721, 25600, 66, 10335, 23200, 68, 31215, 22600, 69, 150, 214, 199 20854, 11685, 72, 29004, 0, 79, 94, 140, 161, 170, 171, 40212, 200 19823, 80, 159, 3701, 8000, 82, 112, 114, 141, 35253, 25978, 83, 201 20847, 14520, 90, 30601, 37418, 90, 32054, 0, 91, 30721, 29440, 202 92, 37163, 17818, 98, 5295, 32320, 100, 3921, 14565, 101, 11261, 203 7400, 108, 31101, 2325, 109, 127, 5281, 4000, 109, 30729, 23400, 204 110, 32329, 22400, 110, 11925, 8560, 115, 143, 26458, 26085, 116, 205 37129, 32200, 117, 147, 160, 20858, 3685, 119, 5411, 8000, 121, 206 8536, 33000, 121, 29421, 22560, 128, 32729, 2167, 129, 28858, 207 8000, 134, 24092, 24567, 135, 8060, 43725, 138, 8060, 21000, 138, 208 24721, 22685, 139, 8123, 12800, 141, 29403, 18600, 147, 30725, 209 8720, 147, 52430, 0, 148, 22601, 32000, 148, 30729, 21325, 151, 210 42458, 14528, 152, 3578, 7160, 153, 154, 155, 8563, 29659, 154, 211 155, 3401, 34409, 156, 5295, 5263, 157, 158, 21003, 12854, 157, 212 158, 20848, 24281, 163, 25974, 8000, 164, 19814, 11200, 166, 5014, 213 32218, 166, 30735, 29600, 167, 32000, 0, 168, 5413, 25659, 169, 214 211, 3935, 23445, 172, 5012, 19200, 174, 175, 19803, 17804, 174, 215 31254, 0, 177, 3258, 8000, 200, 31014, 11200, 203, 23018, 32320, 216 205, 23018, 32325, 205, 31021, 32320, 206, 31021, 32325, 206, 217 8059, 32000, 207, 8059, 32218, 207, 37019, 32000, 208, 37019, 218 32218, 208, 7254, 11415, 215, -1 } 219 #endif 220 ; 221 222 /* VERBS-- MAPS VERBS TO SYNTAX SLOTS */ 223 224 /* EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF ONE OR MORE */ 225 /* TWO WORD VERBS IN RADIX-50 FOLLOWED BY A SYNTAX WORD COUNT */ 226 /* FOLLOWED BY ONE OR MORE SYNTAXES. NOTE THAT VERBS CAN BE */ 227 /* DISTINGUISHED FROM WORD COUNTS AS FOLLOWS-- */ 228 /* ALL VERBS ARE .GE. 1RA (1600), WHILE ALL SYNTAX WORD COUNTS */ 229 /* ARE .LE. 255. */ 230 231 /* SYNTAX ENTRIES CONSIST OF A FLAG WORD FOLLOWED BY 0, 1, OR 2 */ 232 /* OBJECT DESCRIPTIONS. THE FLAG WORD HAS THE FOLLOWING FORMAT-- */ 233 234 /* BIT <14> IF 1, SYNTAX INCLUDES DIRECT OBJECT */ 235 /* BIT <13> IF 1, SYNTAX INCLUDES INDIRECT OBJECT */ 236 /* BIT <12> IF 1, DIRECT OBJECT IS IMPLICIT (STANDARD FORM) */ 237 /* BIT <11> IF 1, DIRECT AND INDIRECT OBJECT MUST BE SWAPPED */ 238 /* AFTER SYNTAX PROCESSING */ 239 /* BIT <10> IF 1, THIS IS DEFAULT SYNTAX FOR ORPHANERY */ 240 /* BITS <8:0> VERB NUMBER FOR VAPPLI */ 241 242 /* OBJECT DESCRIPTIONS CONSIST OF A FLAG WORD AND TWO FWIM WORDS. */ 243 /* THE FLAG WORD HAS THE FOLLOWING FORMAT-- */ 244 245 /* BIT <14> IF 1, SEARCH ADVENTURER FOR OBJECT */ 246 /* BIT <13> IF 1, SEARCH ROOM FOR OBJECT */ 247 /* BIT <12> IF 1, PARSER WILL TRY TO TAKE OBJECT */ 248 /* BIT <11> IF 1, ADVENTURER MUST HAVE OBJECT */ 249 /* BIT <10> IF 1, QUALIFYING BITS (NORMALLY -1,-1) ARE SAME */ 250 /* AS FWIM BITS */ 251 /* BIT <9> IF 1, OBJECT MUST BE REACHABLE */ 252 /* BITS <8:0> PREPOSITION NUMBER FOR SYNMCH */ 253 254 /* THE FWIM WORDS HAVE THE SAME FORMAT AS THE TWO OBJECT FLAG WORDS. */ 255 256 /* NOTE THAT BITS 12 AND 11 OF OBJECT DESCRIPTIONS ACTUALLY HAVE */ 257 /* FOUR DISTINCT STATES-- */ 258 259 /* BIT 12 BIT 11 MDLDESC INTERPRETATION */ 260 /* ------ ------ ------- --------------- */ 261 262 /* 0 0 -- NO PARSER ACTION */ 263 /* 0 1 HAVE ADVENTURER MUST HAVE OBJECT */ 264 /* 1 0 TRY TRY TO TAKE, DONT CARE IF FAIL */ 265 /* 1 1 TAKE TRY TO TAKE, CARE IF FAIL */ 266 267 /* THE FOLLOWING DATA STATEMENT WAS ORIGINALLY: */ 268 269 /* DATA VVOC1/3RBRI,2REF,1,70,3RVER,3RBOS,1,71, */ 270 /* & 3RSUP,3RERB,1,72,3RSTA,1RY,1,73,3RVER,3RSIO,1,74, */ 271 /* & 3RSWI,1RM,3RBAT,2RHE,3RWAD,1RE,1,75,3RGER,3RONI,1,76, */ 272 /* & 3RULY,3RSSE,3RODY,3RSSE,1,77, */ 273 /* & 3RWEL,1RL,1,78,3RPRA,1RY,1,79,3RTRE,3RASU,1,80, */ 274 /* & 3RTEM,3RPLE,1,81,3RBLA,2RST,1,82,3RSCO,2RRE,1,83, */ 275 /* & 1RQ,0,3RQUI,1RT,1,84,3RHEL,1RP,1,40,3RINF,1RO,1,41, */ 276 /* & 3RHIS,3RTOR,3RUPD,3RATE,1,42,3RBAC,1RK,1,43, */ 277 /* & 3RSIG,1RH,3RMUM,3RBLE,1,44/ */ 278 279 /* DATA VVOC1A/3RCHO,2RMP,3RLOS,1RE,3RBAR,1RF,1,45, */ 280 /* & 3RDUN,3RGEO,1,46,3RFRO,3RBOZ,1,47,3RFOO,0,3RBLE,3RTCH, */ 281 /* & 3RBAR,0,1,48,3RREP,3RENT,1,49,3RHOU,2RRS,3RSCH,3REDU,1,50, */ 282 /* & 3RWIN,0,1,51,3RYEL,1RL,3RSCR,3REAM,3RSHO,2RUT,1,52, */ 283 /* & 3RHOP,0,3RSKI,1RP,1,53,3RFUC,1RK,3RSHI,1RT,3RDAM,1RN, */ 284 /* & 3RCUR,2RSE,1,54,3RZOR,1RK,1,55,3RGRA,3RNIT,1,"50070, */ 285 /* & 3RSAV,1RE,1,149,3RRES,3RTOR,1,150,3RTIM,1RE,1,90, */ 286 /* & 3RDIA,3RGNO,1,94,3REXO,3RRCI,1,105,3RINV,3RENT, */ 287 /* & 1RI,0,1,133,3RWAI,1RT,1,128, */ 288 /* & 3RINC,3RANT,1,95,3RANS,3RWER,1,96/ */ 289 290 /* DATA VVOC1B/3RAGA,2RIN,1,57,3RNOO,2RBJ,1,58, */ 291 /* & 3RBUG,0,3RGRI,2RPE,3RCOM,3RPLA,1,59, */ 292 /* & 3RFEA,3RTUR,3RCOM,3RMEN,3RSUG,3RGES,3RIDE,1RA,1,60, */ 293 /* & 3RROO,1RM,1,65,3ROBJ,3RECT,1,66,3RRNA,2RME,1,67/ */ 294 295 /* DATA VVOC2/3RDEF,3RLAT,1,"50147, */ 296 /* & 3RDES,3RCRI,3RWHA,1RT,3REXA,3RMIN,1,"50170, */ 297 /* & 3RFIL,1RL,11,"60206,"61000,"200,0,"61002,"400,0, */ 298 /* & "40206,"61000,"200,0, */ 299 /* & 3RFIN,1RD,3RSEE,1RK,3RWHE,2RRE,3RSEE,0,4,"40177,"60000,-1,-1, */ 300 /* & 3RFOL,3RLOW,2,"125,"50125, */ 301 /* & 3RKIC,1RK,3RBIT,1RE,3RTAU,2RNT,1,"50153,3RLOW,2RER,1,"50156, */ 302 /* & 3RPUS,1RH,3RPRE,2RSS,1,"50160,3RRIN,1RG,3RPEA,1RL,1,"50127, */ 303 /* & 3RRUB,0,3RCAR,3RESS,3RTOU,2RCH,3RFON,3RDLE,1,"50157, */ 304 /* & 3RSHA,2RKE,1,"50171,3RSPI,1RN,1,"50201, */ 305 /* & 3RUNT,2RIE,3RFRE,1RE,1,"50161,3RWAL,1RK,9,"50216, */ 306 /* & "40126,"61002,-1,-1,"40126,"61005,-1,-1/ */ 307 308 /* DATA VVOC3/3RATT,3RACK,3RFIG,2RHT,3RINJ,3RURE,3RHIT,0,3RHUR,1RT, */ 309 /* & 7,"60215,"21000,0,"200,"44002,0,"1000, */ 310 /* & 3RBOA,2RRD,4,"40202,"21000,0,"2, */ 311 /* & 3RBRU,2RSH,3RCLE,2RAN,5,"52130,"70130,"61002,-1,-1, */ 312 /* & 3RBUR,1RN,3RIGN,3RITE,3RINC,3RINE,7,"60211,"61000,"20,0, */ 313 /* & "64002,"10,0, */ 314 /* & 3RCLI,2RMB,12,"40235,"20007,0,"4000, */ 315 /* & "40236,"20006,0,"4000,"40234,"20000,0,"4000, */ 316 /* & 3RCLO,2RSE,4,"40176,"61000,"10200,0, */ 317 /* & 3RDIG,0,4,"40131,"44002,"4,0, */ 318 /* & 3RDIS,3REMB,4,"40203,"20000,0,"2, */ 319 /* & 3RDRI,2RNK,3RIMB,3RIBE,3RSWA,3RLLO,4,"40210,"61000,"400,0, */ 320 /* & 3RDRO,1RP,3RREL,3REAS,11,"42221,"41000,-1,-1, */ 321 /* & "60221,"41000,-1,-1,"61005,-1,-1, */ 322 /* & 3REAT,0,3RCON,3RSUM,3RGOB,3RBLE,3RMUN,2RCH,3RTAS,2RTE, */ 323 /* & 4,"40207,"75000,"2000,0, */ 324 /* & 3REXT,3RING,3RDOU,2RSE,4,"40174,"75000,"100,0/ */ 325 326 /* DATA VVOC4/3RGIV,1RE,3RHAN,1RD,3RDON,3RATE,11,"72222,"21004, */ 327 /* & "40,0,"64222,"21000,"40,0,"61000,-1,-1, */ 328 /* & 3RHEL,2RLO,2RHI,0,2,"2227,"50227, */ 329 /* & 3RBLO,1RW,15,"62146,"61007,-1,-1,"61002,"4,0, */ 330 /* & "40160,"61007,-1,-1,"40165,"61005,-1,-1, */ 331 /* & 3RINF,3RLAT,4,"70146,"61002,"4,0, */ 332 /* & 3RJUM,1RP,3RLEA,1RP,5,"133,"40133,"61001,-1,-1, */ 333 /* & 3RKIL,1RL,3RMUR,3RDER,3RSLA,1RY,3RSTA,1RB,3RDIS,3RPAT, */ 334 /* & 7,"60213,"21000,0,"200, */ 335 /* & "44002,0,"1000, */ 336 /* & 3RKNO,2RCK,3RRAP,0,12,"42166,"61003,-1,-1, */ 337 /* & "40166,"61012,-1,-1,"40215,"23006,"40,0, */ 338 /* & 3RLIG,2RHT,11,"42173,"75000,"100,0, */ 339 /* & "60211,"61000,"100,0,"54002,"10,0, */ 340 /* & 3RLOC,1RK,4,"40134,"20000,-1,-1/ */ 341 342 /* DATA VVOC5/3RLOO,1RK,1RL,0,3RSTA,2RRE,3RGAZ,1RE, */ 343 /* & 13,"167,"40167,"60003,-1,-1, */ 344 /* & "40231,"61010,-1,-1,"40230,"60005,-1,-1, */ 345 /* & 3RMEL,1RT,3RLIQ,3RUIF,4,"70145,"61002,"10,0, */ 346 /* & 3RMOV,1RE,4,"40172,"20000,-1,-1, */ 347 /* & 3RPUL,1RL,3RTUG,0,8,"42172,"21000,-1,-1, */ 348 /* & "40172,"21012,-1,-1, */ 349 /* & 3RMUN,1RG,3RHAC,1RK,3RFRO,1RB,3RDAM,3RAGE, */ 350 /* & 5,"52212,"70212,"44002,-1,-1, */ 351 /* & 3ROPE,1RN,11,"42175,"61000,"10200,0, */ 352 /* & "60175,"61000,"10200,0,"54002,"4,"1000, */ 353 /* & 3RPIC,1RK,4,"40204,"61007,"20000,"40, */ 354 /* & 3RPLU,1RG,3RGLU,1RE,3RPAT,2RCH,4,"70152,"61002,-1,-1, */ 355 /* & 3RPOK,1RE,3RBRE,2RAK,3RJAB,0,7,"60212,"21000,0,"200, */ 356 /* & "44002,0,"1000, */ 357 /* & 3RPOU,1RR,3RSPI,2RLL,11,"42223,"42000,"400,0, */ 358 /* & "60223,"42000,"400,0,"60005,-1,-1, */ 359 /* & 3RPUM,1RP,4,"60232,"60007,-1,-1/ */ 360 361 /* DATA VVOC6/3RPUT,0,3RINS,3RERT,3RSTU,2RFF,3RPLA,2RCE, */ 362 /* & 8,"72220,"61005,-1,-1, */ 363 /* & "40221,"61006,-1,-1, */ 364 /* & 3RRAI,2RSE,3RLIF,1RT,5,"52155,"40155,"61007,-1,-1, */ 365 /* & 3RREA,1RD,3RSKI,1RM,11,"42144,"71000,"40000,0, */ 366 /* & "60144,"71000,"40000,0,"61002,-1,-1, */ 367 /* & 3RSTR,3RIKE,12,"60215,"23000,"40,0, */ 368 /* & "44002,0,"1000,"42215,"23000,"40,0,"50173, */ 369 /* & 3RSWI,2RNG,3RTHR,3RUST,7,"60214,"44000,0,"1000, */ 370 /* & "21003,0,"200, */ 371 /* & 3RTAK,1RE,3RGET,0,3RHOL,1RD,3RCAR,2RRY,3RREM,3ROVE, */ 372 /* & 4,"40204,"61000,"20000,"40, */ 373 /* & 3RTEL,1RL,3RCOM,3RMAN,3RREQ,3RUES,4,"40217,"20000,0,"2000, */ 374 /* & 3RTHR,2ROW,3RHUR,1RL,3RCHU,2RCK,14,"60224,"44000,-1,-1, */ 375 /* & "21003,"40,0,"60224,"44000,-1,-1,"21002,"40,0/ */ 376 377 /* DATA VVOC7/3RTIE,0,3RFAS,3RTEN,11,"70162,"61004,-1,-1, */ 378 /* & "60163,"21000,"40,0,"65002,"4,0, */ 379 /* & 3RTUR,1RN,3RSET,0,22,"62164,"61000,"2,0, */ 380 /* & "64002,"4,0, */ 381 /* & "40173,"75012,"100,0,"40174,"75013,"100,0, */ 382 /* & "60237,"61000,"2,0,"20004,-1,-1, */ 383 /* & 3RUNL,3ROCK,7,"60135,"21000,-1,-1, */ 384 /* & "74002,"4,0, */ 385 /* & 3RWAK,1RE,3RSUR,3RPRI,3RALA,2RRM,3RSTA,3RRTL, */ 386 /* & 8,"42150,"20000,"40,0, */ 387 /* & "40150,"20007,"40,0, */ 388 /* & 3RWAV,1RE,3RFLA,3RUNT,3RBRA,3RNDI,4,"40154,"40000,-1,-1, */ 389 /* & 3RWIN,1RD,5,"50233,"40233,"61007,-1,-1/ */ 390 391 EXTERN const integer vvoc[] 392 #ifdef INIT 393 = { 3929, 8240, 1, 70, 35418, 3819, 1, 71, 31256, 8722, 1, 72, 394 31201, 40000, 1, 73, 35418, 30775, 1, 74, 31329, 20800, 3260, 395 13000, 36844, 8000, 1, 75, 11418, 24569, 1, 76, 34105, 31165, 396 24185, 31165, 1, 77, 37012, 19200, 1, 78, 26321, 40000, 1, 79, 397 32725, 2381, 1, 80, 32213, 26085, 1, 81, 3681, 31200, 1, 82, 398 30535, 29000, 1, 83, 27200, 0, 28049, 32000, 1, 84, 13012, 25600, 399 1, 40, 14966, 24000, 1, 41, 13179, 32618, 34244, 2405, 1, 42, 400 3243, 17600, 1, 43, 30767, 12800, 21653, 3685, 1, 44, 5135, 21440, 401 19819, 8000, 3258, 9600, 1, 45, 7254, 11415, 1, 46, 10335, 3826, 402 1, 47, 10215, 0, 3685, 32128, 3258, 0, 1, 48, 29016, 8580, 1, 49, 403 13421, 29560, 30528, 8181, 1, 50, 37174, 0, 1, 51, 40212, 19200, 404 30538, 8053, 30735, 34400, 1, 52, 13416, 0, 30849, 25600, 1, 53, 405 10443, 17600, 30729, 32000, 6453, 22400, 5658, 30600, 1, 54, 406 42218, 17600, 1, 55, 11921, 22780, 1, 20536, 30462, 8000, 1, 149, 407 29019, 32618, 1, 150, 32373, 8000, 1, 90, 6761, 11775, 1, 94, 408 8975, 28929, 1, 105, 14982, 8580, 14400, 0, 1, 133, 36849, 32000, 409 1, 128, 14963, 2180, 1, 95, 2179, 37018, 1, 96, 1881, 14960, 1, 410 57, 23015, 3600, 1, 58, 4047, 0, 11929, 25800, 5413, 26081, 1, 59, 411 9801, 32858, 5413, 21014, 31247, 11419, 14565, 1600, 1, 60, 412 29415, 20800, 1, 65, 24090, 8140, 1, 66, 29361, 21000, 1, 67, 413 6606, 19260, 1, 20583, 6619, 5529, 37121, 32000, 8961, 21174, 1, 414 20600, 9972, 19200, 11, 24710, 25088, 128, 0, 25090, 256, 0, 415 16518, 25088, 128, 0, 9974, 6400, 30605, 17600, 37125, 29000, 416 30605, 0, 4, 16511, 24576, -1, -1, 10212, 19823, 2, 85, 20565, 417 17963, 17600, 3580, 8000, 32061, 23200, 1, 20587, 19823, 8720, 1, 418 20590, 26459, 12800, 26325, 31160, 1, 20592, 29174, 11200, 25801, 419 19200, 1, 20567, 29642, 0, 4858, 8779, 32621, 5120, 10214, 6885, 420 1, 20591, 30721, 17800, 1, 20601, 31049, 22400, 1, 20609, 34180, 421 14600, 10325, 8000, 1, 20593, 36852, 17600, 9, 20622, 16470, 422 25090, -1, -1, 16470, 25093, -1, -1, 2420, 1731, 9967, 13600, 423 14970, 34325, 13180, 0, 13658, 32000, 7, 24717, 8704, 0, 128, 424 18434, 0, 512, 3801, 28960, 4, 16514, 8704, 0, 2, 3941, 30720, 425 5285, 2160, 5, 21592, 28760, 25090, -1, -1, 4058, 22400, 14694, 426 15205, 14963, 14965, 7, 24713, 25088, 16, 0, 26626, 8, 0, 5289, 427 20880, 12, 16541, 8199, 0, 2048, 16542, 8198, 0, 2048, 16540, 428 8192, 0, 2048, 5295, 30600, 4, 16510, 25088, 4224, 0, 6767, 0, 4, 429 16473, 18434, 4, 0, 6779, 8522, 4, 16515, 8192, 0, 2, 7129, 22840, 430 14922, 14485, 31321, 19695, 4, 16520, 25088, 256, 0, 7135, 25600, 431 29012, 8059, 11, 17553, 16896, -1, -1, 24721, 16896, -1, -1, 432 25093, -1, -1, 8060, 0, 5414, 31253, 11802, 3685, 21654, 5120, 433 32059, 32200, 4, 16519, 31232, 1024, 0, 8980, 14967, 7021, 30600, 434 4, 16508, 31232, 64, 0, 11582, 8000, 12854, 6400, 7014, 2405, 11, 435 29842, 8708, 32, 0, 26770, 8704, 32, 0, 25088, -1, -1, 13012, 436 19800, 13160, 0, 2, 1175, 20631, 3695, 36800, 15, 25702, 25095, 437 -1, -1, 25090, 4, 0, 16496, 25095, -1, -1, 16501, 25093, -1, -1, 438 14966, 19260, 4, 28774, 25090, 4, 0, 16853, 25600, 19401, 25600, 439 5, 91, 16475, 25089, -1, -1, 17972, 19200, 21658, 6618, 30881, 440 40000, 31201, 3200, 6779, 25660, 7, 24715, 8704, 0, 128, 18434, 0, 441 512, 18175, 5240, 28856, 0, 12, 17526, 25091, -1, -1, 16502, 442 25098, -1, -1, 16525, 9734, 32, 0, 19567, 13600, 11, 17531, 31232, 443 64, 0, 24713, 25088, 64, 0, 22530, 8, 0, 19803, 17600, 4, 16476, 444 8192, -1, -1, 19815, 17600, 19200, 0, 31201, 29000, 11266, 8000, 445 13, 119, 16503, 24579, -1, -1, 16537, 25096, -1, -1, 16536, 24581, 446 -1, -1, 21012, 32000, 19577, 33966, 4, 28773, 25090, 8, 0, 21422, 447 8000, 4, 16506, 8192, -1, -1, 26452, 19200, 32847, 0, 8, 17530, 448 8704, -1, -1, 16506, 8714, -1, -1, 21654, 11200, 12843, 17600, 449 10335, 3200, 6453, 1885, 5, 21642, 28810, 18434, -1, -1, 24645, 450 22400, 11, 17533, 25088, 4224, 0, 24701, 25088, 4224, 0, 22530, 4, 451 512, 25963, 17600, 4, 16516, 25095, 8192, 32, 26101, 11200, 452 11701, 8000, 25660, 5120, 4, 28778, 25090, -1, -1, 26211, 8000, 453 3925, 2040, 16042, 0, 7, 24714, 8704, 0, 128, 18434, 0, 512, 454 26221, 28800, 31049, 19680, 11, 17555, 17408, 256, 0, 24723, 455 17408, 256, 0, 24581, -1, -1, 26453, 25600, 4, 24730, 24583, -1, 456 -1, 26460, 0, 14979, 8740, 31221, 9840, 26081, 5000, 8, 29840, 457 25093, -1, -1, 16529, 25094, -1, -1, 28849, 30600, 19566, 32000, 458 5, 21613, 16493, 25095, -1, -1, 29001, 6400, 30849, 20800, 11, 459 17508, 29184, 16384, 0, 24676, 29184, 16384, 0, 25090, -1, -1, 460 31218, 14845, 12, 24717, 9728, 32, 0, 18434, 0, 512, 17549, 9728, 461 32, 0, 20603, 31329, 22680, 32338, 34380, 7, 24716, 18432, 0, 512, 462 8707, 0, 128, 32051, 8000, 11420, 0, 13412, 6400, 4858, 29800, 463 29013, 24885, 4, 16516, 25088, 8192, 32, 32212, 19200, 5413, 464 20854, 29017, 33819, 4, 16527, 8192, 0, 1024, 32338, 24920, 13658, 465 19200, 5141, 5240, 14, 24724, 18432, -1, -1, 8707, 32, 0, 24724, 466 18432, -1, -1, 8706, 32, 0, 32365, 0, 9659, 32214, 11, 28786, 467 25092, -1, -1, 24691, 8704, 32, 0, 27138, 4, 0, 32858, 22400, 468 30620, 0, 22, 25716, 25088, 2, 0, 26626, 4, 0, 16507, 31242, 64, 469 0, 16508, 31243, 64, 0, 24735, 25088, 2, 0, 8196, -1, -1, 34172, 470 24131, 7, 24669, 8704, -1, -1, 30722, 4, 0, 36851, 8000, 31258, 471 26329, 2081, 29320, 31201, 29612, 8, 17512, 8192, 32, 0, 16488, 472 8199, 32, 0, 36862, 8000, 10081, 34180, 3921, 22569, 4, 16492, 473 16384, -1, -1, 37174, 6400, 5, 20635, 16539, 25095, -1, -1, -1 } 474 #endif 475 ; 476 477 /* OBJECTS-- MAPS OBJECTS TO OBJECT INDICES */ 478 479 /* SAME FORMAT AS AVOC. */ 480 481 /* THE FOLLOWING DATA STATEMENT WAS ORIGINALLY: */ 482 483 /* DATA OVOC1/3RBAG,0,1,25,100,3RSAC,1RK,1,3RGAR,3RLIC,2, */ 484 /* & 3RCLO,2RVE,2,3RFOO,1RD,3,3RSAN,3RDWI,3,3RLUN,2RCH,3, */ 485 /* & 3RDIN,3RNER,3, */ 486 /* & 3RGUN,1RK,4,55,3RPIE,2RCE,4,143,186,3RSLA,1RG,4,3RCOA,1RL,5, */ 487 /* & 3RPIL,1RE,5,18,38,78,87,88,122,3RHEA,1RP,5, */ 488 /* & 3RFIG,3RURI,6, */ 489 /* & 3RMAC,3RHIN,7,3RPDP,2R10,7,3RPDP,2R11,7,3RDRY,2RER,7, */ 490 /* & 3RLID,0,7,3RDIA,3RMON,8,3RCAS,1RE,9,123,3RBOT,3RTLE,10,121, */ 491 /* & 3RCON,3RTAI,10,3RWAT,2RER,11,209,3RQUA,3RNTI,11,209, */ 492 /* & 3RLIQ,3RUID,11,209,3RH2O,0,11,209, */ 493 /* & 3RROP,1RE,12,101,3RHEM,1RP,12,3RCOI,1RL,12,110, */ 494 /* & 3RKNI,2RFE,13,21,3RBLA,2RDE,13,14,3RSWO,2RRD,14,3RORC,3RHRI,14, */ 495 /* & 3RGLA,3RMDR,14,3RLAM,1RP,15,16,22,3RLAN,3RTER,15,16,22, */ 496 /* & 3RRUG,0,17,3RCAR,3RPET,17, */ 497 /* & 3RLEA,3RVES,18,3RLEA,1RF,18,3RTRO,2RLL,19, */ 498 /* & 3RAXE,0,20,3RDIN,3RNER,3/ */ 499 500 /* DATA OVOC2/3RKEY,1RS,23,3RKEY,0,23, */ 501 /* & 3RSET,0,23,3RBON,2RES,24,3RSKE,3RLET,24,3RBOD,1RY,24,73, */ 502 /* & 3RCOI,2RNS,25,3RBAR,0,26,165,168, */ 503 /* & 3RNEC,3RKLA,27,3RPEA,3RRLS,27,3RMIR,3RROR,28,29,212, */ 504 /* & 3RICE,0,30,3RMAS,1RS,30,3RGLA,3RCIE,30,3RRUB,1RY,31, */ 505 /* & 3RTRI,3RDEN,32,3RFOR,1RK,32,3RCOF,3RFIN,33,3RCAS,3RKET,33, */ 506 /* & 3RTOR,2RCH,34,3RCAG,1RE,35,36,124,125,3RDUM,3RBWA,35,36, */ 507 /* & 3RBAS,3RKET,35,36,98,113,3RBRA,3RCEL,37, */ 508 /* & 3RJEW,2REL,37,3RTIM,3RBER,38,3RBOX,0,39,53,105,3RSTR,3RADI,40, */ 509 /* & 3RVIO,3RLIN,40,3RENG,3RRAV,41,3RINS,3RCRI,41,44,3RGHO,2RST,42, */ 510 /* & 3RSPI,3RRIT,42,3RFIE,2RND,42,3RGRA,2RIL,43,3RPRA,3RYER,44,47, */ 511 /* & 3RTRU,2RNK,45,3RCHE,2RST,45,3RBEL,1RL,46, */ 512 /* & 3RBOO,1RK,47,49,114,115,116,117,3RBIB,2RLE,47/ */ 513 514 /* DATA OVOC3/3RGOO,3RDBO,47,3RCAN,3RDLE,48,3RPAI,1RR,48, */ 515 /* & 3RGUI,3RDEB,49, */ 516 /* & 3RGUI,2RDE,49,3RPAP,2RER,50,122,143,186,3RNEW,3RSPA,50, */ 517 /* & 3RISS,2RUE,50,3RREP,3RORT,50,3RMAG,3RAZI,50,3RNEW,1RS,50, */ 518 /* & 3RMAT,3RCHB,51, */ 519 /* & 3RMAT,2RCH,51,3RMAT,3RCHE,51,3RADV,3RERT,52,3RPAM,3RPHL,52, */ 520 /* & 3RLEA,3RFLE,52,3RBOO,3RKLE,52,3RMAI,3RLBO,53, */ 521 /* & 3RTUB,1RE,54,3RTOO,3RTHP,54,3RPUT,2RTY,55,3RMAT,3RERI,55, */ 522 /* & 3RGLU,1RE,55,3RWRE,3RNCH,56,3RSCR,3REWD,57, */ 523 /* & 3RCYC,3RLOP,58,3RMON,3RSTE,58,3RCHA,3RLIC,59,3RCUP,0,59, */ 524 /* & 3RGOB,3RLET,59,3RPAI,3RNTI,60,149,3RART,0,60,149, */ 525 /* & 3RCAN,3RVAS,60,3RPIC,3RTUR,60,3RWOR,1RK,60, */ 526 /* & 3RMAS,3RTER,60,215,3RTHI,2REF,61,3RROB,3RBER,61, */ 527 /* & 3RCRI,3RMIN,61,3RBAN,3RDIT,61,3RCRO,2ROK,61,3RGEN,1RT,61, */ 528 /* & 3RGEN,3RTLE,61,3RMAN,0,61,3RTHU,1RG,61, */ 529 /* & 3RBAG,3RMAN,61,3RSTI,3RLLE,62/ */ 530 531 /* DATA OVOC4/3RWIN,3RDOW,63,3RBOL,1RT,64,3RNUT,0,64, */ 532 /* & 3RGRA,2RTE,65,3RGRA,3RTIN,65,3RDOO,1RR,66,67,68,69, */ 533 /* & 164,172,173,174,175,189,3RTRA,3RPDO,66, */ 534 /* & 3RTRA,3RP$D,66,3RSWI,3RTCH,70,76,79,80,81,82,170, */ 535 /* & 3RHEA,1RD,71,120,3RCOR,3RPSE,72,73,3RBOD,3RIES,73, */ 536 /* & 3RDAM,0,74,3RGAT,2RES,74,76,3RGAT,1RE,74,76, */ 537 /* & 3RFCD,0,74,3RRAI,1RL,75,3RRAI,3RLIN,75, */ 538 /* & 3RBUT,3RTON,76,79,80,81,82,127,128,129,170,176, */ 539 /* & 3RBUB,3RBLE,77,3RLEA,1RK,78,3RDRI,1RP,78, */ 540 /* & 3RHOL,1RE,78,107, */ 541 /* & 3RBAT,0,83,3RRAI,3RNBO,84, */ 542 /* & 3RPOT,0,85,3RSTA,3RTUE,86,3RSCU,3RLPT,86,3RROC,1RK,86, */ 543 /* & 3RBOA,1RT,87,88,90,3RPLA,3RSTI,87,88, */ 544 /* & 3RPUM,1RP,89/ */ 545 546 /* DATA OVOC5/3RAIR,3RPUM,89,3RAIR,3R$PU,89,3RLAB,2REL,91,112, */ 547 /* & 3RFIN,3REPR,91,3RSTI,2RCK,92,3RBAR,3RREL,93,3RBUO,1RY,94, */ 548 /* & 3REME,3RRAL,95,3RSHO,3RVEL,96,3RGUA,2RNO,97,3RCRA,1RP,97, */ 549 /* & 3RSHI,1RT,97,3RHUN,1RK,97,3RBAL,3RLOO,98,113, */ 550 /* & 3RREC,3REPT,99,3RWIR,1RE,101,110, */ 551 /* & 3RHOO,1RK,102,103,3RZOR,3RKMI,104,148,3RCOI,1RN,104, */ 552 /* & 3RSAF,1RE,105,3RCAR,1RD,106,188,3RNOT,1RE,106,186, */ 553 /* & 3RSLO,1RT,107,187,3RCRO,2RWN,108,3RBRI,2RCK,109, */ 554 /* & 3RFUS,1RE,110,3RGNO,2RME,111,152, */ 555 /* & 3RSTA,2RMP,118, */ 556 /* & 3RTOM,1RB,119,3RCRY,2RPT,119,3RGRA,2RVE,119,3RHEA,2RDS,120, */ 557 /* & 3RPOL,2RES,120,3RIMP,3RLEM,120/ */ 558 559 /* DATA OVOC6/3RLOS,3RERS,120,3RCOK,2RES,121, */ 560 /* & 3RLIS,3RTIN,122,3RSTA,2RCK,122, */ 561 /* & 3RPRI,3RNTO,122, */ 562 /* & 3RSPH,3RERE,126,3RBAL,1RL,126, */ 563 /* & 3RETC,3RHIN,130,131, */ 564 /* & 3RWAL,2RLS,130,131,198,205,206,207,208,3RWAL,1RL, */ 565 /* & 130,131,159,160,161,162,163,164,198,205,206,207,208, */ 566 /* & 3RFLA,2RSK,132,3RPOO,1RL,133,3RSEW,3RAGE,133, */ 567 /* & 3RTIN,0,134,3RSAF,3RFRO,134,3RSPI,3RCES,134,3RTAB,2RLE,135, */ 568 /* & 3RPOS,1RT,136,166,167,3RPOS,2RTS,136,3RBUC,3RKET,137, */ 569 /* & 3RCAK,1RE,138,139,140,141,3RICI,2RNG,139,140,141, */ 570 /* & 3RROB,2ROT,142,3RROB,2RBY,142, */ 571 /* & 3RC3P,1RO,142,3RR2D,1R2,142/ */ 572 573 /* DATA OVOC6A/3RPAN,2REL,159,160,161,162,163,164,213, */ 574 /* & 3RPOL,1RE,166,167,3RTBA,1RR,168,3RT$B,2RAR,168, */ 575 /* & 3RARR,2ROW,169,3RPOI,2RNT,169,3RBEA,1RM,171, */ 576 /* & 3RDIA,1RL,177,3RSUN,3RDIA,177,1R1,0,178, */ 577 /* & 3RONE,0,178,1R2,0,179,3RTWO,0,179,1R3,0,180, */ 578 /* & 3RTHR,2REE,180,1R4,0,181,3RFOU,1RR,181,1R5,0,182, */ 579 /* & 3RFIV,1RE,182,1R6,0,183,3RSIX,0,183,1R7,0,184, */ 580 /* & 3RSEV,2REN,184,1R8,0,185,3REIG,2RHT,185, */ 581 /* & 3RWAR,3RNIN,186,3RSLI,1RT,187, */ 582 /* & 2RIT,0,192,3RTHA,1RT,192,3RTHI,1RS,192/ */ 583 584 /* DATA OVOC7/2RME,0,193,3RMYS,3RELF,193,3RCRE,3RTIN,193, */ 585 /* & 3RALL,0,194,3REVE,3RRYT,194, */ 586 /* & 3RTRE,3RASU,195,3RVAL,3RUAB,195,3RSAI,3RLOR,196,3RTEE,2RTH,197, */ 587 /* & 3RGRU,1RE,199,3RHAN,1RD,200,3RHAN,2RDS,200, */ 588 /* & 3RLUN,2RGS,201,3RAIR,0,201,3RAVI,3RATO,202, */ 589 /* & 3RFLY,2RER,202,3RTRE,1RE,144,145,204, */ 590 /* & 3RCLI,2RFF,146,147,3RLED,2RGE,146,147,3RPOR,3RTRA,149, */ 591 /* & 3RSTA,2RCK,148,3RBIL,2RLS,148, */ 592 /* & 3RVAU,2RLT,150,3RCUB,1RE,150,3RLET,3RTER,67,150, */ 593 /* & 3RCUR,3RTAI,151,3RLIG,2RHT,151,3RNES,1RT,153, */ 594 /* & 3REGG,0,154,155,3RBAU,3RBLE,156,3RCAN,3RARY,157,158, */ 595 /* & 3RBIR,1RD,203,3RSON,3RGBI,203, */ 596 /* & 3RGUA,2RRD,210,3RGUA,3RRDI,210,3RROS,1RE,211, */ 597 /* & 3RSTR,3RUCT,212,3RCHA,3RNNE,214, */ 598 /* & 3RKEE,3RPER,215,3RLAD,3RDER,216/ */ 599 600 EXTERN const integer ovoc[] 601 #ifdef INIT 602 = { 3247, 0, 1, 25, 100, 30443, 17600, 1, 11258, 19563, 2, 5295, 603 35400, 2, 10215, 6400, 3, 30454, 7329, 3, 20054, 5120, 3, 6774, 604 22618, 3, 12054, 17600, 4, 55, 25965, 5000, 4, 143, 186, 30881, 605 11200, 4, 5401, 19200, 5, 25972, 8000, 5, 18, 38, 78, 87, 88, 122, 606 13001, 25600, 5, 9967, 34329, 6, 20843, 13174, 7, 25776, 50800, 607 7, 25776, 50840, 7, 7145, 8720, 7, 19564, 0, 7, 6761, 21414, 8, 608 4859, 8000, 9, 123, 3820, 32485, 10, 121, 5414, 32049, 10, 36860, 609 8720, 11, 209, 28041, 23209, 11, 209, 19577, 33964, 11, 209, 610 14095, 0, 11, 209, 29416, 8000, 12, 101, 13013, 25600, 12, 5409, 611 19200, 12, 110, 18169, 9800, 13, 21, 3681, 6600, 13, 14, 31335, 612 28960, 14, 24723, 13529, 14, 11681, 20978, 14, 19253, 25600, 15, 613 16, 22, 19254, 32218, 15, 16, 22, 29647, 0, 17, 4858, 25820, 17, 614 19401, 35419, 18, 19401, 9600, 18, 32735, 19680, 19, 2565, 0, 20, 615 6774, 22618, 3, 17825, 30400, 23, 17825, 0, 23, 30620, 0, 23, 616 3814, 8760, 24, 30845, 19420, 24, 3804, 40000, 24, 73, 5409, 617 23160, 25, 3258, 0, 26, 165, 168, 22603, 18081, 27, 25801, 29299, 618 27, 21178, 29418, 28, 29, 212, 14525, 0, 30, 20859, 30400, 30, 619 11681, 5165, 30, 29642, 40000, 31, 32729, 6614, 32, 10218, 17600, 620 32, 5406, 9974, 33, 4859, 17820, 33, 32618, 5120, 34, 4847, 8000, 621 35, 36, 124, 125, 7253, 4121, 35, 36, 3259, 17820, 35, 36, 98, 622 113, 3921, 5012, 37, 16223, 8480, 37, 32373, 3418, 38, 3824, 0, 623 39, 53, 105, 31218, 1769, 40, 35575, 19574, 40, 8567, 28862, 41, 624 14979, 5529, 41, 44, 11535, 31200, 42, 31049, 29180, 42, 9965, 625 22560, 42, 11921, 14880, 43, 26321, 40218, 44, 47, 32741, 22840, 626 45, 5125, 31200, 45, 3412, 19200, 46, 3815, 17600, 47, 49, 114, 627 115, 116, 117, 3562, 19400, 47, 11815, 6495, 47, 4854, 6885, 48, 628 25649, 28800, 48, 12049, 6602, 49, 12049, 6600, 49, 25656, 8720, 629 50, 122, 143, 186, 22623, 31041, 50, 15179, 33800, 50, 29016, 630 24740, 50, 20847, 2649, 50, 22623, 30400, 50, 20860, 5122, 51, 631 20860, 5120, 51, 20860, 5125, 51, 1782, 8740, 52, 25653, 25932, 632 52, 19401, 10085, 52, 3815, 18085, 52, 20849, 19295, 53, 32842, 633 8000, 54, 32615, 32336, 54, 26460, 33000, 55, 20860, 8729, 55, 634 11701, 8000, 55, 37525, 22528, 56, 30538, 8924, 57, 5803, 19816, 635 58, 21414, 31205, 58, 5121, 19563, 59, 5656, 0, 59, 11802, 19420, 636 59, 25649, 23209, 60, 149, 2340, 0, 60, 149, 4854, 35259, 60, 637 25963, 32858, 60, 37418, 17600, 60, 20859, 32218, 60, 215, 32329, 638 8240, 61, 29402, 3418, 61, 5529, 21175, 61, 3254, 6780, 61, 5535, 639 24440, 61, 11414, 32000, 61, 11414, 32485, 61, 20854, 0, 61, 640 32341, 11200, 61, 3247, 20854, 61, 31209, 19685, 62, 37174, 7023, 641 63, 3812, 32000, 64, 23260, 0, 64, 11921, 32200, 65, 11921, 32374, 642 65, 7015, 28800, 66, 67, 68, 69, 164, 172, 173, 174, 175, 189, 643 32721, 25775, 66, 32721, 26684, 66, 31329, 32128, 70, 76, 79, 80, 644 81, 82, 170, 13001, 6400, 71, 120, 5418, 26365, 72, 73, 3804, 645 14619, 73, 6453, 0, 74, 11260, 8760, 74, 76, 11260, 8000, 74, 76, 646 9724, 0, 74, 28849, 19200, 75, 28849, 19574, 75, 4060, 32614, 76, 647 79, 80, 81, 82, 127, 128, 129, 170, 176, 4042, 3685, 77, 19401, 648 17600, 78, 7129, 25600, 78, 13412, 8000, 78, 107, 3260, 0, 83, 649 28849, 22495, 84, 26220, 0, 85, 31201, 32845, 86, 30541, 19860, 650 86, 29403, 17600, 86, 3801, 32000, 87, 88, 90, 26081, 31209, 87, 651 88, 26453, 25600, 89, 1978, 26453, 89, 1978, 43861, 89, 19242, 652 8480, 91, 112, 9974, 8658, 91, 31209, 5240, 92, 3258, 29012, 93, 653 4055, 40000, 94, 8525, 28852, 95, 30735, 35412, 96, 12041, 23000, 654 97, 5521, 25600, 97, 30729, 32000, 97, 13654, 17600, 97, 3252, 655 19815, 98, 113, 29003, 8660, 99, 37178, 8000, 101, 110, 13415, 656 17600, 102, 103, 42218, 18129, 104, 148, 5409, 22400, 104, 30446, 657 8000, 105, 4858, 6400, 106, 188, 23020, 8000, 106, 186, 30895, 658 32000, 107, 187, 5535, 37360, 108, 3929, 5240, 109, 10459, 8000, 659 110, 11775, 21000, 111, 152, 31201, 21440, 118, 32613, 3200, 119, 660 5545, 26400, 119, 11921, 35400, 119, 13001, 7160, 120, 26212, 661 8760, 120, 14936, 19413, 120, 19819, 8739, 120, 5411, 8760, 121, 662 19579, 32374, 122, 31201, 5240, 122, 26329, 23215, 122, 31048, 663 8725, 126, 3252, 19200, 126, 8803, 13174, 130, 131, 36852, 19960, 664 130, 131, 198, 205, 206, 207, 208, 36852, 19200, 130, 131, 159, 665 160, 161, 162, 163, 164, 198, 205, 206, 207, 208, 10081, 30840, 666 132, 26215, 19200, 133, 30623, 1885, 133, 32374, 0, 134, 30446, 667 10335, 134, 31049, 5019, 134, 32042, 19400, 135, 26219, 32000, 668 136, 166, 167, 26219, 32760, 136, 4043, 17820, 137, 4851, 8000, 669 138, 139, 140, 141, 14529, 22680, 139, 140, 141, 29402, 24800, 670 142, 29402, 4200, 142, 6136, 24000, 142, 30084, 51200, 142, 25654, 671 8480, 159, 160, 161, 162, 163, 164, 213, 26212, 8000, 166, 167, 672 32081, 28800, 168, 33082, 2320, 168, 2338, 24920, 169, 26209, 673 23200, 169, 3401, 20800, 171, 6761, 19200, 177, 31254, 6761, 177, 674 49600, 0, 178, 24565, 0, 178, 51200, 0, 179, 32935, 0, 179, 52800, 675 0, 180, 32338, 8200, 180, 54400, 0, 181, 10221, 28800, 181, 676 56000, 0, 182, 9982, 8000, 182, 57600, 0, 183, 30784, 0, 183, 677 59200, 0, 184, 30622, 8560, 184, 60800, 0, 185, 8367, 13600, 185, 678 36858, 22774, 186, 30889, 32000, 187, 15200, 0, 192, 32321, 32000, 679 192, 32329, 30400, 192, 21000, 0, 193, 21819, 8486, 193, 5525, 680 32374, 193, 2092, 0, 194, 8885, 29820, 194, 32725, 2381, 195, 681 35252, 33642, 195, 30449, 19818, 196, 32205, 32320, 197, 11941, 682 8000, 199, 12854, 6400, 200, 12854, 7160, 200, 20054, 11960, 201, 683 1978, 0, 201, 2489, 2415, 202, 10105, 8720, 202, 32725, 8000, 144, 684 145, 204, 5289, 9840, 146, 147, 19404, 11400, 146, 147, 26218, 685 32721, 149, 31201, 5240, 148, 3572, 19960, 148, 35261, 20000, 150, 686 5642, 8000, 150, 19420, 32218, 67, 150, 5658, 32049, 151, 19567, 687 13600, 151, 22619, 32000, 153, 8287, 0, 154, 155, 3261, 3685, 156, 688 4854, 2345, 157, 158, 3578, 6400, 203, 31014, 11289, 203, 12041, 689 28960, 210, 12041, 28969, 210, 29419, 8000, 211, 31218, 33740, 690 212, 5121, 22965, 214, 17805, 25818, 215, 19244, 6618, 216, -1 } 691 #endif 692 ; 693 694 #endif 695