#Relay-Version: version Notes 2.7.5 (840 Contrib) 87/2/5; site hpesoc1.HP.COM
#From: games-request@tekred.TEK.COM
#Date: Tue, 4 Aug 87 23:50:20 GMT
#Date-Received: Wed, 5 Aug 87 20:52:26 GMT
#Subject: v02i028:  adl - Adventure Definition Language, Part11/11
#Message-ID: <1482@tekred.TEK.COM>
#Path: hpesoc1!hpda!hplabs!ucbvax!ucbcad!ames!ll-xn!mit-eddie!uw-beaver!tektronix!tekgen!tekred!games-request
#Newsgroups: comp.sources.games
#Sender: billr@tekred.TEK.COM
#Approved: billr@tekred.TEK.COM
#Lines: 1388
#
#Submitted by: cunniff%hpda@hplabs.HP.COM (Ross Cunniff)
#Comp.sources.games: Volume 2, Issue 28
#Archive-name: adl/Part11
#
#
#
#
#! /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 11 (of 11)."
# Contents:  COPYRIGHT adlcomp/COPYRIGHT adlcomp/README
#   adlcomp/adlglob.c adlrun/COPYRIGHT adlrun/README adlrun/adlarith.c
#   adlrun/rtglob.c include/COPYRIGHT include/Makefile include/README
#   include/virtmem.h include/vstring.h man/adlrun.6 misc/COPYRIGHT
#   misc/Makefile misc/README misc/adltouch.c samples/COPYRIGHT
#   samples/Makefile samples/README samples/aard/COPYRIGHT
#   samples/aard/README samples/aard/aard.adl
#   samples/aard/constant.adl samples/demos/COPYRIGHT
#   samples/demos/Makefile samples/demos/README samples/mpu/COPYRIGHT
#   samples/mpu/Makefile samples/mpu/README samples/mpu/constant.adl
#   samples/mpu/locnames.adl samples/mpu/mpu.adl util/COPYRIGHT
#   util/Makefile util/README
# Wrapped by billr@tekred on Tue Aug  4 16:27:54 1987
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"COPYRIGHT\"
else
echo shar: Extracting \"COPYRIGHT\" \(489 characters\)
sed "s/^X//" >COPYRIGHT <<'END_OF_COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_COPYRIGHT
if test 489 -ne `wc -c <COPYRIGHT`; then
    echo shar: \"COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlcomp/COPYRIGHT\"
else
echo shar: Extracting \"adlcomp/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >adlcomp/COPYRIGHT <<'END_OF_adlcomp/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_adlcomp/COPYRIGHT
if test 489 -ne `wc -c <adlcomp/COPYRIGHT`; then
    echo shar: \"adlcomp/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlcomp/README\"
else
echo shar: Extracting \"adlcomp/README\" \(549 characters\)
sed "s/^X//" >adlcomp/README <<'END_OF_adlcomp/README'
XThis directory contains the sources for adlcomp(6).
XThe files in this directory are as follows:
X
X	adlcomp.c		--	Main program for adlcomp
X	adllex.c		--	Lexical analyzer for adlcomp
X	adlglob.c		--	Global variables
X	adlmisc.c		--	Miscellaneous goodies
X	adlmsg.c		--	Message writing routines
X	adlobj.c		--	Object manipulations.
X	codegen.c		--	One pass code generator for routcomp.c
X	compdict.c		--	Symbol table routines
X	predef.c		--	Predefined tokens for adlcomp
X	routcomp.c		--	Routine compiler
X
XTo make adlcomp, simply type "make" in this directory.
END_OF_adlcomp/README
if test 549 -ne `wc -c <adlcomp/README`; then
    echo shar: \"adlcomp/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlcomp/adlglob.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlcomp/adlglob.c\"
else
echo shar: Extracting \"adlcomp/adlglob.c\" \(801 characters\)
sed "s/^X//" >adlcomp/adlglob.c <<'END_OF_adlcomp/adlglob.c'
X#include "adltypes.h"
X#include "adlprog.h"
X
X
Xstruct	header		hdr;		/* Actual header		*/
Xstruct	verbrec		*verbspace;	/* Verb contents		*/
Xstruct	objrec		*objspace;	/* Object contents		*/
Xstruct	preprec		*prepspace;	/* Preposition contents		*/
Xstruct	vp_syn		*verbsyn;	/* Verb synonyms		*/
Xint16			*varspace;	/* Stack & variables		*/
Xint16			*nounspace;	/* Noun indices			*/
Xaddress			*routspace;	/* Routine indexes		*/
Xint32			*str_tab;	/* String table			*/
X
Xint16	bitpat[16] =  {	0x0001, 0x0002, 0x0004, 0x0008,
X			0x0010, 0x0020, 0x0040, 0x0080,
X			0x0100, 0x0200, 0x0400, 0x0800,
X			0x1000, 0x2000, 0x4000, 0x8000  },
X
X	ibitpat[16] = {	0xFFFE, 0xFFFD, 0xFFFB, 0xFFF7,
X			0xFFEF, 0xFFDF, 0xFFBF, 0xFF7F,
X			0xFEFF, 0xFDFF, 0xFBFF, 0xF7FF,
X			0xEFFF, 0xDFFF, 0xBFFF, 0x7FFF  };
X
X/*** EOF global.c ***/
END_OF_adlcomp/adlglob.c
if test 801 -ne `wc -c <adlcomp/adlglob.c`; then
    echo shar: \"adlcomp/adlglob.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlrun/COPYRIGHT\"
