// <script>

//
// Revision history
// 15-Jul-77	Kent Blackett	Revised original DECSYSTEM-10 version for
// 				IAS/FORTRAN-IV-PLUS on the PDP-11/70
// 21-Oct-77	Bob Supnik	Revised IAS version for RT-11/FORTRAN IV
//				Also runs under RSX, VMS
// 25-Aug-78	Bob Supnik	Fixes and edits
// 12-Nov-78	Bob Supnik	Fixes and edits
// 26-Aug-93	Bob Supnik	Revised for portability
// 01-Feb-94	Bob Supnik	Aligned text COMMONS
//
// There are limits which cannot be exceeded due to the structure of
// the database (e.g., the vocabulary uses N/1000 to determine word type,
// so there can't be more than 1000 words).  These upper limits are:
//
var VOCMAX=1000;	 //  non-synonymous vocab words
var LOCMAX=300;	 //  locations
var OBJMAX=100;	 //  objects
var DWFMAX=6;	 //  drawves
//
// Current limits:
//
var TRVSIZ=750;	 //  TRAVEL
var FILSIZ=900;	 //  messages - should be even
var TABSIZ=300;	 //  KTAB, ATAB
var RTXSIZ=205;	 //  RTEXT
var LOCSIZ=150;	 //  LTEXT, STEXT, KEY,
	 //  COND, ABB, ATLOC
var VRBSIZ=35;	 //  ACTSPK
var HNTSIZ=20;	 //  HINTLC, HINTED, HINTS
var CLSSIZ=12;	 //  CTEXT, CVAL
//	Object arrays must be exactly OBJMAX	! PLAC, PLACE, FIXD, FIXED,
var OBJMX2=OBJMAX*2;	 //  LINK (TWICE), PTEXT, PROP
//
var	LMWARN, CLOSNG, PANIC, HINTED, CLOSED, GAVEUP, SCORNG, DSEEN;

//Here
var	VMAJ, VMIN, VEDIT;

var	TRECNO, TLINES, RTEXT;

var	ATAB, KTAB;

var	ATLOC, LINK, PLACE, FIXED, HOLDNG;

var	PTEXT;

var	ABB;

var	LINUSE, TRVS, CLSSES, OLDLOC, LOC, CVAL, TK, NEWLOC, 
	KEY, PLAC, FIXD, ACTSPK, COND, HINTS, HNTMAX, PROP, 
	TALLY, TALLY2, HINTLC, CHLOC, CHLOC2, DSEEN, DFLAG, DLOC, 
	DALTLC, KEYS, LAMP, GRATE, CAGE, ROD, ROD2, STEPS, 
	BIRD, DOOR, PILLOW, SNAKE, FISSUR, TABLET, CLAM, OYSTER, 
	MAGZIN, DWARF, KNIFE, FOOD, BOTTLE, WATER, OIL, PLANT, 
	PLANT2, AXE, MIRROR, DRAGON, CHASM, TROLL, TROLL2, BEAR, 
	MESSAG, VEND, BATTER, NUGGET, COINS, CHEST, EGGS, TRIDNT, 
	VASE, EMRALD, PYRAM, PEARL, RUG, CHAIN, BACK, LOOK, 
	CAVE, NULL, ENTRNC, DPRSSN, SAY, LOCK, THROW, FIND, 
	INVENT, TURNS, LMWARN, KNFLOC, DETAIL, ABBNUM, NUMDIE, MAXDIE, 
	DKILL, FOOBAR, BONUS, CLOCK1, CLOCK2, CLOSNG, PANIC, CLOSED, 
	GAVEUP, SCORNG, ODLOC, STREAM, SPICES;

var	CTEXT, STEXT, LTEXT, TRAVEL, TRVCON, TRVLOC, MAXTRS, HINTED;

//ToHere
var	TRECNO = new Array();

var	TLINES = new Array();

var	KTAB = new Array();

var	ATAB = new Array();

var	TRAVEL = new Array(), TRVCON = new Array(), TRVLOC = new Array();

var	LTEXT = new Array(), STEXT = new Array(), KEY = new Array(), 
	COND = new Array(), ABB = new Array(), ATLOC = new Array();

var	PLAC = new Array(), PLACE = new Array(), FIXD = new Array(), 
	FIXED = new Array(), LINK = new Array(), PTEXT = new Array(), 
	PROP = new Array();

var	ACTSPK = new Array();

var	RTEXT = new Array();

var	CTEXT = new Array(), CVAL = new Array();

var	HINTLC = new Array(), HINTED = new Array(), HINTS_ = new Array(), 
	TK = new Array();

function HINTS() { 
	var i, j, o = HINTS_; 
	for (i = 0; i < 1; i++) { 
		j = arguments [i]; 
		if (typeof (o [j]) == 'undefined') 
			o [j] = new Array(); 
		o = o [j]; 
	} 
	j = arguments [i]; 
	if (arguments.length > 2) 
		o [j] = arguments [2]; 
	else  
		return o [j];  
}

var	DSEEN = new Array(), DLOC = new Array(), ODLOC = new Array();


// FORMAT Statements
// Var Declariations
// User Functions
// </script>