1 #include "glk.h"
2 #include "miscfort.h"
3 #include "commons.h"
4 
5 strid_t datafile = 0;
6 glsi32 datafile_strings = 0;
7 glsi32 datafile_strindex[DATAFILE_LEN2];
8 
9 struct prsvec_1_ prsvec_1;
10 struct prssta_1_ prssta_1;
11 struct play_1_ play_1;
12 struct rmsg_1_ rmsg_1;
13 struct input_1_ input_1;
14 struct rooms_1_ rooms_1;
15 struct exits_1_ exits_1;
16 struct objcts_1_ objcts_1;
17 struct oroom2_1_ oroom2_1;
18 struct cevent_1_ cevent_1;
19 struct hack_1_ hack_1;
20 struct vill_1_ vill_1;
21 struct advs_1_ advs_1;
22 struct findex_1_ findex_1;
23 
24 /* Table of constant values */
25 
26 logical c_false = FALSE_;
27 logical c_true = TRUE_;
28 
29 integer c__0 = 0;
30 integer c__1 = 1;
31 integer c__2 = 2;
32 integer c__3 = 3;
33 integer c__4 = 4;
34 integer c__5 = 5;
35 integer c__6 = 6;
36 integer c__7 = 7;
37 integer c__8 = 8;
38 integer c__9 = 9;
39 integer c__10 = 10;
40 integer c__11 = 11;
41 integer c__12 = 12;
42 integer c__14 = 14;
43 integer c__15 = 15;
44 integer c__16 = 16;
45 integer c__18 = 18;
46 integer c__19 = 19;
47 integer c__20 = 20;
48 integer c__21 = 21;
49 integer c__22 = 22;
50 integer c__23 = 23;
51 integer c__24 = 24;
52 integer c__25 = 25;
53 integer c__27 = 27;
54 integer c__30 = 30;
55 integer c__31 = 31;
56 integer c__33 = 33;
57 integer c__34 = 34;
58 integer c__35 = 35;
59 integer c__36 = 36;
60 integer c__38 = 38;
61 integer c__39 = 39;
62 integer c__40 = 40;
63 integer c__42 = 42;
64 integer c__43 = 43;
65 integer c__44 = 44;
66 integer c__45 = 45;
67 integer c__46 = 46;
68 integer c__47 = 47;
69 integer c__48 = 48;
70 integer c__49 = 49;
71 integer c__50 = 50;
72 integer c__51 = 51;
73 integer c__52 = 52;
74 integer c__53 = 53;
75 integer c__54 = 54;
76 integer c__55 = 55;
77 integer c__56 = 56;
78 integer c__57 = 57;
79 integer c__58 = 58;
80 integer c__59 = 59;
81 integer c__60 = 60;
82 integer c__61 = 61;
83 integer c__62 = 62;
84 integer c__63 = 63;
85 integer c__64 = 64;
86 integer c__65 = 65;
87 integer c__66 = 66;
88 integer c__67 = 67;
89 integer c__69 = 69;
90 integer c__70 = 70;
91 integer c__71 = 71;
92 integer c__75 = 75;
93 integer c__76 = 76;
94 integer c__79 = 79;
95 integer c__80 = 80;
96 integer c__81 = 81;
97 integer c__82 = 82;
98 integer c__84 = 84;
99 integer c__85 = 85;
100 integer c__87 = 87;
101 integer c__88 = 88;
102 integer c__89 = 89;
103 integer c__90 = 90;
104 integer c__93 = 93;
105 integer c__94 = 94;
106 integer c__96 = 96;
107 integer c__98 = 98;
108 integer c__99 = 99;
109 integer c__100 = 100;
110 integer c__103 = 103;
111 integer c__104 = 104;
112 integer c__107 = 107;
113 integer c__108 = 108;
114 integer c__109 = 109;
115 integer c__110 = 110;
116 integer c__111 = 111;
117 integer c__112 = 112;
118 integer c__113 = 113;
119 integer c__115 = 115;
120 integer c__118 = 118;
121 integer c__119 = 119;
122 integer c__121 = 121;
123 integer c__122 = 122;
124 integer c__123 = 123;
125 integer c__124 = 124;
126 integer c__126 = 126;
127 integer c__128 = 128;
128 integer c__129 = 129;
129 integer c__130 = 130;
130 integer c__131 = 131;
131 integer c__132 = 132;
132 integer c__133 = 133;
133 integer c__134 = 134;
134 integer c__135 = 135;
135 integer c__136 = 136;
136 integer c__137 = 137;
137 integer c__138 = 138;
138 integer c__139 = 139;
139 integer c__140 = 140;
140 integer c__141 = 141;
141 integer c__142 = 142;
142 integer c__143 = 143;
143 integer c__144 = 144;
144 integer c__145 = 145;
145 integer c__148 = 148;
146 integer c__149 = 149;
147 integer c__150 = 150;
148 integer c__151 = 151;
149 integer c__152 = 152;
150 integer c__153 = 153;
151 integer c__154 = 154;
152 integer c__155 = 155;
153 integer c__156 = 156;
154 integer c__158 = 158;
155 integer c__159 = 159;
156 integer c__160 = 160;
157 integer c__161 = 161;
158 integer c__162 = 162;
159 integer c__163 = 163;
160 integer c__164 = 164;
161 integer c__165 = 165;
162 integer c__166 = 166;
163 integer c__169 = 169;
164 integer c__170 = 170;
165 integer c__171 = 171;
166 integer c__172 = 172;
167 integer c__173 = 173;
168 integer c__175 = 175;
169 integer c__176 = 176;
170 integer c__177 = 177;
171 integer c__178 = 178;
172 integer c__179 = 179;
173 integer c__180 = 180;
174 integer c__181 = 181;
175 integer c__182 = 182;
176 integer c__183 = 183;
177 integer c__184 = 184;
178 integer c__185 = 185;
179 integer c__186 = 186;
180 integer c__187 = 187;
181 integer c__188 = 188;
182 integer c__189 = 189;
183 integer c__190 = 190;
184 integer c__191 = 191;
185 integer c__195 = 195;
186 integer c__197 = 197;
187 integer c__200 = 200;
188 integer c__201 = 201;
189 integer c__202 = 202;
190 integer c__203 = 203;
191 integer c__204 = 204;
192 integer c__205 = 205;
193 integer c__207 = 207;
194 integer c__208 = 208;
195 integer c__209 = 209;
196 integer c__210 = 210;
197 integer c__211 = 211;
198 integer c__212 = 212;
199 integer c__213 = 213;
200 integer c__214 = 214;
201 integer c__217 = 217;
202 integer c__218 = 218;
203 integer c__219 = 219;
204 integer c__220 = 220;
205 integer c__226 = 226;
206 integer c__227 = 227;
207 integer c__228 = 228;
208 integer c__229 = 229;
209 integer c__232 = 232;
210 integer c__233 = 233;
211 integer c__234 = 234;
212 integer c__235 = 235;
213 integer c__236 = 236;
214 integer c__238 = 238;
215 integer c__239 = 239;
216 integer c__240 = 240;
217 integer c__241 = 241;
218 integer c__242 = 242;
219 integer c__243 = 243;
220 integer c__244 = 244;
221 integer c__247 = 247;
222 integer c__248 = 248;
223 integer c__249 = 249;
224 integer c__250 = 250;
225 integer c__256 = 256;
226 integer c__257 = 257;
227 integer c__258 = 258;
228 integer c__259 = 259;
229 integer c__260 = 260;
230 integer c__261 = 261;
231 integer c__262 = 262;
232 integer c__263 = 263;
233 integer c__264 = 264;
234 integer c__265 = 265;
235 integer c__269 = 269;
236 integer c__270 = 270;
237 integer c__272 = 272;
238 integer c__273 = 273;
239 integer c__279 = 279;
240 integer c__280 = 280;
241 integer c__282 = 282;
242 integer c__283 = 283;
243 integer c__284 = 284;
244 integer c__285 = 285;
245 integer c__286 = 286;
246 integer c__287 = 287;
247 integer c__288 = 288;
248 integer c__289 = 289;
249 integer c__290 = 290;
250 integer c__291 = 291;
251 integer c__292 = 292;
252 integer c__293 = 293;
253 integer c__294 = 294;
254 integer c__295 = 295;
255 integer c__296 = 296;
256 integer c__297 = 297;
257 integer c__298 = 298;
258 integer c__299 = 299;
259 integer c__300 = 300;
260 integer c__301 = 301;
261 integer c__302 = 302;
262 integer c__310 = 310;
263 integer c__326 = 326;
264 integer c__327 = 327;
265 integer c__328 = 328;
266 integer c__334 = 334;
267 integer c__335 = 335;
268 integer c__336 = 336;
269 integer c__337 = 337;
270 integer c__338 = 338;
271 integer c__339 = 339;
272 integer c__340 = 340;
273 integer c__341 = 341;
274 integer c__343 = 343;
275 integer c__344 = 344;
276 integer c__345 = 345;
277 integer c__350 = 350;
278 integer c__356 = 356;
279 integer c__357 = 357;
280 integer c__358 = 358;
281 integer c__361 = 361;
282 integer c__362 = 362;
283 integer c__363 = 363;
284 integer c__364 = 364;
285 integer c__365 = 365;
286 integer c__366 = 366;
287 integer c__367 = 367;
288 integer c__368 = 368;
289 integer c__369 = 369;
290 integer c__370 = 370;
291 integer c__371 = 371;
292 integer c__378 = 378;
293 integer c__379 = 379;
294 integer c__380 = 380;
295 integer c__381 = 381;
296 integer c__382 = 382;
297 integer c__385 = 385;
298 integer c__386 = 386;
299 integer c__387 = 387;
300 integer c__390 = 390;
301 integer c__391 = 391;
302 integer c__396 = 396;
303 integer c__397 = 397;
304 integer c__398 = 398;
305 integer c__400 = 400;
306 integer c__401 = 401;
307 integer c__402 = 402;
308 integer c__403 = 403;
309 integer c__404 = 404;
310 integer c__405 = 405;
311 integer c__406 = 406;
312 integer c__407 = 407;
313 integer c__408 = 408;
314 integer c__409 = 409;
315 integer c__410 = 410;
316 integer c__411 = 411;
317 integer c__412 = 412;
318 integer c__413 = 413;
319 integer c__414 = 414;
320 integer c__419 = 419;
321 integer c__420 = 420;
322 integer c__421 = 421;
323 integer c__422 = 422;
324 integer c__423 = 423;
325 integer c__424 = 424;
326 integer c__425 = 425;
327 integer c__426 = 426;
328 integer c__427 = 427;
329 integer c__428 = 428;
330 integer c__429 = 429;
331 integer c__430 = 430;
332 integer c__431 = 431;
333 integer c__432 = 432;
334 integer c__437 = 437;
335 integer c__438 = 438;
336 integer c__439 = 439;
337 integer c__442 = 442;
338 integer c__443 = 443;
339 integer c__445 = 445;
340 integer c__447 = 447;
341 integer c__448 = 448;
342 integer c__452 = 452;
343 integer c__453 = 453;
344 integer c__454 = 454;
345 integer c__455 = 455;
346 integer c__456 = 456;
347 integer c__457 = 457;
348 integer c__458 = 458;
349 integer c__459 = 459;
350 integer c__460 = 460;
351 integer c__461 = 461;
352 integer c__462 = 462;
353 integer c__463 = 463;
354 integer c__464 = 464;
355 integer c__465 = 465;
356 integer c__466 = 466;
357 integer c__469 = 469;
358 integer c__470 = 470;
359 integer c__498 = 498;
360 integer c__499 = 499;
361 integer c__502 = 502;
362 integer c__505 = 505;
363 integer c__506 = 506;
364 integer c__507 = 507;
365 integer c__510 = 510;
366 integer c__511 = 511;
367 integer c__512 = 512;
368 integer c__515 = 515;
369 integer c__516 = 516;
370 integer c__519 = 519;
371 integer c__520 = 520;
372 integer c__521 = 521;
373 integer c__522 = 522;
374 integer c__523 = 523;
375 integer c__525 = 525;
376 integer c__527 = 527;
377 integer c__528 = 528;
378 integer c__529 = 529;
379 integer c__530 = 530;
380 integer c__531 = 531;
381 integer c__532 = 532;
382 integer c__533 = 533;
383 integer c__534 = 534;
384 integer c__535 = 535;
385 integer c__536 = 536;
386 integer c__537 = 537;
387 integer c__538 = 538;
388 integer c__539 = 539;
389 integer c__540 = 540;
390 integer c__541 = 541;
391 integer c__542 = 542;
392 integer c__543 = 543;
393 integer c__544 = 544;
394 integer c__545 = 545;
395 integer c__546 = 546;
396 integer c__547 = 547;
397 integer c__548 = 548;
398 integer c__549 = 549;
399 integer c__550 = 550;
400 integer c__551 = 551;
401 integer c__559 = 559;
402 integer c__560 = 560;
403 integer c__561 = 561;
404 integer c__562 = 562;
405 integer c__563 = 563;
406 integer c__564 = 564;
407 integer c__565 = 565;
408 integer c__566 = 566;
409 integer c__567 = 567;
410 integer c__568 = 568;
411 integer c__569 = 569;
412 integer c__570 = 570;
413 integer c__571 = 571;
414 integer c__572 = 572;
415 integer c__573 = 573;
416 integer c__577 = 577;
417 integer c__578 = 578;
418 integer c__579 = 579;
419 integer c__580 = 580;
420 integer c__583 = 583;
421 integer c__584 = 584;
422 integer c__585 = 585;
423 integer c__590 = 590;
424 integer c__591 = 591;
425 integer c__592 = 592;
426 integer c__593 = 593;
427 integer c__594 = 594;
428 integer c__595 = 595;
429 integer c__596 = 596;
430 integer c__597 = 597;
431 integer c__598 = 598;
432 integer c__599 = 599;
433 integer c__600 = 600;
434 integer c__601 = 601;
435 integer c__603 = 603;
436 integer c__604 = 604;
437 integer c__605 = 605;
438 integer c__606 = 606;
439 integer c__612 = 612;
440 integer c__613 = 613;
441 integer c__614 = 614;
442 integer c__615 = 615;
443 integer c__616 = 616;
444 integer c__617 = 617;
445 integer c__618 = 618;
446 integer c__619 = 619;
447 integer c__620 = 620;
448 integer c__621 = 621;
449 integer c__622 = 622;
450 integer c__623 = 623;
451 integer c__625 = 625;
452 integer c__626 = 626;
453 integer c__627 = 627;
454 integer c__628 = 628;
455 integer c__629 = 629;
456 integer c__630 = 630;
457 integer c__631 = 631;
458 integer c__632 = 632;
459 integer c__633 = 633;
460 integer c__634 = 634;
461 integer c__635 = 635;
462 integer c__636 = 636;
463 integer c__637 = 637;
464 integer c__638 = 638;
465 integer c__639 = 639;
466 integer c__640 = 640;
467 integer c__641 = 641;
468 integer c__642 = 642;
469 integer c__643 = 643;
470 integer c__644 = 644;
471 integer c__645 = 645;
472 integer c__646 = 646;
473 integer c__647 = 647;
474 integer c__648 = 648;
475 integer c__649 = 649;
476 integer c__650 = 650;
477 integer c__651 = 651;
478 integer c__658 = 658;
479 integer c__659 = 659;
480 integer c__660 = 660;
481 integer c__662 = 662;
482 integer c__663 = 663;
483 integer c__664 = 664;
484 integer c__666 = 666;
485 integer c__667 = 667;
486 integer c__668 = 668;
487 integer c__672 = 672;
488 integer c__673 = 673;
489 integer c__674 = 674;
490 integer c__675 = 675;
491 integer c__676 = 676;
492 integer c__681 = 681;
493 integer c__682 = 682;
494 integer c__683 = 683;
495 integer c__684 = 684;
496 integer c__685 = 685;
497 integer c__686 = 686;
498 integer c__687 = 687;
499 integer c__688 = 688;
500 integer c__694 = 694;
501 integer c__705 = 705;
502 integer c__706 = 706;
503 integer c__707 = 707;
504 integer c__708 = 708;
505 integer c__709 = 709;
506 integer c__710 = 710;
507 integer c__711 = 711;
508 integer c__712 = 712;
509 integer c__723 = 723;
510 integer c__724 = 724;
511 integer c__725 = 725;
512 integer c__726 = 726;
513 integer c__727 = 727;
514 integer c__728 = 728;
515 integer c__729 = 729;
516 integer c__730 = 730;
517 integer c__733 = 733;
518 integer c__734 = 734;
519 integer c__735 = 735;
520 integer c__736 = 736;
521 integer c__737 = 737;
522 integer c__738 = 738;
523 integer c__741 = 741;
524 integer c__742 = 742;
525 integer c__743 = 743;
526 integer c__744 = 744;
527 integer c__745 = 745;
528 integer c__746 = 746;
529 integer c__747 = 747;
530 integer c__748 = 748;
531 integer c__751 = 751;
532 integer c__752 = 752;
533 integer c__753 = 753;
534 integer c__756 = 756;
535 integer c__757 = 757;
536 integer c__758 = 758;
537 integer c__759 = 759;
538 integer c__760 = 760;
539 integer c__763 = 763;
540 integer c__764 = 764;
541 integer c__765 = 765;
542 integer c__766 = 766;
543 integer c__767 = 767;
544 integer c__768 = 768;
545 integer c__769 = 769;
546 integer c__778 = 778;
547 integer c__779 = 779;
548 integer c__780 = 780;
549 integer c__781 = 781;
550 integer c__782 = 782;
551 integer c__783 = 783;
552 integer c__786 = 786;
553 integer c__792 = 792;
554 integer c__797 = 797;
555 integer c__798 = 798;
556 integer c__799 = 799;
557 integer c__800 = 800;
558 integer c__806 = 806;
559 integer c__807 = 807;
560 integer c__808 = 808;
561 integer c__809 = 809;
562 integer c__810 = 810;
563 integer c__811 = 811;
564 integer c__818 = 818;
565 integer c__825 = 825;
566 integer c__826 = 826;
567 integer c__827 = 827;
568 integer c__828 = 828;
569 integer c__829 = 829;
570 integer c__832 = 832;
571 integer c__838 = 838;
572 integer c__843 = 843;
573 integer c__846 = 846;
574 integer c__847 = 847;
575 integer c__848 = 848;
576 integer c__851 = 851;
577 integer c__855 = 855;
578 integer c__856 = 856;
579 integer c__857 = 857;
580 integer c__858 = 858;
581 integer c__859 = 859;
582 integer c__860 = 860;
583 integer c__863 = 863;
584 integer c__864 = 864;
585 integer c__865 = 865;
586 integer c__866 = 866;
587 integer c__867 = 867;
588 integer c__868 = 868;
589 integer c__869 = 869;
590 integer c__870 = 870;
591 integer c__871 = 871;
592 integer c__874 = 874;
593 integer c__875 = 875;
594 integer c__876 = 876;
595 integer c__877 = 877;
596 integer c__880 = 880;
597 integer c__882 = 882;
598 integer c__885 = 885;
599 integer c__886 = 886;
600 integer c__889 = 889;
601 integer c__891 = 891;
602 integer c__894 = 894;
603 integer c__895 = 895;
604 integer c__896 = 896;
605 integer c__897 = 897;
606 integer c__898 = 898;
607 integer c__899 = 899;
608 integer c__900 = 900;
609 integer c__903 = 903;
610 integer c__904 = 904;
611 integer c__905 = 905;
612 integer c__906 = 906;
613 integer c__907 = 907;
614 integer c__908 = 908;
615 integer c__909 = 909;
616 integer c__910 = 910;
617 integer c__911 = 911;
618 integer c__913 = 913;
619 integer c__914 = 914;
620 integer c__915 = 915;
621 integer c__923 = 923;
622 integer c__924 = 924;
623 integer c__925 = 925;
624 integer c__926 = 926;
625 integer c__927 = 927;
626 integer c__928 = 928;
627 integer c__929 = 929;
628 integer c__930 = 930;
629 integer c__931 = 931;
630 integer c__933 = 933;
631 integer c__934 = 934;
632 integer c__935 = 935;
633 integer c__936 = 936;
634 integer c__937 = 937;
635 integer c__938 = 938;
636 integer c__939 = 939;
637 integer c__942 = 942;
638 integer c__943 = 943;
639 integer c__944 = 944;
640 integer c__945 = 945;
641 integer c__946 = 946;
642 integer c__947 = 947;
643 integer c__948 = 948;
644 integer c__949 = 949;
645 integer c__950 = 950;
646 integer c__951 = 951;
647 integer c__952 = 952;
648 integer c__953 = 953;
649 integer c__954 = 954;
650 integer c__955 = 955;
651 integer c__956 = 956;
652 integer c__959 = 959;
653 integer c__960 = 960;
654 integer c__961 = 961;
655 integer c__962 = 962;
656 integer c__963 = 963;
657 integer c__967 = 967;
658 integer c__968 = 968;
659 integer c__969 = 969;
660 integer c__970 = 970;
661 integer c__971 = 971;
662 integer c__972 = 972;
663 integer c__973 = 973;
664 integer c__974 = 974;
665 integer c__976 = 976;
666 integer c__977 = 977;
667 integer c__978 = 978;
668 integer c__979 = 979;
669 integer c__980 = 980;
670 integer c__981 = 981;
671 integer c__983 = 983;
672 integer c__984 = 984;
673 integer c__985 = 985;
674 integer c__986 = 986;
675 integer c__987 = 987;
676 integer c__990 = 990;
677 integer c__991 = 991;
678 integer c__992 = 992;
679 integer c__993 = 993;
680 integer c__994 = 994;
681 integer c__995 = 995;
682 integer c__996 = 996;
683 integer c__999 = 999;
684 integer c__1000 = 1000;
685 integer c__1001 = 1001;
686 integer c__1002 = 1002;
687 integer c__1003 = 1003;
688 integer c__1004 = 1004;
689 integer c__1005 = 1005;
690 integer c__1006 = 1006;
691 integer c__1007 = 1007;
692 integer c__1008 = 1008;
693 integer c__1009 = 1009;
694 integer c__1010 = 1010;
695 integer c__1011 = 1011;
696 integer c__1012 = 1012;
697 integer c__1013 = 1013;
698 integer c__1014 = 1014;
699 integer c__1015 = 1015;
700 integer c__1016 = 1016;
701 integer c__1017 = 1017;
702 integer c__1020 = 1020;
703 integer c__1021 = 1021;
704 integer c__1022 = 1022;
705 integer c__1023 = 1023;
706 integer c__1024 = 1024;
707 integer c__1025 = 1025;
708 integer c__1026 = 1026;
709 integer c__1028 = 1028;
710 integer c__1029 = 1029;
711 integer c__1034 = 1034;
712 integer c__1036 = 1036;
713 integer c__1038 = 1038;
714 integer c__1039 = 1039;
715 integer c__1040 = 1040;
716 integer c__1042 = 1042;
717 integer c__1043 = 1043;
718 integer c__1044 = 1044;
719 integer c__1046 = 1046;
720 integer c__1047 = 1047;
721 integer c__1048 = 1048;
722 integer c__1049 = 1049;
723 integer c__1050 = 1050;
724 integer c__1051 = 1051;
725 integer c__1052 = 1052;
726 integer c__1053 = 1053;
727 integer c__1054 = 1054;
728 integer c__1056 = 1056;
729 integer c__1057 = 1057;
730 integer c__1063 = 1063;
731 integer c__1064 = 1064;
732 integer c__1065 = 1065;
733 integer c__1066 = 1066;
734 integer c__1067 = 1067;
735 integer c__1070 = 1070;
736 integer c__1071 = 1071;
737 integer c__1075 = 1075;
738 integer c__1076 = 1076;
739 integer c__1077 = 1077;
740 integer c__1081 = 1081;
741 integer c__1500 = 1500;
742 integer c__10240 = 10240;
743 integer c_n1 = -1;
744 integer c_n10 = -10;
745 integer c_n61 = -61;
746 integer c_n5555 = -5555;
747 
748