else
echo shar: Extracting \"adlrun/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >adlrun/COPYRIGHT <<'END_OF_adlrun/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_adlrun/COPYRIGHT
if test 489 -ne `wc -c <adlrun/COPYRIGHT`; then
    echo shar: \"adlrun/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlrun/README\"
else
echo shar: Extracting \"adlrun/README\" \(956 characters\)
sed "s/^X//" >adlrun/README <<'END_OF_adlrun/README'
XThis directory contains the sources for adlrun, the ADL runtime package.
XThe files are as follows:
X
X	adlarith.c	-	Code to handle builtin arithmetic routines
X	adldwim.c	-	Code to handle "dwimming"
X	adlerr.c	-	Code to print out runtime errors
X	adlfuncs.c	-	Code to properly execute builtin routines
X	adlintrn.c	-	Code to handle internal variable routines
X	adlmach.c	-	The ADL virtual machine
X	adlmacro.c	-	The ADL Runtime Macro package
X	adlmiscr.c	-	Code to handle miscellaneous builtin routines
X	adlobjr.c	-	Code to handle builtin object routines
X	adlrun.c	-	Main program for adlrun
X	adlscrn.c	-	Screen formatting code
X	adlspec.c	-	Code to handle the routine $spec
X	adlstr.c	-	Code to handle builtin string routines
X	adltrans.c	-	Code to handle $setv, $hit, and $miss
X	rtdict.c	-	Code for the dictionary
X	rtglob.c	-	Global declarations
X	rtlex.c		-	Run Time Lexical Analyzer
X	rtparse.c	-	Run Time Parser
X
XTo make adlrun, simply type "make" in this directory
END_OF_adlrun/README
if test 956 -ne `wc -c <adlrun/README`; then
    echo shar: \"adlrun/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/adlarith.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlrun/adlarith.c\"
else
echo shar: Extracting \"adlrun/adlarith.c\" \(859 characters\)
sed "s/^X//" >adlrun/adlarith.c <<'END_OF_adlrun/adlarith.c'
X#include <stdio.h>
X
X#include "adltypes.h"
X#include "adlprog.h"
X#include "builtins.h"
X#include "adlrun.h"
X
X
Xint16
Xmyrand( n )
Xint16
X    n;
X{
X    return 1 + ( RAND % n );
X}
X
X
Xdo_div()
X{
X    assertargs( "$div", 2 );
X    if( ARG(2) == 0 )
X	error( 1 );				/* Divide by zero */
X    RETVAL = ARG(1) / ARG(2);
X}
X
X
Xdo_mod()
X{
X    assertargs( "$mod", 2 );
X    if( ARG(2) == 0 )
X	error( 1 );				/* Divide by zero */
X    RETVAL = ARG(1) % ARG(2);
X}
X
X
Xdo_and()
X{
X    int16
X	i,		/* Loop counter */
X	tval;		/* Temporary save area */
X
X    tval = -1;		/* Bit pattern of all ones */
X    for( i = 1; i < RETVAL; i++ )
X	tval &= ARG( i );
X    RETVAL = tval;
X}
X
X
Xdo_or()
X{
X    int16
X	i,		/* Loop counter */
X	tval;		/* Storage area */
X
X    tval = 0;		/* Bit pattern of all zeros */
X    for( i = 1; i < RETVAL; i++ )
X	tval |= ARG( i );
X    RETVAL = tval;
X}
X
X/*** EOF adlarith.c ***/
END_OF_adlrun/adlarith.c
if test 859 -ne `wc -c <adlrun/adlarith.c`; then
    echo shar: \"adlrun/adlarith.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f adlrun/rtglob.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"adlrun/rtglob.c\"
else
echo shar: Extracting \"adlrun/rtglob.c\" \(801 characters\)
sed "s/^X//" >adlrun/rtglob.c <<'END_OF_adlrun/rtglob.c'
X#include "adltypes.h"
X#include "adlprog.h"
X
X
Xstruct	header		hdr;		/* Actual header		*/
Xstruct	verbrec		*verbspace;	/* Verb contents		*/
Xstruct	objrec		*objspace;	/* Object contents		*/
Xstruct	preprec		*prepspace;	/* Preposition contents		*/
Xstruct	vp_syn		*verbsyn;	/* Verb synonyms		*/
Xint16			*varspace;	/* Stack & variables		*/
Xint16			*nounspace;	/* Noun indices			*/
Xaddress			*routspace;	/* Routine indexes		*/
Xint32			*str_tab;	/* String table			*/
X
Xint16	bitpat[16] =  {	0x0001, 0x0002, 0x0004, 0x0008,
X			0x0010, 0x0020, 0x0040, 0x0080,
X			0x0100, 0x0200, 0x0400, 0x0800,
X			0x1000, 0x2000, 0x4000, 0x8000  },
X
X	ibitpat[16] = {	0xFFFE, 0xFFFD, 0xFFFB, 0xFFF7,
X			0xFFEF, 0xFFDF, 0xFFBF, 0xFF7F,
X			0xFEFF, 0xFDFF, 0xFBFF, 0xF7FF,
X			0xEFFF, 0xDFFF, 0xBFFF, 0x7FFF  };
X
X/*** EOF global.c ***/
END_OF_adlrun/rtglob.c
if test 801 -ne `wc -c <adlrun/rtglob.c`; then
    echo shar: \"adlrun/rtglob.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"include/COPYRIGHT\"
