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