3 C MODIFIED BY KENT BLACKETT
4 C ENGINEERING SYSTEMS GROUP
5 C DIGITAL EQUIPMENT CORP.
7 C MODIFIED BY BOB SUPNIK
10 C MODIFIED BY BOB SUPNIK
13 C MODIFIED BY BOB SUPNIK
16 C ORIGINAL VERSION WAS FOR DECSYSTEM-10
17 C NEXT VERSION WAS FOR FORTRAN IV-PLUS UNDER
18 C THE IAS OPERATING SYSTEM ON THE PDP-11/70
19 C THIS VERSION IS FOR FORTRAN IV (V01C OR LATER)
20 C UNDER RT-11 ON *ANY* PDP-11
24 C 750 TRAVEL OPTIONS (TRAVEL, TRVSIZ).
25 C 300 VOCABULARY WORDS (KTAB, ATAB, TABSIZ).
26 C 150 LOCATIONS (LTEXT, STEXT, KEY, COND, ABB, ATLOC, LOCSIZ).
27 C 100 OBJECTS (PLAC, PLACE, FIXD, FIXED, LINK (TWICE), PTEXT, PROP).
28 C 35 "ACTION" VERBS (ACTSPK, VRBSIZ).
29 C 205 RANDOM MESSAGES (RTEXT, RTXSIZ).
30 C 12 DIFFERENT PLAYER CLASSIFICATIONS (CTEXT, CVAL, CLSMAX).
31 C 20 HINTS, LESS 3 (HINTLC, HINTED, HINTS, HNTSIZ).
32 C THERE ARE ALSO LIMITS WHICH CANNOT BE EXCEEDED DUE TO THE STRUCTURE OF
33 C THE DATABASE. (E.G., THE VOCABULARY USES N/1000 TO DETERMINE WORD TYPE,
34 C SO THERE CAN'T BE MORE THAN 1000 WORDS.) THESE UPPER LIMITS ARE:
35 C 1000 NON-SYNONYMOUS VOCABULARY WORDS
39 C IMPLICIT INTEGER (A-Z)
40 LOGICAL LMWARN,CLOSNG,PANIC,HINTED,
41 1 CLOSED,GAVEUP,SCORNG,DSEEN,BITSET
43 COMMON /VERSN/ VMAJ, VMIN, VEDIT
44 COMMON /TXTCOM/ RTEXT,LINES,ASCVAR,TXTLOC,DATA
45 COMMON /VOCCOM/ KTAB,ATAB,TABSIZ
46 COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
49 COMMON /MISCOM/ LINUSE,TRVS,CLSSES,OLDLOC,LOC,CVAL,TK,NEWLOC,
50 1 KEY,PLAC,FIXD,ACTSPK,COND,HINTS,HNTMAX,PROP,TALLY,TALLY2,
51 2 HINTLC,CHLOC,CHLOC2,DSEEN,DFLAG,DLOC,DALTLC,KEYS,LAMP,GRATE
53 3 CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE,FISSUR,TABLET,
54 4 CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE,WATER,OIL,PLANT,
55 5 PLANT2,AXE,MIRROR,DRAGON,CHASM,TROLL,TROLL2,BEAR,MESSAG,VEND,
56 6 BATTER,NUGGET,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD,PYRAM
58 7 PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY,LOCK,
59 8 THROW,FIND,INVENT,TURNS,LMWARN,KNFLOC,DETAIL,ABBNUM,
60 9 NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2,
61 1 CLOSNG,PANIC,CLOSED,GAVEUP,SCORNG,ODLOC,STREAM,SPICES
62 COMMON /MISC2/ I,RTXSIZ,CLSMAX,LOCSIZ,CTEXT,STEXT,LTEXT,
63 1 SECT,TRAVEL,TRVCON,TRVLOC,TRVSIZ,TABNDX,OBJ,J,K,VERB,HNTSIZ,
64 2 MAXTRS,HINTED,HNTLOC,KK
66 INTEGER LINES(12),DATA(52),RECORD
67 C The TRAVEL, TRVCON, and TRVLOC arrays are
68 C Packed with words 0,1,2 holding the data. Saves lots
69 C of wasted space at the expense of some complexity.
70 INTEGER TRAVEL(250), TRVCON(250), TRVLOC(250), TRVSIZ
71 INTEGER KTAB(300),ATAB(300),TABSIZ
72 INTEGER LTEXT(150),STEXT(150),KEY(150),COND(150),ABB(150),
74 INTEGER PLAC(100),PLACE(100),FIXD(100),FIXED(100),LINK(200),
75 1 PTEXT(100),PROP(100),HOLDNG
78 INTEGER CTEXT(12),CVAL(12)
79 INTEGER HINTLC(20),HINTS(20,4)
81 INTEGER TK(20),DLOC(6),ODLOC(6)
83 INTEGER ASCVAR, TXTLOC, TRVS, CLSSES, OLDLOC
84 INTEGER HNTSIZ, HNTMAX, TALLY, TALLY2, CHLOC, CHLOC2, DFLAG
85 INTEGER DALTLC,GRATE,CAGE,ROD,ROD2,STEPS,BIRD,DOOR,PILLOW,SNAKE
86 INTEGER FISSUR,TABLET,CLAM,OYSTER,MAGZIN,DWARF,KNIFE,FOOD,BOTTLE
87 INTEGER WATER,OIL,PLANT,PLANT2,AXE,MIRROR,DRAGON,CHASM
88 INTEGER BEAR,MESSAG,VEND,BATTER,COINS,CHEST,EGGS,TRIDNT,VASE,EMRALD
89 INTEGER PYRAM,PEARL,RUG,CHAIN,BACK,LOOK,CAVE,NULL,ENTRNC,DPRSSN,SAY
90 INTEGER LOCK,THROW,FIND,INVENT,TURNS,KNFLOC,DETAIL,ABBNUM
91 INTEGER NUMDIE,MAXDIE,DKILL,FOOBAR,BONUS,CLOCK1,CLOCK2
92 INTEGER TROLL,TROLL2,STREAM,SPICES
93 INTEGER RTXSIZ,CLSMAX,LOCSIZ,SECT,TABNDX,OBJ
94 INTEGER VERB,HNTLOC,KK
97 INTEGER VMAJ, VMIN, VEDIT
98 DATA VMAJ/2/,VMIN/0/,VEDIT/'A'/
103 CDEBUG1 FORMAT(' INIT DONE')