else
echo shar: Extracting \"include/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >include/COPYRIGHT <<'END_OF_include/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_include/COPYRIGHT
if test 489 -ne `wc -c <include/COPYRIGHT`; then
    echo shar: \"include/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"include/Makefile\"
else
echo shar: Extracting \"include/Makefile\" \(248 characters\)
sed "s/^X//" >include/Makefile <<'END_OF_include/Makefile'
X# AR = shar -c -v
XAR = post -c -v -p 6 17
XB = ..
XD = include/
X
Xshar		: include.shar
X
Xinclude.shar	: README Makefile *.h
X	( cd ${B} ; ${AR}	\
X		${D}README	${D}COPYRIGHT	${D}Makefile	${D}*.h \
X	> ${D}include.shar )
X
Xclean		:
X	rm -f core include.shar
END_OF_include/Makefile
if test 248 -ne `wc -c <include/Makefile`; then
    echo shar: \"include/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"include/README\"
else
echo shar: Extracting \"include/README\" \(502 characters\)
sed "s/^X//" >include/README <<'END_OF_include/README'
XThis directory contains header files for adlcomp, adlrun, and adldebug.
XThe files are as follows:
X
X	adlcomp.h	-	Types, variables, and macros for adlcomp
X	adldef.h	-	Token types for adlcomp and adlrun
X	adlprog.h	-	Structures for all ADL programs
X	adlrun.h	-	Types, variables, and macros for adlrun
X	adltypes.h	-	Types for all ADL programs
X	builtins.h	-	Builtin function values
X	virtmem.h	-	Virtual memory structures
X	vstring.h	-	Virtual string routines
X
XFor more information, see the ADL documentation.
END_OF_include/README
if test 502 -ne `wc -c <include/README`; then
    echo shar: \"include/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/virtmem.h -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"include/virtmem.h\"
else
echo shar: Extracting \"include/virtmem.h\" \(929 characters\)
sed "s/^X//" >include/virtmem.h <<'END_OF_include/virtmem.h'
X/* Include <stdio.h> and "adltypes.h" before including this file */
X
X#define BSIZE	512
X#define	NUMP	16
X
X
Xstruct	pt_entry {
X	struct	pt_entry	*prev,		/* Previous page in lru list */
X				*next;		/* Next page in lru list */
X	int16			pnum;		/* Page number */
X	char			buffer[BSIZE];	/* Actual data buffer */
X};
X
X
Xstruct	pagetab {
X	struct	pt_entry	*lru,
X				*mru,
X				ptabs[NUMP];
X	int			pfile;
X	int32			offset,
X				nhits,
X				nmiss,
X				nswap;
X	int16			numpages,
X				maxpage,
X				dirty;
X};
X
X
Xextern
X    vm_init(  /*int which; int32 offs; struct pagetab *handle; int16 dirty*/ ),
X    vm_flush( /* struct pagetab *handle */ ),
X    vm_put8(  /* char data; int32 where; struct pagetab *handle */ ),
X    vm_put16( /* int16 data; int32 where; struct pagetab *handle */ );
X
Xextern char
X    vm_get8( /* int32 where; struct pagetab *handle */ );
X
Xextern int16
X    vm_get16( /* int32 where; struct pagetab *handle */ );
X
X/*** EOF virtmem.h ***/
END_OF_include/virtmem.h
if test 929 -ne `wc -c <include/virtmem.h`; then
    echo shar: \"include/virtmem.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f include/vstring.h -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"include/vstring.h\"
else
echo shar: Extracting \"include/vstring.h\" \(512 characters\)
sed "s/^X//" >include/vstring.h <<'END_OF_include/vstring.h'
Xextern int16
X    newstr(	 /* str */ ),	/* Sets up str as a new permanent string */
X    newtstr( /* str */ ),	/* Sets up str as a new temporary string */
X    vs_save( /* int16 */ ),	/* Sets up virtstr( int16 ) as a new "CMOS"
X				   string */
X    numstr();			/* Returns the number of permanent strings
X				   defined */
X
Xextern int32
X    numchar();			/* Returns the number of permanent chars
X				   allocated */
Xextern char
X    *virtstr( /* index */ );	/* Returns the virtstr at index */
X
X/*** EOF vstring.h ***/
END_OF_include/vstring.h
if test 512 -ne `wc -c <include/vstring.h`; then
    echo shar: \"include/vstring.h\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f man/adlrun.6 -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"man/adlrun.6\"
