billr@saab.CNA.TEK.COM (Bill Randle) (05/15/91)
Submitted-by: ian@airs.COM
Posting-number: Volume 12, Issue 72
Archive-name: cdungeon/Part05
Environment: Unix, MS-DOS
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 5 (of 12)."
# Contents: gdt.c parse.h
# Wrapped by billr@saab on Tue May 14 16:27:38 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'gdt.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'gdt.c'\"
else
echo shar: Extracting \"'gdt.c'\" \(18109 characters\)
sed "s/^X//" >'gdt.c' <<'END_OF_FILE'
X/* GDT- GAME DEBUGGING TOOL */
X
X/*COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142*/
X/* ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED */
X/* WRITTEN BY R. M. SUPNIK */
X
X#include <stdio.h>
X#include <ctype.h>
X#include "funcs.h"
X#include "vars.h"
X#include "parse.h"
X
X#ifdef ALLOW_GDT
X
Xvoid gdt_()
X{
X /* Initialized data */
X
X const integer cmdmax = 38;
X const char *dbgcmd =
X "DRDODADCDXDHDLDVDFDSAFHENRNTNCNDRRRTRCRDTKEXARAOAAACAXAVD2DNANDMDTAHDPPDDZAZ";
X static const integer argtyp[38] = { 2,2,2,2,2,0,0,2,2,0,1,0,0,0,0,0,0,
X 0,0,0,1,0,3,3,3,3,1,3,2,2,1,2,1,0,0,0,0,1 };
X
X /* System generated locals */
X integer i__1, i__2;
X
X /* Local variables */
X integer i, j, k, l, l1;
X char cmd[3];
X integer fmax, smax;
X char buf[80];
X char *z;
X
X/* FIRST, VALIDATE THAT THE CALLER IS AN IMPLEMENTER. */
X
X fmax = 46;
X/* !SET ARRAY LIMITS. */
X smax = 22;
X
X if (debug_1.gdtflg != 0) {
X goto L2000;
X }
X/* !IF OK, SKIP. */
X more_output("You are not an authorized user.");
X/* !NOT AN IMPLEMENTER. */
X return;
X/* !BOOT HIM OFF */
X
X/* GDT, PAGE 2A */
X
X/* HERE TO GET NEXT COMMAND */
X
XL2000:
X printf("GDT>");
X/* !OUTPUT PROMPT. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X cmd[0] = ' ';
X cmd[1] = ' ';
X sscanf(buf, "%2s", cmd);
X/* !GET COMMAND. */
X if (cmd[0] == '\0')
X goto L2000;
X/* !IGNORE BLANKS. */
X if (islower(cmd[0]))
X cmd[0] = toupper(cmd[0]);
X if (islower(cmd[1]))
X cmd[1] = toupper(cmd[1]);
X i__1 = cmdmax;
X for (i = 1; i <= i__1; ++i) {
X/* !LOOK IT UP. */
X if (cmd[0] == dbgcmd[(i - 1) << 1] &&
X cmd[1] == dbgcmd[((i - 1) << 1) + 1]) {
X goto L2300;
X }
X/* !FOUND? */
X/* L2100: */
X }
XL2200:
X more_output("?");
X/* !NO, LOSE. */
X goto L2000;
X
X/* L230: */
X/* L240: */
X/* L225: */
X/* L235: */
X/* L245: */
X
XL2300:
X switch (argtyp[i - 1] + 1) {
X case 1: goto L2400;
X case 2: goto L2500;
X case 3: goto L2600;
X case 4: goto L2700;
X }
X/* !BRANCH ON ARG TYPE. */
X goto L2200;
X/* !ILLEGAL TYPE. */
X
XL2700:
X printf("Idx,Ary: ");
X/* !TYPE 3, REQUEST ARRAY COORDS. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X for (z = buf; *z != '\0'; z++)
X if (*z == ',')
X *z = ' ';
X j = 0;
X k = 0;
X sscanf(buf, "%d %d", &j, &k);
X goto L2400;
X
XL2600:
X printf("Limits: ");
X/* !TYPE 2, READ BOUNDS. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X for (z = buf; *z != '\0'; z++)
X if (*z == ',')
X *z = ' ';
X j = 0;
X k = 0;
X sscanf(buf, "%d %d", &j, &k);
X if (k == 0) {
X k = j;
X }
X goto L2400;
X
XL2500:
X printf("Entry: ");
X/* !TYPE 1, READ ENTRY NO. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X j = 0;
X sscanf(buf, "%d", &j);
X
XL2400:
X switch (i) {
X case 1: goto L10000;
X case 2: goto L11000;
X case 3: goto L12000;
X case 4: goto L13000;
X case 5: goto L14000;
X case 6: goto L15000;
X case 7: goto L16000;
X case 8: goto L17000;
X case 9: goto L18000;
X case 10: goto L19000;
X case 11: goto L20000;
X case 12: goto L21000;
X case 13: goto L22000;
X case 14: goto L23000;
X case 15: goto L24000;
X case 16: goto L25000;
X case 17: goto L26000;
X case 18: goto L27000;
X case 19: goto L28000;
X case 20: goto L29000;
X case 21: goto L30000;
X case 22: goto L31000;
X case 23: goto L32000;
X case 24: goto L33000;
X case 25: goto L34000;
X case 26: goto L35000;
X case 27: goto L36000;
X case 28: goto L37000;
X case 29: goto L38000;
X case 30: goto L39000;
X case 31: goto L40000;
X case 32: goto L41000;
X case 33: goto L42000;
X case 34: goto L43000;
X case 35: goto L44000;
X case 36: goto L45000;
X case 37: goto L46000;
X case 38: goto L47000;
X }
X goto L2200;
X/* !WHAT??? */
X/* GDT, PAGE 3 */
X
X/* DR-- DISPLAY ROOMS */
X
XL10000:
X if (! (j > 0 && j <= rooms_1.rlnt && (k > 0 && k <= rooms_1.rlnt) && j <=
X k)) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output("RM# DESC1 DESC2 EXITS ACTION VALUE FLAGS");
X/* !COL HDRS. */
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("%3d", i);
X for (l = 1; l <= 6; ++l)
X printf(" %6d", eqr[i + l * 200 - 201]);
X printf("\n");
X
X/* L10100: */
X }
X goto L2000;
X
X
X/* DO-- DISPLAY OBJECTS */
X
XL11000:
X if (! (j > 0 && j <= objcts_1.olnt && (k > 0 && k <= objcts_1.olnt) && j
X <= k)) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output("OB# DESC1 DESC2 DESCO ACT FLAGS1 FLAGS2 FVL TVL SIZE CAPAC ROOM ADV CON READ");
X/* !COL HDRS */
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("%3d%6d%6d%6d%4d%7d%7d%4d%4d%6d%6d %4d%4d%4d%6d\n",
X i, eqo[i + 1 * 220 - 221], eqo[i + 2 * 220 - 221],
X eqo[i + 3 * 220 - 221], eqo[i + 4 * 220 - 221],
X eqo[i + 5 * 220 - 221], eqo[i + 6 * 220 - 221],
X eqo[i + 7 * 220 - 221], eqo[i + 8 * 220 - 221],
X eqo[i + 9 * 220 - 221], eqo[i + 10 * 220 - 221],
X eqo[i + 11 * 220 - 221], eqo[i + 12 * 220 - 221],
X eqo[i + 13 * 220 - 221], eqo[i + 14 * 220 - 221]);
X
X/* L11100: */
X }
X goto L2000;
X
X
X/* DA-- DISPLAY ADVENTURERS */
X
XL12000:
X if (! (j > 0 && j <= advs_1.alnt && (k > 0 && k <= advs_1.alnt) && j <= k)
X ) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output("AD# ROOM SCORE VEHIC OBJECT ACTION STREN FLAGS");
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("%3d", i);
X for (l = 1; l <= 7; ++l)
X printf(" %6d", eqa[i + (l << 2) - 5]);
X printf("\n");
X/* L12100: */
X }
X goto L2000;
X
X
X/* DC-- DISPLAY CLOCK EVENTS */
X
XL13000:
X if (! (j > 0 && j <= cevent_1.clnt && (k > 0 && k <= cevent_1.clnt) && j
X <= k)) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output("CL# TICK ACTION FLAG");
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("%3d %6d %6d %c\n", i, eqc[i + 1 * 25 - 26],
X eqc[i + 2 * 25 - 26],
X cevent_1.cflag[i - 1] ? 'T' : 'F');
X/* L13100: */
X }
X goto L2000;
X
X
X/* DX-- DISPLAY EXITS */
X
XL14000:
X if (! (j > 0 && j <= exits_1.xlnt && (k > 0 && k <= exits_1.xlnt) && j <=
X k)) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output(" RANGE CONTENTS");
X/* !COL HDRS. */
X i__1 = k;
X for (i = j; i <= i__1; i += 10) {
X/* !TEN PER LINE. */
X/* Computing MIN */
X i__2 = i + 9;
X l = min(i__2,k);
X/* !COMPUTE END OF LINE. */
X more_output(NULL);
X printf("%3d-%3d ", i, l);
X for (l1 = i; l1 <= l; ++l1)
X printf("%7d", exits_1.travel[l1 - 1]);
X printf("\n");
X/* L14100: */
X }
X goto L2000;
X
X
X/* DH-- DISPLAY HACKS */
X
XL15000:
X more_output(NULL);
X printf("THFPOS= %d, THFFLG= %c, THFACT= %c\n",
X hack_1.thfpos, hack_1.thfflg ? 'T' : 'F',
X hack_1.thfact ? 'T' : 'F');
X more_output(NULL);
X printf("SWDACT= %c, SWDSTA= %d\n", hack_1.swdact ? 'T' : 'F',
X hack_1.swdsta);
X goto L2000;
X
X
X/* DL-- DISPLAY LENGTHS */
X
XL16000:
X more_output(NULL);
X printf("R=%d, X=%d, O=%d, C=%d\n", rooms_1.rlnt, exits_1.xlnt,
X objcts_1.olnt, cevent_1.clnt);
X more_output(NULL);
X printf("V=%d, A=%d, M=%d, R2=%d\n", vill_1.vlnt, advs_1.alnt,
X rmsg_1.mlnt, oroom2_1.r2lnt);
X more_output(NULL);
X printf("MBASE=%d, STRBIT=%d\n", star_1.mbase, star_1.strbit);
X goto L2000;
X
X
X/* DV-- DISPLAY VILLAINS */
X
XL17000:
X if (! (j > 0 && j <= vill_1.vlnt && (k > 0 && k <= vill_1.vlnt) && j <= k)
X ) {
X goto L2200;
X }
X/* !ARGS VALID? */
X more_output("VL# OBJECT PROB OPPS BEST MELEE");
X/* !COL HDRS */
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("%3d", i);
X for (l = 1; l <= 5; ++l)
X printf(" %6d", eqv[i + (l << 2) - 5]);
X printf("\n");
X/* L17100: */
X }
X goto L2000;
X
X
X/* DF-- DISPLAY FLAGS */
X
XL18000:
X if (! (j > 0 && j <= fmax && (k > 0 && k <= fmax) && j <= k)) {
X goto L2200;
X }
X/* !ARGS VALID? */
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("Flag #%-2d = %c\n", i, flags[i - 1] ? 'T' : 'F');
X/* L18100: */
X }
X goto L2000;
X
X
X/* DS-- DISPLAY STATE */
X
XL19000:
X more_output(NULL);
X printf("Parse vector= %6d %6d %6d %c %6d\n",
X prsvec_1.prsa, prsvec_1.prso, prsvec_1.prsi,
X prsvec_1.prswon ? 'T' : 'F', prsvec_1.prscon);
X more_output(NULL);
X printf("Play vector= %6d %6d %c\n", play_1.winner, play_1.here,
X play_1.telflg ? 'T' : 'F');
X more_output(NULL);
X printf("State vector= %6d %6d %6d %6d %6d %6d %6d %6d %6d\n",
X state_1.moves, state_1.deaths, state_1.rwscor, state_1.mxscor,
X state_1.mxload, state_1.ltshft, state_1.bloc, state_1.mungrm,
X state_1.hs);
X more_output(NULL);
X printf(" %6d %6d\n", state_1.egscor, state_1.egmxsc);
X more_output(NULL);
X printf("Scol vector= %6d %6d %6d\n", screen_1.fromdr,
X screen_1.scolrm, screen_1.scolac);
X goto L2000;
X
X/* GDT, PAGE 4 */
X
X/* AF-- ALTER FLAGS */
X
XL20000:
X if (! (j > 0 && j <= fmax)) {
X goto L2200;
X }
X/* !ENTRY NO VALID? */
X printf("Old= %c New= ", flags[j - 1] ? 'T' : 'F');
X/* !TYPE OLD, GET NEW. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X for (z = buf; *z != '\0'; z++) {
X if (! isspace(*z)) {
X if (*z == 't' || *z == 'T')
X flags[j - 1] = 1;
X else if (*z == 'f' || *z == 'F')
X flags[j - 1] = 0;
X break;
X }
X }
X goto L2000;
X
X
X/* 21000-- HELP */
X
XL21000:
X more_output("Valid commands are:");
X more_output("AA- Alter ADVS DR- Display ROOMS");
X more_output("AC- Alter CEVENT DS- Display state");
X more_output("AF- Alter FINDEX DT- Display text");
X more_output("AH- Alter HERE DV- Display VILLS");
X more_output("AN- Alter switches DX- Display EXITS");
X more_output("AO- Alter OBJCTS DZ- Display PUZZLE");
X more_output("AR- Alter ROOMS D2- Display ROOM2");
X more_output("AV- Alter VILLS EX- Exit");
X more_output("AX- Alter EXITS HE- Type this message");
X more_output("AZ- Alter PUZZLE NC- No cyclops");
X more_output("DA- Display ADVS ND- No deaths");
X more_output("DC- Display CEVENT NR- No robber");
X more_output("DF- Display FINDEX NT- No troll");
X more_output("DH- Display HACKS PD- Program detail");
X more_output("DL- Display lengths RC- Restore cyclops");
X more_output("DM- Display RTEXT RD- Restore deaths");
X more_output("DN- Display switches RR- Restore robber");
X more_output("DO- Display OBJCTS RT- Restore troll");
X more_output("DP- Display parser TK- Take");
X goto L2000;
X
X/* NR-- NO ROBBER */
X
XL22000:
X hack_1.thfflg = FALSE_;
X/* !DISABLE ROBBER. */
X hack_1.thfact = FALSE_;
X newsta_(oindex_1.thief, 0, 0, 0, 0);
X/* !VANISH THIEF. */
X more_output("No robber.");
X goto L2000;
X
X/* NT-- NO TROLL */
X
XL23000:
X findex_1.trollf = TRUE_;
X newsta_(oindex_1.troll, 0, 0, 0, 0);
X more_output("No troll.");
X goto L2000;
X
X/* NC-- NO CYCLOPS */
X
XL24000:
X findex_1.cyclof = TRUE_;
X newsta_(oindex_1.cyclo, 0, 0, 0, 0);
X more_output("No cyclops.");
X goto L2000;
X
X/* ND-- IMMORTALITY MODE */
X
XL25000:
X debug_1.dbgflg = 1;
X more_output("No deaths.");
X goto L2000;
X
X/* RR-- RESTORE ROBBER */
X
XL26000:
X hack_1.thfact = TRUE_;
X more_output("Restored robber.");
X goto L2000;
X
X/* RT-- RESTORE TROLL */
X
XL27000:
X findex_1.trollf = FALSE_;
X newsta_(oindex_1.troll, 0, rindex_1.mtrol, 0, 0);
X more_output("Restored troll.");
X goto L2000;
X
X/* RC-- RESTORE CYCLOPS */
X
XL28000:
X findex_1.cyclof = FALSE_;
X findex_1.magicf = FALSE_;
X newsta_(oindex_1.cyclo, 0, rindex_1.mcycl, 0, 0);
X more_output("Restored cyclops.");
X goto L2000;
X
X
X/* RD-- MORTAL MODE */
X
XL29000:
X debug_1.dbgflg = 0;
X more_output("Restored deaths.");
X goto L2000;
X
X/* GDT, PAGE 5 */
X
X/* TK-- TAKE */
X
XL30000:
X if (! (j > 0 && j <= objcts_1.olnt)) {
X goto L2200;
X }
X/* !VALID OBJECT? */
X newsta_(j, 0, 0, 0, play_1.winner);
X/* !YES, TAKE OBJECT. */
X more_output("Taken.");
X/* !TELL. */
X goto L2000;
X
X
X/* EX-- GOODBYE */
X
XL31000:
X prsvec_1.prscon = 1;
X return;
X
X/* AR-- ALTER ROOM ENTRY */
X
XL32000:
X if (! (j > 0 && j <= rooms_1.rlnt && (k > 0 && k <= 5))) {
X goto L2200;
X }
X/* !INDICES VALID? */
X printf("Old = %6d New = ", eqr[j + k * 200 - 201]);
X/* !TYPE OLD, GET NEW. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &eqr[j + k * 200 - 201]);
X goto L2000;
X
X
X/* AO-- ALTER OBJECT ENTRY */
X
XL33000:
X if (! (j > 0 && j <= objcts_1.olnt && (k > 0 && k <= 14))) {
X goto L2200;
X }
X/* !INDICES VALID? */
X printf("Old = %6d New = ", eqo[j + k * 200 - 201]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &eqo[j + k * 220 - 221]);
X goto L2000;
X
X/* AA-- ALTER ADVS ENTRY */
X
XL34000:
X if (! (j > 0 && j <= advs_1.alnt && (k > 0 && k <= 7))) {
X goto L2200;
X }
X/* !INDICES VALID? */
X printf("Old = %6d New = ", eqa[j + (k << 2) - 5]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &eqa[j + (k << 2) - 5]);
X goto L2000;
X
X/* AC-- ALTER CLOCK EVENTS */
X
XL35000:
X if (! (j > 0 && j <= cevent_1.clnt && (k > 0 && k <= 3))) {
X goto L2200;
X }
X/* !INDICES VALID? */
X if (k == 3) {
X goto L35500;
X }
X/* !FLAGS ENTRY? */
X printf("Old = %6d New = ", eqc[j + k * 25 - 26]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &eqc[j + k * 25 - 26]);
X goto L2000;
X
XL35500:
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X for (z = buf; *z != '\0'; z++) {
X if (! isspace(*z)) {
X if (*z == 't' || *z == 'T')
X cevent_1.cflag[j - 1] = 1;
X else if (*z == 'f' || *z == 'F')
X cevent_1.cflag[j - 1] = 0;
X break;
X }
X }
X goto L2000;
X/* GDT, PAGE 6 */
X
X/* AX-- ALTER EXITS */
X
XL36000:
X if (! (j > 0 && j <= exits_1.xlnt)) {
X goto L2200;
X }
X/* !ENTRY NO VALID? */
X printf("Old= %6d New= ", exits_1.travel[j - 1]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &exits_1.travel[j - 1]);
X goto L2000;
X
X
X/* AV-- ALTER VILLAINS */
X
XL37000:
X if (! (j > 0 && j <= vill_1.vlnt && (k > 0 && k <= 5))) {
X goto L2200;
X }
X/* !INDICES VALID? */
X printf("Old = %6d New= ", eqv[j + (k << 2) - 5]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &eqv[j + (k << 2) - 5]);
X goto L2000;
X
X/* D2-- DISPLAY ROOM2 LIST */
X
XL38000:
X if (! (j > 0 && j <= oroom2_1.r2lnt && (k > 0 && k <= oroom2_1.r2lnt) &&
X j <= k)) {
X goto L2200;
X }
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("#%2d Room=%6d Obj=%6d\n", i,
X oroom2_1.rroom2[i - 1], oroom2_1.oroom2[i - 1]);
X/* L38100: */
X }
X goto L2000;
X
X
X/* DN-- DISPLAY SWITCHES */
X
XL39000:
X if (! (j > 0 && j <= smax && (k > 0 && k <= smax) && j <= k)) {
X goto L2200;
X }
X/* !VALID? */
X i__1 = k;
X for (i = j; i <= i__1; ++i) {
X more_output(NULL);
X printf("Switch #%-2d = %d\n", i, switch_[i - 1]);
X/* L39100: */
X }
X goto L2000;
X
X
X/* AN-- ALTER SWITCHES */
X
XL40000:
X if (! (j > 0 && j <= smax)) {
X goto L2200;
X }
X/* !VALID ENTRY? */
X printf("Old= %6d New= ", switch_[j - 1]);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &switch_[j - 1]);
X goto L2000;
X
X/* DM-- DISPLAY MESSAGES */
X
XL41000:
X if (! (j > 0 && j <= rmsg_1.mlnt && (k > 0 && k <= rmsg_1.mlnt) && j <= k)
X ) {
X goto L2200;
X }
X/* !VALID LIMITS? */
X more_output(" RANGE CONTENTS");
X i__1 = k;
X for (i = j; i <= i__1; i += 10) {
X more_output(NULL);
X/* Computing MIN */
X i__2 = i + 9;
X l = min(i__2,k);
X printf("%3d-%3d ", i, l);
X for (l1 = i; l1 <= l; ++l1)
X printf(" %6d", rmsg_1.rtext[l1 - 1]);
X printf("\n");
X/* L41100: */
X }
X goto L2000;
X
X
X/* DT-- DISPLAY TEXT */
X
XL42000:
X rspeak_(j);
X goto L2000;
X
X/* AH-- ALTER HERE */
X
XL43000:
X printf("Old= %6d New= ", play_1.here);
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &play_1.here);
X eqa[0] = play_1.here;
X goto L2000;
X
X/* DP-- DISPLAY PARSER STATE */
X
XL44000:
X more_output(NULL);
X printf("ORPHS= %7d%7d%7d%7d%7d%7d\n",
X orp[0], orp[1], orp[2], orp[3], orp[4], last_1.lastit);
X more_output(NULL);
X printf("PV= %7d%7d%7d%7d%7d\n",
X pvec[0], pvec[1], pvec[2], pvec[3], pvec[4]);
X more_output(NULL);
X printf("SYN= %7d%7d%7d%7d%7d%7d\n",
X syn[0], syn[1], syn[2], syn[3], syn[4], syn[5]);
X more_output(NULL);
X printf(" %7d%7d%7d%7d%7d\n",
X syn[6], syn[7], syn[8], syn[9], syn[10]);
X goto L2000;
X
X
X/* PD-- PROGRAM DETAIL DEBUG */
X
XL45000:
X printf("Old= %6d New= ", debug_1.prsflg);
X/* !TYPE OLD, GET NEW. */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &debug_1.prsflg);
X goto L2000;
X
X/* DZ-- DISPLAY PUZZLE ROOM */
X
XL46000:
X for (i = 1; i <= 64; i += 8) {
X/* !DISPLAY PUZZLE */
X more_output(NULL);
X printf(" ");
X for (j = i; j <= i + 7; ++j)
X printf("%3d", puzzle_1.cpvec[j - 1]);
X printf("\n");
X/* L46100: */
X }
X goto L2000;
X
X
X/* AZ-- ALTER PUZZLE ROOM */
X
XL47000:
X if (! (j > 0 && j <= 64)) {
X goto L2200;
X }
X/* !VALID ENTRY? */
X printf("Old= %6d New= ", puzzle_1.cpvec[j - 1]);
X/* !OUTPUT OLD, */
X (void) fflush(stdout);
X (void) fgets(buf, sizeof buf, stdin);
X more_input();
X sscanf(buf, "%d", &puzzle_1.cpvec[j - 1]);
X goto L2000;
X
X} /* gdt_ */
X
X#endif /* ALLOW_GDT */
END_OF_FILE
if test 18109 -ne `wc -c <'gdt.c'`; then
echo shar: \"'gdt.c'\" unpacked with wrong size!
fi
# end of 'gdt.c'
fi
if test -f 'parse.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'parse.h'\"
else
echo shar: Extracting \"'parse.h'\" \(34040 characters\)
sed "s/^X//" >'parse.h' <<'END_OF_FILE'
X/* parse.h -- header file for parsing structures used by dungeon */
X
X/* These structures are only used by the parsing routines. They are in
X * their own file since they are so large.
X */
X
X#ifndef PARSE_H
X#define PARSE_H
X
X#ifndef EXTERN
X#define EXTERN extern
X#endif
X
XEXTERN struct {
X integer act, o1, o2, p1, p2;
X} pv_;
X
X#define pv_1 pv_
X#define pvec ((integer *)&pv_1)
X#define objvec ((integer *)&pv_1 + 1)
X#define prpvec ((integer *)&pv_1 + 3)
X
XEXTERN struct {
X integer vflag, dobj, dfl1, dfl2, dfw1, dfw2, iobj, ifl1, ifl2, ifw1, ifw2;
X
X} syntax_;
X
X#define syntax_1 syntax_
X#define syn ((integer *)&syntax_1)
X
X/* Object flags (objflg) */
X
X#define VABIT (16384)
X#define VRBIT (8192)
X#define VTBIT (4096)
X#define VCBIT (2048)
X#define VEBIT (1024)
X#define VFBIT (512)
X#define VPMASK (511)
X
X/* Syntax flags (synflg) */
X
X#define SDIR (16384)
X#define SIND (8192)
X#define SSTD (4096)
X#define SFLIP (2048)
X#define SDRIV (1024)
X#define SVMASK (511)
X
X/* BUZZ WORDS-- IGNORED IN SYNTACTIC PROCESSING */
X
X/* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */
X
X/* DATA BVOC/3RAND,0,2RBY,0,2RIS,0,1RA,0, */
X/* & 2RAN,0,3RTHE,0,3RRUN,0,2RGO,0,3RPRO,3RCEE,0,0/ */
X
XEXTERN const struct {
X integer bvoc[20];
X} buzvoc_
X#ifdef INIT
X = { 2164, 0, 4200, 0, 15160, 0, 1600, 0, 2160, 0, 32325, 0,
X 29654, 0, 11800, 0, 26335, 5005, 0, 0 }
X#endif
X ;
X
X#define buzvoc_1 buzvoc_
X
X/* PREPOSITIONS-- MAPS PREPOSITIONS TO INDICES */
X
X/* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */
X
X/* DATA PVOC/3ROVE,1RR,1,3RWIT,1RH,2,3RUSI,2RNG,2,3RTHR,3ROUG,2, */
X/* & 2RAT,0,3,2RTO,0,4,2RIN,0,5,3RINS,3RIDE,5,3RINT,1RO,5, */
X/* & 3RDOW,1RN,6,2RUP,0,7,3RUND,2RER,8,2ROF,0,9,2RON,0,10, */
X/* & 3ROFF,0,11/ */
X
XEXTERN const struct {
X integer pvoc[45];
X} prpvoc_
X#ifdef INIT
X = { 24885, 28800, 1, 37180, 12800, 2, 34369, 22680, 2, 32338,
X 24847, 2, 2400, 0, 3, 32600, 0, 4, 14960, 0, 5, 14979, 14565, 5,
X 14980, 0, 5, 7023, 22400, 6, 34240, 0, 7, 34164, 8720, 8, 24240,
X 0, 9, 24560, 0, 10, 24246, 0, 11 }
X#endif
X ;
X
X#define prpvoc_1 prpvoc_
X
X/* DIRECTIONS-- MAPS DIRECTIONS TO INDICES */
X
X/* THE FOLLOWING DATA STATEMENT WAS CONVERTED FROM: */
X
X/* DATA DVOC/1RN,0,"2000,3RNOR,2RTH,"2000,1RS,0,"12000, */
X/* & 1RE,0,"6000,3REAS,1RT,"6000,1RW,0,"16000,3RWES,1RT,"16000, */
X/* & 2RSE,0,"10000,2RSW,0,"14000, */
X/* & 2RNE,0,"4000,2RNW,0,"20000, */
X/* & 1RU,0,"22000,2RUP,0,"22000,1RD,0,"24000,3RDOW,1RN,"24000, */
X/* & 3RLAU,3RNCH,"26000,3RLAN,1RD,"30000,3RENT,2RER,"32000, */
X/* & 3REXI,1RT,"34000,3ROUT,0,"34000,3RLEA,2RVE,"34000, */
X/* & 3RTRA,3RVEL,"36000,3RSOU,2RTH,"12000, */
X/* & 2RIN,0,"32000, */
X/* & 3RCRO,2RSS,"36000/ */
X
XEXTERN const struct {
X integer dvoc[75];
X} dirvoc_
X#ifdef INIT
X = { 22400, 0, 1024, 23018, 32320, 1024, 30400, 0, 5120, 8000, 0,
X 3072, 8059, 32000, 3072, 36800, 0, 7168, 37019, 32000, 7168,
X 30600, 0, 4096, 31320, 0, 6144, 22600, 0, 2048, 23320, 0, 8192,
X 33600, 0, 9216, 34240, 0, 9216, 6400, 0, 10240, 7023, 22400,
X 10240, 19261, 22528, 11264, 19254, 6400, 12288, 8580, 8720, 13312,
X 8969, 32000, 14336, 24860, 0, 14336, 19401, 35400, 14336, 32721,
X 35412, 15360, 31021, 32320, 5120, 14960, 0, 13312, 5535, 31160,
X 15360 }
X#endif
X ;
X
X#define dirvoc_1 dirvoc_
X
X/* ADJECTIVES-- MAPS ADJECTIVES TO OBJECT NUMBERS */
X
X/* EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF A TWO WORD */
X/* ADJECTIVE IN RADIX-50 FOLLOWED BY ONE OR MORE OBJECT NUMBERS. */
X/* NOTE THAT ADJECTIVES CAN BE DISTINGUISHED FROM OBJECTS AS */
X/* FOLLOWS-- ALL ADJECTIVES ARE .GE. 1RA (1600), WHILE ALL OBJECTS */
X/* ARE .LE. OLNT (255 MAX). */
X
X/* THE DATA STATEMENT BELOW WAS CONVERTED FROM: */
X
X/* DATA AVOC1/3RBRO,2RWN,1,81,3RELO,3RNGA,1,3RHOT,0,3,3RPEP,3RPER,3, */
X/* & 3RVIT,3RREO,4,3RJAD,1RE,6,3RHUG,1RE,8,3RENO,3RRMO,8,122, */
X/* & 3RTRO,3RPHY,9,3RCLE,2RAR,10,3RLAR,2RGE,12,26,47,95,96,123, */
X/* & 133,135,146,147,150,176,3RNAS,2RTY,13,3RELV,3RISH,14, */
X/* & 3RBRA,2RSS,15,16,46,156, */
X/* & 3RBRO,3RKEN,16,22,92,113,155,158,3RORI,3RENT,17, */
X/* & 3RBLO,3RODY,20,3RRUS,2RTY,21,3RBUR,3RNED,22, */
X/* & 3RDEA,1RD,22,3ROLD,0,25,41,44,45,3RLEA,3RTHE,25, */
X/* & 3RPLA,3RTIN,26,3RPEA,2RRL,27, */
X/* & 3RMOB,1RY,31,3RCRY,3RSTA,32,126, */
X/* & 3RGOL,1RD,33,85,104,157,158,188, */
X/* & 3RIVO,2RRY,34,3RSAP,3RPHI,37,3RWOO,3RDEN,38,67,136,137, */
X/* & 165,173,174,175,3RWOO,1RD,38,67,136,137,165,173,174,175, */
X/* & 3RSTE,2REL,39,125,189, */
X/* & 3RDEN,3RTED,39,3RFAN,2RCY,40,3RANC,3RIEN,41,44, */
X/* & 3RSMA,2RLL,5,46,52,53,89,102,103,153,187, */
X/* & 3RBLA,2RCK,47,162,3RTOU,1RR,49, */
X/* & 3RVIS,3RCOU,55,3RVIC,3RIOU,62, */
X/* & 3RGLA,2RSS,10,126,132,3RTRA,1RP,66/ */
X
X/* DATA AVOC2/3RFRO,2RNT,68,3RSTO,2RNE,69,150,214,3RMAN,3RGLE,72, */
X/* & 3RRED,0,79,94,140,161,170,171,3RYEL,3RLOW,80,159, */
X/* & 3RBLU,1RE,82,112,114,141, */
X/* & 3RVAM,3RPIR,83,3RMAG,2RIC,90, */
X/* & 3RSEA,3RWOR,90,3RTAN,0,91,3RSHA,2RRP,92, */
X/* & 3RWIC,3RKER,98,3RCLO,2RTH,100, */
X/* & 3RBRA,3RIDE,101, */
X/* & 3RGAU,2RDY,108,3RSQU,3RARE,109,127,3RCLA,1RY,109, */
X/* & 3RSHI,2RNY,110,3RTHI,1RN,110, */
X/* & 3RGRE,2REN,115,143,3RPUR,3RPLE,116,3RWHI,2RTE,117,147,160, */
X/* & 3RMAR,3RBLE,119,3RCOK,1RE,121,3REMP,2RTY,121, */
X/* & 3RROU,2RND,128,3RTRI,3RANG,129, */
X/* & 2 3RRAR,1RE,134,3ROBL,3RONG,135,3REAT,3R$ME,138, */
X/* & 3REAT,2RME,138,3RORA,3RNGE,139,3RECC,1RH,141/ */
X
X/* DATA AVOC3/3RROC,2RKY,147,3RSHE,2RER,147, */
X/* & 3R200,0,148,3RNEA,1RT,148,3RSHI,3RMME,151, */
X/* & 3RZUR,3RICH,152,3RBIR,2RDS,153,154,155, */
X/* & 3RENC,3RRUS,154,155,3RBEA,3RUTI,156,3RCLO,3RCKW,157,158, */
X/* & 3RMEC,3RHAN,157,158, */
X/* & 3RMAH,3ROGA,163,3RPIN,1RE,164,3RLON,1RG,166, */
X/* & 3RCEN,3RTER,166,3RSHO,2RRT,167,1RT,0,168, */
X/* & 3RCOM,3RPAS,169,211,3RBRO,3RNZE,172,3RCEL,1RL,174,175, */
X/* & 3RLOC,3RKED,174,3RSUN,0,177, */
X/* & 3RBAR,1RE,200,3RSON,1RG,203, */
X/* & 3RNOR,2RTH,205,3RNOR,3RTHE,205,3RSOU,2RTH,206, */
X/* & 3RSOU,3RTHE,206,3REAS,1RT,207,3REAS,3RTER,207, */
X/* & 3RWES,1RT,208,3RWES,3RTER,208,3RDUN,3RGEO,215/ */
X
XEXTERN const integer avoc[]
X#ifdef INIT
X = { 3935, 37360, 1, 81, 8495, 22681, 1, 13420, 0, 3, 25816,
X 25818, 3, 35580, 29015, 4, 16044, 8000, 6, 13647, 8000, 8, 8575,
X 29335, 8, 122, 32735, 25945, 9, 5285, 2320, 10, 19258, 11400, 12,
X 26, 47, 95, 96, 123, 133, 135, 146, 147, 150, 176, 22459, 33000,
X 13, 8502, 15168, 14, 3921, 31160, 15, 16, 46, 156, 3935, 17814,
X 16, 22, 92, 113, 155, 158, 24729, 8580, 17, 3695, 24185, 20,
X 29659, 33000, 21, 4058, 22604, 22, 6601, 6400, 22, 24484, 0, 25,
X 41, 44, 45, 19401, 32325, 25, 26081, 32374, 26, 25801, 29280, 27,
X 21402, 40000, 31, 5545, 31201, 32, 126, 11812, 6400, 33, 85, 104,
X 157, 158, 188, 15295, 29800, 34, 30456, 25929, 37, 37415, 6614,
X 38, 67, 136, 137, 165, 173, 174, 175, 37415, 6400, 38, 67, 136,
X 137, 165, 173, 174, 175, 31205, 8480, 39, 125, 189, 6614, 32204,
X 39, 9654, 5800, 40, 2163, 14614, 41, 44, 30921, 19680, 5, 46, 52,
X 53, 89, 102, 103, 153, 187, 3681, 5240, 47, 162, 32621, 28800, 49,
X 35579, 5421, 55, 35563, 15021, 62, 11681, 31160, 10, 126, 132,
X 32721, 25600, 66, 10335, 23200, 68, 31215, 22600, 69, 150, 214,
X 20854, 11685, 72, 29004, 0, 79, 94, 140, 161, 170, 171, 40212,
X 19823, 80, 159, 3701, 8000, 82, 112, 114, 141, 35253, 25978, 83,
X 20847, 14520, 90, 30601, 37418, 90, 32054, 0, 91, 30721, 29440,
X 92, 37163, 17818, 98, 5295, 32320, 100, 3921, 14565, 101, 11261,
X 7400, 108, 31101, 2325, 109, 127, 5281, 4000, 109, 30729, 23400,
X 110, 32329, 22400, 110, 11925, 8560, 115, 143, 26458, 26085, 116,
X 37129, 32200, 117, 147, 160, 20858, 3685, 119, 5411, 8000, 121,
X 8536, 33000, 121, 29421, 22560, 128, 32729, 2167, 129, 28858,
X 8000, 134, 24092, 24567, 135, 8060, 43725, 138, 8060, 21000, 138,
X 24721, 22685, 139, 8123, 12800, 141, 29403, 18600, 147, 30725,
X 8720, 147, 52430, 0, 148, 22601, 32000, 148, 30729, 21325, 151,
X 42458, 14528, 152, 3578, 7160, 153, 154, 155, 8563, 29659, 154,
X 155, 3401, 34409, 156, 5295, 5263, 157, 158, 21003, 12854, 157,
X 158, 20848, 24281, 163, 25974, 8000, 164, 19814, 11200, 166, 5014,
X 32218, 166, 30735, 29600, 167, 32000, 0, 168, 5413, 25659, 169,
X 211, 3935, 23445, 172, 5012, 19200, 174, 175, 19803, 17804, 174,
X 31254, 0, 177, 3258, 8000, 200, 31014, 11200, 203, 23018, 32320,
X 205, 23018, 32325, 205, 31021, 32320, 206, 31021, 32325, 206,
X 8059, 32000, 207, 8059, 32218, 207, 37019, 32000, 208, 37019,
X 32218, 208, 7254, 11415, 215, -1 }
X#endif
X ;
X
X/* VERBS-- MAPS VERBS TO SYNTAX SLOTS */
X
X/* EACH ENTRY IS VARIABLE LENGTH AND CONSISTS OF ONE OR MORE */
X/* TWO WORD VERBS IN RADIX-50 FOLLOWED BY A SYNTAX WORD COUNT */
X/* FOLLOWED BY ONE OR MORE SYNTAXES. NOTE THAT VERBS CAN BE */
X/* DISTINGUISHED FROM WORD COUNTS AS FOLLOWS-- */
X/* ALL VERBS ARE .GE. 1RA (1600), WHILE ALL SYNTAX WORD COUNTS */
X/* ARE .LE. 255. */
X
X/* SYNTAX ENTRIES CONSIST OF A FLAG WORD FOLLOWED BY 0, 1, OR 2 */
X/* OBJECT DESCRIPTIONS. THE FLAG WORD HAS THE FOLLOWING FORMAT-- */
X
X/* BIT <14> IF 1, SYNTAX INCLUDES DIRECT OBJECT */
X/* BIT <13> IF 1, SYNTAX INCLUDES INDIRECT OBJECT */
X/* BIT <12> IF 1, DIRECT OBJECT IS IMPLICIT (STANDARD FORM) */
X/* BIT <11> IF 1, DIRECT AND INDIRECT OBJECT MUST BE SWAPPED */
X/* AFTER SYNTAX PROCESSING */
X/* BIT <10> IF 1, THIS IS DEFAULT SYNTAX FOR ORPHANERY */
X/* BITS <8:0> VERB NUMBER FOR VAPPLI */
X
X/* OBJECT DESCRIPTIONS CONSIST OF A FLAG WORD AND TWO FWIM WORDS. */
X/* THE FLAG WORD HAS THE FOLLOWING FORMAT-- */
X
X/* BIT <14> IF 1, SEARCH ADVENTURER FOR OBJECT */
X/* BIT <13> IF 1, SEARCH ROOM FOR OBJECT */
X/* BIT <12> IF 1, PARSER WILL TRY TO TAKE OBJECT */
X/* BIT <11> IF 1, ADVENTURER MUST HAVE OBJECT */
X/* BIT <10> IF 1, QUALIFYING BITS (NORMALLY -1,-1) ARE SAME */
X/* AS FWIM BITS */
X/* BIT <9> IF 1, OBJECT MUST BE REACHABLE */
X/* BITS <8:0> PREPOSITION NUMBER FOR SYNMCH */
X
X/* THE FWIM WORDS HAVE THE SAME FORMAT AS THE TWO OBJECT FLAG WORDS. */
X
X/* NOTE THAT BITS 12 AND 11 OF OBJECT DESCRIPTIONS ACTUALLY HAVE */
X/* FOUR DISTINCT STATES-- */
X
X/* BIT 12 BIT 11 MDLDESC INTERPRETATION */
X/* ------ ------ ------- --------------- */
X
X/* 0 0 -- NO PARSER ACTION */
X/* 0 1 HAVE ADVENTURER MUST HAVE OBJECT */
X/* 1 0 TRY TRY TO TAKE, DONT CARE IF FAIL */
X/* 1 1 TAKE TRY TO TAKE, CARE IF FAIL */
X
X/* THE FOLLOWING DATA STATEMENT WAS ORIGINALLY: */
X
X/* DATA VVOC1/3RBRI,2REF,1,70,3RVER,3RBOS,1,71, */
X/* & 3RSUP,3RERB,1,72,3RSTA,1RY,1,73,3RVER,3RSIO,1,74, */
X/* & 3RSWI,1RM,3RBAT,2RHE,3RWAD,1RE,1,75,3RGER,3RONI,1,76, */
X/* & 3RULY,3RSSE,3RODY,3RSSE,1,77, */
X/* & 3RWEL,1RL,1,78,3RPRA,1RY,1,79,3RTRE,3RASU,1,80, */
X/* & 3RTEM,3RPLE,1,81,3RBLA,2RST,1,82,3RSCO,2RRE,1,83, */
X/* & 1RQ,0,3RQUI,1RT,1,84,3RHEL,1RP,1,40,3RINF,1RO,1,41, */
X/* & 3RHIS,3RTOR,3RUPD,3RATE,1,42,3RBAC,1RK,1,43, */
X/* & 3RSIG,1RH,3RMUM,3RBLE,1,44/ */
X
X/* DATA VVOC1A/3RCHO,2RMP,3RLOS,1RE,3RBAR,1RF,1,45, */
X/* & 3RDUN,3RGEO,1,46,3RFRO,3RBOZ,1,47,3RFOO,0,3RBLE,3RTCH, */
X/* & 3RBAR,0,1,48,3RREP,3RENT,1,49,3RHOU,2RRS,3RSCH,3REDU,1,50, */
X/* & 3RWIN,0,1,51,3RYEL,1RL,3RSCR,3REAM,3RSHO,2RUT,1,52, */
X/* & 3RHOP,0,3RSKI,1RP,1,53,3RFUC,1RK,3RSHI,1RT,3RDAM,1RN, */
X/* & 3RCUR,2RSE,1,54,3RZOR,1RK,1,55,3RGRA,3RNIT,1,"50070, */
X/* & 3RSAV,1RE,1,149,3RRES,3RTOR,1,150,3RTIM,1RE,1,90, */
X/* & 3RDIA,3RGNO,1,94,3REXO,3RRCI,1,105,3RINV,3RENT, */
X/* & 1RI,0,1,133,3RWAI,1RT,1,128, */
X/* & 3RINC,3RANT,1,95,3RANS,3RWER,1,96/ */
X
X/* DATA VVOC1B/3RAGA,2RIN,1,57,3RNOO,2RBJ,1,58, */
X/* & 3RBUG,0,3RGRI,2RPE,3RCOM,3RPLA,1,59, */
X/* & 3RFEA,3RTUR,3RCOM,3RMEN,3RSUG,3RGES,3RIDE,1RA,1,60, */
X/* & 3RROO,1RM,1,65,3ROBJ,3RECT,1,66,3RRNA,2RME,1,67/ */
X
X/* DATA VVOC2/3RDEF,3RLAT,1,"50147, */
X/* & 3RDES,3RCRI,3RWHA,1RT,3REXA,3RMIN,1,"50170, */
X/* & 3RFIL,1RL,11,"60206,"61000,"200,0,"61002,"400,0, */
X/* & "40206,"61000,"200,0, */
X/* & 3RFIN,1RD,3RSEE,1RK,3RWHE,2RRE,3RSEE,0,4,"40177,"60000,-1,-1, */
X/* & 3RFOL,3RLOW,2,"125,"50125, */
X/* & 3RKIC,1RK,3RBIT,1RE,3RTAU,2RNT,1,"50153,3RLOW,2RER,1,"50156, */
X/* & 3RPUS,1RH,3RPRE,2RSS,1,"50160,3RRIN,1RG,3RPEA,1RL,1,"50127, */
X/* & 3RRUB,0,3RCAR,3RESS,3RTOU,2RCH,3RFON,3RDLE,1,"50157, */
X/* & 3RSHA,2RKE,1,"50171,3RSPI,1RN,1,"50201, */
X/* & 3RUNT,2RIE,3RFRE,1RE,1,"50161,3RWAL,1RK,9,"50216, */
X/* & "40126,"61002,-1,-1,"40126,"61005,-1,-1/ */
X
X/* DATA VVOC3/3RATT,3RACK,3RFIG,2RHT,3RINJ,3RURE,3RHIT,0,3RHUR,1RT, */
X/* & 7,"60215,"21000,0,"200,"44002,0,"1000, */
X/* & 3RBOA,2RRD,4,"40202,"21000,0,"2, */
X/* & 3RBRU,2RSH,3RCLE,2RAN,5,"52130,"70130,"61002,-1,-1, */
X/* & 3RBUR,1RN,3RIGN,3RITE,3RINC,3RINE,7,"60211,"61000,"20,0, */
X/* & "64002,"10,0, */
X/* & 3RCLI,2RMB,12,"40235,"20007,0,"4000, */
X/* & "40236,"20006,0,"4000,"40234,"20000,0,"4000, */
X/* & 3RCLO,2RSE,4,"40176,"61000,"10200,0, */
X/* & 3RDIG,0,4,"40131,"44002,"4,0, */
X/* & 3RDIS,3REMB,4,"40203,"20000,0,"2, */
X/* & 3RDRI,2RNK,3RIMB,3RIBE,3RSWA,3RLLO,4,"40210,"61000,"400,0, */
X/* & 3RDRO,1RP,3RREL,3REAS,11,"42221,"41000,-1,-1, */
X/* & "60221,"41000,-1,-1,"61005,-1,-1, */
X/* & 3REAT,0,3RCON,3RSUM,3RGOB,3RBLE,3RMUN,2RCH,3RTAS,2RTE, */
X/* & 4,"40207,"75000,"2000,0, */
X/* & 3REXT,3RING,3RDOU,2RSE,4,"40174,"75000,"100,0/ */
X
X/* DATA VVOC4/3RGIV,1RE,3RHAN,1RD,3RDON,3RATE,11,"72222,"21004, */
X/* & "40,0,"64222,"21000,"40,0,"61000,-1,-1, */
X/* & 3RHEL,2RLO,2RHI,0,2,"2227,"50227, */
X/* & 3RBLO,1RW,15,"62146,"61007,-1,-1,"61002,"4,0, */
X/* & "40160,"61007,-1,-1,"40165,"61005,-1,-1, */
X/* & 3RINF,3RLAT,4,"70146,"61002,"4,0, */
X/* & 3RJUM,1RP,3RLEA,1RP,5,"133,"40133,"61001,-1,-1, */
X/* & 3RKIL,1RL,3RMUR,3RDER,3RSLA,1RY,3RSTA,1RB,3RDIS,3RPAT, */
X/* & 7,"60213,"21000,0,"200, */
X/* & "44002,0,"1000, */
X/* & 3RKNO,2RCK,3RRAP,0,12,"42166,"61003,-1,-1, */
X/* & "40166,"61012,-1,-1,"40215,"23006,"40,0, */
X/* & 3RLIG,2RHT,11,"42173,"75000,"100,0, */
X/* & "60211,"61000,"100,0,"54002,"10,0, */
X/* & 3RLOC,1RK,4,"40134,"20000,-1,-1/ */
X
X/* DATA VVOC5/3RLOO,1RK,1RL,0,3RSTA,2RRE,3RGAZ,1RE, */
X/* & 13,"167,"40167,"60003,-1,-1, */
X/* & "40231,"61010,-1,-1,"40230,"60005,-1,-1, */
X/* & 3RMEL,1RT,3RLIQ,3RUIF,4,"70145,"61002,"10,0, */
X/* & 3RMOV,1RE,4,"40172,"20000,-1,-1, */
X/* & 3RPUL,1RL,3RTUG,0,8,"42172,"21000,-1,-1, */
X/* & "40172,"21012,-1,-1, */
X/* & 3RMUN,1RG,3RHAC,1RK,3RFRO,1RB,3RDAM,3RAGE, */
X/* & 5,"52212,"70212,"44002,-1,-1, */
X/* & 3ROPE,1RN,11,"42175,"61000,"10200,0, */
X/* & "60175,"61000,"10200,0,"54002,"4,"1000, */
X/* & 3RPIC,1RK,4,"40204,"61007,"20000,"40, */
X/* & 3RPLU,1RG,3RGLU,1RE,3RPAT,2RCH,4,"70152,"61002,-1,-1, */
X/* & 3RPOK,1RE,3RBRE,2RAK,3RJAB,0,7,"60212,"21000,0,"200, */
X/* & "44002,0,"1000, */
X/* & 3RPOU,1RR,3RSPI,2RLL,11,"42223,"42000,"400,0, */
X/* & "60223,"42000,"400,0,"60005,-1,-1, */
X/* & 3RPUM,1RP,4,"60232,"60007,-1,-1/ */
X
X/* DATA VVOC6/3RPUT,0,3RINS,3RERT,3RSTU,2RFF,3RPLA,2RCE, */
X/* & 8,"72220,"61005,-1,-1, */
X/* & "40221,"61006,-1,-1, */
X/* & 3RRAI,2RSE,3RLIF,1RT,5,"52155,"40155,"61007,-1,-1, */
X/* & 3RREA,1RD,3RSKI,1RM,11,"42144,"71000,"40000,0, */
X/* & "60144,"71000,"40000,0,"61002,-1,-1, */
X/* & 3RSTR,3RIKE,12,"60215,"23000,"40,0, */
X/* & "44002,0,"1000,"42215,"23000,"40,0,"50173, */
X/* & 3RSWI,2RNG,3RTHR,3RUST,7,"60214,"44000,0,"1000, */
X/* & "21003,0,"200, */
X/* & 3RTAK,1RE,3RGET,0,3RHOL,1RD,3RCAR,2RRY,3RREM,3ROVE, */
X/* & 4,"40204,"61000,"20000,"40, */
X/* & 3RTEL,1RL,3RCOM,3RMAN,3RREQ,3RUES,4,"40217,"20000,0,"2000, */
X/* & 3RTHR,2ROW,3RHUR,1RL,3RCHU,2RCK,14,"60224,"44000,-1,-1, */
X/* & "21003,"40,0,"60224,"44000,-1,-1,"21002,"40,0/ */
X
X/* DATA VVOC7/3RTIE,0,3RFAS,3RTEN,11,"70162,"61004,-1,-1, */
X/* & "60163,"21000,"40,0,"65002,"4,0, */
X/* & 3RTUR,1RN,3RSET,0,22,"62164,"61000,"2,0, */
X/* & "64002,"4,0, */
X/* & "40173,"75012,"100,0,"40174,"75013,"100,0, */
X/* & "60237,"61000,"2,0,"20004,-1,-1, */
X/* & 3RUNL,3ROCK,7,"60135,"21000,-1,-1, */
X/* & "74002,"4,0, */
X/* & 3RWAK,1RE,3RSUR,3RPRI,3RALA,2RRM,3RSTA,3RRTL, */
X/* & 8,"42150,"20000,"40,0, */
X/* & "40150,"20007,"40,0, */
X/* & 3RWAV,1RE,3RFLA,3RUNT,3RBRA,3RNDI,4,"40154,"40000,-1,-1, */
X/* & 3RWIN,1RD,5,"50233,"40233,"61007,-1,-1/ */
X
XEXTERN const integer vvoc[]
X#ifdef INIT
X = { 3929, 8240, 1, 70, 35418, 3819, 1, 71, 31256, 8722, 1, 72,
X 31201, 40000, 1, 73, 35418, 30775, 1, 74, 31329, 20800, 3260,
X 13000, 36844, 8000, 1, 75, 11418, 24569, 1, 76, 34105, 31165,
X 24185, 31165, 1, 77, 37012, 19200, 1, 78, 26321, 40000, 1, 79,
X 32725, 2381, 1, 80, 32213, 26085, 1, 81, 3681, 31200, 1, 82,
X 30535, 29000, 1, 83, 27200, 0, 28049, 32000, 1, 84, 13012, 25600,
X 1, 40, 14966, 24000, 1, 41, 13179, 32618, 34244, 2405, 1, 42,
X 3243, 17600, 1, 43, 30767, 12800, 21653, 3685, 1, 44, 5135, 21440,
X 19819, 8000, 3258, 9600, 1, 45, 7254, 11415, 1, 46, 10335, 3826,
X 1, 47, 10215, 0, 3685, 32128, 3258, 0, 1, 48, 29016, 8580, 1, 49,
X 13421, 29560, 30528, 8181, 1, 50, 37174, 0, 1, 51, 40212, 19200,
X 30538, 8053, 30735, 34400, 1, 52, 13416, 0, 30849, 25600, 1, 53,
X 10443, 17600, 30729, 32000, 6453, 22400, 5658, 30600, 1, 54,
X 42218, 17600, 1, 55, 11921, 22780, 1, 20536, 30462, 8000, 1, 149,
X 29019, 32618, 1, 150, 32373, 8000, 1, 90, 6761, 11775, 1, 94,
X 8975, 28929, 1, 105, 14982, 8580, 14400, 0, 1, 133, 36849, 32000,
X 1, 128, 14963, 2180, 1, 95, 2179, 37018, 1, 96, 1881, 14960, 1,
X 57, 23015, 3600, 1, 58, 4047, 0, 11929, 25800, 5413, 26081, 1, 59,
X 9801, 32858, 5413, 21014, 31247, 11419, 14565, 1600, 1, 60,
X 29415, 20800, 1, 65, 24090, 8140, 1, 66, 29361, 21000, 1, 67,
X 6606, 19260, 1, 20583, 6619, 5529, 37121, 32000, 8961, 21174, 1,
X 20600, 9972, 19200, 11, 24710, 25088, 128, 0, 25090, 256, 0,
X 16518, 25088, 128, 0, 9974, 6400, 30605, 17600, 37125, 29000,
X 30605, 0, 4, 16511, 24576, -1, -1, 10212, 19823, 2, 85, 20565,
X 17963, 17600, 3580, 8000, 32061, 23200, 1, 20587, 19823, 8720, 1,
X 20590, 26459, 12800, 26325, 31160, 1, 20592, 29174, 11200, 25801,
X 19200, 1, 20567, 29642, 0, 4858, 8779, 32621, 5120, 10214, 6885,
X 1, 20591, 30721, 17800, 1, 20601, 31049, 22400, 1, 20609, 34180,
X 14600, 10325, 8000, 1, 20593, 36852, 17600, 9, 20622, 16470,
X 25090, -1, -1, 16470, 25093, -1, -1, 2420, 1731, 9967, 13600,
X 14970, 34325, 13180, 0, 13658, 32000, 7, 24717, 8704, 0, 128,
X 18434, 0, 512, 3801, 28960, 4, 16514, 8704, 0, 2, 3941, 30720,
X 5285, 2160, 5, 21592, 28760, 25090, -1, -1, 4058, 22400, 14694,
X 15205, 14963, 14965, 7, 24713, 25088, 16, 0, 26626, 8, 0, 5289,
X 20880, 12, 16541, 8199, 0, 2048, 16542, 8198, 0, 2048, 16540,
X 8192, 0, 2048, 5295, 30600, 4, 16510, 25088, 4224, 0, 6767, 0, 4,
X 16473, 18434, 4, 0, 6779, 8522, 4, 16515, 8192, 0, 2, 7129, 22840,
X 14922, 14485, 31321, 19695, 4, 16520, 25088, 256, 0, 7135, 25600,
X 29012, 8059, 11, 17553, 16896, -1, -1, 24721, 16896, -1, -1,
X 25093, -1, -1, 8060, 0, 5414, 31253, 11802, 3685, 21654, 5120,
X 32059, 32200, 4, 16519, 31232, 1024, 0, 8980, 14967, 7021, 30600,
X 4, 16508, 31232, 64, 0, 11582, 8000, 12854, 6400, 7014, 2405, 11,
X 29842, 8708, 32, 0, 26770, 8704, 32, 0, 25088, -1, -1, 13012,
X 19800, 13160, 0, 2, 1175, 20631, 3695, 36800, 15, 25702, 25095,
X -1, -1, 25090, 4, 0, 16496, 25095, -1, -1, 16501, 25093, -1, -1,
X 14966, 19260, 4, 28774, 25090, 4, 0, 16853, 25600, 19401, 25600,
X 5, 91, 16475, 25089, -1, -1, 17972, 19200, 21658, 6618, 30881,
X 40000, 31201, 3200, 6779, 25660, 7, 24715, 8704, 0, 128, 18434, 0,
X 512, 18175, 5240, 28856, 0, 12, 17526, 25091, -1, -1, 16502,
X 25098, -1, -1, 16525, 9734, 32, 0, 19567, 13600, 11, 17531, 31232,
X 64, 0, 24713, 25088, 64, 0, 22530, 8, 0, 19803, 17600, 4, 16476,
X 8192, -1, -1, 19815, 17600, 19200, 0, 31201, 29000, 11266, 8000,
X 13, 119, 16503, 24579, -1, -1, 16537, 25096, -1, -1, 16536, 24581,
X -1, -1, 21012, 32000, 19577, 33966, 4, 28773, 25090, 8, 0, 21422,
X 8000, 4, 16506, 8192, -1, -1, 26452, 19200, 32847, 0, 8, 17530,
X 8704, -1, -1, 16506, 8714, -1, -1, 21654, 11200, 12843, 17600,
X 10335, 3200, 6453, 1885, 5, 21642, 28810, 18434, -1, -1, 24645,
X 22400, 11, 17533, 25088, 4224, 0, 24701, 25088, 4224, 0, 22530, 4,
X 512, 25963, 17600, 4, 16516, 25095, 8192, 32, 26101, 11200,
X 11701, 8000, 25660, 5120, 4, 28778, 25090, -1, -1, 26211, 8000,
X 3925, 2040, 16042, 0, 7, 24714, 8704, 0, 128, 18434, 0, 512,
X 26221, 28800, 31049, 19680, 11, 17555, 17408, 256, 0, 24723,
X 17408, 256, 0, 24581, -1, -1, 26453, 25600, 4, 24730, 24583, -1,
X -1, 26460, 0, 14979, 8740, 31221, 9840, 26081, 5000, 8, 29840,
X 25093, -1, -1, 16529, 25094, -1, -1, 28849, 30600, 19566, 32000,
X 5, 21613, 16493, 25095, -1, -1, 29001, 6400, 30849, 20800, 11,
X 17508, 29184, 16384, 0, 24676, 29184, 16384, 0, 25090, -1, -1,
X 31218, 14845, 12, 24717, 9728, 32, 0, 18434, 0, 512, 17549, 9728,
X 32, 0, 20603, 31329, 22680, 32338, 34380, 7, 24716, 18432, 0, 512,
X 8707, 0, 128, 32051, 8000, 11420, 0, 13412, 6400, 4858, 29800,
X 29013, 24885, 4, 16516, 25088, 8192, 32, 32212, 19200, 5413,
X 20854, 29017, 33819, 4, 16527, 8192, 0, 1024, 32338, 24920, 13658,
X 19200, 5141, 5240, 14, 24724, 18432, -1, -1, 8707, 32, 0, 24724,
X 18432, -1, -1, 8706, 32, 0, 32365, 0, 9659, 32214, 11, 28786,
X 25092, -1, -1, 24691, 8704, 32, 0, 27138, 4, 0, 32858, 22400,
X 30620, 0, 22, 25716, 25088, 2, 0, 26626, 4, 0, 16507, 31242, 64,
X 0, 16508, 31243, 64, 0, 24735, 25088, 2, 0, 8196, -1, -1, 34172,
X 24131, 7, 24669, 8704, -1, -1, 30722, 4, 0, 36851, 8000, 31258,
X 26329, 2081, 29320, 31201, 29612, 8, 17512, 8192, 32, 0, 16488,
X 8199, 32, 0, 36862, 8000, 10081, 34180, 3921, 22569, 4, 16492,
X 16384, -1, -1, 37174, 6400, 5, 20635, 16539, 25095, -1, -1, -1 }
X#endif
X ;
X
X/* OBJECTS-- MAPS OBJECTS TO OBJECT INDICES */
X
X/* SAME FORMAT AS AVOC. */
X
X/* THE FOLLOWING DATA STATEMENT WAS ORIGINALLY: */
X
X/* DATA OVOC1/3RBAG,0,1,25,100,3RSAC,1RK,1,3RGAR,3RLIC,2, */
X/* & 3RCLO,2RVE,2,3RFOO,1RD,3,3RSAN,3RDWI,3,3RLUN,2RCH,3, */
X/* & 3RDIN,3RNER,3, */
X/* & 3RGUN,1RK,4,55,3RPIE,2RCE,4,143,186,3RSLA,1RG,4,3RCOA,1RL,5, */
X/* & 3RPIL,1RE,5,18,38,78,87,88,122,3RHEA,1RP,5, */
X/* & 3RFIG,3RURI,6, */
X/* & 3RMAC,3RHIN,7,3RPDP,2R10,7,3RPDP,2R11,7,3RDRY,2RER,7, */
X/* & 3RLID,0,7,3RDIA,3RMON,8,3RCAS,1RE,9,123,3RBOT,3RTLE,10,121, */
X/* & 3RCON,3RTAI,10,3RWAT,2RER,11,209,3RQUA,3RNTI,11,209, */
X/* & 3RLIQ,3RUID,11,209,3RH2O,0,11,209, */
X/* & 3RROP,1RE,12,101,3RHEM,1RP,12,3RCOI,1RL,12,110, */
X/* & 3RKNI,2RFE,13,21,3RBLA,2RDE,13,14,3RSWO,2RRD,14,3RORC,3RHRI,14, */
X/* & 3RGLA,3RMDR,14,3RLAM,1RP,15,16,22,3RLAN,3RTER,15,16,22, */
X/* & 3RRUG,0,17,3RCAR,3RPET,17, */
X/* & 3RLEA,3RVES,18,3RLEA,1RF,18,3RTRO,2RLL,19, */
X/* & 3RAXE,0,20,3RDIN,3RNER,3/ */
X
X/* DATA OVOC2/3RKEY,1RS,23,3RKEY,0,23, */
X/* & 3RSET,0,23,3RBON,2RES,24,3RSKE,3RLET,24,3RBOD,1RY,24,73, */
X/* & 3RCOI,2RNS,25,3RBAR,0,26,165,168, */
X/* & 3RNEC,3RKLA,27,3RPEA,3RRLS,27,3RMIR,3RROR,28,29,212, */
X/* & 3RICE,0,30,3RMAS,1RS,30,3RGLA,3RCIE,30,3RRUB,1RY,31, */
X/* & 3RTRI,3RDEN,32,3RFOR,1RK,32,3RCOF,3RFIN,33,3RCAS,3RKET,33, */
X/* & 3RTOR,2RCH,34,3RCAG,1RE,35,36,124,125,3RDUM,3RBWA,35,36, */
X/* & 3RBAS,3RKET,35,36,98,113,3RBRA,3RCEL,37, */
X/* & 3RJEW,2REL,37,3RTIM,3RBER,38,3RBOX,0,39,53,105,3RSTR,3RADI,40, */
X/* & 3RVIO,3RLIN,40,3RENG,3RRAV,41,3RINS,3RCRI,41,44,3RGHO,2RST,42, */
X/* & 3RSPI,3RRIT,42,3RFIE,2RND,42,3RGRA,2RIL,43,3RPRA,3RYER,44,47, */
X/* & 3RTRU,2RNK,45,3RCHE,2RST,45,3RBEL,1RL,46, */
X/* & 3RBOO,1RK,47,49,114,115,116,117,3RBIB,2RLE,47/ */
X
X/* DATA OVOC3/3RGOO,3RDBO,47,3RCAN,3RDLE,48,3RPAI,1RR,48, */
X/* & 3RGUI,3RDEB,49, */
X/* & 3RGUI,2RDE,49,3RPAP,2RER,50,122,143,186,3RNEW,3RSPA,50, */
X/* & 3RISS,2RUE,50,3RREP,3RORT,50,3RMAG,3RAZI,50,3RNEW,1RS,50, */
X/* & 3RMAT,3RCHB,51, */
X/* & 3RMAT,2RCH,51,3RMAT,3RCHE,51,3RADV,3RERT,52,3RPAM,3RPHL,52, */
X/* & 3RLEA,3RFLE,52,3RBOO,3RKLE,52,3RMAI,3RLBO,53, */
X/* & 3RTUB,1RE,54,3RTOO,3RTHP,54,3RPUT,2RTY,55,3RMAT,3RERI,55, */
X/* & 3RGLU,1RE,55,3RWRE,3RNCH,56,3RSCR,3REWD,57, */
X/* & 3RCYC,3RLOP,58,3RMON,3RSTE,58,3RCHA,3RLIC,59,3RCUP,0,59, */
X/* & 3RGOB,3RLET,59,3RPAI,3RNTI,60,149,3RART,0,60,149, */
X/* & 3RCAN,3RVAS,60,3RPIC,3RTUR,60,3RWOR,1RK,60, */
X/* & 3RMAS,3RTER,60,215,3RTHI,2REF,61,3RROB,3RBER,61, */
X/* & 3RCRI,3RMIN,61,3RBAN,3RDIT,61,3RCRO,2ROK,61,3RGEN,1RT,61, */
X/* & 3RGEN,3RTLE,61,3RMAN,0,61,3RTHU,1RG,61, */
X/* & 3RBAG,3RMAN,61,3RSTI,3RLLE,62/ */
X
X/* DATA OVOC4/3RWIN,3RDOW,63,3RBOL,1RT,64,3RNUT,0,64, */
X/* & 3RGRA,2RTE,65,3RGRA,3RTIN,65,3RDOO,1RR,66,67,68,69, */
X/* & 164,172,173,174,175,189,3RTRA,3RPDO,66, */
X/* & 3RTRA,3RP$D,66,3RSWI,3RTCH,70,76,79,80,81,82,170, */
X/* & 3RHEA,1RD,71,120,3RCOR,3RPSE,72,73,3RBOD,3RIES,73, */
X/* & 3RDAM,0,74,3RGAT,2RES,74,76,3RGAT,1RE,74,76, */
X/* & 3RFCD,0,74,3RRAI,1RL,75,3RRAI,3RLIN,75, */
X/* & 3RBUT,3RTON,76,79,80,81,82,127,128,129,170,176, */
X/* & 3RBUB,3RBLE,77,3RLEA,1RK,78,3RDRI,1RP,78, */
X/* & 3RHOL,1RE,78,107, */
X/* & 3RBAT,0,83,3RRAI,3RNBO,84, */
X/* & 3RPOT,0,85,3RSTA,3RTUE,86,3RSCU,3RLPT,86,3RROC,1RK,86, */
X/* & 3RBOA,1RT,87,88,90,3RPLA,3RSTI,87,88, */
X/* & 3RPUM,1RP,89/ */
X
X/* DATA OVOC5/3RAIR,3RPUM,89,3RAIR,3R$PU,89,3RLAB,2REL,91,112, */
X/* & 3RFIN,3REPR,91,3RSTI,2RCK,92,3RBAR,3RREL,93,3RBUO,1RY,94, */
X/* & 3REME,3RRAL,95,3RSHO,3RVEL,96,3RGUA,2RNO,97,3RCRA,1RP,97, */
X/* & 3RSHI,1RT,97,3RHUN,1RK,97,3RBAL,3RLOO,98,113, */
X/* & 3RREC,3REPT,99,3RWIR,1RE,101,110, */
X/* & 3RHOO,1RK,102,103,3RZOR,3RKMI,104,148,3RCOI,1RN,104, */
X/* & 3RSAF,1RE,105,3RCAR,1RD,106,188,3RNOT,1RE,106,186, */
X/* & 3RSLO,1RT,107,187,3RCRO,2RWN,108,3RBRI,2RCK,109, */
X/* & 3RFUS,1RE,110,3RGNO,2RME,111,152, */
X/* & 3RSTA,2RMP,118, */
X/* & 3RTOM,1RB,119,3RCRY,2RPT,119,3RGRA,2RVE,119,3RHEA,2RDS,120, */
X/* & 3RPOL,2RES,120,3RIMP,3RLEM,120/ */
X
X/* DATA OVOC6/3RLOS,3RERS,120,3RCOK,2RES,121, */
X/* & 3RLIS,3RTIN,122,3RSTA,2RCK,122, */
X/* & 3RPRI,3RNTO,122, */
X/* & 3RSPH,3RERE,126,3RBAL,1RL,126, */
X/* & 3RETC,3RHIN,130,131, */
X/* & 3RWAL,2RLS,130,131,198,205,206,207,208,3RWAL,1RL, */
X/* & 130,131,159,160,161,162,163,164,198,205,206,207,208, */
X/* & 3RFLA,2RSK,132,3RPOO,1RL,133,3RSEW,3RAGE,133, */
X/* & 3RTIN,0,134,3RSAF,3RFRO,134,3RSPI,3RCES,134,3RTAB,2RLE,135, */
X/* & 3RPOS,1RT,136,166,167,3RPOS,2RTS,136,3RBUC,3RKET,137, */
X/* & 3RCAK,1RE,138,139,140,141,3RICI,2RNG,139,140,141, */
X/* & 3RROB,2ROT,142,3RROB,2RBY,142, */
X/* & 3RC3P,1RO,142,3RR2D,1R2,142/ */
X
X/* DATA OVOC6A/3RPAN,2REL,159,160,161,162,163,164,213, */
X/* & 3RPOL,1RE,166,167,3RTBA,1RR,168,3RT$B,2RAR,168, */
X/* & 3RARR,2ROW,169,3RPOI,2RNT,169,3RBEA,1RM,171, */
X/* & 3RDIA,1RL,177,3RSUN,3RDIA,177,1R1,0,178, */
X/* & 3RONE,0,178,1R2,0,179,3RTWO,0,179,1R3,0,180, */
X/* & 3RTHR,2REE,180,1R4,0,181,3RFOU,1RR,181,1R5,0,182, */
X/* & 3RFIV,1RE,182,1R6,0,183,3RSIX,0,183,1R7,0,184, */
X/* & 3RSEV,2REN,184,1R8,0,185,3REIG,2RHT,185, */
X/* & 3RWAR,3RNIN,186,3RSLI,1RT,187, */
X/* & 2RIT,0,192,3RTHA,1RT,192,3RTHI,1RS,192/ */
X
X/* DATA OVOC7/2RME,0,193,3RMYS,3RELF,193,3RCRE,3RTIN,193, */
X/* & 3RALL,0,194,3REVE,3RRYT,194, */
X/* & 3RTRE,3RASU,195,3RVAL,3RUAB,195,3RSAI,3RLOR,196,3RTEE,2RTH,197, */
X/* & 3RGRU,1RE,199,3RHAN,1RD,200,3RHAN,2RDS,200, */
X/* & 3RLUN,2RGS,201,3RAIR,0,201,3RAVI,3RATO,202, */
X/* & 3RFLY,2RER,202,3RTRE,1RE,144,145,204, */
X/* & 3RCLI,2RFF,146,147,3RLED,2RGE,146,147,3RPOR,3RTRA,149, */
X/* & 3RSTA,2RCK,148,3RBIL,2RLS,148, */
X/* & 3RVAU,2RLT,150,3RCUB,1RE,150,3RLET,3RTER,67,150, */
X/* & 3RCUR,3RTAI,151,3RLIG,2RHT,151,3RNES,1RT,153, */
X/* & 3REGG,0,154,155,3RBAU,3RBLE,156,3RCAN,3RARY,157,158, */
X/* & 3RBIR,1RD,203,3RSON,3RGBI,203, */
X/* & 3RGUA,2RRD,210,3RGUA,3RRDI,210,3RROS,1RE,211, */
X/* & 3RSTR,3RUCT,212,3RCHA,3RNNE,214, */
X/* & 3RKEE,3RPER,215,3RLAD,3RDER,216/ */
X
XEXTERN const integer ovoc[]
X#ifdef INIT
X = { 3247, 0, 1, 25, 100, 30443, 17600, 1, 11258, 19563, 2, 5295,
X 35400, 2, 10215, 6400, 3, 30454, 7329, 3, 20054, 5120, 3, 6774,
X 22618, 3, 12054, 17600, 4, 55, 25965, 5000, 4, 143, 186, 30881,
X 11200, 4, 5401, 19200, 5, 25972, 8000, 5, 18, 38, 78, 87, 88, 122,
X 13001, 25600, 5, 9967, 34329, 6, 20843, 13174, 7, 25776, 50800,
X 7, 25776, 50840, 7, 7145, 8720, 7, 19564, 0, 7, 6761, 21414, 8,
X 4859, 8000, 9, 123, 3820, 32485, 10, 121, 5414, 32049, 10, 36860,
X 8720, 11, 209, 28041, 23209, 11, 209, 19577, 33964, 11, 209,
X 14095, 0, 11, 209, 29416, 8000, 12, 101, 13013, 25600, 12, 5409,
X 19200, 12, 110, 18169, 9800, 13, 21, 3681, 6600, 13, 14, 31335,
X 28960, 14, 24723, 13529, 14, 11681, 20978, 14, 19253, 25600, 15,
X 16, 22, 19254, 32218, 15, 16, 22, 29647, 0, 17, 4858, 25820, 17,
X 19401, 35419, 18, 19401, 9600, 18, 32735, 19680, 19, 2565, 0, 20,
X 6774, 22618, 3, 17825, 30400, 23, 17825, 0, 23, 30620, 0, 23,
X 3814, 8760, 24, 30845, 19420, 24, 3804, 40000, 24, 73, 5409,
X 23160, 25, 3258, 0, 26, 165, 168, 22603, 18081, 27, 25801, 29299,
X 27, 21178, 29418, 28, 29, 212, 14525, 0, 30, 20859, 30400, 30,
X 11681, 5165, 30, 29642, 40000, 31, 32729, 6614, 32, 10218, 17600,
X 32, 5406, 9974, 33, 4859, 17820, 33, 32618, 5120, 34, 4847, 8000,
X 35, 36, 124, 125, 7253, 4121, 35, 36, 3259, 17820, 35, 36, 98,
X 113, 3921, 5012, 37, 16223, 8480, 37, 32373, 3418, 38, 3824, 0,
X 39, 53, 105, 31218, 1769, 40, 35575, 19574, 40, 8567, 28862, 41,
X 14979, 5529, 41, 44, 11535, 31200, 42, 31049, 29180, 42, 9965,
X 22560, 42, 11921, 14880, 43, 26321, 40218, 44, 47, 32741, 22840,
X 45, 5125, 31200, 45, 3412, 19200, 46, 3815, 17600, 47, 49, 114,
X 115, 116, 117, 3562, 19400, 47, 11815, 6495, 47, 4854, 6885, 48,
X 25649, 28800, 48, 12049, 6602, 49, 12049, 6600, 49, 25656, 8720,
X 50, 122, 143, 186, 22623, 31041, 50, 15179, 33800, 50, 29016,
X 24740, 50, 20847, 2649, 50, 22623, 30400, 50, 20860, 5122, 51,
X 20860, 5120, 51, 20860, 5125, 51, 1782, 8740, 52, 25653, 25932,
X 52, 19401, 10085, 52, 3815, 18085, 52, 20849, 19295, 53, 32842,
X 8000, 54, 32615, 32336, 54, 26460, 33000, 55, 20860, 8729, 55,
X 11701, 8000, 55, 37525, 22528, 56, 30538, 8924, 57, 5803, 19816,
X 58, 21414, 31205, 58, 5121, 19563, 59, 5656, 0, 59, 11802, 19420,
X 59, 25649, 23209, 60, 149, 2340, 0, 60, 149, 4854, 35259, 60,
X 25963, 32858, 60, 37418, 17600, 60, 20859, 32218, 60, 215, 32329,
X 8240, 61, 29402, 3418, 61, 5529, 21175, 61, 3254, 6780, 61, 5535,
X 24440, 61, 11414, 32000, 61, 11414, 32485, 61, 20854, 0, 61,
X 32341, 11200, 61, 3247, 20854, 61, 31209, 19685, 62, 37174, 7023,
X 63, 3812, 32000, 64, 23260, 0, 64, 11921, 32200, 65, 11921, 32374,
X 65, 7015, 28800, 66, 67, 68, 69, 164, 172, 173, 174, 175, 189,
X 32721, 25775, 66, 32721, 26684, 66, 31329, 32128, 70, 76, 79, 80,
X 81, 82, 170, 13001, 6400, 71, 120, 5418, 26365, 72, 73, 3804,
X 14619, 73, 6453, 0, 74, 11260, 8760, 74, 76, 11260, 8000, 74, 76,
X 9724, 0, 74, 28849, 19200, 75, 28849, 19574, 75, 4060, 32614, 76,
X 79, 80, 81, 82, 127, 128, 129, 170, 176, 4042, 3685, 77, 19401,
X 17600, 78, 7129, 25600, 78, 13412, 8000, 78, 107, 3260, 0, 83,
X 28849, 22495, 84, 26220, 0, 85, 31201, 32845, 86, 30541, 19860,
X 86, 29403, 17600, 86, 3801, 32000, 87, 88, 90, 26081, 31209, 87,
X 88, 26453, 25600, 89, 1978, 26453, 89, 1978, 43861, 89, 19242,
X 8480, 91, 112, 9974, 8658, 91, 31209, 5240, 92, 3258, 29012, 93,
X 4055, 40000, 94, 8525, 28852, 95, 30735, 35412, 96, 12041, 23000,
X 97, 5521, 25600, 97, 30729, 32000, 97, 13654, 17600, 97, 3252,
X 19815, 98, 113, 29003, 8660, 99, 37178, 8000, 101, 110, 13415,
X 17600, 102, 103, 42218, 18129, 104, 148, 5409, 22400, 104, 30446,
X 8000, 105, 4858, 6400, 106, 188, 23020, 8000, 106, 186, 30895,
X 32000, 107, 187, 5535, 37360, 108, 3929, 5240, 109, 10459, 8000,
X 110, 11775, 21000, 111, 152, 31201, 21440, 118, 32613, 3200, 119,
X 5545, 26400, 119, 11921, 35400, 119, 13001, 7160, 120, 26212,
X 8760, 120, 14936, 19413, 120, 19819, 8739, 120, 5411, 8760, 121,
X 19579, 32374, 122, 31201, 5240, 122, 26329, 23215, 122, 31048,
X 8725, 126, 3252, 19200, 126, 8803, 13174, 130, 131, 36852, 19960,
X 130, 131, 198, 205, 206, 207, 208, 36852, 19200, 130, 131, 159,
X 160, 161, 162, 163, 164, 198, 205, 206, 207, 208, 10081, 30840,
X 132, 26215, 19200, 133, 30623, 1885, 133, 32374, 0, 134, 30446,
X 10335, 134, 31049, 5019, 134, 32042, 19400, 135, 26219, 32000,
X 136, 166, 167, 26219, 32760, 136, 4043, 17820, 137, 4851, 8000,
X 138, 139, 140, 141, 14529, 22680, 139, 140, 141, 29402, 24800,
X 142, 29402, 4200, 142, 6136, 24000, 142, 30084, 51200, 142, 25654,
X 8480, 159, 160, 161, 162, 163, 164, 213, 26212, 8000, 166, 167,
X 32081, 28800, 168, 33082, 2320, 168, 2338, 24920, 169, 26209,
X 23200, 169, 3401, 20800, 171, 6761, 19200, 177, 31254, 6761, 177,
X 49600, 0, 178, 24565, 0, 178, 51200, 0, 179, 32935, 0, 179, 52800,
X 0, 180, 32338, 8200, 180, 54400, 0, 181, 10221, 28800, 181,
X 56000, 0, 182, 9982, 8000, 182, 57600, 0, 183, 30784, 0, 183,
X 59200, 0, 184, 30622, 8560, 184, 60800, 0, 185, 8367, 13600, 185,
X 36858, 22774, 186, 30889, 32000, 187, 15200, 0, 192, 32321, 32000,
X 192, 32329, 30400, 192, 21000, 0, 193, 21819, 8486, 193, 5525,
X 32374, 193, 2092, 0, 194, 8885, 29820, 194, 32725, 2381, 195,
X 35252, 33642, 195, 30449, 19818, 196, 32205, 32320, 197, 11941,
X 8000, 199, 12854, 6400, 200, 12854, 7160, 200, 20054, 11960, 201,
X 1978, 0, 201, 2489, 2415, 202, 10105, 8720, 202, 32725, 8000, 144,
X 145, 204, 5289, 9840, 146, 147, 19404, 11400, 146, 147, 26218,
X 32721, 149, 31201, 5240, 148, 3572, 19960, 148, 35261, 20000, 150,
X 5642, 8000, 150, 19420, 32218, 67, 150, 5658, 32049, 151, 19567,
X 13600, 151, 22619, 32000, 153, 8287, 0, 154, 155, 3261, 3685, 156,
X 4854, 2345, 157, 158, 3578, 6400, 203, 31014, 11289, 203, 12041,
X 28960, 210, 12041, 28969, 210, 29419, 8000, 211, 31218, 33740,
X 212, 5121, 22965, 214, 17805, 25818, 215, 19244, 6618, 216, -1 }
X#endif
X ;
X
X#endif
END_OF_FILE
if test 34040 -ne `wc -c <'parse.h'`; then
echo shar: \"'parse.h'\" unpacked with wrong size!
fi
# end of 'parse.h'
fi
echo shar: End of archive 5 \(of 12\).
cp /dev/null ark5isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 12 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0