else
echo shar: Extracting \"man/adlrun.6\" \(1504 characters\)
sed "s/^X//" >man/adlrun.6 <<'END_OF_man/adlrun.6'
X
X
X
X     ADLRUN(6)			    (HP)		     ADLRUN(6)
X
X
X
X
X     NAME
X	  adlrun  -  run an ADL	game
X
X     SYNOPSIS
X	  adlrun [ infile ] [ -d ] [ -h	] [ -r savefile	]
X
X     DESCRIPTION
X	  Adlrun reads a datafile, infile, (or adlcomp.out, if	infile
X	  is   not  specified)	which  contains	 tables	 and  routines
X	  necessary to play a generalized Adventure(6)-like game.  The
X	  game	is  terminated	either by a quit command recognized by
X	  the ADL program, or by an  end-of-file  or  interrupt.   The
X	  following options are	recognized:
X
X	  -d		Turns on instruction tracing during  execution
X			(a rather messy	process).
X
X	  -h		Prints out header lines	of the form "Room name
X			Score:	 Moves:" if the	ADL program allows for
X			it.
X
X	  -r savefile	Restores the state of the game	to  the	 state
X			previously  saved  in savefile.	 Savefile must
X			be a valid ADL save file.
X
X     ENVIRONMENT
X	  TERM On  versions  of	 adlrun	  which	  use	termcap,   the
X	       environment  variable  TERM  should contain the name of
X	       the terminal type desired.
X
X	  LINES
X	       LINES should be set to the number of lines of  text  on
X	       the screen.
X
X     CONFORMANCE
X	  The ($spec 6 prog arg1 ...) (execute a program) function  is
X	  only	implemented on computers running a version of the UN*X
X	  operating system.
X
X     EXAMPLE
X	  adlrun -h aard
X
X     SEE ALSO
X	  adlcomp(6)
X	  adldebug(6)
X	  Brengle and Cunniff: The ADL Programmer's Reference Manual
X
X
X
X
X
X
X
X
X     Hewlett-Packard Company	   - 1 -		  Jun 18, 1987
X
X
X
END_OF_man/adlrun.6
if test 1504 -ne `wc -c <man/adlrun.6`; then
    echo shar: \"man/adlrun.6\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"misc/COPYRIGHT\"
else
echo shar: Extracting \"misc/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >misc/COPYRIGHT <<'END_OF_misc/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_misc/COPYRIGHT
if test 489 -ne `wc -c <misc/COPYRIGHT`; then
    echo shar: \"misc/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"misc/Makefile\"
else
echo shar: Extracting \"misc/Makefile\" \(1025 characters\)
sed "s/^X//" >misc/Makefile <<'END_OF_misc/Makefile'
X# Where utility routines live
XUTL = ../util
X
X# Where include files live
XINC = ../include
X
X# Flags for CC
XCFLAGS = -O -DHPUX -I${INC}
X
X# Commands for shar
X# AR = shar -c -v
XAR = post -c -v -p 7 17
XB = ..
XD = misc/
X
X# Where adldebug and adltouch will be installed
XBIN = /users/cunniff/bin
X
X# The utilities used by adldebug
XUTIL =	${UTL}/virtmem.o	${UTL}/vstring.o	${UTL}/mytime.o
X
X# The rules
Xall		:	adldebug adltouch
X
Xinstall		:	adldebug adltouch
X	strip adldebug adltouch
X	cp adldebug adltouch ${BIN}
X	chmod 755 ${BIN}/adldebug ${BIN}/adltouch
X
Xshar		:	misc.shar
X
Xclean		:
X	rm -f misc.shar adldebug.o adltouch.o adldebug adltouch
X
Xmisc.shar	:	README Makefile *.c
X	( cd ${B} ; ${AR}	\
X		${D}README	${D}COPYRIGHT	${D}Makefile	${D}*.c \
X	> ${D}misc.shar )
X
Xadldebug	:	adldebug.o	${UTIL}
X	${CC} -o adldebug adldebug.o ${UTIL}
X
Xadldebug.o	:	adldebug.c \
X			${INC}/adltypes.h	${INC}/adlprog.h \
X			${INC}/adldef.h		${INC}/vstring.h \
X			${INC}/virtmem.h
X
Xadltouch	:	adltouch.o
X	${CC} -o adltouch adltouch.o
X
Xadltouch.o	:	adltouch.c
END_OF_misc/Makefile
if test 1025 -ne `wc -c <misc/Makefile`; then
    echo shar: \"misc/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"misc/README\"
else
echo shar: Extracting \"misc/README\" \(293 characters\)
sed "s/^X//" >misc/README <<'END_OF_misc/README'
XThis directory contains the source for a couple of programs
Xthat mess around with ADL(6) binaries.  The programs are:
X
X	adldebug.c	-	ADL debugger
X	adltouch.c	-	Re-date an ADL save file
X
XTo make either of these files, just type "make <name>", where
X<name> is one of adldebug, adltouch, or all.
END_OF_misc/README
if test 293 -ne `wc -c <misc/README`; then
    echo shar: \"misc/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f misc/adltouch.c -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"misc/adltouch.c\"
else
echo shar: Extracting \"misc/adltouch.c\" \(546 characters\)
sed "s/^X//" >misc/adltouch.c <<'END_OF_misc/adltouch.c'
X/* Adltouch - touch an ADL save file */
X
X#include <stdio.h>
X
X#if MSDOS
X#  define RB "rb+"
X#else
X#  define RB "r+"
X#endif
X
Xmain( argc, argv )
Xint
X    argc;
Xchar
X    *argv[];
X{
X    FILE
X	*f;
X    long
X	l,
X	atol();
X
X    if( argc != 3 ) {
X	printf( "Usage: adltouch <file> <number>\n" );
X	exit( 1 );
X    }
X
X    if( !(f = fopen( argv[ 1 ], RB )) ) {
X	printf( "Error opening file %s\n", argv[ 1 ] );
X	exit( 2 );
X    }
X
X    l = atol( argv[ 2 ] );
X    fseek( f, 0L, 0 );
X    fwrite( &l, sizeof( long ), 1, f );
X    fclose( f );
X}
X
X/*** EOF adltouch.c ***/
END_OF_misc/adltouch.c
if test 546 -ne `wc -c <misc/adltouch.c`; then
    echo shar: \"misc/adltouch.c\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/COPYRIGHT\"
else
echo shar: Extracting \"samples/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/COPYRIGHT <<'END_OF_samples/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/COPYRIGHT
if test 489 -ne `wc -c <samples/COPYRIGHT`; then
    echo shar: \"samples/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/Makefile\"
else
echo shar: Extracting \"samples/Makefile\" \(557 characters\)
sed "s/^X//" >samples/Makefile <<'END_OF_samples/Makefile'
X# AR = shar -c -v
XAR = post -c -v -p 8 17
XB = ..
XD = samples/
X
Xall		:
X	(cd aard;	make all)
X	(cd mpu;	make all)
X	(cd demos;	make all)
X
Xtouch		:
X	(cd aard;	make all -t)
X	(cd mpu;	make all -t)
X	(cd demos;	make all -t)
X
Xshar		: samples.shar
X	(cd aard;	make shar)
X	(cd mpu;	make shar)
X	(cd demos;	make shar)
X
Xsamples.shar	: README Makefile standard.adl
X	( cd ${B} ; ${AR} \
X		${D}README	${D}COPYRIGHT	${D}Makefile	\
X		${D}standard.adl	\
X	> ${D}samples.shar )
X
Xclean	:
X	(cd aard;	make clean)
X	(cd mpu;	make clean)
X	(cd demos;	make clean)
X	rm -f core samples.shar
END_OF_samples/Makefile
if test 557 -ne `wc -c <samples/Makefile`; then
    echo shar: \"samples/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/README\"
else
echo shar: Extracting \"samples/README\" \(428 characters\)
sed "s/^X//" >samples/README <<'END_OF_samples/README'
XThis directory contains the following subdirectories:
X
X	aard			-- A complete ADL specification
X	demos			-- Demonstrations of specific ADL features.
X	mpu			-- A sample ADL game originally used to
X				   test ADL features.
X
XIt also contains the file "standard.adl" which contains elegant
Xand useful routines to help standardize ADL scenarios.  It is
Xused by both aard and mpu.
X
XTo make them, simply type "make" in this directory.
END_OF_samples/README
if test 428 -ne `wc -c <samples/README`; then
    echo shar: \"samples/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/aard/COPYRIGHT\"
else
echo shar: Extracting \"samples/aard/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/aard/COPYRIGHT <<'END_OF_samples/aard/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/aard/COPYRIGHT
if test 489 -ne `wc -c <samples/aard/COPYRIGHT`; then
    echo shar: \"samples/aard/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/aard/README\"
else
echo shar: Extracting \"samples/aard/README\" \(509 characters\)
sed "s/^X//" >samples/aard/README <<'END_OF_samples/aard/README'
XThis directory contains the sources for the ADL game "aard".
XThe files on this directory are as follows:
X
X	aard.adl		--	File that binds the rest together
X	constant.adl		--	Constant declarations
X	locales.adl		--	Descriptions of locales
X	locnames.adl		--	Names of locales
X	objects.adl		--	Objects found + descriptions
X	objrouts.adl		--	Funny object routines
X	routines.adl		--	General purpose routines
X	transit.adl		--	Transition routines
X	verbs.adl		--	Verbs and verb actions
X
XTo make aard, simply type "make".
END_OF_samples/aard/README
if test 509 -ne `wc -c <samples/aard/README`; then
    echo shar: \"samples/aard/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/aard.adl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/aard/aard.adl\"
else
echo shar: Extracting \"samples/aard/aard.adl\" \(964 characters\)
sed "s/^X//" >samples/aard/aard.adl <<'END_OF_samples/aard/aard.adl'
XINCLUDE "standard.adl";
X
XINCLUDE "constant.adl";
XINCLUDE "routines.adl";
XINCLUDE "locnames.adl";
X
XNOUN me(mrm1);
Xme(pmax) = 250;
Xme(NOTAKE) = TRUE;
Xme(ACTION) = ActAction;
X
XINCLUDE "objects.adl";
XINCLUDE "locales.adl";
XINCLUDE "verbs.adl";
XINCLUDE "objrouts.adl";
XINCLUDE "transit.adl";
X
XMoveFeet =			{ Your feet just keep following you... }
X    ($move feet ($loc .ME))
X;
X
XSTART =
X    ($sdem MoveFeet)
X    (StdInit me)
X    ($setv n s e w u d enter exit 0 0)
X    ($prompt PROMPT)
X    ($sdem endgame)
X;
X
XDWIMI = (Dwimmer %1);
XDWIMD = (Dwimmer %1);
X
X{*** CHEAT ROUTINES ***}
X
Xchetr =
X    (IF ($eq ($prop .ME debug) 0) THEN
X	($exit 1)
X    )
X;
X
X
XVERB cheat;
Xcheat(ACTION) =
X    ($setp .ME debug ($not ($prop .ME debug)))
X;
X
XVERB beam;
Xbeam(ACTION) =
X    (chetr)
X    ($move .ME ($dobj))
X;
X
X
XVERB tractor;
Xtractor(ACTION) =
X    (chetr)
X    ($move ($dobj) ($loc .ME))
X    ($say "The ")
X    (($sdesc ($dobj)))
X    ($say " magically appears.\n")
X;
X
X{ *** EOF aard.adl *** }
END_OF_samples/aard/aard.adl
if test 964 -ne `wc -c <samples/aard/aard.adl`; then
    echo shar: \"samples/aard/aard.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/aard/constant.adl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/aard/constant.adl\"
else
echo shar: Extracting \"samples/aard/constant.adl\" \(358 characters\)
sed "s/^X//" >samples/aard/constant.adl <<'END_OF_samples/aard/constant.adl'
X{ *** Object properties * }
X
Xkludge = 2; signed = 2;
Xtlakst = 2; fedmky = 2;
Xropstf = 2; readl = 3;
Xwellbt = 2; cutflg = 2;
Xearplg = 3; tookbt = 2;
Xdarkbt = 2; rtied = 3;
Xstond = 2; killd = 2;
Xwiped = 2; blokd = 2;
Xtooky = 2; abrad = 3;
Xhitbr = 2; dugbt = 2;
Xdebug = 7;
X
Xrarea = 19; pfound = 17;
Xpplace = 18; pscore = 17;
Xpmax = 18; ratvl = 19;
Xweight = 20;
END_OF_samples/aard/constant.adl
if test 358 -ne `wc -c <samples/aard/constant.adl`; then
    echo shar: \"samples/aard/constant.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/demos/COPYRIGHT\"
else
echo shar: Extracting \"samples/demos/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/demos/COPYRIGHT <<'END_OF_samples/demos/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/demos/COPYRIGHT
if test 489 -ne `wc -c <samples/demos/COPYRIGHT`; then
    echo shar: \"samples/demos/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/demos/Makefile\"
else
echo shar: Extracting \"samples/demos/Makefile\" \(658 characters\)
sed "s/^X//" >samples/demos/Makefile <<'END_OF_samples/demos/Makefile'
XAR = post -c -v -p 12 17
XB = ../..
XD = samples/demos/
X
Xall		: actdemo baby multi tiny
X
Xclean		:
X	rm -f core actdemo tiny baby multi demos.shar
X
Xshar		: demos.shar
X
Xdemos.shar	: README	COPYRIGHT	Makefile	\
X		  actdemo.adl	baby.adl	multi.adl	\
X		  tiny.adl
X	( cd ${B} ; ${AR}	\
X		${D}README	${D}COPYRIGHT	${D}Makefile	\
X		${D}actdemo.adl	${D}baby.adl	${D}multi.adl	\
X		${D}tiny.adl	\
X	> ${D}demos.shar )
X
Xactdemo		: actdemo.adl ../standard.adl
X	adlcomp actdemo.adl -o actdemo -i ..
X
Xbaby		: baby.adl ../standard.adl
X	adlcomp baby.adl -i.. -o baby
X
Xmulti		: multi.adl
X	adlcomp multi.adl -o multi
X
Xtiny		: tiny.adl ../standard.adl
X	adlcomp tiny.adl -i.. -o tiny
END_OF_samples/demos/Makefile
if test 658 -ne `wc -c <samples/demos/Makefile`; then
    echo shar: \"samples/demos/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/demos/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/demos/README\"
else
echo shar: Extracting \"samples/demos/README\" \(365 characters\)
sed "s/^X//" >samples/demos/README <<'END_OF_samples/demos/README'
XThis directory contains several dungeons intended to demonstrate specific
Xfeatures of ADL.  They are as follows:
X
X	actdemo.adl		-- Demonstrates multiple Actors and fuses
X	baby.adl		-- Demonstrates standard.adl
X	multi.adl		-- Demonstrates multiple Players
X	tiny.adl		-- Dungeon included in ADL document
X
XTo make these dungeons, simply type "make" in this directory.
END_OF_samples/demos/README
if test 365 -ne `wc -c <samples/demos/README`; then
    echo shar: \"samples/demos/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/COPYRIGHT\"
else
echo shar: Extracting \"samples/mpu/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >samples/mpu/COPYRIGHT <<'END_OF_samples/mpu/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_samples/mpu/COPYRIGHT
if test 489 -ne `wc -c <samples/mpu/COPYRIGHT`; then
    echo shar: \"samples/mpu/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/Makefile\"
else
echo shar: Extracting \"samples/mpu/Makefile\" \(689 characters\)
sed "s/^X//" >samples/mpu/Makefile <<'END_OF_samples/mpu/Makefile'
X# AR = shar -c -v
XAR1 = post -c -v -p 13 17
XAR2 = post -c -v -p 14 17
XB = ../..
XD = samples/mpu/
X
Xall		: mpu
X
Xmpu		: *.adl ../../adlcomp/adlcomp ../standard.adl
X	adlcomp mpu.adl -i.. -o mpu
X
Xshar		: mpu1.shar	mpu2.shar
X
Xclean		:
X	rm -f mpu core mpu1.shar mpu2.shar
X
Xmpu1.shar	: README	COPYRIGHT	Makefile	locales.adl \
X		  mpu.adl	routines.adl	verbs.adl
X	( cd ${B} ; ${AR1}	\
X		${D}README	${D}COPYRIGHT	${D}Makefile	\
X		${D}locales.adl	${D}mpu.adl	${D}routines.adl \
X		${D}verbs.adl	\
X	> ${D}mpu1.shar )
X
Xmpu2.shar	: constant.adl	locnames.adl	objects.adl \
X		  transit.adl
X	( cd ${B} ; ${AR2}	\
X		${D}constant.adl	${D}locnames.adl	\
X		${D}objects.adl		${D}transit.adl		\
X	> ${D}mpu2.shar )
END_OF_samples/mpu/Makefile
if test 689 -ne `wc -c <samples/mpu/Makefile`; then
    echo shar: \"samples/mpu/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/README\"
else
echo shar: Extracting \"samples/mpu/README\" \(468 characters\)
sed "s/^X//" >samples/mpu/README <<'END_OF_samples/mpu/README'
XThis directory contains the sources for the ADL game "mpu".
XThe files on this directory are as follows:
X
X	constant.adl		--	Constant declarations
X	locales.adl		--	Descriptions of locales
X	locnames.adl		--	Names of locales
X	mpu.adl			--	File that binds the rest together
X	objects.adl		--	Objects found + descriptions
X	routines.adl		--	General purpose routines
X	transit.adl		--	Transition routines
X	verbs.adl		--	Verbs and verb routines
X
XTo make mpu, simply type "make".
END_OF_samples/mpu/README
if test 468 -ne `wc -c <samples/mpu/README`; then
    echo shar: \"samples/mpu/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/constant.adl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/constant.adl\"
else
echo shar: Extracting \"samples/mpu/constant.adl\" \(1303 characters\)
sed "s/^X//" >samples/mpu/constant.adl <<'END_OF_samples/mpu/constant.adl'
X
X{  *** Intrinsic Properties *** }
X
XSHRNK = 1;		{ Has it been shrunk? }
XCRYST = 2;		{ Is it one of our magic thingies? }
XKILLED = 3;		{ Is the dragon dead? }
X
XMISC1 = 7;		{ Miscellaneous Property (Semantics per object) }
XHOLED = MISC1;
X
XRDLOC = 17;		{ Location on Highway 7 }
XLoc21 = RDLOC;		{ Location in river bed }
XWEIGH = 18;
XHOLDS = 19;
XHAS   = 20;
XPOINT = 21;
X
X{ Constants }
XCAPAC = 250;		{ More than I can carry }
X
XPMAX = 400;		{ Maximum number of points }
X
XBEND1LOC = 3;		{ Location of first bend in river bed }
XBEND2LOC = 6;		{ Location of second bend in river bed }
XGRATELOC = 11;		{ Location of grate in river bed }
X
XShazm = "ShaZam";	{ The Wizard's incantation }
X
X{ Globals }
XVAR
X  RBTouch,		{ Has he touched the red and blue crystals? }
X  HWY7,			{ My location on highway 7 }
X  RiverLoc,		{ My location in river bed }
X  SCORE,		{ My current score }
X  Tempr,		{ Dragon's Upset? }
X  Cel6x,		{ Where he came from to enter Cel06 }
X  Wizrd,		{ Wizardly Ability }
X  GO,			{ Did the player move on this turn? }
X  GOVERB,		{ Was the player's verb one of motion (n,s,e,w,etc.)? }
X  IncFlag;		{ Should the turn counter be incremented? }
X
X(IncFlag) = TRUE;	{ Defaults to TRUE }
X
X
XROUTINE
X  LOOK, GrowX, Grow, ShrnX, Shrink, WzTgl,
X  Dump7, Get7, Entr7, East7, West7, CRout, DRdem,
X  TWN5y, cg, Sayer;
END_OF_samples/mpu/constant.adl
if test 1303 -ne `wc -c <samples/mpu/constant.adl`; then
    echo shar: \"samples/mpu/constant.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/locnames.adl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/locnames.adl\"
else
echo shar: Extracting \"samples/mpu/locnames.adl\" \(1522 characters\)
sed "s/^X//" >samples/mpu/locnames.adl <<'END_OF_samples/mpu/locnames.adl'
XNOUN .road;
XNOUN .gard;
XNOUN .frst;     fdsc =  ($say "You're lost in the forest.\n");
XNOUN .farm;
XNOUN .town;
X
XNOUN road1(.road);      road1(LIGHT) = TRUE;
XNOUN road2(.road);      road2(LIGHT) = TRUE;
XNOUN road3(.road);      road3(LIGHT) = TRUE;
XNOUN road4(.road);      road4(LIGHT) = TRUE;
XNOUN road5(.road);      road5(LIGHT) = TRUE;
XNOUN road6(.road);      road6(LIGHT) = TRUE;
XNOUN road7(.road);      road7(LIGHT) = TRUE;
XNOUN Roadx;     { Where things on Highway 7 get held }
XNOUN riverx;	{ Where things in the river bed get held }
X
XNOUN gard1(.gard);      gard1(LIGHT) = TRUE;
XNOUN gard2(.gard);      gard2(LIGHT) = TRUE;
X
XNOUN frst1(.frst);      frst1(LIGHT) = TRUE;
X
XNOUN farm1(.farm);      farm1(LIGHT) = TRUE;
XNOUN farm2(.farm);      farm2(LIGHT) = TRUE;
XNOUN farm3(.farm);      farm3(LIGHT) = TRUE;
XNOUN farm4(.farm);      farm4(LIGHT) = TRUE;
XNOUN farm5(.farm);      farm5(LIGHT) = TRUE;
XNOUN farm6(.farm);      farm6(LIGHT) = TRUE;
XNOUN farm7(.farm);      farm7(LIGHT) = TRUE;
X
XNOUN town1(.town);      town1(LIGHT) = TRUE;
XNOUN town2(.town);      town2(LIGHT) = TRUE;
XNOUN town3(.town);      town3(LIGHT) = TRUE;
XNOUN town4(.town);      town4(LIGHT) = TRUE;
XNOUN .bank;
XNOUN town5(.bank);      town5(LIGHT) = TRUE;
XNOUN town6(.town);      town6(LIGHT) = TRUE;
X
XNOUN
X  cel01, cel02, cel03, cel04, cel05, cel06, cel07,
X  cel08, cel09, cel10, cel11, cel12, cel13, cel14,
X  cel15, cel16, cel17, cel18, cel19, cel20, cel21;
X
Xcel21(LIGHT) = TRUE;
X
XNOUN
X  desert, field;
X
Xfield(LIGHT) = TRUE;
Xdesert(LIGHT) = TRUE;
END_OF_samples/mpu/locnames.adl
if test 1522 -ne `wc -c <samples/mpu/locnames.adl`; then
    echo shar: \"samples/mpu/locnames.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f samples/mpu/mpu.adl -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"samples/mpu/mpu.adl\"
else
echo shar: Extracting \"samples/mpu/mpu.adl\" \(364 characters\)
sed "s/^X//" >samples/mpu/mpu.adl <<'END_OF_samples/mpu/mpu.adl'
XINCLUDE "standard.adl";
X
XINCLUDE "constant.adl";
XINCLUDE "locnames.adl";
XINCLUDE "verbs.adl";
XINCLUDE "objects.adl";
XINCLUDE "routines.adl";
XINCLUDE "locales.adl";
XINCLUDE "transit.adl";
X
XNOUN me(road1);
Xme(HOLDS) = CAPAC;
Xme(WEIGH) = CAPAC;
Xme(NOTAKE) = TRUE;
X
X
XSTART =
X    ($sdem LOOK)
X    (StdInit me)
X    ($prompt PROMPT)
X    ($setv n s e w ne nw se sw u d)
X;
END_OF_samples/mpu/mpu.adl
if test 364 -ne `wc -c <samples/mpu/mpu.adl`; then
    echo shar: \"samples/mpu/mpu.adl\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/COPYRIGHT -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"util/COPYRIGHT\"
else
echo shar: Extracting \"util/COPYRIGHT\" \(489 characters\)
sed "s/^X//" >util/COPYRIGHT <<'END_OF_util/COPYRIGHT'
XThis directory contains sources to ADL or sample ADL specifications.
XAll sources in this directory and subdirectories are:
X
X	Copyright 1987 by Ross Cunniff
X	All Rights Reserved
X
XYou may distribute the UNMODIFIED sources to ADL, provided that this
Xnotice is retained.  Send modifications to:
X
X	UUCP:	...{hplabs,ucbvax}!hpda!cunniff
X	ARPA:	cunniff%hpda@hplabs.ARPA
X	USMAIL:	Ross Cunniff
X		636 La Grande, #7
X		Sunnyvale, CA 94087
X
XAcceptable modifications may be included in future releases.
END_OF_util/COPYRIGHT
if test 489 -ne `wc -c <util/COPYRIGHT`; then
    echo shar: \"util/COPYRIGHT\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/Makefile -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"util/Makefile\"
else
echo shar: Extracting \"util/Makefile\" \(529 characters\)
sed "s/^X//" >util/Makefile <<'END_OF_util/Makefile'
XINC = ../include
X# AR = shar -c -v
XAR = post -c -v -p 9 17
XB = ..
XD = util/
X
XDFLAGS = -O
XCFLAGS = -I${INC} ${DFLAGS}
X
XOBJS = vstring.o	virtmem.o 	  mytime.o
X
Xall		: ${OBJS}
X
Xshar		: util.shar
X
Xutil.shar	: README Makefile *.c
X	( cd ${B} ; ${AR}	\
X		${D}README	${D}COPYRIGHT	${D}Makefile	\
X		${D}mytime.c	${D}virtmem.c	${D}vstring.c	\
X	> ${D}util.shar )
X
Xmytime.o	: mytime.c
X
Xvirtmem.o	: virtmem.c	${INC}/adltypes.h	${INC}/virtmem.h
X
Xvstring.o	: vstring.c	${INC}/adltypes.h	${INC}/virtmem.h
X
Xclean		:
X	rm -f ${OBJS} core util.shar
END_OF_util/Makefile
if test 529 -ne `wc -c <util/Makefile`; then
    echo shar: \"util/Makefile\" unpacked with wrong size!
fi
# end of overwriting check
fi
if test -f util/README -a "${1}" != "-c" ; then 
  echo shar: Will not over-write existing file \"util/README\"
else
echo shar: Extracting \"util/README\" \(264 characters\)
sed "s/^X//" >util/README <<'END_OF_util/README'
XThis directory contains utility libraries for the ADL adventure system.
XThey are as follows:
X
X	mytime.c	-	time(OS) for MS-DOS
X	virtcode.c	-	Virtual code routines
X	vstring.c	-	Virtual string routines
X
XTo make the object files, simply type "make" in this directory.
END_OF_util/README
if test 264 -ne `wc -c <util/README`; then
    echo shar: \"util/README\" unpacked with wrong size!
fi
# end of overwriting check
fi
echo shar: End of archive 11 \(of 11\).
cp /dev/null ark11isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 11 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
    echo Making adl.doc
    (cd man; cat doc.aa doc.ab doc.ac >adl.doc; rm doc.a[a-c])
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
