├── out
    ├── DUNGEON.ZAP
    ├── SYNTAX.ZAP
    ├── zork2.z3
    ├── zapf-it.cmd
    ├── zork2word.xzap
    ├── rename.cmd
    ├── MACROS.ZAP
    ├── ZORK2.ZAP
    ├── CRUFTY.ZAP
    ├── CLOCK.ZAP
    ├── DEMONS.ZAP
    ├── MAIN.ZAP
    ├── zork2freq.xzap
    └── PARSER.ZAP
├── origfiles
    ├── zork2-mac-r22.zap
    │   ├── dungeo.zap
    │   ├── syntax.zap
    │   ├── macros.zap
    │   ├── zork2.zap
    │   ├── zork2.xzap
    │   ├── crufty.xzap
    │   ├── clock.zap
    │   ├── demons.zap
    │   ├── main.zap
    │   └── zork2freq.xzap
    ├── muddle
    │   └── pprint.1
    ├── zork.z.rest
    │   ├── ibytes.mud.2
    │   ├── ziputil.mud.3
    │   ├── getstr.mud.2
    │   ├── zipout.mud.2
    │   ├── zac.mud.18
    │   ├── zops.mud.18
    │   └── apply.mud.1
    ├── zork2-mac-r22.rest
    │   ├── zork2.errors
    │   ├── dungeon.cmp
    │   └── actions.cmp
    ├── zork2-mac-r22.zil
    │   ├── crufty.zil
    │   ├── zork2.zil
    │   ├── demons.zil
    │   ├── clock.zil
    │   ├── macros.zil
    │   ├── main.zil
    │   └── syntax.zil
    ├── zork.z.zilch
    │   └── zstr.mud.2
    └── mimlib
    │   ├── sortx.mud
    │   ├── newstruc.mud
    │   └── trace.mud
├── images
    ├── SORT-fixes.png
    ├── ZIL-to-ZAP.png
    ├── crufty-diffs.png
    └── Z-machine-ToolChain.png
├── src
    ├── z2.mud
    ├── z.mud
    ├── crufty.zil
    ├── zork2.zil
    ├── demons.zil
    ├── clock.zil
    ├── macros.mud
    ├── macros.zil
    ├── main.zil
    ├── nstruc.mud
    ├── sort.mud
    ├── trace.mud
    ├── pprint.mud
    └── syntax.zil
├── .gitattributes
└── .gitignore


/out/DUNGEON.ZAP:
--------------------------------------------------------------------------------
1 | 
2 | 	.ENDI
3 | 


--------------------------------------------------------------------------------
/out/SYNTAX.ZAP:
--------------------------------------------------------------------------------
1 | 
2 | 	.ENDI
3 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/dungeo.zap:
--------------------------------------------------------------------------------
1 | 
2 | 	.ENDI
3 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/syntax.zap:
--------------------------------------------------------------------------------
1 | 
2 | 	.ENDI
3 | 


--------------------------------------------------------------------------------
/out/zork2.z3:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/out/zork2.z3


--------------------------------------------------------------------------------
/images/SORT-fixes.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/images/SORT-fixes.png


--------------------------------------------------------------------------------
/images/ZIL-to-ZAP.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/images/ZIL-to-ZAP.png


--------------------------------------------------------------------------------
/images/crufty-diffs.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/images/crufty-diffs.png


--------------------------------------------------------------------------------
/origfiles/muddle/pprint.1:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/origfiles/muddle/pprint.1


--------------------------------------------------------------------------------
/images/Z-machine-ToolChain.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/ZoBoRf/ZILCH-How-to/HEAD/images/Z-machine-ToolChain.png


--------------------------------------------------------------------------------
/out/zapf-it.cmd:
--------------------------------------------------------------------------------
1 | C:\storage\project\if\zilf-0.9\zilf\Package\Release\Stage\zilf-0.9.0-win-x64\bin\Zapf.exe zork2.zap
2 | 


--------------------------------------------------------------------------------
/out/zork2word.xzap:
--------------------------------------------------------------------------------
1 | 
2 | 
3 | ;word frequency table of 96 most common words
4 | 
5 | WORDS::	.TABLE
6 | 	.ENDT
7 | 
8 | 	.ENDI
9 | 


--------------------------------------------------------------------------------
/out/rename.cmd:
--------------------------------------------------------------------------------
1 | move ACTION.ZAP ACTIONS.ZAP
2 | move DUNGEO.ZAP DUNGEON.ZAP
3 | move ZORK2D.ZAP ZORK2DAT.ZAP
4 | move ZORK2S.ZAP ZORK2STR.ZAP
5 | 
6 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/ibytes.mud.2:
--------------------------------------------------------------------------------
1 | <OR <GASSIGNED? OIBYTES> <SETG OIBYTES ,IBYTES>>
2 | 
3 | <SETG IBYTES <FUNCTION (BS LEN "OPTIONAL" (VAL 0))
4 | 		       #DECL ((VALUE) BYTES
5 | 			      (BS LEN VAL) FIX)
6 | 		       <OIBYTES .BS .LEN .VAL>>>
7 | 


--------------------------------------------------------------------------------
/src/z2.mud:
--------------------------------------------------------------------------------
 1 | 
 2 | <SET RECCHN ,OUTCHAN>
 3 | <SET ZCHN ,OUTCHAN>
 4 | 
 5 | <FLOAD "SORT MUD">
 6 | 
 7 | <NEWTYPE NULL LIST>
 8 | <SETG NULL #NULL <>>
 9 | 
10 | <FLOAD "ZILCH MUD">
11 | <FLOAD "MACROS MUD">
12 | 
13 | <SETG INSERT-CRUFTY T>
14 | 
15 | <ZILCH "ZORK2">
16 | 
17 | 


--------------------------------------------------------------------------------
/out/MACROS.ZAP:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	ZPROB,BASE
 4 | 	ZERO?	LUCKY /?ELS5
 5 | 	RANDOM	100
 6 | 	GRTR?	BASE,STACK /TRUE
 7 | 	RFALSE	
 8 | ?ELS5:	RANDOM	300
 9 | 	GRTR?	BASE,STACK /TRUE
10 | 	RFALSE	
11 | 
12 | 
13 | 	.FUNCT	PICK-ONE,FROB
14 | 	GET	FROB,0
15 | 	RANDOM	STACK
16 | 	GET	FROB,STACK
17 | 	RSTACK	
18 | 
19 | 	.ENDI
20 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/macros.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	ZPROB,BASE
 4 | 	ZERO?	LUCKY /?ELS5
 5 | 	RANDOM	100
 6 | 	GRTR?	BASE,STACK /TRUE
 7 | 	RFALSE	
 8 | ?ELS5:	RANDOM	300
 9 | 	GRTR?	BASE,STACK /TRUE
10 | 	RFALSE	
11 | 
12 | 
13 | 	.FUNCT	PICK-ONE,FROB
14 | 	GET	FROB,0
15 | 	RANDOM	STACK
16 | 	GET	FROB,STACK
17 | 	RSTACK	
18 | 
19 | 	.ENDI
20 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/zork2.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 	.INSERT "ZORK2DAT"			; DATA IS IN THIS FILE
 3 | 
 4 | 
 5 | 	.INSERT "DUNGEON"
 6 | 
 7 | 
 8 | 	.INSERT "SYNTAX"
 9 | 
10 | 
11 | 	.INSERT "MACROS"
12 | 
13 | 
14 | 	.INSERT "CLOCK"
15 | 
16 | 
17 | 	.INSERT "MAIN"
18 | 
19 | 
20 | 	.INSERT "PARSER"
21 | 
22 | 
23 | 	.INSERT "DEMONS"
24 | 
25 | 
26 | 	.INSERT "CRUFTY"
27 | 
28 | 
29 | 	.INSERT "VERBS"
30 | 
31 | 
32 | 	.INSERT "ACTIONS"
33 | 
34 | 
35 | 	.INSERT "ZORK2STR"
36 | 
37 | 	.END
38 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/zork2.xzap:
--------------------------------------------------------------------------------
 1 | 	.INSERT "ZORK2FREQ"
 2 | 
 3 | 	.INSERT "ZORK2DAT"			; DATA IS IN THIS FILE
 4 | 
 5 | 
 6 | 	.INSERT "DUNGEON"
 7 | 
 8 | 
 9 | 	.INSERT "SYNTAX"
10 | 
11 | 
12 | 	.INSERT "MACROS"
13 | 
14 | 
15 | 	.INSERT "CLOCK"
16 | 
17 | 
18 | 	.INSERT "MAIN"
19 | 
20 | 
21 | 	.INSERT "PARSER"
22 | 
23 | 
24 | 	.INSERT "DEMONS"
25 | 
26 | 
27 | 	.INSERT "CRUFTY"
28 | 
29 | 
30 | 	.INSERT "VERBS"
31 | 
32 | 
33 | 	.INSERT "ACTIONS"
34 | 
35 | 
36 | 	.INSERT "ZORK2STR"
37 | 
38 | 	.END
39 | 


--------------------------------------------------------------------------------
/out/ZORK2.ZAP:
--------------------------------------------------------------------------------
 1 | 	.INSERT "zork2freq"
 2 | 
 3 | 
 4 | 	.INSERT "ZORK2DAT"			; DATA IS IN THIS FILE
 5 | 
 6 | 
 7 | 	.INSERT "DUNGEON"
 8 | 
 9 | 
10 | 	.INSERT "SYNTAX"
11 | 
12 | 
13 | ENDLOD::
14 | 
15 | 	.INSERT "MACROS"
16 | 
17 | 
18 | 	.INSERT "CLOCK"
19 | 
20 | 
21 | 	.INSERT "MAIN"
22 | 
23 | 
24 | 	.INSERT "PARSER"
25 | 
26 | 
27 | 	.INSERT "DEMONS"
28 | 
29 | 
30 | 	.INSERT "CRUFTY"
31 | 
32 | 
33 | 	.INSERT "VERBS"
34 | 
35 | 
36 | 	.INSERT "ACTIONS"
37 | 
38 | 
39 | 	.INSERT "ZORK2STR"
40 | 
41 | 	.END
42 | 


--------------------------------------------------------------------------------
/src/z.mud:
--------------------------------------------------------------------------------
 1 | <SET RECCHN ,OUTCHAN>
 2 | <SET ZCHN ,OUTCHAN>
 3 | 
 4 | <NEWTYPE NULL LIST>
 5 | <SETG NULL #NULL <>>
 6 | 
 7 | <DEFINE SETUP-EX ()
 8 | 	<FLOAD "SORT MUD">
 9 | 	<FLOAD "ZILCH MUD">
10 | 	<FLOAD "MACROS MUD">
11 | 	<SETG INSERT-CRUFTY T>>
12 | 
13 | <DEFINE SAVE-IT ("OPTIONAL"
14 | 	(FILE '("PUBLIC" "SAVE" "DSK" "GUEST"))
15 | 	"AUX" (SNM ""))
16 | 	<SETUP-EX>
17 | 	<COND (<=? "SAVED" <SAVE !.FILE>>
18 | 	       "Saved.")
19 | 	      (T
20 | 	       <PRINC "ZILCH ready.">
21 | 	       <CRLF>)>>
22 | 
23 | <SAVE-IT ("Z" "SAVE" "DSK" "Z2")>
24 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/ziputil.mud.3:
--------------------------------------------------------------------------------
 1 | <DEFINE SYM-DEFINE ("AUX" (G ,GLOBAL-SYMBOLS) (I <GET INITIAL OBLIST>))
 2 | 	#DECL ((G) <VECTOR [REST FIX STRING]> (I) OBLIST)
 3 | 	<REPEAT ()
 4 | 		<COND (<EMPTY? .G> <RETURN>)
 5 | 		      (T
 6 | 		       <SETG <OR <LOOKUP <2 .G> .I>
 7 | 				 <INSERT <2 .G> .I>>
 8 | 			     <1 .G>>
 9 | 		       <SET G <REST .G 2>>)>>>
10 | 
11 | <DEFINE WHAT (N "AUX" (G ,GLOBAL-SYMBOLS))
12 | 	<REPEAT ()
13 | 		<COND (<SET G <MEMQ .N .G>>
14 | 		       <PRINC <2 .G>>
15 | 		       <PRINC !\ >
16 | 		       <SET G <REST .G 2>>)
17 | 		      (ELSE <RETURN ,NULL>)>>>
18 | 


--------------------------------------------------------------------------------
/.gitattributes:
--------------------------------------------------------------------------------
 1 | # disable automatic handling of line endings
 2 | * text=false
 3 | # Explicitly declare text files you want to always be normalized and converted
 4 | # to native line endings on checkout.
 5 | *.zil text eol=lf 
 6 | *.zap text eol=lf
 7 | *.xzap text eol=lf
 8 | *.mud text eol=lf
 9 | *.cmp text eol=lf 
10 | *.errors text eol=lf
11 | *.c text eol=lf
12 | *.h text eol=lf
13 | *.w text eol=lf
14 | *.sty text eol=lf
15 | *.tex text eol=lf
16 | *.bib text eol=lf
17 | *.el text eol=lf
18 | *.vim text eol=lf
19 | # Denote all files that are truly binary and should not be modified.
20 | *.png binary
21 | *.jpg binary
22 | 


--------------------------------------------------------------------------------
/out/CRUFTY.ZAP:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	THIS-IT?,OBJ,TBL,SYNS,?TMP1
 4 | 	FSET?	OBJ,INVISIBLE /FALSE
 5 | 	ZERO?	P-NAM /?THN3
 6 | 	GETPT	OBJ,P?SYNONYM >SYNS
 7 | 	PTSIZE	SYNS
 8 | 	DIV	STACK,2
 9 | 	SUB	STACK,1
10 | 	CALL	ZMEMQ,P-NAM,SYNS,STACK
11 | 	ZERO?	STACK /FALSE
12 | ?THN3:	ZERO?	P-ADJ /?ELS8
13 | 	GETPT	OBJ,P?ADJECTIVE >SYNS
14 | 	ZERO?	SYNS /?ELS8
15 | 	PTSIZE	SYNS
16 | 	SUB	STACK,1
17 | 	CALL	ZMEMQB,P-ADJ,SYNS,STACK
18 | 	ZERO?	STACK /FALSE
19 | ?ELS8:	ZERO?	P-GWIMBIT /TRUE
20 | 	FSET?	OBJ,P-GWIMBIT /TRUE
21 | 	RFALSE	
22 | 
23 | 
24 | 	.FUNCT	I-LANTERN
25 | 	CALL	LIGHT-INT,LAMP,I-LANTERN,LAMP-TABLE
26 | 	RSTACK	
27 | 
28 | 	.ENDI
29 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/crufty.xzap:
--------------------------------------------------------------------------------
 1 | 
 2 | 	.FUNCT	THIS-IT?,OBJ,TBL,SYNS,?TMP1
 3 | 	FSET?	OBJ,INVISIBLE /FALSE
 4 | 	ZERO?	P-NAM /?THN3
 5 | 	GETPT	OBJ,P?SYNONYM >SYNS
 6 | 	PTSIZE	SYNS
 7 | 	DIV	STACK,2
 8 | 	SUB	STACK,1
 9 | 	CALL	ZMEMQ,P-NAM,SYNS,STACK
10 | 	ZERO?	STACK /FALSE
11 | ?THN3:	ZERO?	P-ADJ /?ELS8
12 | 	GETPT	OBJ,P?ADJECTIVE >SYNS
13 | 	ZERO?	SYNS /FALSE
14 | 	PTSIZE	SYNS
15 | 	SUB	STACK,1
16 | 	CALL	ZMEMQB,P-ADJ,SYNS,STACK
17 | 	ZERO?	STACK /FALSE
18 | ?ELS8:	ZERO?	P-GWIMBIT /TRUE
19 | 	FSET?	OBJ,P-GWIMBIT /TRUE
20 | 	RFALSE	
21 | 
22 | 
23 | 	.FUNCT	I-LANTERN
24 | 	CALL	LIGHT-INT,LAMP,I-LANTERN,'LAMP-TABLE
25 | 	RSTACK	
26 | 
27 | 	.ENDI
28 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.rest/zork2.errors:
--------------------------------------------------------------------------------
 1 | Assembling ZORK2.XZAP.10
 2 | 
 3 | 
 4 | Inserting ZORK2FREQ.XZAP.5	(  616 bytes)
 5 | Inserting ZORK2DAT.ZAP.1	(17170 bytes)
 6 | Inserting DUNGEON.ZAP.1	(    0 bytes)
 7 | Inserting SYNTAX.ZAP.1	(    0 bytes)
 8 | Inserting MACROS.ZAP.1	(   42 bytes)
 9 | Inserting CLOCK.ZAP.1	(  197 bytes)
10 | Inserting MAIN.ZAP.1	(  628 bytes)
11 | Inserting PARSER.ZAP.1	( 4076 bytes)
12 | Inserting DEMONS.ZAP.1	(  277 bytes)
13 | Inserting CRUFTY.XZAP.7	(   89 bytes)
14 | Inserting VERBS.ZAP.1	( 9969 bytes)
15 | Inserting ACTIONS.ZAP.1	(32301 bytes)
16 | Inserting ZORK2STR.ZAP.1	(17699 bytes)
17 | 17850 bytes of preload.
18 | 
19 | 83128 bytes (82K).
20 | 244 objects.
21 | 147 globals.
22 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
 1 | 
 2 | # Vim
 3 | *~
 4 | 
 5 | # Vim also creates swap files that have the swp and swo extensions. to remove those use the lines:
 6 | *.swp
 7 | *.swo
 8 | 
 9 | # Prerequisites
10 | *.d
11 | 
12 | # Object files
13 | *.o
14 | *.ko
15 | *.obj
16 | *.elf
17 | 
18 | # Linker output
19 | *.ilk
20 | *.map
21 | *.exp
22 | 
23 | # Precompiled Headers
24 | *.gch
25 | *.pch
26 | 
27 | # Libraries
28 | *.lib
29 | *.a
30 | *.la
31 | *.lo
32 | 
33 | # Shared objects (inc. Windows DLLs)
34 | *.dll
35 | *.so
36 | *.so.*
37 | *.dylib
38 | 
39 | # Executables
40 | *.exe
41 | *.out
42 | *.app
43 | *.i*86
44 | *.x86_64
45 | *.hex
46 | 
47 | # Debug files
48 | *.dSYM/
49 | *.su
50 | *.idb
51 | *.pdb
52 | 
53 | /README.md.html
54 | 


--------------------------------------------------------------------------------
/src/crufty.zil:
--------------------------------------------------------------------------------
 1 | "CRUFTY2 for
 2 | 		      Zork: The Wizard of Frobozz
 3 | 		 The Great Underground Empire (Part 2)
 4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
 5 | "
 6 | 
 7 | <ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
 8 | 	#DECL ((OBJ) OBJECT (TBL) TABLE (SYNS) <OR FALSE TABLE>)
 9 | 	<AND <NOT <FSET? .OBJ ,INVISIBLE>>
10 | 	     <OR <NOT ,P-NAM>
11 | 		 <ZMEMQ ,P-NAM
12 | 			<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
13 | 			<- </ <PTSIZE .SYNS> 2> 1>>>
14 | 	     <OR <NOT ,P-ADJ>
15 | 		 <AND <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>
16 | 		      <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>
17 | 	     <OR <0? ,P-GWIMBIT> <FSET? .OBJ ,P-GWIMBIT>>>>
18 | 
19 | <ROUTINE I-LANTERN ()
20 | 	 <LIGHT-INT ,LAMP I-LANTERN LAMP-TABLE>>
21 | 
22 | 
23 | 
24 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/crufty.zil:
--------------------------------------------------------------------------------
 1 | "CRUFTY2 for
 2 | 		      Zork: The Wizard of Frobozz
 3 | 		 The Great Underground Empire (Part 2)
 4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
 5 | "
 6 | 
 7 | <ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
 8 | 	#DECL ((OBJ) OBJECT (TBL) TABLE (SYNS) <OR FALSE TABLE>)
 9 | 	<AND <NOT <FSET? .OBJ ,INVISIBLE>>
10 | 	     <OR <NOT ,P-NAM>
11 | 		 <ZMEMQ ,P-NAM
12 | 			<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
13 | 			<- </ <PTSIZE .SYNS> 2> 1>>>
14 | 	     <OR <NOT ,P-ADJ>
15 | 		 <AND <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>
16 | 		      <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>
17 | 	     <OR <0? ,P-GWIMBIT> <FSET? .OBJ ,P-GWIMBIT>>>>
18 | 
19 | <ROUTINE I-LANTERN ()
20 | 	 <LIGHT-INT ,LAMP I-LANTERN LAMP-TABLE>>
21 | 
22 | 
23 | 
24 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/getstr.mud.2:
--------------------------------------------------------------------------------
 1 | <DEFINE GETSTR (ZPC "AUX" (BYTE1 <>))
 2 | 	#DECL ((VALUE) ZSTR
 3 | 	       (ZPC) FIX
 4 | 	       (BYTE1) <OR FIX FALSE>)
 5 | 	<SET ZPC <POSNUM .ZPC>>
 6 | 	<MAPF <FUNCTION ("TUPLE" TUP)
 7 | 			#DECL ((VALUE) ZSTR
 8 | 			       (TUP) <TUPLE [REST FIX]>)
 9 | 			<CHTYPE <BYTES 5 !.TUP> ZSTR>>
10 | 	      <FUNCTION (BYT "AUX" C1 C2 C3)
11 | 			#DECL ((BYT C1 C2 C3) FIX)
12 | 			<AND <NOT .BYTE1> <SET BYTE1 .BYT> <MAPRET>>
13 | 			<SET BYT <+ <* .BYTE1 256> .BYT>>
14 | 			<SET BYTE1 <>>
15 | 			<SET C3 <MOD .BYT 32>>
16 | 			<SET BYT </ .BYT 32>>
17 | 			<SET C2 <MOD .BYT 32>>
18 | 			<SET BYT </ .BYT 32>>
19 | 			<SET C1 <MOD .BYT 32>>
20 | 			<SET BYT </ .BYT 32>>
21 | 			<AND <0? .BYT> <MAPRET .C1 .C2 .C3>>
22 | 			<MAPSTOP .C1 .C2 .C3>>
23 | 	      <REST ,ZCODE .ZPC>>>


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/zipout.mud.2:
--------------------------------------------------------------------------------
 1 | <DEFINE ZIPOUT (S "AUX" B)
 2 | 	#DECL ((S) STRING
 3 | 	       (B) <BYTES 8>)
 4 | 	<SET B <GC-READ <OPEN "READB" <STRING .S ".ZIP">>>>
 5 | 	<IMAGE 28>
 6 | 	<MAPF <>
 7 | 	      <FUNCTION (B)
 8 | 			#DECL ((B) FIX)
 9 | 			<IMAGE <CONVERT-BYTE </ .B 16>>>
10 | 			<IMAGE <CONVERT-BYTE <MOD .B 16>>>>
11 | 	      .B>
12 | 	<IMAGE 31>
13 | 	<QUIT>>
14 | 
15 | <DEFINE CONVERT-BYTE (B "AUX" (P #WORD 0))
16 | 	#DECL ((VALUE B) FIX
17 | 	       (P) WORD)
18 | 	<OR <0? <CHTYPE <ANDB .B 1> FIX>> <SET P <XORB .P 1>>>
19 | 	<OR <0? <CHTYPE <ANDB .B 2> FIX>> <SET P <XORB .P 1>>>
20 | 	<OR <0? <CHTYPE <ANDB .B 4> FIX>> <SET P <XORB .P 1>>>
21 | 	<OR <0? <CHTYPE <ANDB .B 8> FIX>> <SET P <XORB .P 1>>>
22 | 	<+ .B
23 | 	   32
24 | 	   <* <CHTYPE .P FIX> 16>
25 | 	   <* <CHTYPE <XORB .P 1> FIX> 32>>>
26 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/zork2.zil:
--------------------------------------------------------------------------------
 1 | "ZORK2 for
 2 | 		      Zork: The Wizard of Frobozz
 3 | 		 The Great Underground Empire (Part 2)
 4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
 5 | "
 6 | 
 7 | <BLOAT 70000 0 0 2700 0 0 0 0 0 256>
 8 | 
 9 | <SET REDEFINE T>
10 | 
11 | <GLOBAL BIGFIX 10000>
12 | 
13 | <OR <GASSIGNED? ZILCH>
14 |     <SETG WBREAKS <STRING !\" !,WBREAKS>>>
15 | 
16 | <OR <GASSIGNED? INSERT-CRUFTY>
17 |     <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
18 | 
19 | <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
20 | 	<INSERT-FILE .STR .FLOAD?>>
21 | 
22 | <PRINC "Loader/ ZORK II: The Wizard of Frobozz
23 | ">
24 | 
25 | <COND (<GASSIGNED? PREDGEN>
26 |        <ID 0>)>
27 | 
28 | <IFILE "DUNGEON" T>
29 | 
30 | <PROPDEF SIZE 5>
31 | <PROPDEF CAPACITY 0>
32 | <PROPDEF VALUE 0>
33 | 
34 | <IFILE "SYNTAX" T>
35 | <ENDLOAD>
36 | <IFILE "MACROS" T>
37 | <IFILE "CLOCK" T>
38 | <IFILE "MAIN" T>
39 | <IFILE "PARSER" T>
40 | <IFILE "DEMONS" T>
41 | <INSERT-CRUFTY "CRUFTY">
42 | <IFILE "VERBS" T>
43 | <IFILE "ACTIONS" T>
44 | 
45 | <GC 0 T>
46 | 
47 | <DEFINE CNT (STR OBL)
48 | 	<PRINC .STR>
49 | 	<PRIN1 <MAPF ,+ ,LENGTH .OBL>>
50 | 	<CRLF>>
51 | 
52 | 
53 | 
54 | 


--------------------------------------------------------------------------------
/src/zork2.zil:
--------------------------------------------------------------------------------
 1 | "ZORK2 for
 2 | 		      Zork: The Wizard of Frobozz
 3 | 		 The Great Underground Empire (Part 2)
 4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
 5 | "
 6 | 
 7 | <BLOAT 90000 0    0    2900 0     0    0    0 0 256>
 8 | "      fre   stk  lcl  glb  typ   sto  pstk
 9 |        min   plcl pglb ptyp imp   pur  dpstk dstk
10 | "
11 | 
12 | <SET REDEFINE T>
13 | 
14 | <GLOBAL BIGFIX 10000>
15 | 
16 | <OR <GASSIGNED? ZILCH>
17 |     <SETG WBREAKS <STRING !\" !,WBREAKS>>>
18 | 
19 | <OR <GASSIGNED? INSERT-CRUFTY>
20 |     <DEFINE INSERT-CRUFTY (STR) <IFILE .STR T>>>
21 | 
22 | <DEFINE IFILE (STR "OPTIONAL" (FLOAD? <>) "AUX" (TIM <TIME>))
23 | 	<INSERT-FILE .STR .FLOAD?>>
24 | 
25 | <PRINC "Loader/ ZORK II: The Wizard of Frobozz
26 | ">
27 | 
28 | <COND (<GASSIGNED? PREDGEN>
29 |        <ID 0>)>
30 | 
31 | <IFILE "DUNGEON" T>
32 | 
33 | <PROPDEF SIZE 5>
34 | <PROPDEF CAPACITY 0>
35 | <PROPDEF VALUE 0>
36 | 
37 | <IFILE "SYNTAX" T>
38 | <ENDLOAD>
39 | <IFILE "MACROS" T>
40 | <IFILE "CLOCK" T>
41 | <IFILE "MAIN" T>
42 | <IFILE "PARSER" T>
43 | <IFILE "DEMONS" T>
44 | ;<INSERT-CRUFTY "CRUFTY">
45 | <IFILE "CRUFTY" T>
46 | <IFILE "VERBS" T>
47 | <IFILE "ACTIONS" T>
48 | 
49 | <GC 0 T>
50 | 
51 | <DEFINE CNT (STR OBL)
52 | 	<PRINC .STR>
53 | 	<PRIN1 <MAPF ,+ ,LENGTH .OBL>>
54 | 	<CRLF>>
55 | 
56 | 
57 | 
58 | 


--------------------------------------------------------------------------------
/out/CLOCK.ZAP:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	DEMON,RTN,TICK,CINT
 4 | 	CALL	INT,RTN,1 >CINT
 5 | 	PUT	CINT,C-TICK,TICK
 6 | 	RETURN	CINT
 7 | 
 8 | 
 9 | 	.FUNCT	QUEUE,RTN,TICK,CINT
10 | 	CALL	INT,RTN >CINT
11 | 	PUT	CINT,C-TICK,TICK
12 | 	RETURN	CINT
13 | 
14 | 
15 | 	.FUNCT	INT,RTN,DEMON=0,E,C,INT
16 | 	ADD	C-TABLE,C-TABLELEN >E
17 | 	ADD	C-TABLE,C-INTS >C
18 | ?PRG1:	EQUAL?	C,E \?ELS5
19 | 	SUB	C-INTS,C-INTLEN >C-INTS
20 | 	ZERO?	DEMON /?ELS7
21 | 	SUB	C-DEMONS,C-INTLEN >C-DEMONS
22 | ?ELS7:	ADD	C-TABLE,C-INTS >INT
23 | 	PUT	INT,C-RTN,RTN
24 | 	RETURN	INT
25 | ?ELS5:	GET	C,C-RTN
26 | 	EQUAL?	STACK,RTN \?CND3
27 | 	RETURN	C
28 | ?CND3:	ADD	C,C-INTLEN >C
29 | 	JUMP	?PRG1
30 | 
31 | 
32 | 	.FUNCT	CLOCKER,C,E,TICK,FLG=0
33 | 	ZERO?	CLOCK-WAIT /?CND1
34 | 	SET	'CLOCK-WAIT,0
35 | 	RFALSE	
36 | ?CND1:	ZERO?	P-WON /?ELS9
37 | 	PUSH	C-INTS
38 | 	JUMP	?CND5
39 | ?ELS9:	PUSH	C-DEMONS
40 | ?CND5:	ADD	C-TABLE,STACK >C
41 | 	ADD	C-TABLE,C-TABLELEN >E
42 | ?PRG13:	EQUAL?	C,E \?ELS17
43 | 	RETURN	FLG
44 | ?ELS17:	GET	C,C-ENABLED?
45 | 	ZERO?	STACK /?CND15
46 | 	GET	C,C-TICK >TICK
47 | 	ZERO?	TICK \?ELS22
48 | 	JUMP	?CND15
49 | ?ELS22:	SUB	TICK,1
50 | 	PUT	C,C-TICK,STACK
51 | 	GRTR?	TICK,1 /?CND20
52 | 	GET	C,C-RTN
53 | 	CALL	STACK
54 | 	ZERO?	STACK /?CND20
55 | 	SET	'FLG,1
56 | ?CND20:	
57 | ?CND15:	ADD	C,C-INTLEN >C
58 | 	JUMP	?PRG13
59 | 
60 | 	.ENDI
61 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/clock.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	DEMON,RTN,TICK,CINT
 4 | 	CALL	INT,RTN,1 >CINT
 5 | 	PUT	CINT,C-TICK,TICK
 6 | 	RETURN	CINT
 7 | 
 8 | 
 9 | 	.FUNCT	QUEUE,RTN,TICK,CINT
10 | 	CALL	INT,RTN >CINT
11 | 	PUT	CINT,C-TICK,TICK
12 | 	RETURN	CINT
13 | 
14 | 
15 | 	.FUNCT	INT,RTN,DEMON=0,E,C,INT
16 | 	ADD	C-TABLE,C-TABLELEN >E
17 | 	ADD	C-TABLE,C-INTS >C
18 | ?PRG1:	EQUAL?	C,E \?ELS5
19 | 	SUB	C-INTS,C-INTLEN >C-INTS
20 | 	ZERO?	DEMON /?ELS7
21 | 	SUB	C-DEMONS,C-INTLEN >C-DEMONS
22 | ?ELS7:	ADD	C-TABLE,C-INTS >INT
23 | 	PUT	INT,C-RTN,RTN
24 | 	RETURN	INT
25 | ?ELS5:	GET	C,C-RTN
26 | 	EQUAL?	STACK,RTN \?CND3
27 | 	RETURN	C
28 | ?CND3:	ADD	C,C-INTLEN >C
29 | 	JUMP	?PRG1
30 | 
31 | 
32 | 	.FUNCT	CLOCKER,C,E,TICK,FLG=0
33 | 	ZERO?	CLOCK-WAIT /?CND1
34 | 	SET	'CLOCK-WAIT,0
35 | 	RFALSE	
36 | ?CND1:	ZERO?	P-WON /?ELS9
37 | 	PUSH	C-INTS
38 | 	JUMP	?CND5
39 | ?ELS9:	PUSH	C-DEMONS
40 | ?CND5:	ADD	C-TABLE,STACK >C
41 | 	ADD	C-TABLE,C-TABLELEN >E
42 | ?PRG13:	EQUAL?	C,E \?ELS17
43 | 	RETURN	FLG
44 | ?ELS17:	GET	C,C-ENABLED?
45 | 	ZERO?	STACK /?CND15
46 | 	GET	C,C-TICK >TICK
47 | 	ZERO?	TICK \?ELS22
48 | 	JUMP	?CND15
49 | ?ELS22:	SUB	TICK,1
50 | 	PUT	C,C-TICK,STACK
51 | 	GRTR?	TICK,1 /?CND20
52 | 	GET	C,C-RTN
53 | 	CALL	STACK
54 | 	ZERO?	STACK /?CND20
55 | 	SET	'FLG,1
56 | ?CND20:	
57 | ?CND15:	ADD	C,C-INTLEN >C
58 | 	JUMP	?PRG13
59 | 
60 | 	.ENDI
61 | 


--------------------------------------------------------------------------------
/out/DEMONS.ZAP:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	I-SWORD,DEM,G,NG=0,P,T,L
 4 | 	CALL	INT,I-SWORD >DEM
 5 | 	GETP	SWORD,P?VALUE >G
 6 | 	IN?	SWORD,ADVENTURER \?ELS5
 7 | 	EQUAL?	SPELL?,S-FIERCE \?ELS8
 8 | 	SET	'NG,3
 9 | 	JUMP	?CND6
10 | ?ELS8:	CALL	INFESTED?,HERE
11 | 	ZERO?	STACK /?ELS10
12 | 	SET	'NG,2
13 | 	JUMP	?CND6
14 | ?ELS10:	SET	'P,0
15 | ?PRG13:	NEXTP	HERE,P >P
16 | 	ZERO?	P \?ELS17
17 | 	JUMP	?CND6
18 | ?ELS17:	LESS?	P,LOW-DIRECTION /?PRG13
19 | 	GETPT	HERE,P >T
20 | 	PTSIZE	T >L
21 | 	EQUAL?	L,UEXIT,CEXIT,DEXIT \?PRG13
22 | 	GETB	T,0
23 | 	CALL	INFESTED?,STACK
24 | 	ZERO?	STACK /?PRG13
25 | 	SET	'NG,1
26 | ?CND6:	EQUAL?	NG,G /FALSE
27 | 	EQUAL?	NG,3 \?ELS30
28 | 	PRINTI	"Your sword is glowing with a dull red glow."
29 | 	CRLF	
30 | 	JUMP	?CND26
31 | ?ELS30:	EQUAL?	NG,2 \?ELS34
32 | 	PRINTI	"Your sword has begun to glow very brightly."
33 | 	CRLF	
34 | 	JUMP	?CND26
35 | ?ELS34:	EQUAL?	NG,1 \?ELS38
36 | 	PRINTI	"Your sword is glowing with a faint blue glow."
37 | 	CRLF	
38 | 	JUMP	?CND26
39 | ?ELS38:	ZERO?	NG \?CND26
40 | 	PRINTI	"Your sword is no longer glowing."
41 | 	CRLF	
42 | ?CND26:	PUTP	SWORD,P?VALUE,NG
43 | 	RTRUE	
44 | ?ELS5:	PUT	DEM,C-ENABLED?,0
45 | 	RFALSE	
46 | 
47 | 
48 | 	.FUNCT	INFESTED?,R,F
49 | 	FIRST?	R >F /?KLU12
50 | ?KLU12:	
51 | ?PRG1:	ZERO?	F /FALSE
52 | 	FSET?	F,VILLAIN \?ELS7
53 | 	FSET?	F,INVISIBLE /?ELS7
54 | 	RETURN	F
55 | ?ELS7:	NEXT?	F >F /?PRG1
56 | 	RFALSE	
57 | 
58 | 	.ENDI
59 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/demons.zap:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | 	.FUNCT	I-SWORD,DEM,G,NG=0,P,T,L
 4 | 	CALL	INT,I-SWORD >DEM
 5 | 	GETP	SWORD,P?VALUE >G
 6 | 	IN?	SWORD,ADVENTURER \?ELS5
 7 | 	EQUAL?	SPELL?,S-FIERCE \?ELS8
 8 | 	SET	'NG,3
 9 | 	JUMP	?CND6
10 | ?ELS8:	CALL	INFESTED?,HERE
11 | 	ZERO?	STACK /?ELS10
12 | 	SET	'NG,2
13 | 	JUMP	?CND6
14 | ?ELS10:	SET	'P,0
15 | ?PRG13:	NEXTP	HERE,P >P
16 | 	ZERO?	P \?ELS17
17 | 	JUMP	?CND6
18 | ?ELS17:	LESS?	P,LOW-DIRECTION /?PRG13
19 | 	GETPT	HERE,P >T
20 | 	PTSIZE	T >L
21 | 	EQUAL?	L,UEXIT,CEXIT,DEXIT \?PRG13
22 | 	GETB	T,0
23 | 	CALL	INFESTED?,STACK
24 | 	ZERO?	STACK /?PRG13
25 | 	SET	'NG,1
26 | ?CND6:	EQUAL?	NG,G /FALSE
27 | 	EQUAL?	NG,3 \?ELS30
28 | 	PRINTI	"Your sword is glowing with a dull red glow."
29 | 	CRLF	
30 | 	JUMP	?CND26
31 | ?ELS30:	EQUAL?	NG,2 \?ELS34
32 | 	PRINTI	"Your sword has begun to glow very brightly."
33 | 	CRLF	
34 | 	JUMP	?CND26
35 | ?ELS34:	EQUAL?	NG,1 \?ELS38
36 | 	PRINTI	"Your sword is glowing with a faint blue glow."
37 | 	CRLF	
38 | 	JUMP	?CND26
39 | ?ELS38:	ZERO?	NG \?CND26
40 | 	PRINTI	"Your sword is no longer glowing."
41 | 	CRLF	
42 | ?CND26:	PUTP	SWORD,P?VALUE,NG
43 | 	RTRUE	
44 | ?ELS5:	PUT	DEM,C-ENABLED?,0
45 | 	RFALSE	
46 | 
47 | 
48 | 	.FUNCT	INFESTED?,R,F
49 | 	FIRST?	R >F /?KLU12
50 | ?KLU12:	
51 | ?PRG1:	ZERO?	F /FALSE
52 | 	FSET?	F,VILLAIN \?ELS7
53 | 	FSET?	F,INVISIBLE /?ELS7
54 | 	RETURN	F
55 | ?ELS7:	NEXT?	F >F /?PRG1
56 | 	RFALSE	
57 | 
58 | 	.ENDI
59 | 


--------------------------------------------------------------------------------
/src/demons.zil:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | "SWORD demon"
 4 | 
 5 | <ROUTINE I-SWORD ("AUX" (DEM <INT I-SWORD>) (G <GETP ,SWORD ,P?VALUE>)
 6 | 		        (NG 0) P T L)
 7 | 	 #DECL ((NG G) FIX)
 8 | 	 <COND (<IN? ,SWORD ,ADVENTURER>
 9 | 		<COND (<==? ,SPELL? ,S-FIERCE> <SET NG 3>)
10 | 		      (<INFESTED? ,HERE> <SET NG 2>)
11 | 		      (ELSE
12 | 		       <SET P 0>
13 | 		       <REPEAT ()
14 | 			       <COND (<0? <SET P <NEXTP ,HERE .P>>>
15 | 				      <RETURN>)
16 | 				     (<NOT <L? .P ,LOW-DIRECTION>>
17 | 				      <SET T <GETPT ,HERE .P>>
18 | 				      <SET L <PTSIZE .T>>
19 | 				      <COND (<EQUAL? .L ,UEXIT ,CEXIT ,DEXIT>
20 | 					     <COND (<INFESTED? <GETB .T 0>>
21 | 						    <SET NG 1>
22 | 						    <RETURN>)>)>)>>)>
23 | 		<COND (<==? .NG .G> <RFALSE>)
24 | 		      (<==? .NG 3>
25 | 		       <TELL "Your sword is glowing with a dull red glow." CR>)
26 | 		      (<==? .NG 2>
27 | 		       <TELL "Your sword has begun to glow very brightly." CR>)
28 | 		      (<1? .NG>
29 | 		       <TELL "Your sword is glowing with a faint blue glow."
30 | 			     CR>)
31 | 		      (<0? .NG>
32 | 		       <TELL "Your sword is no longer glowing." CR>)>
33 | 		<PUTP ,SWORD ,P?VALUE .NG>
34 | 		<RTRUE>)
35 | 	       (ELSE <PUT .DEM ,C-ENABLED? 0> <RFALSE>)>>
36 | 
37 | <ROUTINE INFESTED? (R "AUX" (F <FIRST? .R>)) 
38 | 	 <REPEAT ()
39 | 		 <COND (<NOT .F> <RETURN <>>)
40 | 		       (<AND <FSET? .F ,VILLAIN> <NOT <FSET? .F ,INVISIBLE>>>
41 | 			<RETURN .F>)
42 | 		       (<NOT <SET F <NEXT? .F>>> <RETURN <>>)>>>
43 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/demons.zil:
--------------------------------------------------------------------------------
 1 | 
 2 | 
 3 | "SWORD demon"
 4 | 
 5 | <ROUTINE I-SWORD ("AUX" (DEM <INT I-SWORD>) (G <GETP ,SWORD ,P?VALUE>)
 6 | 		        (NG 0) P T L)
 7 | 	 #DECL ((NG G) FIX)
 8 | 	 <COND (<IN? ,SWORD ,ADVENTURER>
 9 | 		<COND (<==? ,SPELL? ,S-FIERCE> <SET NG 3>)
10 | 		      (<INFESTED? ,HERE> <SET NG 2>)
11 | 		      (ELSE
12 | 		       <SET P 0>
13 | 		       <REPEAT ()
14 | 			       <COND (<0? <SET P <NEXTP ,HERE .P>>>
15 | 				      <RETURN>)
16 | 				     (<NOT <L? .P ,LOW-DIRECTION>>
17 | 				      <SET T <GETPT ,HERE .P>>
18 | 				      <SET L <PTSIZE .T>>
19 | 				      <COND (<EQUAL? .L ,UEXIT ,CEXIT ,DEXIT>
20 | 					     <COND (<INFESTED? <GETB .T 0>>
21 | 						    <SET NG 1>
22 | 						    <RETURN>)>)>)>>)>
23 | 		<COND (<==? .NG .G> <RFALSE>)
24 | 		      (<==? .NG 3>
25 | 		       <TELL "Your sword is glowing with a dull red glow." CR>)
26 | 		      (<==? .NG 2>
27 | 		       <TELL "Your sword has begun to glow very brightly." CR>)
28 | 		      (<1? .NG>
29 | 		       <TELL "Your sword is glowing with a faint blue glow."
30 | 			     CR>)
31 | 		      (<0? .NG>
32 | 		       <TELL "Your sword is no longer glowing." CR>)>
33 | 		<PUTP ,SWORD ,P?VALUE .NG>
34 | 		<RTRUE>)
35 | 	       (ELSE <PUT .DEM ,C-ENABLED? 0> <RFALSE>)>>
36 | 
37 | <ROUTINE INFESTED? (R "AUX" (F <FIRST? .R>)) 
38 | 	 <REPEAT ()
39 | 		 <COND (<NOT .F> <RETURN <>>)
40 | 		       (<AND <FSET? .F ,VILLAIN> <NOT <FSET? .F ,INVISIBLE>>>
41 | 			<RETURN .F>)
42 | 		       (<NOT <SET F <NEXT? .F>>> <RETURN <>>)>>>
43 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.rest/dungeon.cmp:
--------------------------------------------------------------------------------
 1 | 
 2 | ;COMPARISON OF SS:<ZORK2.R22MAC>DUNGEON.ZIL.297 AND SS:<ZORK2.R22MAC>DUNGEON.ZIL.299
 3 | ;OPTIONS ARE    /1
 4 | 
 5 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.297, 10-350 (61382)
 6 | 	(VALUE 15)
 7 | 	(TEXT
 8 | "       Frobozz Magic Candy Company|
 9 |          >>Special Assortment <<|
10 |           Candied Grasshoppers|
11 |              Chocolated Ants|
12 |               Worms Glacee|
13 | (By Appointment to His Majesty, Dimwit I)|
14 | ")>
15 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.299, 10-350 (61382)
16 | 	(VALUE 15)>
17 | ***************
18 | 
19 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.297, 10-365 (61747)
20 | 	(TEXT
21 | "       o  b  o|
22 |    r             z|
23 | f   M  A  G  I  C   z|
24 | c    W  E   L  L    y|
25 |    o             n|
26 |        m  p  a
27 | " )>
28 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.299, 10-357 (61525)
29 | 	(ACTION TOP-ETCHINGS-F)>
30 | ***************
31 | 
32 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.297, 10-379 (62020)
33 | 	(TEXT
34 | "       o  b  o|
35 | |
36 |        A  G  I|
37 |          E L|
38 | |
39 |        m  p  a|
40 | " )>
41 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.299, 10-364 (61687)
42 | 	(ACTION BOTTOM-ETCHINGS-F)>
43 | ***************
44 | 
45 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.297, 10-510 (65463)
46 | 	(TEXT	
47 | "              Bank of Zork|
48 |                    VAULT|
49 |                  *722 GUE*|
50 |         Frobozz Magic Vault Company|
51 | ")>
52 | **** FILE SS:<ZORK2.R22MAC>DUNGEON.ZIL.299, 10-488 (65073)
53 | 	(ACTION CUBE-F)>
54 | ***************
55 | 
56 | 


--------------------------------------------------------------------------------
/src/clock.zil:
--------------------------------------------------------------------------------
 1 | 
 2 | <CONSTANT C-TABLELEN 180>
 3 | 
 4 | <GLOBAL C-TABLE <ITABLE NONE 180>>
 5 | 
 6 | <GLOBAL C-DEMONS 180>
 7 | 
 8 | <GLOBAL C-INTS 180>
 9 | 
10 | <CONSTANT C-INTLEN 6>
11 | 
12 | <CONSTANT C-ENABLED? 0>
13 | 
14 | <CONSTANT C-TICK 1>
15 | 
16 | <CONSTANT C-RTN 2>
17 | 
18 | <ROUTINE DEMON (RTN TICK "AUX" CINT)
19 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
20 | 	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
21 | 	 .CINT>
22 | 
23 | <ROUTINE QUEUE (RTN TICK "AUX" CINT)
24 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
25 | 	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
26 | 	 .CINT>
27 | 
28 | <ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
29 | 	 #DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
30 | 							      VECTOR>)
31 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
32 | 	 <SET C <REST ,C-TABLE ,C-INTS>>
33 | 	 <REPEAT ()
34 | 		 <COND (<==? .C .E>
35 | 			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
36 | 			<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
37 | 			<SET INT <REST ,C-TABLE ,C-INTS>>
38 | 			<PUT .INT ,C-RTN .RTN>
39 | 			<RETURN .INT>)
40 | 		       (<==? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
41 | 		 <SET C <REST .C ,C-INTLEN>>>>
42 | 
43 | <GLOBAL CLOCK-WAIT <>>
44 | 
45 | <ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
46 | 	 #DECL ((C E) <PRIMTYPE VECTOR> (TICK) FIX (FLG) <OR FALSE ATOM>)
47 | 	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
48 | 	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
49 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
50 | 	 <REPEAT ()
51 | 		 <COND (<==? .C .E> <RETURN .FLG>)
52 | 		       (<NOT <0? <GET .C ,C-ENABLED?>>>
53 | 			<SET TICK <GET .C ,C-TICK>>
54 | 			<COND (<0? .TICK>)
55 | 			      (T
56 | 			       <PUT .C ,C-TICK <- .TICK 1>>
57 | 			       <COND (<AND <NOT <G? .TICK 1>>
58 | 					   <APPLY <GET .C ,C-RTN>>>
59 | 				      <SET FLG T>)>)>)>
60 | 		 <SET C <REST .C ,C-INTLEN>>>>
61 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.rest/actions.cmp:
--------------------------------------------------------------------------------
 1 | 
 2 | ;COMPARISON OF SS:<ZORK2.R22MAC>ACTIONS.ZIL.524 AND SS:<ZORK2.R22MAC>ACTIONS.ZIL.526
 3 | ;OPTIONS ARE    /1
 4 | 
 5 | **** FILE SS:<ZORK2.R22MAC>ACTIONS.ZIL.524, 3-120 (29770)
 6 | 	 <COND (<VERB? EAT>
 7 | **** FILE SS:<ZORK2.R22MAC>ACTIONS.ZIL.526, 3-120 (29770)
 8 | 	 <COND (<VERB? EXAMINE READ>
 9 | 	       <PUT 0 8 <BOR <GET 0 8> 2>>
10 | 	       <TELL
11 | "      Frobozz Magic Candy Company|
12 |         >> Special Assortment <<|
13 |           Candied Grasshoppers|
14 |              Chocolated Ants|
15 |               Worms Glacee|
16 | (By Appointment to His Majesty, Dimwit I)|
17 | ">
18 | 	       <PUT 0 8 <BAND <GET 0 8> -3>>
19 | 	       <RTRUE>)
20 | 	       (<VERB? EAT>
21 | ***************
22 | 
23 | **** FILE SS:<ZORK2.R22MAC>ACTIONS.ZIL.524, 9-981 (123073)
24 | ;"the end"
25 | **** FILE SS:<ZORK2.R22MAC>ACTIONS.ZIL.526, 9-981 (123426)
26 | <ROUTINE TOP-ETCHINGS-F ()
27 | 	<COND (<VERB? EXAMINE READ>
28 | 	       <PUT 0 8 <BOR <GET 0 8> 2>>
29 | 	       <TELL
30 | "       o  b  o|
31 |    r             z|
32 | f   M  A  G  I  C   z|
33 | c    W  E   L  L    y|
34 |    o             n|
35 |        m  p  a|
36 | ">
37 | 	       <PUT 0 8 <BAND <GET 0 8> -3>>
38 | 	       <RTRUE>)>>
39 | <ROUTINE BOTTOM-ETCHINGS-F ()
40 | 	<COND (<VERB? EXAMINE READ>
41 | 	       <PUT 0 8 <BOR <GET 0 8> 2>>
42 | 	       <TELL
43 | "       o  b  o|
44 | |
45 |        A  G  I|
46 |          E L|
47 | |
48 |        m  p  a|
49 | ">
50 | 	       <PUT 0 8 <BAND <GET 0 8> -3>>
51 | 	       <RTRUE>)>>
52 | <ROUTINE CUBE-F ()
53 | 	<COND (<VERB? EXAMINE READ>
54 | 	       <PUT 0 8 <BOR <GET 0 8> 2>>
55 | 	       <TELL
56 | "              Bank of Zork|
57 |                    VAULT|
58 |                  *722 GUE*|
59 |         Frobozz Magic Vault Company|
60 | ">
61 | 	       <PUT 0 8 <BAND <GET 0 8> -3>>
62 | 	       <RTRUE>)>>
63 | "the end"
64 | ***************
65 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/clock.zil:
--------------------------------------------------------------------------------
 1 | 
 2 | <CONSTANT C-TABLELEN 180>
 3 | 
 4 | <GLOBAL C-TABLE <ITABLE NONE 180>>
 5 | 
 6 | <GLOBAL C-DEMONS 180>
 7 | 
 8 | <GLOBAL C-INTS 180>
 9 | 
10 | <CONSTANT C-INTLEN 6>
11 | 
12 | <CONSTANT C-ENABLED? 0>
13 | 
14 | <CONSTANT C-TICK 1>
15 | 
16 | <CONSTANT C-RTN 2>
17 | 
18 | <ROUTINE DEMON (RTN TICK "AUX" CINT)
19 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
20 | 	 <PUT <SET CINT <INT .RTN T>> ,C-TICK .TICK>
21 | 	 .CINT>
22 | 
23 | <ROUTINE QUEUE (RTN TICK "AUX" CINT)
24 | 	 #DECL ((RTN) ATOM (TICK) FIX (CINT) <PRIMTYPE VECTOR>)
25 | 	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
26 | 	 .CINT>
27 | 
28 | <ROUTINE INT (RTN "OPTIONAL" (DEMON <>) E C INT)
29 | 	 #DECL ((RTN) ATOM (DEMON) <OR ATOM FALSE> (E C INT) <PRIMTYPE
30 | 							      VECTOR>)
31 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
32 | 	 <SET C <REST ,C-TABLE ,C-INTS>>
33 | 	 <REPEAT ()
34 | 		 <COND (<==? .C .E>
35 | 			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
36 | 			<AND .DEMON <SETG C-DEMONS <- ,C-DEMONS ,C-INTLEN>>>
37 | 			<SET INT <REST ,C-TABLE ,C-INTS>>
38 | 			<PUT .INT ,C-RTN .RTN>
39 | 			<RETURN .INT>)
40 | 		       (<==? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
41 | 		 <SET C <REST .C ,C-INTLEN>>>>
42 | 
43 | <GLOBAL CLOCK-WAIT <>>
44 | 
45 | <ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
46 | 	 #DECL ((C E) <PRIMTYPE VECTOR> (TICK) FIX (FLG) <OR FALSE ATOM>)
47 | 	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
48 | 	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS) (T ,C-DEMONS)>>>
49 | 	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
50 | 	 <REPEAT ()
51 | 		 <COND (<==? .C .E> <RETURN .FLG>)
52 | 		       (<NOT <0? <GET .C ,C-ENABLED?>>>
53 | 			<SET TICK <GET .C ,C-TICK>>
54 | 			<COND (<0? .TICK>)
55 | 			      (T
56 | 			       <PUT .C ,C-TICK <- .TICK 1>>
57 | 			       <COND (<AND <NOT <G? .TICK 1>>
58 | 					   <APPLY <GET .C ,C-RTN>>>
59 | 				      <SET FLG T>)>)>)>
60 | 		 <SET C <REST .C ,C-INTLEN>>>>
61 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/zac.mud.18:
--------------------------------------------------------------------------------
  1 | <PACKAGE "ZAC">
  2 | 
  3 | <ENTRY DSOPEN DSCLOSE DSPRINT DSREAD>
  4 | 
  5 | <TITLE DSOPEN>
  6 | <DECLARE ("VALUE" FIX STRING "OPTIONAL" ATOM)>
  7 | 
  8 | 	<HLRZ	C*	AB>
  9 | 	<PUSH	TP*	(AB)>
 10 | 	<AOBJN	AB*	HERE	-1>
 11 | 	<CAIE	C*	-2>
 12 | 	<JRST	HERE	3>
 13 | 	<PUSHJ	P*	ID1>
 14 | 	<JRST	FINIS>
 15 | 	<PUSHJ	P*	ID2>
 16 | 	<JRST	FINIS>
 17 | 
 18 | 	<INTERNAL-ENTRY ID1 1>
 19 | 	<HRLZI	C*	*100001*>
 20 | 	<MOVE	D*	[<(*070000*) *200040*>]>
 21 | 	<JRST	DOPEN>
 22 | 
 23 | 	<INTERNAL-ENTRY ID2 2>
 24 | 	<ADJSP	TP*	-2>
 25 | 	<HRLZI	C*	*600001*>
 26 | 	<MOVE	D*	[<(*070000*) *100040*>]>
 27 | DOPEN	<SUBM	M*	(P)>
 28 | 	<DPOP	TP*	A>
 29 | 	<MOVE	A*	C>
 30 | 	<GTJFN>
 31 | 	<ERRUUO*	<MQUOTE OPEN-FAILED!-ERRORS>>
 32 | 	<MOVE	B*	D>
 33 | 	<OPENF>
 34 | 	<ERRUUO*	<MQUOTE OPEN-FAILED!-ERRORS>>
 35 | 	<HRRZ	B*	A>
 36 | 	<MOVSI	A*	<TYPE-CODE FIX>>
 37 | 	<JRST	MPOPJ>
 38 | 
 39 | <TITLE DSCLOSE>
 40 | <DECLARE ("VALUE" FIX FIX)>
 41 | 
 42 | 	<DPUSH	TP*	(AB)>
 43 | 	<PUSHJ	P*	ID>
 44 | 	<JRST	FINIS>
 45 | 
 46 | 	<INTERNAL-ENTRY ID 1>
 47 | 	<SUBM	M*	(P)>
 48 | 	<MOVE	A*	(TP)>
 49 | 	<CLOSF>
 50 | 	<ERRUUO*	<MQUOTE CLOSE-FAILED!-ERRORS>>
 51 | 	<DPOP	TP*	A>
 52 | 	<JRST	MPOPJ>
 53 | 
 54 | <TITLE DSPRINT>
 55 | <DECLARE ("VALUE" STRING STRING FIX)>
 56 | 
 57 | 	<PUSH	TP*	(AB)>
 58 | 	<AOBJN	AB*	HERE	-1>
 59 | 	<PUSHJ	P*	ID>
 60 | 	<JRST	FINIS>
 61 | 
 62 | 	<INTERNAL-ENTRY ID 2>
 63 | 	<SUBM	M*	(P)>
 64 | 	<MOVE	A*	(TP)>
 65 | 	<MOVE	B*	-2	(TP)>
 66 | 	<HRRZ	C*	-3	(TP)>
 67 | 	<MOVN	C*	C>
 68 | 	<SOUT>
 69 | 	<SETZ	B*>
 70 | 	<BOUT>
 71 | 	<ADJSP	TP*	-2>
 72 | 	<DPOP	TP*	A>
 73 | 	<JRST	MPOPJ>
 74 | 
 75 | <TITLE DSREAD>
 76 | <DECLARE ("VALUE" STRING FIX FIX STRING)>
 77 | 
 78 | 	<PUSH	TP*	(AB)>
 79 | 	<AOBJN	AB*	HERE	-1>
 80 | 	<PUSHJ	P*	ID>
 81 | 	<JRST	FINIS>
 82 | 
 83 | 	<INTERNAL-ENTRY ID 2>
 84 | 	<SUBM	M*	(P)>
 85 | 	<MOVE	A*	-2	(TP)>
 86 | 	<MOVE	B*	-4	(TP)>
 87 | 	<SFPTR>
 88 | 	<ERRUUO*	<MQUOTE ACCESS-FAILED!-ERRORS>>
 89 | 	<MOVE	B*	(TP)>
 90 | 	<SETZ	C*>
 91 | 	<SIN-JSYS>
 92 | 	<MOVE	A*	(TP)>
 93 | 	<PSOUT>
 94 | 	<DPOP	TP*	A>
 95 | 	<ADJSP	TP*	-4>
 96 | 	<JRST	MPOPJ>
 97 | 
 98 | <END>
 99 | 
100 | <ENDPACKAGE>
101 | 


--------------------------------------------------------------------------------
/src/macros.mud:
--------------------------------------------------------------------------------
 1 | <SETG C-ENABLED? 0>
 2 | <SETG C-ENABLED 1>
 3 | <SETG C-DISABLED 0>
 4 | 
 5 | <DEFMAC TELL ("ARGS" A)
 6 | 	<FORM PROG ()
 7 | 	      !<MAPF ,LIST
 8 | 		     <FUNCTION ("AUX" E P O)
 9 | 			  <COND (<EMPTY? .A> <MAPSTOP>)
10 | 				(<SET E <NTH .A 1>>
11 | 				 <SET A <REST .A>>)>
12 | 			  <COND (<TYPE? .E ATOM>
13 | 				 <COND (<OR <=? <SET P <SPNAME .E>>
14 | 						"CRLF">
15 | 					    <=? .P "CR">>
16 | 					<MAPRET '<CRLF>>)
17 | 				       (<EMPTY? .A>
18 | 					<ERROR INDICATOR-AT-END? .E>)
19 | 				       (ELSE
20 | 					<SET O <NTH .A 1>>
21 | 					<SET A <REST .A>>
22 | 					<COND (<OR <=? <SET P <SPNAME .E>>
23 | 						       "DESC">
24 | 						   <=? .P "D">
25 | 						   <=? .P "OBJ">
26 | 						   <=? .P "O">>
27 | 					       <MAPRET <FORM PRINTD .O>>)
28 | 					      (<OR <=? .P "NUM">
29 | 						   <=? .P "N">>
30 | 					       <MAPRET <FORM PRINTN .O>>)
31 | 					      (<OR <=? .P "CHAR">
32 | 						   <=? .P "CHR">
33 | 						   <=? .P "C">>
34 | 					       <MAPRET <FORM PRINTC .O>>)
35 | 					      (ELSE
36 | 					       <MAPRET
37 | 						 <FORM PRINT
38 | 						       <FORM GETP .O .E>>>)>)>)
39 | 				(<TYPE? .E STRING>
40 | 				 <MAPRET <FORM PRINTI .E>>)
41 | 				(<TYPE? .E FORM>
42 | 				 <MAPRET <FORM PRINT .E>>)
43 | 				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
44 | 
45 | <DEFMAC VERB? ("TUPLE" ATMS "AUX" (O ()) (L ())) 
46 | 	<REPEAT ()
47 | 		<COND (<EMPTY? .ATMS>
48 | 		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
49 | 				     (ELSE <FORM OR !.O>)>>)>
50 | 		<REPEAT ()
51 | 			<COND (<EMPTY? .ATMS> <RETURN!->)>
52 | 			<SET ATM <NTH .ATMS 1>>
53 | 			<SET L
54 | 			     (<FORM GVAL <PARSE <STRING "V?" <SPNAME .ATM>>>>
55 | 			      !.L)>
56 | 			<SET ATMS <REST .ATMS>>
57 | 			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
58 | 		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
59 | 		<SET L ()>>>
60 | 
61 | <DEFMAC RFATAL ()
62 | 	'<PROG () <PUSH 2> <RSTACK>>>
63 | 
64 | <DEFMAC PROB ('BASE?)
65 | 	<FORM G? .BASE? '<RANDOM 100>>>
66 | 
67 | <DEFMAC FLAMING? ('OBJ)
68 | 	<FORM AND <FORM FSET? .OBJ ',FLAMEBIT>
69 | 	          <FORM FSET? .OBJ ',ONBIT>>>
70 | 
71 | <DEFMAC OPENABLE? ('OBJ)
72 | 	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
73 | 	         <FORM FSET? .OBJ ',CONTBIT>>> 
74 | 


--------------------------------------------------------------------------------
/src/macros.zil:
--------------------------------------------------------------------------------
 1 | <SETG C-ENABLED? 0>
 2 | <SETG C-ENABLED 1>
 3 | <SETG C-DISABLED 0>
 4 | 
 5 | <DEFMAC TELL ("ARGS" A)
 6 | 	<FORM PROG ()
 7 | 	      !<MAPF ,LIST
 8 | 		     <FUNCTION ("AUX" E P O)
 9 | 			  <COND (<EMPTY? .A> <MAPSTOP>)
10 | 				(<SET E <NTH .A 1>>
11 | 				 <SET A <REST .A>>)>
12 | 			  <COND (<TYPE? .E ATOM>
13 | 				 <COND (<OR <=? <SET P <SPNAME .E>>
14 | 						"CRLF">
15 | 					    <=? .P "CR">>
16 | 					<MAPRET '<CRLF>>)
17 | 				       (<EMPTY? .A>
18 | 					<ERROR INDICATOR-AT-END? .E>)
19 | 				       (ELSE
20 | 					<SET O <NTH .A 1>>
21 | 					<SET A <REST .A>>
22 | 					<COND (<OR <=? <SET P <SPNAME .E>>
23 | 						       "DESC">
24 | 						   <=? .P "D">
25 | 						   <=? .P "OBJ">
26 | 						   <=? .P "O">>
27 | 					       <MAPRET <FORM PRINTD .O>>)
28 | 					      (<OR <=? .P "NUM">
29 | 						   <=? .P "N">>
30 | 					       <MAPRET <FORM PRINTN .O>>)
31 | 					      (<OR <=? .P "CHAR">
32 | 						   <=? .P "CHR">
33 | 						   <=? .P "C">>
34 | 					       <MAPRET <FORM PRINTC .O>>)
35 | 					      (ELSE
36 | 					       <MAPRET
37 | 						 <FORM PRINT
38 | 						       <FORM GETP .O .E>>>)>)>)
39 | 				(<TYPE? .E STRING>
40 | 				 <MAPRET <FORM PRINTI .E>>)
41 | 				(<TYPE? .E FORM>
42 | 				 <MAPRET <FORM PRINT .E>>)
43 | 				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
44 | 
45 | <DEFMAC VERB? ("TUPLE" ATMS "AUX" (O ()) (L ())) 
46 | 	<REPEAT ()
47 | 		<COND (<EMPTY? .ATMS>
48 | 		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
49 | 				     (ELSE <FORM OR !.O>)>>)>
50 | 		<REPEAT ()
51 | 			<COND (<EMPTY? .ATMS> <RETURN!->)>
52 | 			<SET ATM <NTH .ATMS 1>>
53 | 			<SET L
54 | 			     (<FORM GVAL <PARSE <STRING "V?" <SPNAME .ATM>>>>
55 | 			      !.L)>
56 | 			<SET ATMS <REST .ATMS>>
57 | 			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
58 | 		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
59 | 		<SET L ()>>>
60 | 
61 | <DEFMAC RFATAL ()
62 | 	'<PROG () <PUSH 2> <RSTACK>>>
63 | 
64 | <DEFMAC PROB ('BASE? "OPTIONAL" 'LOSER?)
65 | 	<COND (<ASSIGNED? LOSER?> <FORM ZPROB .BASE?>)
66 | 	      (ELSE <FORM G? .BASE? '<RANDOM 100>>)>>
67 | 
68 | <ROUTINE ZPROB
69 | 	 (BASE)
70 | 	 <COND (,LUCKY <G? .BASE <RANDOM 100>>)
71 | 	       (ELSE <G? .BASE <RANDOM 300>>)>>
72 | 
73 | <ROUTINE PICK-ONE (FROB)
74 | 	 <GET .FROB <RANDOM <GET .FROB 0>>>>
75 | 
76 | <DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
77 | 
78 | <DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
79 | 
80 | <DEFMAC FLAMING? ('OBJ)
81 | 	<FORM AND <FORM FSET? .OBJ ',FLAMEBIT>
82 | 	          <FORM FSET? .OBJ ',ONBIT>>>
83 | 
84 | <DEFMAC OPENABLE? ('OBJ)
85 | 	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
86 | 	         <FORM FSET? .OBJ ',CONTBIT>>> 
87 | 
88 | <DEFMAC ABS ('NUM)
89 | 	<FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>)
90 | 	           (T .NUM)>>


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/macros.zil:
--------------------------------------------------------------------------------
 1 | <SETG C-ENABLED? 0>
 2 | <SETG C-ENABLED 1>
 3 | <SETG C-DISABLED 0>
 4 | 
 5 | <DEFMAC TELL ("ARGS" A)
 6 | 	<FORM PROG ()
 7 | 	      !<MAPF ,LIST
 8 | 		     <FUNCTION ("AUX" E P O)
 9 | 			  <COND (<EMPTY? .A> <MAPSTOP>)
10 | 				(<SET E <NTH .A 1>>
11 | 				 <SET A <REST .A>>)>
12 | 			  <COND (<TYPE? .E ATOM>
13 | 				 <COND (<OR <=? <SET P <SPNAME .E>>
14 | 						"CRLF">
15 | 					    <=? .P "CR">>
16 | 					<MAPRET '<CRLF>>)
17 | 				       (<EMPTY? .A>
18 | 					<ERROR INDICATOR-AT-END? .E>)
19 | 				       (ELSE
20 | 					<SET O <NTH .A 1>>
21 | 					<SET A <REST .A>>
22 | 					<COND (<OR <=? <SET P <SPNAME .E>>
23 | 						       "DESC">
24 | 						   <=? .P "D">
25 | 						   <=? .P "OBJ">
26 | 						   <=? .P "O">>
27 | 					       <MAPRET <FORM PRINTD .O>>)
28 | 					      (<OR <=? .P "NUM">
29 | 						   <=? .P "N">>
30 | 					       <MAPRET <FORM PRINTN .O>>)
31 | 					      (<OR <=? .P "CHAR">
32 | 						   <=? .P "CHR">
33 | 						   <=? .P "C">>
34 | 					       <MAPRET <FORM PRINTC .O>>)
35 | 					      (ELSE
36 | 					       <MAPRET
37 | 						 <FORM PRINT
38 | 						       <FORM GETP .O .E>>>)>)>)
39 | 				(<TYPE? .E STRING>
40 | 				 <MAPRET <FORM PRINTI .E>>)
41 | 				(<TYPE? .E FORM>
42 | 				 <MAPRET <FORM PRINT .E>>)
43 | 				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
44 | 
45 | <DEFMAC VERB? ("TUPLE" ATMS "AUX" (O ()) (L ())) 
46 | 	<REPEAT ()
47 | 		<COND (<EMPTY? .ATMS>
48 | 		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
49 | 				     (ELSE <FORM OR !.O>)>>)>
50 | 		<REPEAT ()
51 | 			<COND (<EMPTY? .ATMS> <RETURN!->)>
52 | 			<SET ATM <NTH .ATMS 1>>
53 | 			<SET L
54 | 			     (<FORM GVAL <PARSE <STRING "V?" <SPNAME .ATM>>>>
55 | 			      !.L)>
56 | 			<SET ATMS <REST .ATMS>>
57 | 			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
58 | 		<SET O (<FORM EQUAL? ',PRSA !.L> !.O)>
59 | 		<SET L ()>>>
60 | 
61 | <DEFMAC RFATAL ()
62 | 	'<PROG () <PUSH 2> <RSTACK>>>
63 | 
64 | <DEFMAC PROB ('BASE? "OPTIONAL" 'LOSER?)
65 | 	<COND (<ASSIGNED? LOSER?> <FORM ZPROB .BASE?>)
66 | 	      (ELSE <FORM G? .BASE? '<RANDOM 100>>)>>
67 | 
68 | <ROUTINE ZPROB
69 | 	 (BASE)
70 | 	 <COND (,LUCKY <G? .BASE <RANDOM 100>>)
71 | 	       (ELSE <G? .BASE <RANDOM 300>>)>>
72 | 
73 | <ROUTINE PICK-ONE (FROB)
74 | 	 <GET .FROB <RANDOM <GET .FROB 0>>>>
75 | 
76 | <DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>>
77 | 
78 | <DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>>
79 | 
80 | <DEFMAC FLAMING? ('OBJ)
81 | 	<FORM AND <FORM FSET? .OBJ ',FLAMEBIT>
82 | 	          <FORM FSET? .OBJ ',ONBIT>>>
83 | 
84 | <DEFMAC OPENABLE? ('OBJ)
85 | 	<FORM OR <FORM FSET? .OBJ ',DOORBIT>
86 | 	         <FORM FSET? .OBJ ',CONTBIT>>> 
87 | 
88 | <DEFMAC ABS ('NUM)
89 | 	<FORM COND (<FORM L? .NUM 0> <FORM - 0 .NUM>)
90 | 	           (T .NUM)>>


--------------------------------------------------------------------------------
/origfiles/zork.z.zilch/zstr.mud.2:
--------------------------------------------------------------------------------
  1 | <PACKAGE "ZSTR">
  2 | 
  3 | <ENTRY ZSTR STRING-ZSTR ZSTR-STRING PADCHR>
  4 | 
  5 | <NEWTYPE ZSTR BYTES '<BYTES 5>>
  6 | 
  7 | <SETG ZCHRS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789.,!?_#'\"/\\|-:()">
  8 | <GDECL (ZCHRS) STRING>
  9 | 
 10 | <SETG PADCHR 5>
 11 | <MANIFEST PADCHR>
 12 | 
 13 | <DEFINE ZSTR-STRING (S "AUX" (ZCHRS ,ZCHRS)
 14 | 			     (CSTEMP 0)
 15 | 			     (CSPERM 0)
 16 | 			     (TEMP? <>)
 17 | 			     (B1 <>))
 18 | 	#DECL ((VALUE ZCHRS) STRING
 19 | 	       (S) ZSTR
 20 | 	       (CSTEMP CSPERM) FIX
 21 | 	       (TEMP?) <OR ATOM FALSE>
 22 | 	       (B1) <OR ATOM FIX FALSE>)
 23 | 	<MAPF ,STRING
 24 | 	      <FUNCTION (B "AUX" (CS <COND (.TEMP?
 25 | 					    <SET TEMP? <>>
 26 | 					    .CSTEMP)
 27 | 					   (.CSPERM)>))
 28 | 			#DECL ((VALUE) CHARACTER
 29 | 			       (B CS) FIX)
 30 | 			<COND (.B1
 31 | 			       <COND (<TYPE? .B1 ATOM> <SET B1 .B> <MAPRET>)
 32 | 				     (<SET B <+ .B <* .B1 32>>>
 33 | 				      <SET B1 <>>
 34 | 				      <ASCII .B>)>)
 35 | 			      (<AND <==? .CS 2> <==? .B 6>>
 36 | 			       <SET B1 T>
 37 | 			       <MAPRET>)
 38 | 			      (<G? .B 5> <NTH .ZCHRS <+ <* .CS 26> .B -5>>)
 39 | 			      (<0? .B> <ASCII 32>)
 40 | 			      (<1? .B> <MAPRET <ASCII 13> <ASCII 10>>)
 41 | 			      (<L? .B 4>
 42 | 			       <SET TEMP? T>
 43 | 			       <SET CSTEMP <MOD <+ .CS .B 2> 3>>
 44 | 			       <MAPRET>)
 45 | 			      (<SET CSPERM <MOD <+ .CS .B> 3>>
 46 | 			       <MAPRET>)>>
 47 | 	      .S>>
 48 | 
 49 | <DEFINE ZCHR-CS (C "AUX" RSTR)
 50 | 	#DECL ((VALUE) FIX
 51 | 	       (C) CHARACTER
 52 | 	       (RSTR) <OR STRING FALSE>)
 53 | 	<COND (<OR <==? .C <ASCII 32>> <==? .C <ASCII 13>>> 3)
 54 | 	      (<SET RSTR <MEMQ .C ,ZCHRS>>
 55 | 	       </ <- 78 <LENGTH .RSTR>> 26>)
 56 | 	      (2)>>
 57 | 
 58 | <DEFINE ZCHR-BYTE (C "AUX" RSTR B)
 59 | 	#DECL ((VALUE) <OR FIX FALSE>
 60 | 	       (C) CHARACTER
 61 | 	       (RSTR) <OR STRING FALSE>
 62 | 	       (B) FIX)
 63 | 	<AND <SET RSTR <MEMQ .C ,ZCHRS>>
 64 | 	     <- 6 <- <* </ <SET B <- 78 <LENGTH .RSTR>>> 26> 26> .B>>>>
 65 | 
 66 | <DEFINE STRING-ZSTR (S "AUX" (ZCHRS ,ZCHRS) (CS 0) (SKIP? <>))
 67 | 	#DECL ((VALUE) ZSTR
 68 | 	       (S ZCHRS) STRING
 69 | 	       (CS) FIX
 70 | 	       (SKIP?) <OR ATOM FALSE>)
 71 | 	<MAPR <FUNCTION ("TUPLE" BTUP)
 72 | 			#DECL ((VALUE) ZSTR
 73 | 			       (BTUP) <TUPLE [REST FIX]>)
 74 | 			<CHTYPE <BYTES 5 !.BTUP> ZSTR>>
 75 | 	      <FUNCTION (STR "AUX" (C <1 .STR>)
 76 | 				   (C2 <AND <NOT <EMPTY? <REST .STR>>>
 77 | 					    <2 .STR>>)
 78 | 				   NCS
 79 | 				   PB
 80 | 				   B)
 81 | 			#DECL ((VALUE NCS PB) FIX
 82 | 			       (STR) STRING
 83 | 			       (C) CHARACTER
 84 | 			       (C2) <OR CHARACTER FALSE>
 85 | 			       (B) <OR FIX FALSE>)
 86 | 			<COND (.SKIP? <SET SKIP? <>> <MAPRET>)
 87 | 			      (<==? .C <ASCII 32>> 0)
 88 | 			      (<AND <==? .C <ASCII 13>>
 89 | 				    .C2
 90 | 				    <==? .C2 <ASCII 10>>>
 91 | 			       <SET SKIP? T>
 92 | 			       1)
 93 | 			      (<SET PB 0>
 94 | 			       <COND (<==? <SET NCS <ZCHR-CS .C>> .CS>)
 95 | 				     (<AND .C2 <==? .NCS <ZCHR-CS .C2>>>
 96 | 				      <SET PB <+ <MOD <- .NCS .CS> 3> 3>>
 97 | 				      <SET CS .NCS>)
 98 | 				     (<SET PB <+ <MOD <- .NCS .CS> 3> 1>>)>
 99 | 			       <COND (<SET B <ZCHR-BYTE .C>>
100 | 				      <OR <0? .PB> <MAPRET .PB .B>>
101 | 				      .B)
102 | 				     (<SET B <ASCII .C>>
103 | 				      <OR <0? .PB>
104 | 					  <MAPRET .PB
105 | 						  6
106 | 						  </ .B 32>
107 | 						  <- .B <* </ .B 32> 32>>>>
108 | 				      <MAPRET 6
109 | 					      </ .B 32>
110 | 					      <- .B <* </ .B 32> 32>>>)>)>>
111 | 	      .S>>
112 | 
113 | <DEFINE ZSTR-PRINT (STR)
114 | 	#DECL ((STR) ZSTR)
115 | 	<PRINC !\">
116 | 	<PRINC <ZSTR-STRING .STR>>
117 | 	<PRINC !\">>
118 | 
119 | <PRINTTYPE ZSTR ,ZSTR-PRINT>
120 | 
121 | <ENDPACKAGE>
122 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/zops.mud.18:
--------------------------------------------------------------------------------
  1 | <PACKAGE "ZOPS">
  2 | 
  3 | <ENTRY OP DEFOPS OPCODE PRED? VAL? SPEC SPEC? OPFUNCT OPATOM>
  4 | 
  5 | <NEWTYPE OP VECTOR '<OP FIX [2 <OR ATOM FALSE>] STRING APPLICABLE ATOM>>
  6 | <SETG OPCODE <OFFSET 1 OP>>
  7 | <SETG PRED? <OFFSET 2 OP>>
  8 | <SETG VAL? <OFFSET 3 OP>>
  9 | <SETG SPEC <OFFSET 4 OP>>
 10 | <SETG OPFUNCT <OFFSET 5 OP>>
 11 | <SETG OPATOM <OFFSET 6 OP>>
 12 | <MANIFEST OPCODE PRED? VAL? SPEC OPFUNCT OPATOM>
 13 | <DEFMAC SPEC? ('ZOP 'STR) <FORM =? <FORM SPEC .ZOP> .STR>>
 14 | 
 15 | <DEFINE OP-PRINT (ZOP)
 16 | 	#DECL ((ZOP) OP)
 17 | 	<PRINC "#OP ">
 18 | 	<PRIN1 <OPATOM .ZOP>>>
 19 | 
 20 | <PRINTTYPE OP ,OP-PRINT>
 21 | 
 22 | <DEFINE OPERR ("TUPLE" TUP)
 23 | 	<ERROR ATTEMPT-TO-USE-UNDEFINED-OP!-ERRORS !.TUP>>
 24 | 
 25 | <DEFINE DEFOP (OPR OPCODE PRED? VAL? "OPTIONAL" (SPEC "")
 26 | 	       "AUX" (ZOPOB .ZOPOB) OPATM (OPTABLE .OPTABLE) ZOP)
 27 | 	#DECL ((VALUE ZOP) OP
 28 | 	       (OPR SPEC) STRING
 29 | 	       (OPCODE) FIX
 30 | 	       (PRED? VAL?) <OR ATOM FALSE>
 31 | 	       (ZOPOB) OBLIST
 32 | 	       (OPATM) ATOM
 33 | 	       (OPTABLE) <OR <VECTOR <OR OP FALSE>> FALSE>)
 34 | 	<SET OPATM <OR <LOOKUP .OPR .ZOPOB> <INSERT .OPR .ZOPOB>>>
 35 | 	<EVAL <FORM GDECL (.OPATM) OP>>
 36 | 	<SET ZOP <CHTYPE [.OPCODE .PRED? .VAL? .SPEC ,OPERR .OPATM] OP>>
 37 | 	<AND .OPTABLE
 38 | 	     <PUT .OPTABLE <+ .OPCODE 1> .ZOP>
 39 | 	     <COND (<L? .OPCODE 128>
 40 | 		    <PUT .OPTABLE <+ .OPCODE 33> .ZOP>
 41 | 		    <PUT .OPTABLE <+ .OPCODE 65> .ZOP>
 42 | 		    <PUT .OPTABLE <+ .OPCODE 97> .ZOP>
 43 | 		    <PUT .OPTABLE <+ .OPCODE 193> .ZOP>)
 44 | 		   (<L? .OPCODE 176>
 45 | 		    <PUT .OPTABLE <+ .OPCODE 17> .ZOP>
 46 | 		    <PUT .OPTABLE <+ .OPCODE 33> .ZOP>)>>
 47 | 	<SETG .OPATM .ZOP>>
 48 | 
 49 | <DEFINE DEFOPS (ZOPOB "OPTIONAL" (OPTABLE <>))
 50 | 	#DECL ((ZOPOB) <SPECIAL OBLIST>
 51 | 	       (OPTABLE) <SPECIAL <OR <VECTOR <OR OP FALSE>> FALSE>>)
 52 | 	<DEFOP "EQUAL?"	1	T	<>	"XARGS">
 53 | 	<DEFOP "LESS?"	2	T	<>>
 54 | 	<DEFOP "GRTR?"	3	T	<>>
 55 | 	<DEFOP "DLESS?"	4	T	<>>
 56 | 	<DEFOP "IGRTR?"	5	T	<>>
 57 | 	<DEFOP "IN?"	6	T	<>>
 58 | 	<DEFOP "BTST"	7	T	<>>
 59 | 	<DEFOP "BOR"	8	<>	T>
 60 | 	<DEFOP "BAND"	9	<>	T>
 61 | 	<DEFOP "FSET?"	10	T	<>>
 62 | 	<DEFOP "FSET"	11	<>	<>>
 63 | 	<DEFOP "FCLEAR"	12	<>	<>>
 64 | 	<DEFOP "SET"	13	<>	<>>
 65 | 	<DEFOP "MOVE"	14	<>	<>>
 66 | 	<DEFOP "GET"	15	<>	T>
 67 | 	<DEFOP "GETB"	16	<>	T>
 68 | 	<DEFOP "GETP"	17	<>	T>
 69 | 	<DEFOP "GETPT"	18	<>	T>
 70 | 	<DEFOP "NEXTP"	19	<>	T>
 71 | 	<DEFOP "ADD"	20	<>	T>
 72 | 	<DEFOP "SUB"	21	<>	T>
 73 | 	<DEFOP "MUL"	22	<>	T>
 74 | 	<DEFOP "DIV"	23	<>	T>
 75 | 	<DEFOP "MOD"	24	<>	T>
 76 | 	<DEFOP "PRINTT"	25	<>	<>>	;"Obsolete"
 77 | 	<DEFOP "ZERO?"	128	T	<>>
 78 | 	<DEFOP "NEXT?"	129	T	T>
 79 | 	<DEFOP "FIRST?"	130	T	T>
 80 | 	<DEFOP "LOC"	131	<>	T>
 81 | 	<DEFOP "PTSIZE"	132	<>	T>
 82 | 	<DEFOP "INC"	133	<>	<>>
 83 | 	<DEFOP "DEC"	134	<>	<>>
 84 | 	<DEFOP "PRINTB"	135	<>	<>>
 85 | 	<DEFOP "REMOVE"	137	<>	<>>
 86 | 	<DEFOP "PRINTD"	138	<>	<>>
 87 | 	<DEFOP "RETURN"	139	<>	<>>
 88 | 	<DEFOP "JUMP"	140	<>	<>	"BRANCH">
 89 | 	<DEFOP "PRINT"	141	<>	<>>
 90 | 	<DEFOP "VALUE"	142	<>	T>
 91 | 	<DEFOP "BCOM"	143	<>	T>
 92 | 	<DEFOP "RTRUE"	176	<>	<>>
 93 | 	<DEFOP "RFALSE"	177	<>	<>>
 94 | 	<DEFOP "PRINTI"	178	<>	<>	"STRING">
 95 | 	<DEFOP "PRINTR"	179	<>	<>	"STRING">
 96 | 	<DEFOP "NOOP"	180	<>	<>>
 97 | 	<DEFOP "SAVE"	181	T	<>>
 98 | 	<DEFOP "RESTORE"182	T	<>>
 99 | 	<DEFOP "RESTART"183	<>	<>>
100 | 	<DEFOP "RSTACK"	184	<>	<>>
101 | 	<DEFOP "FSTACK"	185	<>	<>>
102 | 	<DEFOP "QUIT"	186	<>	<>>
103 | 	<DEFOP "CRLF"	187	<>	<>>
104 | 	<DEFOP "CALL"	224	<>	T>
105 | 	<DEFOP "PUT"	225	<>	<>>
106 | 	<DEFOP "PUTB"	226	<>	<>>
107 | 	<DEFOP "PUTP"	227	<>	<>>
108 | 	<DEFOP "READ"	228	<>	<>>
109 | 	<DEFOP "PRINTC"	229	<>	<>>
110 | 	<DEFOP "PRINTN"	230	<>	<>>
111 | 	<DEFOP "RANDOM"	231	<>	T>
112 | 	<DEFOP "PUSH"	232	<>	<>>
113 | 	<DEFOP "POP"	233	<>	<>>>
114 | 
115 | <ENDPACKAGE>
116 | 


--------------------------------------------------------------------------------
/out/MAIN.ZAP:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | 	.FUNCT	GO
  4 | START::
  5 | 
  6 | ?FCN:	CALL	QUEUE,I-WIZARD,4
  7 | 	PUT	STACK,0,1
  8 | 	CALL	QUEUE,I-LANTERN,200
  9 | 	PUTP	BALLOON,P?VTYPE,RAIRBIT
 10 | 	PUTP	BUCKET,P?VTYPE,RBUCKBIT
 11 | 	PUTP	SEWL,P?SIZE,P?EAST
 12 | 	PUTP	SWWL,P?SIZE,P?WEST
 13 | 	PUTP	SSWL,P?SIZE,P?SOUTH
 14 | 	PUTP	SNWL,P?SIZE,P?NORTH
 15 | 	SET	'LIT,1
 16 | 	SET	'WINNER,ADVENTURER
 17 | 	SET	'HERE,INSIDE-BARROW
 18 | 	SET	'P-IT-LOC,HERE
 19 | 	SET	'P-IT-OBJECT,0
 20 | 	FSET?	HERE,TOUCHBIT /?CND1
 21 | 	CALL	V-VERSION
 22 | 	CRLF	
 23 | ?CND1:	MOVE	WINNER,HERE
 24 | 	CALL	V-LOOK
 25 | 	CALL	MAIN-LOOP
 26 | 	JUMP	?FCN
 27 | 
 28 | 
 29 | 	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
 30 | ?PRG1:	SET	'CNT,0
 31 | 	SET	'OBJ,0
 32 | 	SET	'PTBL,1
 33 | 	CALL	PARSER >P-WON
 34 | 	ZERO?	P-WON /?ELS5
 35 | 	GET	P-PRSI,P-MATCHLEN >ICNT
 36 | 	GET	P-PRSO,P-MATCHLEN >OCNT
 37 | 	ZERO?	OCNT \?ELS10
 38 | 	PUSH	OCNT
 39 | 	JUMP	?CND6
 40 | ?ELS10:	GRTR?	OCNT,1 \?ELS12
 41 | 	SET	'TBL,P-PRSO
 42 | 	ZERO?	ICNT \?ELS15
 43 | 	SET	'OBJ,0
 44 | 	JUMP	?CND13
 45 | ?ELS15:	GET	P-PRSI,1 >OBJ
 46 | ?CND13:	PUSH	OCNT
 47 | 	JUMP	?CND6
 48 | ?ELS12:	GRTR?	ICNT,1 \?ELS19
 49 | 	SET	'PTBL,0
 50 | 	SET	'TBL,P-PRSI
 51 | 	GET	P-PRSO,1 >OBJ
 52 | 	PUSH	ICNT
 53 | 	JUMP	?CND6
 54 | ?ELS19:	PUSH	1
 55 | ?CND6:	SET	'NUM,STACK
 56 | 	ZERO?	OBJ \?CND22
 57 | 	EQUAL?	ICNT,1 \?CND22
 58 | 	GET	P-PRSI,1 >OBJ
 59 | ?CND22:	EQUAL?	PRSA,V?WALK \?ELS29
 60 | 	CALL	PERFORM,PRSA,PRSO >V
 61 | 	JUMP	?CND27
 62 | ?ELS29:	ZERO?	NUM \?ELS31
 63 | 	GETB	P-SYNTAX,P-SBITS
 64 | 	BAND	STACK,P-SONUMS
 65 | 	ZERO?	STACK \?ELS34
 66 | 	CALL	PERFORM,PRSA >V
 67 | 	JUMP	?CND27
 68 | ?ELS34:	PRINTI	"There isn't anything to "
 69 | 	GET	P-ITBL,P-VERBN >TMP
 70 | 	ZERO?	P-OFLAG /?ELS41
 71 | 	GET	TMP,0
 72 | 	PRINTB	STACK
 73 | 	JUMP	?CND39
 74 | ?ELS41:	GETB	TMP,2 >?TMP1
 75 | 	GETB	TMP,3
 76 | 	CALL	WORD-PRINT,?TMP1,STACK
 77 | ?CND39:	PRINTI	"!"
 78 | 	CRLF	
 79 | 	SET	'V,0
 80 | 	JUMP	?CND27
 81 | ?ELS31:	
 82 | ?PRG49:	IGRTR?	'CNT,NUM \?ELS53
 83 | 	JUMP	?REP50
 84 | ?ELS53:	ZERO?	PTBL /?ELS58
 85 | 	GET	P-PRSO,CNT >OBJ1
 86 | 	JUMP	?CND56
 87 | ?ELS58:	GET	P-PRSI,CNT >OBJ1
 88 | ?CND56:	GRTR?	NUM,1 \?CND62
 89 | 	PRINTD	OBJ1
 90 | 	PRINTI	": "
 91 | ?CND62:	ZERO?	PTBL /?ELS71
 92 | 	PUSH	OBJ1
 93 | 	JUMP	?CND67
 94 | ?ELS71:	PUSH	OBJ
 95 | ?CND67:	SET	'PRSO,STACK
 96 | 	ZERO?	PTBL /?ELS79
 97 | 	PUSH	OBJ
 98 | 	JUMP	?CND75
 99 | ?ELS79:	PUSH	OBJ1
100 | ?CND75:	SET	'PRSI,STACK
101 | 	CALL	PERFORM,PRSA,PRSO,PRSI >V
102 | 	EQUAL?	V,M-FATAL \?PRG49
103 | ?REP50:	SET	'P-IT-OBJECT,OBJ1
104 | 	SET	'P-IT-LOC,HERE
105 | ?CND27:	EQUAL?	PRSA,V?AGAIN /?CND86
106 | 	SET	'L-PRSA,PRSA
107 | 	SET	'L-PRSO,PRSO
108 | 	SET	'L-PRSI,PRSI
109 | ?CND86:	INC	'MOVES
110 | 	EQUAL?	V,M-FATAL \?CND3
111 | 	SET	'P-CONT,0
112 | 	JUMP	?CND3
113 | ?ELS5:	SET	'P-CONT,0
114 | ?CND3:	CALL	CLOCKER >V
115 | 	JUMP	?PRG1
116 | 
117 | 
118 | 	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI
119 | 	SET	'OA,PRSA
120 | 	SET	'OO,PRSO
121 | 	SET	'OI,PRSI
122 | 	EQUAL?	IT,I,O \?CND1
123 | 	EQUAL?	P-IT-LOC,HERE /?CND1
124 | 	PRINTI	"I don't see what you are referring to."
125 | 	CRLF	
126 | 	RETURN	2
127 | ?CND1:	EQUAL?	O,IT \?CND10
128 | 	SET	'O,P-IT-OBJECT
129 | ?CND10:	EQUAL?	I,IT \?CND13
130 | 	SET	'I,P-IT-OBJECT
131 | ?CND13:	SET	'PRSA,A
132 | 	SET	'PRSO,O
133 | 	SET	'PRSI,I
134 | 	GETP	WINNER,P?ACTION
135 | 	CALL	STACK >V
136 | 	ZERO?	V /?ELS18
137 | 	JUMP	?CND16
138 | ?ELS18:	LOC	WINNER
139 | 	GETP	STACK,P?ACTION
140 | 	CALL	STACK,M-BEG >V
141 | 	ZERO?	V /?ELS20
142 | 	JUMP	?CND16
143 | ?ELS20:	GET	PREACTIONS,A
144 | 	CALL	STACK >V
145 | 	ZERO?	V /?ELS22
146 | 	JUMP	?CND16
147 | ?ELS22:	ZERO?	I /?ELS24
148 | 	GETP	I,P?ACTION
149 | 	CALL	STACK >V
150 | 	ZERO?	V /?ELS24
151 | 	JUMP	?CND16
152 | ?ELS24:	ZERO?	O /?ELS28
153 | 	EQUAL?	A,V?WALK /?ELS28
154 | 	GETP	O,P?ACTION
155 | 	CALL	STACK >V
156 | 	ZERO?	V /?ELS28
157 | 	JUMP	?CND16
158 | ?ELS28:	GET	ACTIONS,A
159 | 	CALL	STACK >V
160 | 	ZERO?	V /?CND16
161 | ?CND16:	EQUAL?	V,M-FATAL /?CND33
162 | 	LOC	WINNER
163 | 	GETP	STACK,P?ACTION
164 | 	CALL	STACK,M-END >V
165 | ?CND33:	SET	'PRSA,OA
166 | 	SET	'PRSO,OO
167 | 	SET	'PRSI,OI
168 | 	RETURN	V
169 | 
170 | 	.ENDI
171 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/main.zap:
--------------------------------------------------------------------------------
  1 | 
  2 | 
  3 | 	.FUNCT	GO
  4 | START::
  5 | 
  6 | ?FCN:	CALL	QUEUE,I-WIZARD,4
  7 | 	PUT	STACK,0,1
  8 | 	CALL	QUEUE,I-LANTERN,200
  9 | 	PUTP	BALLOON,P?VTYPE,RAIRBIT
 10 | 	PUTP	BUCKET,P?VTYPE,RBUCKBIT
 11 | 	PUTP	SEWL,P?SIZE,P?EAST
 12 | 	PUTP	SWWL,P?SIZE,P?WEST
 13 | 	PUTP	SSWL,P?SIZE,P?SOUTH
 14 | 	PUTP	SNWL,P?SIZE,P?NORTH
 15 | 	SET	'LIT,1
 16 | 	SET	'WINNER,ADVENTURER
 17 | 	SET	'HERE,INSIDE-BARROW
 18 | 	SET	'P-IT-LOC,HERE
 19 | 	SET	'P-IT-OBJECT,0
 20 | 	FSET?	HERE,TOUCHBIT /?CND1
 21 | 	CALL	V-VERSION
 22 | 	CRLF	
 23 | ?CND1:	MOVE	WINNER,HERE
 24 | 	CALL	V-LOOK
 25 | 	CALL	MAIN-LOOP
 26 | 	JUMP	?FCN
 27 | 
 28 | 
 29 | 	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
 30 | ?PRG1:	SET	'CNT,0
 31 | 	SET	'OBJ,0
 32 | 	SET	'PTBL,1
 33 | 	CALL	PARSER >P-WON
 34 | 	ZERO?	P-WON /?ELS5
 35 | 	GET	P-PRSI,P-MATCHLEN >ICNT
 36 | 	GET	P-PRSO,P-MATCHLEN >OCNT
 37 | 	ZERO?	OCNT \?ELS10
 38 | 	PUSH	OCNT
 39 | 	JUMP	?CND6
 40 | ?ELS10:	GRTR?	OCNT,1 \?ELS12
 41 | 	SET	'TBL,P-PRSO
 42 | 	ZERO?	ICNT \?ELS15
 43 | 	SET	'OBJ,0
 44 | 	JUMP	?CND13
 45 | ?ELS15:	GET	P-PRSI,1 >OBJ
 46 | ?CND13:	PUSH	OCNT
 47 | 	JUMP	?CND6
 48 | ?ELS12:	GRTR?	ICNT,1 \?ELS19
 49 | 	SET	'PTBL,0
 50 | 	SET	'TBL,P-PRSI
 51 | 	GET	P-PRSO,1 >OBJ
 52 | 	PUSH	ICNT
 53 | 	JUMP	?CND6
 54 | ?ELS19:	PUSH	1
 55 | ?CND6:	SET	'NUM,STACK
 56 | 	ZERO?	OBJ \?CND22
 57 | 	EQUAL?	ICNT,1 \?CND22
 58 | 	GET	P-PRSI,1 >OBJ
 59 | ?CND22:	EQUAL?	PRSA,V?WALK \?ELS29
 60 | 	CALL	PERFORM,PRSA,PRSO >V
 61 | 	JUMP	?CND27
 62 | ?ELS29:	ZERO?	NUM \?ELS31
 63 | 	GETB	P-SYNTAX,P-SBITS
 64 | 	BAND	STACK,P-SONUMS
 65 | 	ZERO?	STACK \?ELS34
 66 | 	CALL	PERFORM,PRSA >V
 67 | 	JUMP	?CND27
 68 | ?ELS34:	PRINTI	"There isn't anything to "
 69 | 	GET	P-ITBL,P-VERBN >TMP
 70 | 	ZERO?	P-OFLAG /?ELS41
 71 | 	GET	TMP,0
 72 | 	PRINTB	STACK
 73 | 	JUMP	?CND39
 74 | ?ELS41:	GETB	TMP,2 >?TMP1
 75 | 	GETB	TMP,3
 76 | 	CALL	WORD-PRINT,?TMP1,STACK
 77 | ?CND39:	PRINTI	"!"
 78 | 	CRLF	
 79 | 	SET	'V,0
 80 | 	JUMP	?CND27
 81 | ?ELS31:	
 82 | ?PRG49:	IGRTR?	'CNT,NUM \?ELS53
 83 | 	JUMP	?REP50
 84 | ?ELS53:	ZERO?	PTBL /?ELS58
 85 | 	GET	P-PRSO,CNT >OBJ1
 86 | 	JUMP	?CND56
 87 | ?ELS58:	GET	P-PRSI,CNT >OBJ1
 88 | ?CND56:	GRTR?	NUM,1 \?CND62
 89 | 	PRINTD	OBJ1
 90 | 	PRINTI	": "
 91 | ?CND62:	ZERO?	PTBL /?ELS71
 92 | 	PUSH	OBJ1
 93 | 	JUMP	?CND67
 94 | ?ELS71:	PUSH	OBJ
 95 | ?CND67:	SET	'PRSO,STACK
 96 | 	ZERO?	PTBL /?ELS79
 97 | 	PUSH	OBJ
 98 | 	JUMP	?CND75
 99 | ?ELS79:	PUSH	OBJ1
100 | ?CND75:	SET	'PRSI,STACK
101 | 	CALL	PERFORM,PRSA,PRSO,PRSI >V
102 | 	EQUAL?	V,M-FATAL \?PRG49
103 | ?REP50:	SET	'P-IT-OBJECT,OBJ1
104 | 	SET	'P-IT-LOC,HERE
105 | ?CND27:	EQUAL?	PRSA,V?AGAIN /?CND86
106 | 	SET	'L-PRSA,PRSA
107 | 	SET	'L-PRSO,PRSO
108 | 	SET	'L-PRSI,PRSI
109 | ?CND86:	INC	'MOVES
110 | 	EQUAL?	V,M-FATAL \?CND3
111 | 	SET	'P-CONT,0
112 | 	JUMP	?CND3
113 | ?ELS5:	SET	'P-CONT,0
114 | ?CND3:	CALL	CLOCKER >V
115 | 	JUMP	?PRG1
116 | 
117 | 
118 | 	.FUNCT	PERFORM,A,O=0,I=0,V,OA,OO,OI
119 | 	SET	'OA,PRSA
120 | 	SET	'OO,PRSO
121 | 	SET	'OI,PRSI
122 | 	EQUAL?	IT,I,O \?CND1
123 | 	EQUAL?	P-IT-LOC,HERE /?CND1
124 | 	PRINTI	"I don't see what you are referring to."
125 | 	CRLF	
126 | 	RETURN	2
127 | ?CND1:	EQUAL?	O,IT \?CND10
128 | 	SET	'O,P-IT-OBJECT
129 | ?CND10:	EQUAL?	I,IT \?CND13
130 | 	SET	'I,P-IT-OBJECT
131 | ?CND13:	SET	'PRSA,A
132 | 	SET	'PRSO,O
133 | 	SET	'PRSI,I
134 | 	GETP	WINNER,P?ACTION
135 | 	CALL	STACK >V
136 | 	ZERO?	V /?ELS18
137 | 	JUMP	?CND16
138 | ?ELS18:	LOC	WINNER
139 | 	GETP	STACK,P?ACTION
140 | 	CALL	STACK,M-BEG >V
141 | 	ZERO?	V /?ELS20
142 | 	JUMP	?CND16
143 | ?ELS20:	GET	PREACTIONS,A
144 | 	CALL	STACK >V
145 | 	ZERO?	V /?ELS22
146 | 	JUMP	?CND16
147 | ?ELS22:	ZERO?	I /?ELS24
148 | 	GETP	I,P?ACTION
149 | 	CALL	STACK >V
150 | 	ZERO?	V /?ELS24
151 | 	JUMP	?CND16
152 | ?ELS24:	ZERO?	O /?ELS28
153 | 	EQUAL?	A,V?WALK /?ELS28
154 | 	GETP	O,P?ACTION
155 | 	CALL	STACK >V
156 | 	ZERO?	V /?ELS28
157 | 	JUMP	?CND16
158 | ?ELS28:	GET	ACTIONS,A
159 | 	CALL	STACK >V
160 | 	ZERO?	V /?CND16
161 | ?CND16:	EQUAL?	V,M-FATAL /?CND33
162 | 	LOC	WINNER
163 | 	GETP	STACK,P?ACTION
164 | 	CALL	STACK,M-END >V
165 | ?CND33:	SET	'PRSA,OA
166 | 	SET	'PRSO,OO
167 | 	SET	'PRSI,OI
168 | 	RETURN	V
169 | 
170 | 	.ENDI
171 | 


--------------------------------------------------------------------------------
/src/main.zil:
--------------------------------------------------------------------------------
  1 | "MAIN2 for
  2 | 		      Zork: The Wizard of Frobozz
  3 | 		 The Great Underground Empire (Part 2)
  4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
  5 | "
  6 | 
  7 | <GLOBAL P-WON <>>
  8 | 
  9 | <CONSTANT M-FATAL 2>
 10 |  
 11 | <CONSTANT M-HANDLED 1>   
 12 |  
 13 | <CONSTANT M-NOT-HANDLED <>>   
 14 |  
 15 | <CONSTANT M-BEG 1>  
 16 |  
 17 | <CONSTANT M-END <>> 
 18 |  
 19 | <CONSTANT M-ENTER 2>
 20 |  
 21 | <CONSTANT M-LOOK 3> 
 22 |  
 23 | <CONSTANT M-FLASH 4>
 24 | 
 25 | <CONSTANT M-OBJDESC 5>
 26 | 
 27 | <ROUTINE GO () 
 28 | ;"put interrupts on clock chain"
 29 | 	 <ENABLE <QUEUE I-WIZARD 4>>
 30 | 	 <QUEUE I-LANTERN 200>
 31 | ;"clean up junk compiler can't do"
 32 | 	 <PUTP ,BALLOON ,P?VTYPE ,RAIRBIT>
 33 | 	 <PUTP ,BUCKET ,P?VTYPE ,RBUCKBIT>
 34 | 	 <PUTP ,SEWL ,P?SIZE ,P?EAST>
 35 | 	 <PUTP ,SWWL ,P?SIZE ,P?WEST>
 36 | 	 <PUTP ,SSWL ,P?SIZE ,P?SOUTH>
 37 | 	 <PUTP ,SNWL ,P?SIZE ,P?NORTH>
 38 | ;"set up and go"
 39 | 	 <SETG LIT T>
 40 | 	 <SETG WINNER ,ADVENTURER>
 41 | 	 <SETG HERE ,INSIDE-BARROW>
 42 | 	 <SETG P-IT-LOC ,HERE>
 43 | 	 <SETG P-IT-OBJECT <>>
 44 | 	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>> <V-VERSION> <CRLF>)>
 45 | 	 <MOVE ,WINNER ,HERE>
 46 | 	 <V-LOOK>
 47 | 	 <MAIN-LOOP>
 48 | 	 <AGAIN>>    
 49 | 
 50 | 
 51 | <ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
 52 |    #DECL ((CNT OCNT ICNT NUM) FIX (V) <OR 'T FIX FALSE> (OBJ) <OR FALSE OBJECT>
 53 | 	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
 54 |    <REPEAT ()
 55 |      <SET CNT 0>
 56 |      <SET OBJ <>>
 57 |      <SET PTBL T>
 58 |      <COND (<SETG P-WON <PARSER>>
 59 | 	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
 60 | 	    <SET NUM
 61 | 		 <COND (<0? <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>> .OCNT)
 62 | 		       (<G? .OCNT 1>
 63 | 			<SET TBL ,P-PRSO>
 64 | 			<COND (<0? .ICNT> <SET OBJ <>>)
 65 | 			      (T <SET OBJ <GET ,P-PRSI 1>>)>
 66 | 			.OCNT)
 67 | 		       (<G? .ICNT 1>
 68 | 			<SET PTBL <>>
 69 | 			<SET TBL ,P-PRSI>
 70 | 			<SET OBJ <GET ,P-PRSO 1>>
 71 | 			.ICNT)
 72 | 		       (T 1)>>
 73 | 	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
 74 | 	    <COND (<==? ,PRSA ,V?WALK> <SET V <PERFORM ,PRSA ,PRSO>>)
 75 | 		  (<0? .NUM>
 76 | 		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
 77 | 			  <SET V <PERFORM ,PRSA>>)
 78 | 			 (T
 79 | 			  <TELL "There isn't anything to ">
 80 | 			  <SET TMP <GET ,P-ITBL ,P-VERBN>>
 81 | 			  <COND (,P-OFLAG
 82 | 				 <PRINTB <GET .TMP 0>>)
 83 | 				(T
 84 | 				 <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
 85 | 			  <TELL "!" CR>
 86 | 			  <SET V <>>)>)
 87 | 		  (T
 88 | 		   <REPEAT ()
 89 | 			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM> <RETURN>)
 90 | 				 (T
 91 | 				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
 92 | 					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
 93 | 				  <COND (<G? .NUM 1>
 94 | 					 <PRINTD .OBJ1>
 95 | 					 <TELL ": ">)>
 96 | 				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
 97 | 				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
 98 | 				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
 99 | 				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>
100 | 		   <SETG P-IT-OBJECT .OBJ1>
101 | 		   <SETG P-IT-LOC ,HERE>)>
102 | 	    <COND (<NOT <==? ,PRSA ,V?AGAIN>>
103 | 		   <SETG L-PRSA ,PRSA>
104 | 		   <SETG L-PRSO ,PRSO>
105 | 		   <SETG L-PRSI ,PRSI>)>
106 | 	    <SETG MOVES <+ ,MOVES 1>>
107 | 	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
108 | 	   (T
109 | 	    <SETG P-CONT <>>)>
110 |      <SET V <CLOCKER>>>>
111 |  
112 | <GLOBAL L-PRSA <>>  
113 |  
114 | <GLOBAL L-PRSO <>>  
115 |  
116 | <GLOBAL L-PRSI <>>  
117 | 
118 | <ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
119 | 	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
120 | 	<SET OA ,PRSA>
121 | 	<SET OO ,PRSO>
122 | 	<SET OI ,PRSI>
123 | 	<COND (<AND <EQUAL? ,IT .I .O>
124 | 		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
125 | 	       <TELL "I don't see what you are referring to." CR>
126 | 	       <RFATAL>)>
127 | 	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
128 | 	<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
129 | 	<SETG PRSA .A>
130 | 	<SETG PRSO .O>
131 | 	<SETG PRSI .I>
132 | 	<COND (<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
133 | 	      (<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
134 | 	      (<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
135 | 	      (<AND .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
136 | 	      (<AND .O
137 | 		    <NOT <==? .A ,V?WALK>>
138 | 		    <SET V <APPLY <GETP .O ,P?ACTION>>>>
139 | 	       .V)
140 | 	      (<SET V <APPLY <GET ,ACTIONS .A>>> .V)>
141 | 	<COND (<NOT <==? .V ,M-FATAL>>
142 | 	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
143 | 	<SETG PRSA .OA>
144 | 	<SETG PRSO .OO>
145 | 	<SETG PRSI .OI>
146 | 	.V>  
147 |  
148 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/main.zil:
--------------------------------------------------------------------------------
  1 | "MAIN2 for
  2 | 		      Zork: The Wizard of Frobozz
  3 | 		 The Great Underground Empire (Part 2)
  4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
  5 | "
  6 | 
  7 | <GLOBAL P-WON <>>
  8 | 
  9 | <CONSTANT M-FATAL 2>
 10 |  
 11 | <CONSTANT M-HANDLED 1>   
 12 |  
 13 | <CONSTANT M-NOT-HANDLED <>>   
 14 |  
 15 | <CONSTANT M-BEG 1>  
 16 |  
 17 | <CONSTANT M-END <>> 
 18 |  
 19 | <CONSTANT M-ENTER 2>
 20 |  
 21 | <CONSTANT M-LOOK 3> 
 22 |  
 23 | <CONSTANT M-FLASH 4>
 24 | 
 25 | <CONSTANT M-OBJDESC 5>
 26 | 
 27 | <ROUTINE GO () 
 28 | ;"put interrupts on clock chain"
 29 | 	 <ENABLE <QUEUE I-WIZARD 4>>
 30 | 	 <QUEUE I-LANTERN 200>
 31 | ;"clean up junk compiler can't do"
 32 | 	 <PUTP ,BALLOON ,P?VTYPE ,RAIRBIT>
 33 | 	 <PUTP ,BUCKET ,P?VTYPE ,RBUCKBIT>
 34 | 	 <PUTP ,SEWL ,P?SIZE ,P?EAST>
 35 | 	 <PUTP ,SWWL ,P?SIZE ,P?WEST>
 36 | 	 <PUTP ,SSWL ,P?SIZE ,P?SOUTH>
 37 | 	 <PUTP ,SNWL ,P?SIZE ,P?NORTH>
 38 | ;"set up and go"
 39 | 	 <SETG LIT T>
 40 | 	 <SETG WINNER ,ADVENTURER>
 41 | 	 <SETG HERE ,INSIDE-BARROW>
 42 | 	 <SETG P-IT-LOC ,HERE>
 43 | 	 <SETG P-IT-OBJECT <>>
 44 | 	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>> <V-VERSION> <CRLF>)>
 45 | 	 <MOVE ,WINNER ,HERE>
 46 | 	 <V-LOOK>
 47 | 	 <MAIN-LOOP>
 48 | 	 <AGAIN>>    
 49 | 
 50 | 
 51 | <ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP) 
 52 |    #DECL ((CNT OCNT ICNT NUM) FIX (V) <OR 'T FIX FALSE> (OBJ) <OR FALSE OBJECT>
 53 | 	  (OBJ1) OBJECT (TBL) TABLE (PTBL) <OR FALSE ATOM>)
 54 |    <REPEAT ()
 55 |      <SET CNT 0>
 56 |      <SET OBJ <>>
 57 |      <SET PTBL T>
 58 |      <COND (<SETG P-WON <PARSER>>
 59 | 	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
 60 | 	    <SET NUM
 61 | 		 <COND (<0? <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>> .OCNT)
 62 | 		       (<G? .OCNT 1>
 63 | 			<SET TBL ,P-PRSO>
 64 | 			<COND (<0? .ICNT> <SET OBJ <>>)
 65 | 			      (T <SET OBJ <GET ,P-PRSI 1>>)>
 66 | 			.OCNT)
 67 | 		       (<G? .ICNT 1>
 68 | 			<SET PTBL <>>
 69 | 			<SET TBL ,P-PRSI>
 70 | 			<SET OBJ <GET ,P-PRSO 1>>
 71 | 			.ICNT)
 72 | 		       (T 1)>>
 73 | 	    <COND (<AND <NOT .OBJ> <1? .ICNT>> <SET OBJ <GET ,P-PRSI 1>>)>
 74 | 	    <COND (<==? ,PRSA ,V?WALK> <SET V <PERFORM ,PRSA ,PRSO>>)
 75 | 		  (<0? .NUM>
 76 | 		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
 77 | 			  <SET V <PERFORM ,PRSA>>)
 78 | 			 (T
 79 | 			  <TELL "There isn't anything to ">
 80 | 			  <SET TMP <GET ,P-ITBL ,P-VERBN>>
 81 | 			  <COND (,P-OFLAG
 82 | 				 <PRINTB <GET .TMP 0>>)
 83 | 				(T
 84 | 				 <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
 85 | 			  <TELL "!" CR>
 86 | 			  <SET V <>>)>)
 87 | 		  (T
 88 | 		   <REPEAT ()
 89 | 			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM> <RETURN>)
 90 | 				 (T
 91 | 				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
 92 | 					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
 93 | 				  <COND (<G? .NUM 1>
 94 | 					 <PRINTD .OBJ1>
 95 | 					 <TELL ": ">)>
 96 | 				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
 97 | 				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
 98 | 				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
 99 | 				  <COND (<==? .V ,M-FATAL> <RETURN>)>)>>
100 | 		   <SETG P-IT-OBJECT .OBJ1>
101 | 		   <SETG P-IT-LOC ,HERE>)>
102 | 	    <COND (<NOT <==? ,PRSA ,V?AGAIN>>
103 | 		   <SETG L-PRSA ,PRSA>
104 | 		   <SETG L-PRSO ,PRSO>
105 | 		   <SETG L-PRSI ,PRSI>)>
106 | 	    <SETG MOVES <+ ,MOVES 1>>
107 | 	    <COND (<==? .V ,M-FATAL> <SETG P-CONT <>>)>)
108 | 	   (T
109 | 	    <SETG P-CONT <>>)>
110 |      <SET V <CLOCKER>>>>
111 |  
112 | <GLOBAL L-PRSA <>>  
113 |  
114 | <GLOBAL L-PRSO <>>  
115 |  
116 | <GLOBAL L-PRSI <>>  
117 | 
118 | <ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI) 
119 | 	#DECL ((A) FIX (O) <OR FALSE OBJECT FIX> (I) <OR FALSE OBJECT> (V) ANY)
120 | 	<SET OA ,PRSA>
121 | 	<SET OO ,PRSO>
122 | 	<SET OI ,PRSI>
123 | 	<COND (<AND <EQUAL? ,IT .I .O>
124 | 		    <NOT <EQUAL? ,P-IT-LOC ,HERE>>>
125 | 	       <TELL "I don't see what you are referring to." CR>
126 | 	       <RFATAL>)>
127 | 	<COND (<==? .O ,IT> <SET O ,P-IT-OBJECT>)>
128 | 	<COND (<==? .I ,IT> <SET I ,P-IT-OBJECT>)>
129 | 	<SETG PRSA .A>
130 | 	<SETG PRSO .O>
131 | 	<SETG PRSI .I>
132 | 	<COND (<SET V <APPLY <GETP ,WINNER ,P?ACTION>>> .V)
133 | 	      (<SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-BEG>> .V)
134 | 	      (<SET V <APPLY <GET ,PREACTIONS .A>>> .V)
135 | 	      (<AND .I <SET V <APPLY <GETP .I ,P?ACTION>>>> .V)
136 | 	      (<AND .O
137 | 		    <NOT <==? .A ,V?WALK>>
138 | 		    <SET V <APPLY <GETP .O ,P?ACTION>>>>
139 | 	       .V)
140 | 	      (<SET V <APPLY <GET ,ACTIONS .A>>> .V)>
141 | 	<COND (<NOT <==? .V ,M-FATAL>>
142 | 	       <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION> ,M-END>>)>
143 | 	<SETG PRSA .OA>
144 | 	<SETG PRSO .OO>
145 | 	<SETG PRSI .OI>
146 | 	.V>  
147 |  
148 | 


--------------------------------------------------------------------------------
/src/nstruc.mud:
--------------------------------------------------------------------------------
  1 | ;<PACKAGE "NEWSTRUC">
  2 | 
  3 | ;<RENTRY MSETG NEWSTRUC>
  4 | 
  5 | "Does SETG and MANIFEST"
  6 | <DEFINE MSETG ("TUPLE" DEFS)
  7 |    <COND (<NOT <0? <MOD <LENGTH .DEFS> 2>>>
  8 |           <ERROR BAD-ARGUMENT-LIST!-ERRORS MSETG>)
  9 |          (T
 10 |           <REPEAT ((EXPSPLICE <AND <ASSIGNED? EXPSPLICE> .EXPSPLICE>)
 11 |                    (REDEFINE <AND <ASSIGNED? REDEFINE> .REDEFINE>)
 12 |                    (HEAD (T)) (TAIL .HEAD) DEF VAL)
 13 |              <SET VAL <2 .DEFS>>
 14 |              <COND (<GASSIGNED? <SET DEF <1 .DEFS>>>
 15 |                     <COND (<OR .REDEFINE <=? .VAL ,.DEF>
 16 |                                <ERROR MSETG .DEF ALREADY-GASSIGNED ,.DEF>>
 17 |                            <GUNASSIGN .DEF>
 18 |                            <UNMANIFEST .DEF>
 19 |                            <AGAIN>)>)
 20 |                    (.EXPSPLICE
 21 |                     <PUTREST .TAIL
 22 |                              (<FORM SETG .DEF .VAL> <FORM MANIFEST .DEF>)>
 23 |                     <SET TAIL <REST .TAIL 2>>)
 24 |                    (T
 25 |                     <SETG .DEF .VAL>
 26 |                     <MANIFEST .DEF>)>
 27 |              <COND (<EMPTY? <SET DEFS <REST .DEFS 2>>>
 28 |                     <COND (.EXPSPLICE
 29 |                            <MAPF <> ,EVAL <REST .HEAD>>
 30 |                            <RETURN <CHTYPE <REST .HEAD> SPLICE>>)
 31 |                           (<RETURN>)>)>>)>>
 32 | 
 33 | "Set up structure definitions.  Takes name, primtype, pairs (sort of)
 34 |  of name & type for slots in structure"
 35 | <DEFINE NEWSTRUC (NAM PRIM
 36 | 		  "ARGS" ELEM
 37 | 		  "AUX" (RPRIM <COND (<TYPE? .PRIM LIST><1 .PRIM>)
 38 | 		                     (.PRIM)>)
 39 | 			(LL <FORM <FORM PRIMTYPE .RPRIM>>)
 40 |                         (L .LL) OFFS DEC
 41 | 			R RR (CNT 1)
 42 | 			(EXPSPLICE <AND <ASSIGNED? EXPSPLICE> .EXPSPLICE>))
 43 |    <REPEAT ((HEAD (T)) (TAIL .HEAD))
 44 |       <COND 
 45 |        (<EMPTY? .ELEM>
 46 |         <COND (<ASSIGNED? RR> <PUTREST .R (<VECTOR !.RR>)>)>
 47 |         <COND 
 48 |          (<TYPE? .NAM ATOM>
 49 |           <COND (<TYPE? .PRIM LIST>
 50 |                  <COND (.EXPSPLICE
 51 |                         <SET TAIL
 52 |                              <REST <PUTREST .TAIL
 53 |                                             (<FORM PUT-DECL .NAM
 54 |                                                    <FORM QUOTE .LL>>)>>>)>
 55 |                  <PUT-DECL .NAM .LL>)
 56 |                 (T
 57 |                  <COND (.EXPSPLICE
 58 |                         <SET TAIL
 59 |                              <REST <PUTREST .TAIL
 60 |                                             (<FORM NEWTYPE .NAM .RPRIM
 61 |                                                    <FORM QUOTE .LL>>)>>>
 62 |                         <NEWTYPE .NAM .RPRIM .LL>)
 63 |                        (T
 64 |                         <NEWTYPE .NAM .RPRIM .LL>)>)>)
 65 |          (T
 66 |           <1  .LL .RPRIM>
 67 |           <EVAL <FORM GDECL .NAM .LL>>
 68 |           <SET NAM <1 .NAM>>)>
 69 |         <COND (.EXPSPLICE
 70 |                <RETURN <CHTYPE <REST .HEAD> SPLICE>>)
 71 |               (<RETURN .NAM>)>)
 72 |        (<LENGTH? .ELEM 1> <ERROR NEWSTRUC>)>
 73 |       <SET OFFS <1 .ELEM>>
 74 |       <SET DEC <2 .ELEM>>
 75 |       <COND (<OR <NOT .OFFS> <TYPE? .OFFS FORM>>
 76 |              <SET CNT <+ .CNT 1>>
 77 |              <SET ELEM <REST .ELEM>>
 78 |              <AGAIN>)>
 79 |       <COND (<AND <TYPE? .OFFS STRING> <=? .OFFS "REST">>
 80 |              <AND <ASSIGNED? RR> <ERROR NEWSTRUC TWO-RESTS>>
 81 |              <SET R .L>
 82 |              <SET RR <SET L <LIST REST>>>
 83 |              <SET ELEM <REST .ELEM>>
 84 |              <AGAIN>)
 85 |             (<TYPE? .OFFS ATOM>
 86 |              <SETG .OFFS <OFFSET .CNT .NAM ;.DEC>>
 87 |              <MANIFEST .OFFS>
 88 |              <COND (.EXPSPLICE
 89 |                     <PUTREST .TAIL 
 90 |                              (<FORM SETG .OFFS ,.OFFS>
 91 |                               <FORM MANIFEST .OFFS>)>
 92 |                     <SET TAIL <REST .TAIL 2>>)>)
 93 |             (<TYPE? .OFFS LIST>
 94 |              <MAPF <>
 95 |                    <FUNCTION (A)
 96 |                       <SETG .A <OFFSET .CNT .NAM ;.DEC>>
 97 |                       <MANIFEST .A>
 98 |                       <COND (.EXPSPLICE
 99 |                              <PUTREST .TAIL
100 |                                       (<FORM SETG .A ,.A>
101 |                                        <FORM MANIFEST .OFFS>)>
102 |                              <SET TAIL <REST .TAIL 2>>)>>
103 |                    .OFFS>)
104 |             (T <ERROR NEWSTRUC>)>
105 |       <SET CNT <+ .CNT 1>>
106 |       <SET L <REST <PUTREST .L (.DEC)>>>
107 |       <SET ELEM <REST .ELEM 2>>>>
108 | 
109 | ;<ENDPACKAGE>
110 | 


--------------------------------------------------------------------------------
/out/zork2freq.xzap:
--------------------------------------------------------------------------------
  1 | 	.FSTR FSTR?1,"the "	;1642	821
  2 | 	.FSTR FSTR?2,"The "	;1122	374
  3 | 	.FSTR FSTR?3,"You "	;573	191
  4 | 	.FSTR FSTR?4,"and "	;548	274
  5 | 	.FSTR FSTR?5,"There "	;545	109
  6 | 	.FSTR FSTR?6,", "	;498	498
  7 | 	.FSTR FSTR?7,"is "	;477	477
  8 | 	.FSTR FSTR?8,". "	;455	455
  9 | 	.FSTR FSTR?9,"you "	;432	216
 10 | 	.FSTR FSTR?10,"of "	;372	372
 11 | 	.FSTR FSTR?11,"to "	;328	328
 12 | 	.FSTR FSTR?12,"can't "	;280	56
 13 | 	.FSTR FSTR?13,"with "	;267	89
 14 | 	.FSTR FSTR?14,"are "	;252	126
 15 | 	.FSTR FSTR?15,"This "	;236	59
 16 | 	.FSTR FSTR?16,"your "	;228	76
 17 | 	.FSTR FSTR?17,"from "	;222	74
 18 | 	.FSTR FSTR?18,"room "	;219	73
 19 | 	.FSTR FSTR?19,"Wizard "	;204	34
 20 | 	.FSTR FSTR?20,"in "	;189	189
 21 | 	.FSTR FSTR?21,"that "	;189	63
 22 | 	.FSTR FSTR?22,"which "	;184	46
 23 | 	.FSTR FSTR?23,"have "	;177	59
 24 | 	.FSTR FSTR?24,"into "	;165	55
 25 | 	.FSTR FSTR?25,"large "	;164	41
 26 | 	.FSTR FSTR?26,"this "	;153	51
 27 | 	.FSTR FSTR?27,"seems "	;148	37
 28 | 	.FSTR FSTR?28,"here"	;144	72
 29 | 	.FSTR FSTR?29,"small "	;144	36
 30 | 	.FSTR FSTR?30,"but "	;142	71
 31 | 	.FSTR FSTR?31,"appears "	;138	23
 32 | 	.FSTR FSTR?32,"dragon "	;135	27
 33 | 	.FSTR FSTR?33,"through "	;132	22
 34 | 	.FSTR FSTR?34,"It "	;124	62
 35 | 	.FSTR FSTR?35,"something "	;120	15
 36 | 	.FSTR FSTR?36,"Room"	;117	39
 37 | 	.FSTR FSTR?37,"Wizard's "	;117	13
 38 | 	.FSTR FSTR?38,"don't "	;115	23
 39 | 	.FSTR FSTR?39,"door "	;114	38
 40 | 	.FSTR FSTR?40,"for "	;112	56
 41 | 	.FSTR FSTR?41,"his "	;110	55
 42 | 	.FSTR FSTR?42,"out "	;106	53
 43 | 	.FSTR FSTR?43,"princess "	;105	15
 44 | 	.FSTR FSTR?44,"A "	;97	97
 45 | 	.FSTR FSTR?45,"He "	;96	48
 46 | 	.FSTR FSTR?46,"huge "	;93	31
 47 | 	.FSTR FSTR?47,"about "	;92	23
 48 | 	.FSTR FSTR?48,"on "	;90	90
 49 | 	.FSTR FSTR?49,"room"	;90	45
 50 | 	.FSTR FSTR?50,"very "	;90	30
 51 | 	.FSTR FSTR?51,"balloon "	;84	14
 52 | 	.FSTR FSTR?52,"Frobozz "	;84	12
 53 | 	.FSTR FSTR?53,"I "	;83	83
 54 | 	.FSTR FSTR?54,"it "	;80	80
 55 | 	.FSTR FSTR?55,"has "	;80	40
 56 | 	.FSTR FSTR?56,"looks "	;80	20
 57 | 	.FSTR FSTR?57,"around "	;80	16
 58 | 	.FSTR FSTR?58,"doesn't "	;77	11
 59 | 	.FSTR FSTR?59,"be "	;76	76
 60 | 	.FSTR FSTR?60,"would "	;76	19
 61 | 	.FSTR FSTR?61,"walls "	;76	19
 62 | 	.FSTR FSTR?62,"there "	;76	19
 63 | 	.FSTR FSTR?63,"center "	;75	15
 64 | 	.FSTR FSTR?64,"cannot "	;75	15
 65 | 	.FSTR FSTR?65,"not "	;74	37
 66 | 	.FSTR FSTR?66,"unicorn "	;72	12
 67 | 	.FSTR FSTR?67,"nothing "	;72	12
 68 | 	.FSTR FSTR?68,"disappears"	;72	9
 69 | 	.FSTR FSTR?69,"at "	;71	71
 70 | 	.FSTR FSTR?70,"volcano"	;70	14
 71 | 	.FSTR FSTR?71,"enormous "	;70	10
 72 | 	.FSTR FSTR?72,"some "	;69	23
 73 | 	.FSTR FSTR?73,"can "	;68	34
 74 | 	.FSTR FSTR?74,"sphere"	;68	17
 75 | 	.FSTR FSTR?75,"leads "	;68	17
 76 | 	.FSTR FSTR?76,"floor "	;68	17
 77 | 	.FSTR FSTR?77,"Your "	;68	17
 78 | 	.FSTR FSTR?78,"wall "	;66	22
 79 | 	.FSTR FSTR?79,"like "	;66	22
 80 | 	.FSTR FSTR?80,"crystal "	;66	11
 81 | 	.FSTR FSTR?81,"already "	;66	11
 82 | 	.FSTR FSTR?82,"almost "	;65	13
 83 | 	.FSTR FSTR?83,"that"	;64	32
 84 | 	.FSTR FSTR?84,"north "	;64	16
 85 | 	.FSTR FSTR?85,"light "	;64	16
 86 | 	.FSTR FSTR?86,"ledge "	;64	16
 87 | 	.FSTR FSTR?87,"demon "	;64	16
 88 | 	.FSTR FSTR?88,"above "	;64	16
 89 | 	.FSTR FSTR?89,"beautiful "	;64	8
 90 | 	.FSTR FSTR?90,"been "	;63	21
 91 | 	.FSTR FSTR?91,"probably "	;63	9
 92 | 	.FSTR FSTR?92,"Nothing "	;63	9
 93 | 	.FSTR FSTR?93,"as "	;60	60
 94 | 	.FSTR FSTR?94,"south "	;60	15
 95 | 	.FSTR FSTR?95,"wooden "	;60	12
 96 | 	.FSTR FSTR?96,"narrow "	;60	12
 97 | 
 98 | 
 99 | ;word frequency table of 96 most common words
100 | 
101 | WORDS::	.TABLE
102 | 	FSTR?1
103 | 	FSTR?2
104 | 	FSTR?3
105 | 	FSTR?4
106 | 	FSTR?5
107 | 	FSTR?6
108 | 	FSTR?7
109 | 	FSTR?8
110 | 	FSTR?9
111 | 	FSTR?10
112 | 	FSTR?11
113 | 	FSTR?12
114 | 	FSTR?13
115 | 	FSTR?14
116 | 	FSTR?15
117 | 	FSTR?16
118 | 	FSTR?17
119 | 	FSTR?18
120 | 	FSTR?19
121 | 	FSTR?20
122 | 	FSTR?21
123 | 	FSTR?22
124 | 	FSTR?23
125 | 	FSTR?24
126 | 	FSTR?25
127 | 	FSTR?26
128 | 	FSTR?27
129 | 	FSTR?28
130 | 	FSTR?29
131 | 	FSTR?30
132 | 	FSTR?31
133 | 	FSTR?32
134 | 	FSTR?33
135 | 	FSTR?34
136 | 	FSTR?35
137 | 	FSTR?36
138 | 	FSTR?37
139 | 	FSTR?38
140 | 	FSTR?39
141 | 	FSTR?40
142 | 	FSTR?41
143 | 	FSTR?42
144 | 	FSTR?43
145 | 	FSTR?44
146 | 	FSTR?45
147 | 	FSTR?46
148 | 	FSTR?47
149 | 	FSTR?48
150 | 	FSTR?49
151 | 	FSTR?50
152 | 	FSTR?51
153 | 	FSTR?52
154 | 	FSTR?53
155 | 	FSTR?54
156 | 	FSTR?55
157 | 	FSTR?56
158 | 	FSTR?57
159 | 	FSTR?58
160 | 	FSTR?59
161 | 	FSTR?60
162 | 	FSTR?61
163 | 	FSTR?62
164 | 	FSTR?63
165 | 	FSTR?64
166 | 	FSTR?65
167 | 	FSTR?66
168 | 	FSTR?67
169 | 	FSTR?68
170 | 	FSTR?69
171 | 	FSTR?70
172 | 	FSTR?71
173 | 	FSTR?72
174 | 	FSTR?73
175 | 	FSTR?74
176 | 	FSTR?75
177 | 	FSTR?76
178 | 	FSTR?77
179 | 	FSTR?78
180 | 	FSTR?79
181 | 	FSTR?80
182 | 	FSTR?81
183 | 	FSTR?82
184 | 	FSTR?83
185 | 	FSTR?84
186 | 	FSTR?85
187 | 	FSTR?86
188 | 	FSTR?87
189 | 	FSTR?88
190 | 	FSTR?89
191 | 	FSTR?90
192 | 	FSTR?91
193 | 	FSTR?92
194 | 	FSTR?93
195 | 	FSTR?94
196 | 	FSTR?95
197 | 	FSTR?96
198 | 	.ENDT
199 | 
200 | 	.ENDI
201 | 


--------------------------------------------------------------------------------
/origfiles/mimlib/sortx.mud:
--------------------------------------------------------------------------------
  1 | <PACKAGE "SORTX">
  2 | 
  3 | <RENTRY SORT>
  4 | 
  5 | <DEFINE SORT (PRED S1 "OPTIONAL" (L1 1) (OFFS 0) "TUPLE" T
  6 | 	      "AUX" L NN S SS E EE (STR? <>) SN)
  7 | 	#DECL ((PRED) <OR FALSE APPLICABLE> (S1 S SS) ANY
  8 | 	       (E EE) ANY (STR?) <OR ATOM FALSE> (L1 L OFFS NN SN) FIX)
  9 | 	<PROG ()
 10 | 	      <SET NN <+ .OFFS 1>>
 11 | 	      <COND (<TYPE? .S1 VECTOR>
 12 | 		     <SET E <NTH .S1 .NN>>
 13 | 		     <SET S <REST .S1 0>>
 14 | 		     <SET SS <REST .S .L1>>)
 15 | 		    (<TYPE? .S1 UVECTOR>
 16 | 		     <SET E <NTH .S1 .NN>>
 17 | 		     <SET S <REST .S1 0>>
 18 | 		     <SET SS <REST .S .L1>>)
 19 | 		    (<TYPE? .S1 LIST>
 20 | 		     <SET E <NTH .S1 .NN>>
 21 | 		     <SET S <REST .S1 0>>
 22 | 		     <SET SS <REST .S .L1>>)
 23 | 		    (<TYPE? .S1 TUPLE>
 24 | 		     <SET E <NTH .S1 .NN>>
 25 | 		     <SET S <REST .S1 0>>
 26 | 		     <SET SS <REST .S .L1>>)
 27 | 		    (ELSE
 28 | 		     <RETURN <ERROR BAD-SORT-RECORD!-ERRORS>>)>
 29 | 	      <COND (<NOT <EMPTY? .T>>
 30 | 		     <SET SN </ <LENGTH .S1> .L1>>
 31 | 		     <REPEAT ((TT .T) X LX)
 32 | 			     #DECL ((TT) TUPLE)
 33 | 			     <COND (<EMPTY? .TT> <RETURN>)>
 34 | 			     <SET X <1 .TT>>
 35 | 			     <SET TT <REST .TT>>
 36 | 			     <COND (<EMPTY? .TT> <SET L 1>)
 37 | 				   (ELSE
 38 | 				    <SET L <1 .TT>>
 39 | 				    <SET TT <REST .TT>>)>
 40 | 			     <COND (<AND <==? .SN </ <SET LX <LENGTH .X>> .L>>
 41 | 					 <0? <MOD .LX .L>>>)
 42 | 				   (ELSE 
 43 | 				    <ERROR INCONSISTENT-SORT-RECORD!-ERRORS
 44 | 					   .X>)>>)>
 45 | 	      <COND (<TYPE? .E STRING> <SET STR? T>)>
 46 | 	      <REPEAT ()
 47 | 		      <COND (<COND (<TYPE? .SS VECTOR> <EMPTY? .SS>)
 48 | 				   (<TYPE? .SS UVECTOR> <EMPTY? .SS>)
 49 | 				   (<TYPE? .SS LIST> <EMPTY? .SS>)
 50 | 				   (<TYPE? .SS TUPLE> <EMPTY? .SS>)>
 51 | 			     <COND (<TYPE? .S VECTOR> <SET S <REST .S .L1>>)
 52 | 				   (<TYPE? .S UVECTOR> <SET S <REST .S .L1>>)
 53 | 				   (<TYPE? .S LIST> <SET S <REST .S .L1>>)
 54 | 				   (<TYPE? .S TUPLE> <SET S <REST .S .L1>>)>
 55 | 			     <COND (<LENGTH? .S .L1> <RETURN .S1>)
 56 | 				   (<TYPE? .S VECTOR>
 57 | 				    <SET E <NTH .S .NN>>
 58 | 				    <SET SS <REST .S .L1>>)
 59 | 				   (<TYPE? .S UVECTOR>
 60 | 				    <SET E <NTH .S .NN>>
 61 | 				    <SET SS <REST .S .L1>>)
 62 | 				   (<TYPE? .S LIST>
 63 | 				    <SET E <NTH .S .NN>>
 64 | 				    <SET SS <REST .S .L1>>)
 65 | 				   (<TYPE? .S TUPLE>
 66 | 				    <SET E <NTH .S .NN>>
 67 | 				    <SET SS <REST .S .L1>>)>)>
 68 | 		      <COND (<TYPE? .S VECTOR>
 69 | 			     <SET EE <NTH .SS .NN>>)
 70 | 			    (<TYPE? .S UVECTOR>
 71 | 			     <SET EE <NTH .SS .NN>>)
 72 | 			    (<TYPE? .S LIST>
 73 | 			     <SET EE <NTH .SS .NN>>)
 74 | 			    (<TYPE? .S TUPLE>
 75 | 			     <SET EE <NTH .SS .NN>>)>
 76 | 		      <COND (<COND (.PRED <APPLY .PRED .E .EE>)
 77 | 				   (.STR? <G? <SET L <STRCOMP .E .EE>> 0>)
 78 | 				   (ELSE <G? .E .EE>)>
 79 | 			     <SET E .EE>
 80 | 			     <SWITCH .S .SS .L1>
 81 | 		      <COND (<NOT <EMPTY? .T>>
 82 | 			     <REPEAT ((TT .T) X)
 83 | 				     #DECL ((TT) TUPLE)
 84 | 				     <COND (<EMPTY? .TT> <RETURN>)>
 85 | 				     <SET X <1 .TT>>
 86 | 				     <SET TT <REST .TT>>
 87 | 				     <COND (<EMPTY? .TT> <SET L 1>)
 88 | 					   (ELSE
 89 | 					    <SET L <1 .TT>>
 90 | 					    <SET TT <REST .TT>>)>
 91 | 				     <SWITCH <REST .X
 92 | 						   <* .L
 93 | 						      <- .SN
 94 | 							 </ <LENGTH .S> .L1>>>>
 95 | 					     <REST .X
 96 | 						   <* .L
 97 | 						      <- .SN
 98 | 							 </ <LENGTH .SS> .L1>>>>
 99 | 					     .L>>)>)>
100 | 		      <COND (<TYPE? .SS VECTOR>
101 | 			     <SET SS <REST .SS .L1>>)
102 | 			    (<TYPE? .SS UVECTOR>
103 | 			     <SET SS <REST .SS .L1>>)
104 | 			    (<TYPE? .SS LIST>
105 | 			     <SET SS <REST .SS .L1>>)
106 | 			    (<TYPE? .SS TUPLE>
107 | 			     <SET SS <REST .SS .L1>>)>>>>
108 | 
109 | <DEFINE SWITCH (S SS L)
110 | 	#DECL ((L) FIX)
111 | 	<COND (<AND <TYPE? .S VECTOR> <TYPE? .SS VECTOR>>
112 | 	       <MAPR <>
113 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
114 | 			  <PUT .S 1 <1 .SS>>
115 | 			  <PUT .SS 1 .TMP>
116 | 			  <COND (<0? <SET L <- .L 1>>>
117 | 				 <MAPLEAVE>)>>
118 | 		     .S .SS>)
119 | 	      (<AND <TYPE? .S UVECTOR> <TYPE? .SS UVECTOR>>
120 | 	       <MAPR <>
121 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
122 | 			  <PUT .S 1 <1 .SS>>
123 | 			  <PUT .SS 1 .TMP>
124 | 			  <COND (<0? <SET L <- .L 1>>>
125 | 				 <MAPLEAVE>)>>
126 | 		     .S .SS>)
127 | 	      (<AND <TYPE? .S LIST> <TYPE? .SS LIST>>
128 | 	       <MAPR <>
129 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
130 | 			  <PUT .S 1 <1 .SS>>
131 | 			  <PUT .SS 1 .TMP>
132 | 			  <COND (<0? <SET L <- .L 1>>>
133 | 				 <MAPLEAVE>)>>
134 | 		     .S .SS>)
135 | 	      (<AND <TYPE? .S TUPLE> <TYPE? .SS TUPLE>>
136 | 	       <MAPR <>
137 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
138 | 			  <PUT .S 1 <1 .SS>>
139 | 			  <PUT .SS 1 .TMP>
140 | 			  <COND (<0? <SET L <- .L 1>>>
141 | 				 <MAPLEAVE>)>>
142 | 		     .S .SS>)>>
143 | 
144 | <ENDPACKAGE>
145 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zap/zork2freq.xzap:
--------------------------------------------------------------------------------
  1 | 	.FSTR FSTR?1,"the "	;1642	821
  2 | 	.FSTR FSTR?2,"The "	;1122	374
  3 | 	.FSTR FSTR?3,"You "	;573	191
  4 | 	.FSTR FSTR?4,"and "	;548	274
  5 | 	.FSTR FSTR?5,"There "	;545	109
  6 | 	.FSTR FSTR?6,", "	;498	498
  7 | 	.FSTR FSTR?7,"is "	;477	477
  8 | 	.FSTR FSTR?8,". "	;455	455
  9 | 	.FSTR FSTR?9,"you "	;432	216
 10 | 	.FSTR FSTR?10,"of "	;372	372
 11 | 	.FSTR FSTR?11,"to "	;328	328
 12 | 	.FSTR FSTR?12,"can't "	;280	56
 13 | 	.FSTR FSTR?13,"with "	;267	89
 14 | 	.FSTR FSTR?14,"are "	;252	126
 15 | 	.FSTR FSTR?15,"This "	;236	59
 16 | 	.FSTR FSTR?16,"your "	;228	76
 17 | 	.FSTR FSTR?17,"from "	;222	74
 18 | 	.FSTR FSTR?18,"room "	;219	73
 19 | 	.FSTR FSTR?19,"Wizard "	;204	34
 20 | 	.FSTR FSTR?20,"in "	;189	189
 21 | 	.FSTR FSTR?21,"that "	;189	63
 22 | 	.FSTR FSTR?22,"which "	;184	46
 23 | 	.FSTR FSTR?23,"have "	;177	59
 24 | 	.FSTR FSTR?24,"into "	;165	55
 25 | 	.FSTR FSTR?25,"large "	;164	41
 26 | 	.FSTR FSTR?26,"this "	;153	51
 27 | 	.FSTR FSTR?27,"seems "	;148	37
 28 | 	.FSTR FSTR?28,"here"	;144	72
 29 | 	.FSTR FSTR?29,"small "	;144	36
 30 | 	.FSTR FSTR?30,"but "	;142	71
 31 | 	.FSTR FSTR?31,"appears "	;138	23
 32 | 	.FSTR FSTR?32,"dragon "	;135	27
 33 | 	.FSTR FSTR?33,"through "	;132	22
 34 | 	.FSTR FSTR?34,"It "	;124	62
 35 | 	.FSTR FSTR?35,"something "	;120	15
 36 | 	.FSTR FSTR?36,"Room"	;117	39
 37 | 	.FSTR FSTR?37,"Wizard's "	;117	13
 38 | 	.FSTR FSTR?38,"don't "	;115	23
 39 | 	.FSTR FSTR?39,"door "	;114	38
 40 | 	.FSTR FSTR?40,"for "	;112	56
 41 | 	.FSTR FSTR?41,"his "	;110	55
 42 | 	.FSTR FSTR?42,"out "	;106	53
 43 | 	.FSTR FSTR?43,"princess "	;105	15
 44 | 	.FSTR FSTR?44,"A "	;97	97
 45 | 	.FSTR FSTR?45,"He "	;96	48
 46 | 	.FSTR FSTR?46,"huge "	;93	31
 47 | 	.FSTR FSTR?47,"about "	;92	23
 48 | 	.FSTR FSTR?48,"on "	;90	90
 49 | 	.FSTR FSTR?49,"room"	;90	45
 50 | 	.FSTR FSTR?50,"very "	;90	30
 51 | 	.FSTR FSTR?51,"balloon "	;84	14
 52 | 	.FSTR FSTR?52,"Frobozz "	;84	12
 53 | 	.FSTR FSTR?53,"I "	;83	83
 54 | 	.FSTR FSTR?54,"it "	;80	80
 55 | 	.FSTR FSTR?55,"has "	;80	40
 56 | 	.FSTR FSTR?56,"looks "	;80	20
 57 | 	.FSTR FSTR?57,"around "	;80	16
 58 | 	.FSTR FSTR?58,"doesn't "	;77	11
 59 | 	.FSTR FSTR?59,"be "	;76	76
 60 | 	.FSTR FSTR?60,"would "	;76	19
 61 | 	.FSTR FSTR?61,"walls "	;76	19
 62 | 	.FSTR FSTR?62,"there "	;76	19
 63 | 	.FSTR FSTR?63,"center "	;75	15
 64 | 	.FSTR FSTR?64,"cannot "	;75	15
 65 | 	.FSTR FSTR?65,"not "	;74	37
 66 | 	.FSTR FSTR?66,"unicorn "	;72	12
 67 | 	.FSTR FSTR?67,"nothing "	;72	12
 68 | 	.FSTR FSTR?68,"disappears"	;72	9
 69 | 	.FSTR FSTR?69,"at "	;71	71
 70 | 	.FSTR FSTR?70,"volcano"	;70	14
 71 | 	.FSTR FSTR?71,"enormous "	;70	10
 72 | 	.FSTR FSTR?72,"some "	;69	23
 73 | 	.FSTR FSTR?73,"can "	;68	34
 74 | 	.FSTR FSTR?74,"sphere"	;68	17
 75 | 	.FSTR FSTR?75,"leads "	;68	17
 76 | 	.FSTR FSTR?76,"floor "	;68	17
 77 | 	.FSTR FSTR?77,"Your "	;68	17
 78 | 	.FSTR FSTR?78,"wall "	;66	22
 79 | 	.FSTR FSTR?79,"like "	;66	22
 80 | 	.FSTR FSTR?80,"crystal "	;66	11
 81 | 	.FSTR FSTR?81,"already "	;66	11
 82 | 	.FSTR FSTR?82,"almost "	;65	13
 83 | 	.FSTR FSTR?83,"that"	;64	32
 84 | 	.FSTR FSTR?84,"north "	;64	16
 85 | 	.FSTR FSTR?85,"light "	;64	16
 86 | 	.FSTR FSTR?86,"ledge "	;64	16
 87 | 	.FSTR FSTR?87,"demon "	;64	16
 88 | 	.FSTR FSTR?88,"above "	;64	16
 89 | 	.FSTR FSTR?89,"beautiful "	;64	8
 90 | 	.FSTR FSTR?90,"been "	;63	21
 91 | 	.FSTR FSTR?91,"probably "	;63	9
 92 | 	.FSTR FSTR?92,"Nothing "	;63	9
 93 | 	.FSTR FSTR?93,"as "	;60	60
 94 | 	.FSTR FSTR?94,"south "	;60	15
 95 | 	.FSTR FSTR?95,"wooden "	;60	12
 96 | 	.FSTR FSTR?96,"narrow "	;60	12
 97 | 
 98 | 
 99 | ;word frequency table of 96 most common words
100 | 
101 | WORDS::	.TABLE
102 | 	FSTR?1
103 | 	FSTR?2
104 | 	FSTR?3
105 | 	FSTR?4
106 | 	FSTR?5
107 | 	FSTR?6
108 | 	FSTR?7
109 | 	FSTR?8
110 | 	FSTR?9
111 | 	FSTR?10
112 | 	FSTR?11
113 | 	FSTR?12
114 | 	FSTR?13
115 | 	FSTR?14
116 | 	FSTR?15
117 | 	FSTR?16
118 | 	FSTR?17
119 | 	FSTR?18
120 | 	FSTR?19
121 | 	FSTR?20
122 | 	FSTR?21
123 | 	FSTR?22
124 | 	FSTR?23
125 | 	FSTR?24
126 | 	FSTR?25
127 | 	FSTR?26
128 | 	FSTR?27
129 | 	FSTR?28
130 | 	FSTR?29
131 | 	FSTR?30
132 | 	FSTR?31
133 | 	FSTR?32
134 | 	FSTR?33
135 | 	FSTR?34
136 | 	FSTR?35
137 | 	FSTR?36
138 | 	FSTR?37
139 | 	FSTR?38
140 | 	FSTR?39
141 | 	FSTR?40
142 | 	FSTR?41
143 | 	FSTR?42
144 | 	FSTR?43
145 | 	FSTR?44
146 | 	FSTR?45
147 | 	FSTR?46
148 | 	FSTR?47
149 | 	FSTR?48
150 | 	FSTR?49
151 | 	FSTR?50
152 | 	FSTR?51
153 | 	FSTR?52
154 | 	FSTR?53
155 | 	FSTR?54
156 | 	FSTR?55
157 | 	FSTR?56
158 | 	FSTR?57
159 | 	FSTR?58
160 | 	FSTR?59
161 | 	FSTR?60
162 | 	FSTR?61
163 | 	FSTR?62
164 | 	FSTR?63
165 | 	FSTR?64
166 | 	FSTR?65
167 | 	FSTR?66
168 | 	FSTR?67
169 | 	FSTR?68
170 | 	FSTR?69
171 | 	FSTR?70
172 | 	FSTR?71
173 | 	FSTR?72
174 | 	FSTR?73
175 | 	FSTR?74
176 | 	FSTR?75
177 | 	FSTR?76
178 | 	FSTR?77
179 | 	FSTR?78
180 | 	FSTR?79
181 | 	FSTR?80
182 | 	FSTR?81
183 | 	FSTR?82
184 | 	FSTR?83
185 | 	FSTR?84
186 | 	FSTR?85
187 | 	FSTR?86
188 | 	FSTR?87
189 | 	FSTR?88
190 | 	FSTR?89
191 | 	FSTR?90
192 | 	FSTR?91
193 | 	FSTR?92
194 | 	FSTR?93
195 | 	FSTR?94
196 | 	FSTR?95
197 | 	FSTR?96
198 | 	.ENDT
199 | 
200 | 	.ENDI
201 | 


--------------------------------------------------------------------------------
/origfiles/mimlib/newstruc.mud:
--------------------------------------------------------------------------------
  1 | <PACKAGE "NEWSTRUC">
  2 | 
  3 | <RENTRY MSETG NEWSTRUC>
  4 | 
  5 | "Does SETG and MANIFEST"
  6 | <DEFINE MSETG ("TUPLE" DEFS:<<PRIMTYPE VECTOR> [REST ATOM ANY]>)
  7 |    <COND (<NOT <0? <MOD <LENGTH .DEFS> 2>>>
  8 |           <ERROR BAD-ARGUMENT-LIST!-ERRORS MSETG>)
  9 |          (T
 10 |           <REPEAT ((EXPSPLICE <AND <ASSIGNED? EXPSPLICE> .EXPSPLICE>)
 11 |                    (REDEFINE <AND <ASSIGNED? REDEFINE> .REDEFINE>)
 12 |                    (HEAD:LIST (T)) (TAIL:LIST .HEAD) DEF:ATOM VAL:ANY)
 13 |              <SET VAL <2 .DEFS>>
 14 |              <COND (<GASSIGNED? <SET DEF <1 .DEFS>>>
 15 |                     <COND (<OR .REDEFINE <=? .VAL ,.DEF>
 16 |                                <ERROR MSETG .DEF ALREADY-GASSIGNED ,.DEF>>
 17 |                            <GUNASSIGN .DEF>
 18 |                            <UNMANIFEST .DEF>
 19 |                            <AGAIN>)>)
 20 |                    (.EXPSPLICE
 21 |                     <PUTREST .TAIL
 22 |                              (<FORM SETG .DEF .VAL> <FORM MANIFEST .DEF>)>
 23 |                     <SET TAIL <REST .TAIL 2>>)
 24 |                    (T
 25 |                     <SETG .DEF .VAL>
 26 |                     <MANIFEST .DEF>)>
 27 |              <COND (<EMPTY? <SET DEFS <REST .DEFS 2>>>
 28 |                     <COND (.EXPSPLICE
 29 |                            <MAPF <> ,EVAL <REST .HEAD>>
 30 |                            <RETURN <CHTYPE <REST .HEAD> SPLICE>>)
 31 |                           (<RETURN>)>)>>)>>
 32 | 
 33 | "Set up structure definitions.  Takes name, primtype, pairs (sort of)
 34 |  of name & type for slots in structure"
 35 | <DEFINE NEWSTRUC (NAM:<OR ATOM <LIST ATOM>> PRIM:<OR ATOM <LIST ATOM>>
 36 | 		  "ARGS" ELEM:<PRIMTYPE LIST>
 37 | 		  "AUX" (RPRIM:ATOM <COND (<TYPE? .PRIM LIST> <1 .PRIM>)
 38 |                                           (.PRIM)>)
 39 | 			(LL:<PRIMTYPE LIST> <FORM <FORM PRIMTYPE .RPRIM>>)
 40 |                         (L:<PRIMTYPE LIST> .LL) OFFS DEC
 41 | 			R:<PRIMTYPE LIST> RR:<PRIMTYPE LIST> (CNT:FIX 1)
 42 | 			(EXPSPLICE <AND <ASSIGNED? EXPSPLICE> .EXPSPLICE>))
 43 |    <REPEAT ((HEAD:LIST (T)) (TAIL:LIST .HEAD))
 44 |       <COND 
 45 |        (<EMPTY? .ELEM>
 46 |         <COND (<ASSIGNED? RR> <PUTREST .R (<VECTOR !.RR>)>)>
 47 |         <COND 
 48 |          (<TYPE? .NAM ATOM>
 49 |           <COND (<TYPE? .PRIM LIST>
 50 |                  <COND (.EXPSPLICE
 51 |                         <SET TAIL
 52 |                              <REST <PUTREST .TAIL
 53 |                                             (<FORM PUT-DECL .NAM
 54 |                                                    <FORM QUOTE .LL>>)>>>)>
 55 |                  <PUT-DECL .NAM .LL>)
 56 |                 (T
 57 |                  <COND (.EXPSPLICE
 58 |                         <SET TAIL
 59 |                              <REST <PUTREST .TAIL
 60 |                                             (<FORM NEWTYPE .NAM .RPRIM
 61 |                                                    <FORM QUOTE .LL>>)>>>
 62 |                         <NEWTYPE .NAM .RPRIM .LL>)
 63 |                        (T
 64 |                         <NEWTYPE .NAM .RPRIM .LL>)>)>)
 65 |          (T
 66 |           <1  .LL .RPRIM>
 67 |           <EVAL <FORM GDECL .NAM .LL>>
 68 |           <SET NAM <1 .NAM>>)>
 69 |         <COND (.EXPSPLICE
 70 |                <RETURN <CHTYPE <REST .HEAD> SPLICE>>)
 71 |               (<RETURN .NAM>)>)
 72 |        (<LENGTH? .ELEM 1> <ERROR NEWSTRUC>)>
 73 |       <SET OFFS <1 .ELEM>>
 74 |       <SET DEC <2 .ELEM>>
 75 |       <COND (<OR <NOT .OFFS> <TYPE? .OFFS FORM>>
 76 |              <SET CNT <+ .CNT 1>>
 77 |              <SET ELEM <REST .ELEM>>
 78 |              <AGAIN>)>
 79 |       <COND (<AND <TYPE? .OFFS STRING> <=? .OFFS "REST">>
 80 |              <AND <ASSIGNED? RR> <ERROR NEWSTRUC TWO-RESTS>>
 81 |              <SET R .L>
 82 |              <SET RR <SET L <LIST REST>>>
 83 |              <SET ELEM <REST .ELEM>>
 84 |              <AGAIN>)
 85 |             (<TYPE? .OFFS ATOM>
 86 |              <SETG .OFFS <OFFSET .CNT .NAM .DEC>>
 87 |              <MANIFEST .OFFS>
 88 |              <COND (.EXPSPLICE
 89 |                     <PUTREST .TAIL 
 90 |                              (<FORM SETG .OFFS ,.OFFS>
 91 |                               <FORM MANIFEST .OFFS>)>
 92 |                     <SET TAIL <REST .TAIL 2>>)>)
 93 |             (<TYPE? .OFFS LIST>
 94 |              <MAPF <>
 95 |                    <FUNCTION (A)
 96 |                       <SETG .A <OFFSET .CNT .NAM .DEC>>
 97 |                       <MANIFEST .A>
 98 |                       <COND (.EXPSPLICE
 99 |                              <PUTREST .TAIL
100 |                                       (<FORM SETG .A ,.A>
101 |                                        <FORM MANIFEST .OFFS>)>
102 |                              <SET TAIL <REST .TAIL 2>>)>>
103 |                    .OFFS>)
104 |             (T <ERROR NEWSTRUC>)>
105 |       <SET CNT <+ .CNT 1>>
106 |       <SET L <REST <PUTREST .L (.DEC)>>>
107 |       <SET ELEM <REST .ELEM 2>>>>
108 | 
109 | <ENDPACKAGE>
110 | 


--------------------------------------------------------------------------------
/src/sort.mud:
--------------------------------------------------------------------------------
  1 | ;<PACKAGE "SORTX">
  2 | 
  3 | ;<RENTRY SORT>
  4 | 
  5 | <DEFINE SORTEX (PRED S1 "OPTIONAL" (L1 1) (OFFS 0) "TUPLE" T
  6 | 	      "AUX" L NN S SS E EE (STR? <>) SN)
  7 | 	 #DECL ((PRED) <OR FALSE APPLICABLE> (S1 S SS) ANY
  8 | 		(E EE) ANY (STR?) <OR ATOM FALSE> (L1 L OFFS NN SN) FIX)
  9 | 	 <PROG ()
 10 | 	       <COND (<EMPTY? .S1>
 11 | 		      <RETURN .S1>)>
 12 | 	       <SET NN <+ .OFFS 1>>
 13 | 	       <COND (<TYPE? .S1 VECTOR>
 14 | 		      <SET E <NTH .S1 .NN>>
 15 | 		      <SET S <REST .S1 0>>
 16 | 		      <SET SS <REST .S .L1>>)
 17 | 		     (<TYPE? .S1 UVECTOR>
 18 | 		      <SET E <NTH .S1 .NN>>
 19 | 		      <SET S <REST .S1 0>>
 20 | 		      <SET SS <REST .S .L1>>)
 21 | 		     (<TYPE? .S1 LIST>
 22 | 		      <SET E <NTH .S1 .NN>>
 23 | 		      <SET S <REST .S1 0>>
 24 | 		      <SET SS <REST .S .L1>>)
 25 | 		     (<TYPE? .S1 TUPLE>
 26 | 		      <SET E <NTH .S1 .NN>>
 27 | 		      <SET S <REST .S1 0>>
 28 | 		      <SET SS <REST .S .L1>>)
 29 | 		     (ELSE
 30 | 		      <RETURN <ERROR BAD-SORT-RECORD!-ERRORS>>)>
 31 | 	       <COND (<NOT <EMPTY? .T>>
 32 | 		      <SET SN </ <LENGTH .S1> .L1>>
 33 | 		      <REPEAT ((TT .T) X LX)
 34 | 			      #DECL ((TT) TUPLE)
 35 | 			      <COND (<EMPTY? .TT> <RETURN>)>
 36 | 			      <SET X <1 .TT>>
 37 | 			      <SET TT <REST .TT>>
 38 | 			      <COND (<EMPTY? .TT> <SET L 1>)
 39 | 				    (ELSE
 40 | 				     <SET L <1 .TT>>
 41 | 				     <SET TT <REST .TT>>)>
 42 | 			      <COND (<AND <==? .SN </ <SET LX <LENGTH .X>> .L>>
 43 | 					  <0? <MOD .LX .L>>>)
 44 | 				    (ELSE 
 45 | 				     <ERROR INCONSISTENT-SORT-RECORD!-ERRORS
 46 | 					    .X>)>>)>
 47 | 	       <COND (<TYPE? .E STRING> <SET STR? T>)
 48 | 		     (<TYPE? .E ATOM> <SET STR? T>)>
 49 | 	       <REPEAT ()
 50 | 		       <COND (<COND (<TYPE? .SS VECTOR> <EMPTY? .SS>)
 51 | 				    (<TYPE? .SS UVECTOR> <EMPTY? .SS>)
 52 | 				    (<TYPE? .SS LIST> <EMPTY? .SS>)
 53 | 				    (<TYPE? .SS TUPLE> <EMPTY? .SS>)>
 54 | 			      <COND (<TYPE? .S VECTOR> <SET S <REST .S .L1>>)
 55 | 				    (<TYPE? .S UVECTOR> <SET S <REST .S .L1>>)
 56 | 				    (<TYPE? .S LIST> <SET S <REST .S .L1>>)
 57 | 				    (<TYPE? .S TUPLE> <SET S <REST .S .L1>>)>
 58 | 			      <COND (<LENGTH? .S .L1> <RETURN .S1>)
 59 | 				    (<TYPE? .S VECTOR>
 60 | 				     <SET E <NTH .S .NN>>
 61 | 				     <SET SS <REST .S .L1>>)
 62 | 				    (<TYPE? .S UVECTOR>
 63 | 				     <SET E <NTH .S .NN>>
 64 | 				     <SET SS <REST .S .L1>>)
 65 | 				    (<TYPE? .S LIST>
 66 | 				     <SET E <NTH .S .NN>>
 67 | 				     <SET SS <REST .S .L1>>)
 68 | 				    (<TYPE? .S TUPLE>
 69 | 				     <SET E <NTH .S .NN>>
 70 | 				     <SET SS <REST .S .L1>>)>)>
 71 | 		       <COND (<TYPE? .S VECTOR>
 72 | 			      <SET EE <NTH .SS .NN>>)
 73 | 			     (<TYPE? .S UVECTOR>
 74 | 			      <SET EE <NTH .SS .NN>>)
 75 | 			     (<TYPE? .S LIST>
 76 | 			      <SET EE <NTH .SS .NN>>)
 77 | 			     (<TYPE? .S TUPLE>
 78 | 			      <SET EE <NTH .SS .NN>>)>
 79 | 		       <COND (<COND (.PRED <APPLY .PRED .E .EE>)
 80 | 				    (.STR? <G? <SET L <STRCOMP .E .EE>> 0>)
 81 | 				   (ELSE <G? .E .EE>)>
 82 | 			     <SET E .EE>
 83 | 			     <SWITCH .S .SS .L1>
 84 | 		      <COND (<NOT <EMPTY? .T>>
 85 | 			     <REPEAT ((TT .T) X)
 86 | 				     #DECL ((TT) TUPLE)
 87 | 				     <COND (<EMPTY? .TT> <RETURN>)>
 88 | 				     <SET X <1 .TT>>
 89 | 				     <SET TT <REST .TT>>
 90 | 				     <COND (<EMPTY? .TT> <SET L 1>)
 91 | 					   (ELSE
 92 | 					    <SET L <1 .TT>>
 93 | 					    <SET TT <REST .TT>>)>
 94 | 				     <SWITCH <REST .X
 95 | 						   <* .L
 96 | 						      <- .SN
 97 | 							 </ <LENGTH .S> .L1>>>>
 98 | 					     <REST .X
 99 | 						   <* .L
100 | 						      <- .SN
101 | 							 </ <LENGTH .SS> .L1>>>>
102 | 					     .L>>)>)>
103 | 		      <COND (<TYPE? .SS VECTOR>
104 | 			     <SET SS <REST .SS .L1>>)
105 | 			    (<TYPE? .SS UVECTOR>
106 | 			     <SET SS <REST .SS .L1>>)
107 | 			    (<TYPE? .SS LIST>
108 | 			     <SET SS <REST .SS .L1>>)
109 | 			    (<TYPE? .SS TUPLE>
110 | 			     <SET SS <REST .SS .L1>>)>>>>
111 | 
112 | <DEFINE SWITCH (S SS L)
113 | 	#DECL ((L) FIX)
114 | 	<COND (<AND <TYPE? .S VECTOR> <TYPE? .SS VECTOR>>
115 | 	       <MAPR <>
116 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
117 | 			  <PUT .S 1 <1 .SS>>
118 | 			  <PUT .SS 1 .TMP>
119 | 			  <COND (<0? <SET L <- .L 1>>>
120 | 				 <MAPLEAVE>)>>
121 | 		     .S .SS>)
122 | 	      (<AND <TYPE? .S UVECTOR> <TYPE? .SS UVECTOR>>
123 | 	       <MAPR <>
124 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
125 | 			  <PUT .S 1 <1 .SS>>
126 | 			  <PUT .SS 1 .TMP>
127 | 			  <COND (<0? <SET L <- .L 1>>>
128 | 				 <MAPLEAVE>)>>
129 | 		     .S .SS>)
130 | 	      (<AND <TYPE? .S LIST> <TYPE? .SS LIST>>
131 | 	       <MAPR <>
132 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
133 | 			  <PUT .S 1 <1 .SS>>
134 | 			  <PUT .SS 1 .TMP>
135 | 			  <COND (<0? <SET L <- .L 1>>>
136 | 				 <MAPLEAVE>)>>
137 | 		     .S .SS>)
138 | 	      (<AND <TYPE? .S TUPLE> <TYPE? .SS TUPLE>>
139 | 	       <MAPR <>
140 | 		     <FUNCTION (S SS "AUX" (TMP <1 .S>))
141 | 			  <PUT .S 1 <1 .SS>>
142 | 			  <PUT .SS 1 .TMP>
143 | 			  <COND (<0? <SET L <- .L 1>>>
144 | 				 <MAPLEAVE>)>>
145 | 		     .S .SS>)>>
146 | 
147 | ;<ENDPACKAGE>
148 | 


--------------------------------------------------------------------------------
/origfiles/mimlib/trace.mud:
--------------------------------------------------------------------------------
  1 | <PACKAGE "TRACE">
  2 | 
  3 | <ENTRY TRACE UNTRACE TRACE-LIST TRACE-PRINTER
  4 |        IN-PRINT OUT-PRINT IN-BREAK OUT-BREAK
  5 |        TFUNCT TARGS TVALUE>
  6 | 
  7 | <USE "NEWSTRUC" "TTY">
  8 | 
  9 | <NEWSTRUC TAPPLICABLE LIST
 10 | 	  TAPP <OR MSUBR FUNCTION>
 11 | 	  TATOM ATOM
 12 | 	  IN-PRINT ANY
 13 | 	  OUT-PRINT ANY
 14 | 	  IN-BREAK ANY
 15 | 	  OUT-BREAK ANY
 16 | 	  TPRINTER ATOM>
 17 | 
 18 | <SETG TRACE-PRINTER PRIN1>
 19 | <GDECL (TRACE-PRINTER) ATOM>
 20 | 
 21 | <DEFINE TRACE ("ARGS" ARGL)
 22 | 	#DECL ((ARGL) LIST (A) ATOM (VAL) ANY (APP) TAPPLICABLE)
 23 | 	<COND (<EMPTY? .ARGL> <>)
 24 | 	      (<TYPE? <1 .ARGL> ATOM>
 25 | 	       <TRACE-SPEC .ARGL>)
 26 | 	      (ELSE
 27 | 	       <MAPF <> ,TRACE-SPEC .ARGL>)>>
 28 | 
 29 | <DEFINE TRACE-SPEC (ARGL "AUX" A VAL APP (IP <>) (IB <>) (TEST T))
 30 | 	#DECL ((ARGL) LIST (A) ATOM (VAL) ANY (APP) TAPPLICABLE)
 31 | 	<REPEAT ()
 32 | 		<SET TEST T>
 33 | 		<COND (<EMPTY? .ARGL>
 34 | 		       <COND (<OR .IP .IB <OUT-PRINT .APP> <OUT-BREAK .APP>>)
 35 | 			     (ELSE
 36 | 			      <IN-PRINT .APP T>
 37 | 			      <OUT-PRINT .APP T>)>
 38 | 		       <RETURN <COND (<ASSIGNED? APP> .APP)>>)
 39 | 		      (<TYPE? <1 .ARGL> ATOM>
 40 | 		       <SET A <1 .ARGL>>
 41 | 		       <COND (<AND <NOT <EMPTY? <REST .ARGL>>>
 42 | 				   <TYPE? <2 .ARGL> FORM LVAL GVAL>>
 43 | 			      <SET TEST <2 .ARGL>>)>
 44 | 		       <COND (<=? <SPNAME .A> "BOTH">
 45 | 			      <COND (<ASSIGNED? APP> <OUT-PRINT .APP .TEST>)
 46 | 				    (ELSE <SET IP .TEST>)>
 47 | 			      <COND (<ASSIGNED? APP> <OUT-BREAK .APP .TEST>)
 48 | 				    (ELSE <SET IB .TEST>)>)
 49 | 			     (<=? <SPNAME .A> "PRINT">
 50 | 			      <COND (<ASSIGNED? APP> <OUT-PRINT .APP .TEST>)
 51 | 				    (ELSE <SET IP .TEST>)>)
 52 | 			     (<=? <SPNAME .A> "BREAK">
 53 | 			      <COND (<ASSIGNED? APP> <OUT-BREAK .APP .TEST>)
 54 | 				    (ELSE <SET IB .TEST>)>)
 55 | 			     (ELSE 
 56 | 			      <COND (<GASSIGNED? .A>
 57 | 				     <COND (<TYPE? <SET VAL ,.A> TAPPLICABLE>
 58 | 					    <SET APP .VAL>
 59 | 					    <IN-PRINT .APP .IP>
 60 | 					    <IN-BREAK .APP .IB>
 61 | 					    <OUT-PRINT .APP <>>
 62 | 					    <OUT-BREAK .APP <>>
 63 | 					    <TPRINTER .APP ,TRACE-PRINTER>
 64 | 					    <SETG .A .APP>)
 65 | 					   (<TYPE? .VAL MSUBR FUNCTION>
 66 | 					    <UNTRACE .A>
 67 | 					    <SETG .A
 68 | 						  <SET APP
 69 | 						       <CHTYPE
 70 | 							<LIST .VAL
 71 | 							      .A
 72 | 							      .IP
 73 | 							      <>
 74 | 							      .IB
 75 | 							      <>
 76 | 							      ,TRACE-PRINTER>
 77 | 							TAPPLICABLE>>>
 78 | 					    <SETG TRACE-LIST
 79 | 						  (.APP !,TRACE-LIST)>)
 80 | 					   (ELSE
 81 | 					    <ERROR CANT-TRACE!-ERRORS .A .VAL>
 82 | 					    <RETURN <>>)>)
 83 | 				    (ELSE
 84 | 				     <ERROR NO-VALUE!-ERRORS .A>
 85 | 				     <RETURN <>>)>)>)
 86 | 		      (ELSE
 87 | 		       <ERROR BAD-TRACE-SPECIFICATION!-ERRORS <1 .ARGL>>
 88 | 		       <RETURN <>>)>
 89 | 		<COND (<AND <NOT <EMPTY? <SET ARGL <REST .ARGL>>>>
 90 | 			    <NOT <TYPE? <1 .ARGL> ATOM>>
 91 | 			    <==? .TEST <1 .ARGL>>>
 92 | 		       <SET ARGL <REST .ARGL>>)>>>
 93 | 
 94 | <DEFINE UNTRACE ("TUPLE" AA "AUX" A)
 95 | 	#DECL ((A) ATOM)
 96 | 	<COND (<EMPTY? .AA>
 97 | 	       <MAPF <>
 98 | 		     <FUNCTION (TA)
 99 | 			       #DECL ((TA) TAPPLICABLE)
100 | 			       <SETG <TATOM .TA> <TAPP .TA>>
101 | 			       <DETRACE .TA>>
102 | 		     ,TRACE-LIST>
103 | 	       <SETG TRACE-LIST ()>)
104 | 	      (ELSE
105 | 	       <REPEAT ()
106 | 		       <COND (<EMPTY? .AA> <RETURN>)>
107 | 		       <COND (<GASSIGNED? <SET A <1 .AA>>>
108 | 			      <REPEAT ((TL ,TRACE-LIST))
109 | 				      #DECL ((TL) <LIST [REST TAPPLICABLE]>)
110 | 				      <COND (<EMPTY? .TL>
111 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
112 | 						    <DETRACE ,.A>
113 | 						    <SETG .A <TAPP ,.A>>)>
114 | 					     <RETURN>)
115 | 					    (<==? .A <TATOM <1 .TL>>>
116 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
117 | 						    <SETG .A <TAPP <1 .TL>>>)>
118 | 					     <DETRACE <1 .TL>>
119 | 					     <SETG TRACE-LIST <REST .TL>>
120 | 					     <RETURN>)
121 | 					    (<LENGTH? .TL 1> ;"not in list"
122 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
123 | 						    <SETG .A <TAPP ,.A>>
124 | 						    <DETRACE ,.A>)>
125 | 					     <RETURN>)
126 | 					    (<==? .A <TATOM <2 .TL>>>
127 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
128 | 						    <SETG .A <TAPP <2 .TL>>>)>
129 | 					     <DETRACE <2 .TL>>
130 | 					     <PUTREST .TL <REST .TL 2>>
131 | 					     <RETURN>)
132 | 					    (ELSE <SET TL <REST .TL>>)>>)>
133 | 		       <SET AA <REST .AA>>>)>>
134 | 
135 | <DEFINE DETRACE (TAPP)
136 | 	#DECL ((TAPP) TAPPLICABLE)
137 | 	<IN-PRINT .TAPP <>>
138 | 	<OUT-PRINT .TAPP <>>
139 | 	<IN-BREAK .TAPP <>>
140 | 	<OUT-BREAK .TAPP <>>>
141 | 
142 | <SETG TRACE-LEVEL 0>
143 | <GDECL (TRACE-LEVEL) FIX>
144 | 
145 | <DEFINE TRACER (APP "TUPLE" ARGS
146 | 		"AUX" (TFUNCT <TAPP .APP>) (TARGS .ARGS) TVALUE
147 | 		(TR ,TRACE-LEVEL))
148 | 	#DECL ((APP) TAPPLICABLE (VAL) ANY
149 | 	       (TARGS) <SPECIAL TUPLE> (TFUNCT TVALUE) <SPECIAL ANY> (TR) FIX)
150 | 	<UNWIND <PROG ()
151 | 		      <COND (<EVAL <IN-PRINT .APP>>
152 | 			     <PROG LERR!-INTERRUPTS
153 | 				   ((RUN 0) (OUTCHAN ,DEBUG-CHANNEL))
154 | 				   #DECL ((OUTCHAN) <SPECIAL CHANNEL>
155 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
156 | 				   <COND (<==? .RUN 0>
157 | 					  <SET RUN 1>
158 | 					  <CHANNEL-OP .OUTCHAN FRESH-LINE>
159 | 					  <AND <G? .TR 0> <INDENT-TO .TR>>
160 | 					  <PRINC "IN:  ">
161 | 					  <PRIN1 <TATOM .APP>>
162 | 					  <MAPF <>
163 | 						<FUNCTION (A)
164 | 						     <PRINC !\ >
165 | 						     <APPLY ,<TPRINTER .APP> .A>>
166 | 						.TARGS>)>>)>
167 | 		      <COND (<EVAL <IN-BREAK .APP>>
168 | 			     <PROG LERR!-INTERRUPTS ((OUTCHAN ,DEBUG-CHANNEL)
169 | 						     (RUN 0))
170 | 				   #DECL ((OUTCHAN) <SPECIAL CHANNEL>
171 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
172 | 				   <COND (<==? .RUN 0>
173 | 					  <SET RUN 1>
174 | 					  <LISTEN IN-BREAK <TATOM .APP> .TARGS>)
175 | 					 (ELSE
176 | 					  <LISTEN IN-BREAK <TATOM .APP>>)>>)>
177 | 		      <SETG TRACE-LEVEL <+ .TR 1>>
178 | 		      <SET TVALUE <APPLY .TFUNCT !.TARGS>>
179 | 		      <SETG TRACE-LEVEL .TR>
180 | 		      <COND (<EVAL <OUT-PRINT .APP>>
181 | 			     <PROG LERR!-INTERRUPTS
182 | 				   ((RUN 0) (OUTCHAN ,DEBUG-CHANNEL))
183 | 				   #DECL ((OUTCHAN) <SPECIAL CHANNEL>
184 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
185 | 				   <COND (<==? .RUN 0>
186 | 					  <SET RUN 1>
187 | 					  <CHANNEL-OP .OUTCHAN FRESH-LINE>
188 | 					  <AND <G? .TR 0> <INDENT-TO .TR>>
189 | 					  <PRINC "OUT: ">
190 | 					  <PRIN1 <TATOM .APP>>
191 | 					  <PRINC " => ">
192 | 					  <APPLY ,<TPRINTER .APP> .TVALUE>
193 | 					  <PRINC !\ >)>>)>
194 | 		      <COND (<EVAL <OUT-BREAK .APP>>
195 | 			     <PROG LERR!-INTERRUPTS ((OUTCHAN ,DEBUG-CHANNEL)
196 | 						     (RUN 0))
197 | 				   #DECL ((OUTCHAN) <SPECIAL CHANNEL>
198 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
199 | 				   <COND (<==? .RUN 0>
200 | 					  <SET RUN 1>
201 | 					  <LISTEN OUT-BREAK <TATOM .APP> .TVALUE>)
202 | 					 (ELSE
203 | 					  <LISTEN OUT-BREAK <TATOM .APP>>)>>)>
204 | 		      .TVALUE>
205 | 		<SETG TRACE-LEVEL .TR>>>
206 | 
207 | <COND (<NOT <FEATURE? "COMPILER">> <APPLYTYPE TAPPLICABLE ,TRACER>)>
208 | 
209 | <SETG TRACE-LIST ()>
210 | <GDECL (TRACE-LIST) <LIST [REST TAPPLICABLE]>>
211 | 
212 | <DEFINE TAPPLICABLE-PRINT (TAPP "OPTIONAL" (OUTCHAN .OUTCHAN))
213 | 	#DECL ((TAPP) TAPPLICABLE (OUTCHAN) CHANNEL)
214 | 	<PRINC "%<TRACE">
215 | 	<COND (<AND <TYPE? <IN-PRINT .TAPP> ATOM>
216 | 		    <TYPE? <OUT-PRINT .TAPP> ATOM>
217 | 		    <NOT <IN-BREAK .TAPP>>
218 | 		    <NOT <OUT-BREAK .TAPP>>>
219 | 	       <PRINC !\ >
220 | 	       <PRIN1 <TATOM .TAPP>>)
221 | 	      (ELSE
222 | 	       <COND (<IN-PRINT .TAPP>
223 | 		      <PRINC " PRINT">
224 | 		      <COND (<NOT <TYPE? <IN-PRINT .TAPP> ATOM>>
225 | 			     <PRINC !\ >
226 | 			     <PRIN1 <IN-PRINT .TAPP>>)>)>
227 | 	       <COND (<IN-BREAK .TAPP>
228 | 		      <PRINC " BREAK">
229 | 		      <COND (<NOT <TYPE? <IN-BREAK .TAPP> ATOM>>
230 | 			     <PRINC !\ >
231 | 			     <PRIN1 <IN-BREAK .TAPP>>)>)>
232 | 	       <PRINC !\ >
233 | 	       <PRIN1 <TATOM .TAPP>>
234 | 	       <COND (<OUT-PRINT .TAPP>
235 | 		      <PRINC " PRINT">
236 | 		      <COND (<NOT <TYPE? <OUT-PRINT .TAPP> ATOM>>
237 | 			     <PRINC !\ >
238 | 			     <PRIN1 <OUT-PRINT .TAPP>>)>)>
239 | 	       <COND (<OUT-BREAK .TAPP>
240 | 		      <PRINC " BREAK">
241 | 		      <COND (<NOT <TYPE? <OUT-BREAK .TAPP> ATOM>>
242 | 			     <PRINC !\ >
243 | 			     <PRIN1 <OUT-BREAK .TAPP>>)>)>)>
244 | 	<PRINC !\>>>
245 | 
246 | <COND (<NOT <FEATURE? "COMPILER">> <PRINTTYPE TAPPLICABLE ,TAPPLICABLE-PRINT>)>
247 | 
248 | <ENDPACKAGE>
249 | 


--------------------------------------------------------------------------------
/src/trace.mud:
--------------------------------------------------------------------------------
  1 | <DEFINE FEATURE? (F) <>>
  2 | 
  3 | ;<PACKAGE "TRACE">
  4 | 
  5 | ;<ENTRY TRACE UNTRACE TRACE-LIST TRACE-PRINTER
  6 |        IN-PRINT OUT-PRINT IN-BREAK OUT-BREAK
  7 |        TFUNCT TARGS TVALUE>
  8 | 
  9 | ;<USE "NEWSTRUC" "TTY">
 10 | 
 11 | <NEWSTRUC TAPPLICABLE LIST
 12 | 	  TAPP <OR RSUBR SUBR FUNCTION>
 13 | 	  TATOM ATOM
 14 | 	  IN-PRINT ANY
 15 | 	  OUT-PRINT ANY
 16 | 	  IN-BREAK ANY
 17 | 	  OUT-BREAK ANY
 18 | 	  TPRINTER ATOM>
 19 | 
 20 | <SETG TRACE-PRINTER PRIN1>
 21 | <GDECL (TRACE-PRINTER) ATOM>
 22 | 
 23 | <DEFINE TRACE ("ARGS" ARGL)
 24 | 	#DECL ((ARGL) LIST (A) ATOM (VAL) ANY (APP) TAPPLICABLE)
 25 | 	<COND (<EMPTY? .ARGL> <>)
 26 | 	      (<TYPE? <1 .ARGL> ATOM>
 27 | 	       <TRACE-SPEC .ARGL>)
 28 | 	      (ELSE
 29 | 	       <MAPF <> ,TRACE-SPEC .ARGL>)>>
 30 | 
 31 | <DEFINE TRACE-SPEC (ARGL "AUX" A VAL APP (IP <>) (IB <>) (TEST T))
 32 | 	#DECL ((ARGL) LIST (A) ATOM (VAL) ANY (APP) TAPPLICABLE)
 33 | 	<REPEAT ()
 34 | 		<SET TEST T>
 35 | 		<COND (<EMPTY? .ARGL>
 36 | 		       <COND (<OR .IP .IB <OUT-PRINT .APP> <OUT-BREAK .APP>>)
 37 | 			     (ELSE
 38 | 			      <IN-PRINT .APP T>
 39 | 			      <OUT-PRINT .APP T>)>
 40 | 		       <RETURN <COND (<ASSIGNED? APP> .APP)>>)
 41 | 		      (<TYPE? <1 .ARGL> ATOM>
 42 | 		       <SET A <1 .ARGL>>
 43 | 		       <COND (<AND <NOT <EMPTY? <REST .ARGL>>>
 44 | 				   <TYPE? <2 .ARGL> FORM LVAL GVAL>>
 45 | 			      <SET TEST <2 .ARGL>>)>
 46 | 		       <COND (<=? <SPNAME .A> "BOTH">
 47 | 			      <COND (<ASSIGNED? APP> <OUT-PRINT .APP .TEST>)
 48 | 				    (ELSE <SET IP .TEST>)>
 49 | 			      <COND (<ASSIGNED? APP> <OUT-BREAK .APP .TEST>)
 50 | 				    (ELSE <SET IB .TEST>)>)
 51 | 			     (<=? <SPNAME .A> "PRINT">
 52 | 			      <COND (<ASSIGNED? APP> <OUT-PRINT .APP .TEST>)
 53 | 				    (ELSE <SET IP .TEST>)>)
 54 | 			     (<=? <SPNAME .A> "BREAK">
 55 | 			      <COND (<ASSIGNED? APP> <OUT-BREAK .APP .TEST>)
 56 | 				    (ELSE <SET IB .TEST>)>)
 57 | 			     (ELSE 
 58 | 			      <COND (<GASSIGNED? .A>
 59 | 				     <COND (<TYPE? <SET VAL ,.A> TAPPLICABLE>
 60 | 					    <SET APP .VAL>
 61 | 					    <IN-PRINT .APP .IP>
 62 | 					    <IN-BREAK .APP .IB>
 63 | 					    <OUT-PRINT .APP <>>
 64 | 					    <OUT-BREAK .APP <>>
 65 | 					    <TPRINTER .APP ,TRACE-PRINTER>
 66 | 					    <SETG .A .APP>)
 67 | 					   (<TYPE? .VAL SUBR FUNCTION>
 68 | 					    ;<TYPE? .VAL MSUBR FUNCTION>
 69 | 					    <UNTRACE .A>
 70 | 					    <SETG .A
 71 | 						  <SET APP
 72 | 						       <CHTYPE
 73 | 							<LIST .VAL
 74 | 							      .A
 75 | 							      .IP
 76 | 							      <>
 77 | 							      .IB
 78 | 							      <>
 79 | 							      ,TRACE-PRINTER>
 80 | 							TAPPLICABLE>>>
 81 | 					    <SETG TRACE-LIST
 82 | 						  (.APP !,TRACE-LIST)>)
 83 | 					   (ELSE
 84 | 					    <ERROR CANT-TRACE!-ERRORS .A .VAL>
 85 | 					    <RETURN <>>)>)
 86 | 				    (ELSE
 87 | 				     <ERROR NO-VALUE!-ERRORS .A>
 88 | 				     <RETURN <>>)>)>)
 89 | 		      (ELSE
 90 | 		       <ERROR BAD-TRACE-SPECIFICATION!-ERRORS <1 .ARGL>>
 91 | 		       <RETURN <>>)>
 92 | 		<COND (<AND <NOT <EMPTY? <SET ARGL <REST .ARGL>>>>
 93 | 			    <NOT <TYPE? <1 .ARGL> ATOM>>
 94 | 			    <==? .TEST <1 .ARGL>>>
 95 | 		       <SET ARGL <REST .ARGL>>)>>>
 96 | 
 97 | <DEFINE UNTRACE ("TUPLE" AA "AUX" A)
 98 | 	#DECL ((A) ATOM)
 99 | 	<COND (<EMPTY? .AA>
100 | 	       <MAPF <>
101 | 		     <FUNCTION (TA)
102 | 			       #DECL ((TA) TAPPLICABLE)
103 | 			       <SETG <TATOM .TA> <TAPP .TA>>
104 | 			       <DETRACE .TA>>
105 | 		     ,TRACE-LIST>
106 | 	       <SETG TRACE-LIST ()>)
107 | 	      (ELSE
108 | 	       <REPEAT ()
109 | 		       <COND (<EMPTY? .AA> <RETURN>)>
110 | 		       <COND (<GASSIGNED? <SET A <1 .AA>>>
111 | 			      <REPEAT ((TL ,TRACE-LIST))
112 | 				      #DECL ((TL) <LIST [REST TAPPLICABLE]>)
113 | 				      <COND (<EMPTY? .TL>
114 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
115 | 						    <DETRACE ,.A>
116 | 						    <SETG .A <TAPP ,.A>>)>
117 | 					     <RETURN>)
118 | 					    (<==? .A <TATOM <1 .TL>>>
119 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
120 | 						    <SETG .A <TAPP <1 .TL>>>)>
121 | 					     <DETRACE <1 .TL>>
122 | 					     <SETG TRACE-LIST <REST .TL>>
123 | 					     <RETURN>)
124 | 					    (<LENGTH? .TL 1> ;"not in list"
125 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
126 | 						    <SETG .A <TAPP ,.A>>
127 | 						    <DETRACE ,.A>)>
128 | 					     <RETURN>)
129 | 					    (<==? .A <TATOM <2 .TL>>>
130 | 					     <COND (<TYPE? ,.A TAPPLICABLE>
131 | 						    <SETG .A <TAPP <2 .TL>>>)>
132 | 					     <DETRACE <2 .TL>>
133 | 					     <PUTREST .TL <REST .TL 2>>
134 | 					     <RETURN>)
135 | 					    (ELSE <SET TL <REST .TL>>)>>)>
136 | 		       <SET AA <REST .AA>>>)>>
137 | 
138 | <DEFINE DETRACE (TAPP)
139 | 	#DECL ((TAPP) TAPPLICABLE)
140 | 	<IN-PRINT .TAPP <>>
141 | 	<OUT-PRINT .TAPP <>>
142 | 	<IN-BREAK .TAPP <>>
143 | 	<OUT-BREAK .TAPP <>>>
144 | 
145 | <SETG TRACE-LEVEL 0>
146 | <GDECL (TRACE-LEVEL) FIX>
147 | 
148 | <DEFINE TRACER (APP "TUPLE" ARGS
149 | 		"AUX" (TFUNCT <TAPP .APP>) (TARGS .ARGS) TVALUE
150 | 		(TR ,TRACE-LEVEL))
151 | 	#DECL ((APP) TAPPLICABLE (VAL) ANY
152 | 	       (TARGS) <SPECIAL TUPLE> (TFUNCT TVALUE) <SPECIAL ANY> (TR) FIX)
153 | 	<UNWIND <PROG ()
154 | 		      <COND (<EVAL <IN-PRINT .APP>>
155 | 			     <PROG LERR!-INTERRUPTS
156 | 				   ((RUN 0) (OUTCHAN ,DEBUG-CHANNEL))
157 | 				   ;#DECL ((OUTCHAN) <SPECIAL CHANNEL>
158 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
159 | 				   <COND (<==? .RUN 0>
160 | 					  <SET RUN 1>
161 | 					  ;<CHANNEL-OP .OUTCHAN FRESH-LINE>
162 | 					  <CRLF>
163 | 					  <AND <G? .TR 0> <INDENT-TO .TR>>
164 | 					  <PRINC "IN:  ">
165 | 					  <PRIN1 <TATOM .APP>>
166 | 					  <MAPF <>
167 | 						<FUNCTION (A)
168 | 						     <PRINC !\ >
169 | 						     <APPLY ,<TPRINTER .APP> .A>>
170 | 						.TARGS>)>>)>
171 | 		      <COND (<EVAL <IN-BREAK .APP>>
172 | 			     <PROG LERR!-INTERRUPTS ((OUTCHAN ,DEBUG-CHANNEL)
173 | 						     (RUN 0))
174 | 				   #DECL ((OUTCHAN) <SPECIAL CHANNEL>
175 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
176 | 				   <COND (<==? .RUN 0>
177 | 					  <SET RUN 1>
178 | 					  <LISTEN IN-BREAK <TATOM .APP> .TARGS>)
179 | 					 (ELSE
180 | 					  <LISTEN IN-BREAK <TATOM .APP>>)>>)>
181 | 		      <SETG TRACE-LEVEL <+ .TR 1>>
182 | 		      <SET TVALUE <APPLY .TFUNCT !.TARGS>>
183 | 		      <SETG TRACE-LEVEL .TR>
184 | 		      <COND (<EVAL <OUT-PRINT .APP>>
185 | 			     <PROG LERR!-INTERRUPTS
186 | 				   ((RUN 0) (OUTCHAN ,DEBUG-CHANNEL))
187 | 				   ;#DECL ((OUTCHAN) <SPECIAL CHANNEL>
188 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
189 | 				   <COND (<==? .RUN 0>
190 | 					  <SET RUN 1>
191 | 					  ;<CHANNEL-OP .OUTCHAN FRESH-LINE>
192 | 					  <CRLF>
193 | 					  <AND <G? .TR 0> <INDENT-TO .TR>>
194 | 					  <PRINC "OUT: ">
195 | 					  <PRIN1 <TATOM .APP>>
196 | 					  <PRINC " => ">
197 | 					  <APPLY ,<TPRINTER .APP> .TVALUE>
198 | 					  <PRINC !\ >)>>)>
199 | 		      <COND (<EVAL <OUT-BREAK .APP>>
200 | 			     <PROG LERR!-INTERRUPTS ((OUTCHAN ,DEBUG-CHANNEL)
201 | 						     (RUN 0))
202 | 				   ;#DECL ((OUTCHAN) <SPECIAL CHANNEL>
203 | 					  (LERR!-INTERRUPTS) <SPECIAL FRAME>)
204 | 				   <COND (<==? .RUN 0>
205 | 					  <SET RUN 1>
206 | 					  <LISTEN OUT-BREAK <TATOM .APP> .TVALUE>)
207 | 					 (ELSE
208 | 					  <LISTEN OUT-BREAK <TATOM .APP>>)>>)>
209 | 		      .TVALUE>
210 | 		<SETG TRACE-LEVEL .TR>>>
211 | 
212 | <COND (<NOT <FEATURE? "COMPILER">> <APPLYTYPE TAPPLICABLE ,TRACER>)>
213 | 
214 | <SETG TRACE-LIST ()>
215 | <GDECL (TRACE-LIST) <LIST [REST TAPPLICABLE]>>
216 | 
217 | <DEFINE TAPPLICABLE-PRINT (TAPP "OPTIONAL" (OUTCHAN .OUTCHAN))
218 | 	#DECL ((TAPP) TAPPLICABLE (OUTCHAN) CHANNEL)
219 | 	<PRINC "%<TRACE">
220 | 	<COND (<AND <TYPE? <IN-PRINT .TAPP> ATOM>
221 | 		    <TYPE? <OUT-PRINT .TAPP> ATOM>
222 | 		    <NOT <IN-BREAK .TAPP>>
223 | 		    <NOT <OUT-BREAK .TAPP>>>
224 | 	       <PRINC !\ >
225 | 	       <PRIN1 <TATOM .TAPP>>)
226 | 	      (ELSE
227 | 	       <COND (<IN-PRINT .TAPP>
228 | 		      <PRINC " PRINT">
229 | 		      <COND (<NOT <TYPE? <IN-PRINT .TAPP> ATOM>>
230 | 			     <PRINC !\ >
231 | 			     <PRIN1 <IN-PRINT .TAPP>>)>)>
232 | 	       <COND (<IN-BREAK .TAPP>
233 | 		      <PRINC " BREAK">
234 | 		      <COND (<NOT <TYPE? <IN-BREAK .TAPP> ATOM>>
235 | 			     <PRINC !\ >
236 | 			     <PRIN1 <IN-BREAK .TAPP>>)>)>
237 | 	       <PRINC !\ >
238 | 	       <PRIN1 <TATOM .TAPP>>
239 | 	       <COND (<OUT-PRINT .TAPP>
240 | 		      <PRINC " PRINT">
241 | 		      <COND (<NOT <TYPE? <OUT-PRINT .TAPP> ATOM>>
242 | 			     <PRINC !\ >
243 | 			     <PRIN1 <OUT-PRINT .TAPP>>)>)>
244 | 	       <COND (<OUT-BREAK .TAPP>
245 | 		      <PRINC " BREAK">
246 | 		      <COND (<NOT <TYPE? <OUT-BREAK .TAPP> ATOM>>
247 | 			     <PRINC !\ >
248 | 			     <PRIN1 <OUT-BREAK .TAPP>>)>)>)>
249 | 	<PRINC !\>>>
250 | 
251 | <COND (<NOT <FEATURE? "COMPILER">> <PRINTTYPE TAPPLICABLE ,TAPPLICABLE-PRINT>)>
252 | 
253 | ;<ENDPACKAGE>
254 | 


--------------------------------------------------------------------------------
/src/pprint.mud:
--------------------------------------------------------------------------------
  1 |  "MUDDLE PRETTY-PRINT, FRAME-SCANNER, AND OTHER ROUTINES"
  2 | <PRINC "/PPRINT/FRAMES">
  3 | <BLOCK (<ROOT>)>
  4 | 
  5 | <SETG NULL!- <ATOM <ASCII 127>>>
  6 | 
  7 | "These atoms are placed in the ROOT oblist to allow general
  8 | 	access to their functions" 
  9 | M
 10 | <COND (<NOT <GASSIGNED? NULL!->> 
 11 |        <SETG NULL <INTERN <ATOM <ASCII 127>> <GET INITIAL OBLIST>>>)>
 12 | PPRINF
 13 | SPECBEF
 14 | SPECAFT
 15 | FORMS
 16 | PPRINT
 17 | EPRINT
 18 | FRAMES
 19 | FRATM
 20 | FRM
 21 | INDENT-TO
 22 | LINPOS
 23 | LINLNT
 24 | PAGPOS
 25 | PAGLNT
 26 | QUICKPRINT
 27 | PP	;"OBLIST"
 28 | 
 29 | <ENDBLOCK>
 30 | 
 31 | <BLOCK (<MOBLIST PP 37> <ROOT>)>
 32 | 
 33 | 
 34 | <SETG FRAMES	;"Prints FUNCT and ARGS for -n- frames down" 
 35 |     <FUNCTION ("OPTIONAL" (HOW-MANY 999) (FIRST 1))
 36 | 	<SPEEDSEL>
 37 | 	<SET SPECBEF 0>
 38 | 	<SET SPECAFT 0>	;"To make compatible with MEDDLE."
 39 | 	<REPEAT ((F <FRM .FIRST>) M (COMELE ,COMPONENTS))
 40 | 		<COND (<0? .HOW-MANY>  <RETURN "FUNCT---ARGS">)
 41 | 			(<==? <FUNCT .F> TOPLEVEL> <RETURN TOPLEVEL>)>
 42 | 		<AND <==? <TYPE <VALUE <FUNCT .F>>> FSUBR>
 43 | 			<==? <FUNCT <FRAME .F>> EVAL>
 44 | 			<==? <TYPE <1 <ARGS <FRAME .F>>>> FORM>
 45 | 			<==? <FUNCT .F> <1 <1 <ARGS <FRAME .F>>>>>
 46 | 				<GO SKIPIT>>
 47 | 		<PRINT .FIRST>
 48 | 		<PRINC <FUNCT .F>>
 49 | 		<PRINC "	">
 50 | 		<SET M 0>
 51 | 		<FORMS	;"Calling an internal PPRINT routine"	<ARGS .F>>
 52 | 	SKIPIT	<SET F <FRAME .F>>
 53 | 		<SET HOW-MANY <- .HOW-MANY 1>>
 54 | 		<SET FIRST <+ .FIRST 1>>
 55 | 	>>>
 56 | 
 57 | <DEFINE FRATM!- ("OPTIONAL" (HOW-MANY 9999) (FIRST 1))
 58 | 	<REPEAT ((F <FRM .FIRST>) (DEPTH!-FR 1) AF)
 59 | 		<COND (<L? .HOW-MANY .DEPTH!-FR> <RETURN "FRAME---FUNCTION">)
 60 | 		      (<==? <FUNCT .F> TOPLEVEL> <RETURN TOPLEVEL>)>
 61 | 		<AND	<==? <FUNCT .F> EVAL>
 62 | 			<1? <LENGTH <ARGS .F>>>
 63 | 			<==? <TYPE <SET AF <1 <ARGS .F>>>> FORM>
 64 | 			<==? <TYPE <1 .AF>> ATOM>
 65 | 			<==? <TYPE <OR <AND <GASSIGNED? <1 .AF>> ,<1 .AF>>
 66 | 					<AND <ASSIGNED? <1 .AF> .F> <LVAL <1 .AF> .F>>>>
 67 | 				FUNCTION>
 68 | 			<PRINT .DEPTH!-FR>
 69 | 			<PRINC !"	>
 70 | 			<PRIN1 <1 .AF>>>
 71 | 		<SET F <FRAME .F>>
 72 | 		<SET DEPTH!-FR <+ .DEPTH!-FR 1>> >>
 73 | 
 74 | <SETG FRM <FUNCTION (I)
 75 | 	<REPEAT ((F <FRAME>))
 76 | 		<COND	(<0? .I> <RETURN .F>)
 77 | 			(<==? <FUNCT .F> TOPLEVEL>
 78 | 			 <PRINT .I>
 79 | 			 <PRINC "FRAMES FROM ">
 80 | 			 <RETURN .F>)>
 81 | 		<SET F <FRAME .F>>
 82 | 		<SET I <- .I 1>>>>>
 83 | 
 84 | <SETG LINPOS	;"Line position selector"	14>
 85 | <SETG LINLNT	;"Line length selector"		13>
 86 | <SETG PAGPOS	;"Page position selector"	16>
 87 | <SETG PAGLNT	;"Page length selector"		15>
 88 | <SET QUICKPRINT	;"Speed selector."		T>
 89 | <SETG TABS	;"The n'th element is a string of n-1 tab characters"
 90 |      ["" "	" "		" "			"
 91 | "				"
 92 | "					"
 93 | "						"
 94 | "							"
 95 | "								"
 96 | "									"
 97 | "										"
 98 | "											"
 99 | "												"]>
100 | 
101 | 
102 | 
103 | 
104 | <SETG SPACES	;"The n'th element is a string of n-1 space characters"
105 |      ["" " " "  " "   " "    " "     " "      " "       "]>
106 | 
107 | 
108 | 
109 | 
110 | 
111 | 
112 | <SETG INDENT-TO <FUNCTION ( N "EXTRA" (NOW <LINPOS .OUTCHAN>))
113 | 			;"Print tabs and spaces to get to column -n-"
114 | 	<COND (<G? .N .NOW>
115 | 		<PRINC <<- </ .N 8> </ .NOW 8 > -1> ,TABS>>
116 | 		<PRINC <<- .N <LINPOS .OUTCHAN> -1> ,SPACES>>)>>>
117 | <SETG COMPONENTS	;"Print the components of a structure in a column" 
118 |       <FUNCTION (L "OPTIONAL" (OM <+ .M 1>) (STOP 0))
119 | 	<REPEAT ((N <LINPOS .OUTCHAN>) (M 0))
120 | 		<AND <EMPTY? <REST .L>> <SET M .OM>>
121 | 		<FORMS <1 .L>>
122 | 		<COMMENTS>
123 | 		<COND (<EMPTY? <SET L <REST .L>>><RETURN DONE>)>
124 | 		<AND <==? .STOP .L> <RETURN DONE>>
125 | 		<TERPRI>
126 | 		<INDENT-TO .N>>>>
127 | 
128 | <SETG ELEMENTS	;"Print the components of a structure in a line."
129 |      <FUNCTION (L "OPTIONAL" (M <+ .M 1>) (STOP 0))
130 | 	<COND (<EMPTY? .L>)
131 | 	      (.QUICKPRINT
132 | 		<REPEAT ()
133 | 			<PRIN1 <1 .L>>
134 | 			<AND <OR <EMPTY? <SET L <REST .L>>> <==? .L .STOP>> <RETURN T>>
135 | 			<PRINC !" >>)
136 | 	      (ELSE
137 | 		<REPEAT ((N <LINPOS .OUTCHAN>) COM)
138 | 			<FORMS <1 .L>>
139 | 			<SET COM <COMMENTS>>
140 | 			<COND (<OR <EMPTY? <SET L <REST .L>>> <==? .L .STOP>> <RETURN DONE>)>
141 | 			<COND (.COM <TERPRI> <INDENT-TO .N>)>
142 | 			<PRINC !" >>)>>>
143 | 
144 | 
145 | 
146 | <SETG SLOWFORMS <FUNCTION (L "AUX" (COMELE ,COMPONENTS))	;"Pprint an object."
147 | 	<COND	(<MONAD? .L> <PRIN1 .L>)			;"If its a MONAD, just print it."
148 | 		(ELSE
149 | 		 <COND	(<FLATSIZE .L <MIN 59 <- <LINLNT .OUTCHAN> <LINPOS .OUTCHAN> .M>>>
150 | 			  <SET COMELE ,ELEMENTS>)> ;"If it fits, use ELEMENTS, else COMPONENTS."
151 | 		 <<GET <TYPE .L> PPRINT ;"Snarfed from BKD."
152 | 			'#FUNCTION (()
153 | 				<PRINC "#">
154 | 				<PRIN1 <TYPE .L>>
155 | 				<SLOWFORMS <CHTYPE .L <PRIMTYPE .L>>>)>>)>>>
156 | 
157 | 
158 | <SETG FASTFORMS	;"Pprint one item at the current page location"
159 |       <FUNCTION (L)
160 | 	<COND (<MONAD? .L> <PRIN1 .L>)
161 | 	      (<FLATSIZE .L <MIN 59 <- <LINLNT .OUTCHAN> <LINPOS .OUTCHAN> .M>>>
162 | 		<PRIN1 .L>)
163 | 	      (ELSE <<GET <TYPE .L> PPRINT
164 | 
		   '#FUNCTION ( ()
165 | 				<PRINC "#">
166 | 				<PRIN1 <TYPE .L>>
167 | 				<FASTFORMS <CHTYPE .L <PRIMTYPE .L>>>)>>)>>>
168 | 
169 | <SETG COMMENTS <FUNCTION ("AUX" MARG CMNT) ;"Prints comments.  If no comment, returns false"
170 | 	<COND (<SET CMNT <GET <REST .L 0> COMMENT>>
171 | 		<SET MARG <COND (<EMPTY? <REST .L>> .M) (0)>>
172 | 		<COND (<NOT <FLATSIZE .CMNT <- <LINLNT .OUTCHAN>
173 | 						<LINPOS .OUTCHAN>
174 | 						.MARG
175 | 						2>>>
176 | 				<TERPRI>)>
177 | 		<INDENT-TO <- <MAX 2 <-	<LINLNT .OUTCHAN>
178 | 					<FLATSIZE .CMNT 9999>
179 | 					.MARG>>
180 | 				2>>
181 | 		<PRINC " ;">
182 | 		<PRIN1 .CMNT>)>>>
183 | 
184 | 
185 | <SETG SPEEDSEL <FUNCTION ()	;"Check QUICKPRINT and select speed."
186 | 	<OR <ASSIGNED? QUICKPRINT> <SET QUICKPRINT T>>
187 | 	<SETG FORMS <COND (.QUICKPRINT ,FASTFORMS)
188 | 			  (ELSE ,SLOWFORMS)>>>>
189 | "The following functions define the way to pprint a given data type"
190 | "They are PUT on the appropriate type name"
191 | "FORM is a special case - see next page."
192 | 
193 | <PUT LIST PPRINT
194 | 	<FUNCTION () <PRINC "("> <.COMELE .L > <PRINC ")">>>
195 | 
196 | <PUT VECTOR PPRINT
197 | 	<FUNCTION () <PRINC "[">  <.COMELE .L > :L<PRINC "]">>>
198 | 
199 | <PUT FUNCTION PPRINT
200 | 	<FUNCTION () <PRINC "#FUNCTION (" >
201 | 		     <FUNCBODY .L <LINPOS .OUTCHAN>>
202 | 		     <PRINC ")">>>
203 | 
204 | 
205 | <PUT UVECTOR PPRINT
206 | 	<FUNCTION ()	<PRINC %<STRING !"! !"[>>
207 | 			<.COMELE .L <+ .M 2>>
208 | 			<PRINC %<STRING !"! !"]>>>>
209 | 
210 | <PUT SEGMENT PPRINT
211 | 	<FUNCTION () <PRINC !"! > <FORMS <CHTYPE .L FORM>>>>
212 | 
213 | <PUT STRING PPRINT
214 | 	<FUNCTION () <PRIN1 .L>>>
215 | 
216 | <PUT TUPLE PPRINT <GET VECTOR PPRINT>>
217 | 
218 | <PUT ARGUMENTS PPRINT <GET VECTOR PPRINT>>
219 | 
220 | <PUT LOCD PPRINT <FUNCTION () <PRINC "#LOCD "> <FORMS <IN .L>>>>
221 | 
222 | <PUT RSUBR PPRINT <FUNCTION ()
223 | 	<PRINC "<RSUBR '">
224 | 	<SET M <+ .M 1>>
225 | 	<<GET VECTOR PPRINT>>
226 | 	<PRINC ">">>>
227 | <DEFINE FUNCBODY FBA (L P "AUX" (M <+ .M 1>) (TEM %<>))
228 | 	<COND (<EMPTY? .L>)
229 | 	      (ELSE
230 | 		<COND (<==? <TYPE <1 .L>> ATOM>
231 | 			<OR <CHECK <1 .L> -1> <TERPRI> <INDENT-TO .P>>
232 | 			<PRIN1 <1 .L>> <PRINC !" >
233 | 			<AND <EMPTY? <SET L <REST .L>>> <EXIT .FBA T>>)>
234 | 		<COND (<==? <TYPE <1 .L>> LIST> <SET TEM <PRINARGL <1 .L> .P>> <SET L <REST .L>>)>
235 | 		<COND (.TEM <COMPONENTS .L .M>)
236 | 		      (<CHECK .L -1> <PRINC !" > <ELEMENTS .L .M>)
237 | 		      (ELSE <TERPRI> <INDENT-TO .P> <COMPONENTS .L .M>)>)>>
238 | 
239 | <DEFINE CHECK (IT FUDGE) <FLATSIZE .IT <MIN <- <LINLNT .OUTCHAN> <LINPOS .OUTCHAN> .M .FUDGE>>>>
240 | 
241 | <DEFINE PRINARGL (L PB "AUX" POS Q (OL .L))
242 | 	<COND (<CHECK .L -2> <PRINC "("> <ELEMENTS .L> <PRINC ")"> %<>)
243 | 	      (ELSE
244 | 		<OR <CHECK <SET Q <ABUNCH L>> -1> <TERPRI> <INDENT-TO .PB>>
245 | 		<PRINC "(">
246 | 		<SET POS <LINPOS .OUTCHAN>>
247 | 		<REPEAT ((NOTFIRST %<>) (N <+ .M 1>))
248 | 			<OR .Q <RETURN T>>
249 | 			<COND (<==? <TYPE .Q> STRING>
250 | 				<COND (.NOTFIRST <TERPRI> <INDENT-TO .POS>)>
251 | 				<PRIN1 .Q>
252 | 				<PRINC !" >)
253 | 			      (<CHECK .Q -2> <ELEMENTS .OL .N .L>)
254 | 			      (ELSE <COMPONENTS .OL .N .L>)>
255 | 			<SET NOTFIRST T>
256 | 			<SET OL .L>
257 | 			<SET Q <ABUNCH L>>>
258 | 		<PRINC ")">
259 | 		<TERPRI>
260 | 		<INDENT-TO .PB>)>>
261 | 
262 | <DEFINE ABUNCH (ATM "AUX" T)
263 | 	<COND (<EMPTY? ..ATM> %<>)
264 | 	      (<==? <TYPE <1 ..ATM>> STRING>
265 | 		<SET T <1 ..ATM>>
266 | 		<SET .ATM <REST ..ATM>>
267 | 		.T)
268 | 	      (ELSE
269 | 		<STACKFORM ,LIST .T
270 | 			<COND (<EMPTY? ..ATM> %<>)
271 | 			      (<==? <TYPE <1 ..ATM>> STRING> %<>)
272 | 			      (ELSE <SET T <1 ..ATM>> <SET .ATM <REST ..ATM>>)>>)>>
273 | "How to print FORM and its special cases."
274 | "Special cases for FORM are PUT on the appropriate function."
275 | 
276 | <PUT FORM PPRINT <FUNCTION () <<GET <1 .L> SPECFORM ',NORMFORM>>>>
277 | 
278 | <DEFINE NORMFORM ("AUX" (PN <+ 1 <LINPOS .OUTCHAN>>))
279 | 			<PRINC "<" >
280 | 			<FORMS <1 .L>>
281 | 			<COND (<==? .COMELE ,ELEMENTS> <COMEND>)
282 | 			      (<FORMAHEAD .L> <COMMENTS> <TERPRI> <INDENT-TO .PN>
283 | 				<COND (<FLATSIZE <REST .L> <- <LINLNT .OUTCHAN>
284 | 								<LINPOS .OUTCHAN>
285 | 								.M 3>>
286 | 						<ELEMENTS <REST .L>>)
287 | 				      (T <COMPONENTS <REST .L>>)>)
288 | 			      (T <COMEND>)>
289 | 			<PRINC ">">>
290 | 
291 | 
292 | <SETG COMEND <FUNCTION ("AUX" (PPN <LINPOS .OUTCHAN>))
293 | 	<COND (<COMMENTS> <TERPRI> <INDENT-TO .PPN>)>
294 | 	<COND (<EMPTY? <REST .L>>)
295 | 	      (<PRINC !" > <.COMELE <REST .L>>)> >>
296 | 
297 | 
298 | <DEFINE FORMAHEAD (ML "AUX" (AVSP <- <LINLNT .OUTCHAN> <LINPOS .OUTCHAN> .M>))
299 | 	<COND (<AND <==? <TYPE <1 .ML>> FORM>
300 | 		    <NOT <EMPTY? <REST .ML>>>
301 | 		    <NOT <FLATSIZE <1 .ML> <MIN 59 .AVSP>>>>
302 | 	       T)
303 | 	      (ELSE
304 | 	       <REPEAT ()
305 | 		  <COND (<L? <LENGTH .ML> 2> <RETURN #FALSE ()>)
306 | 			(<NOT <==? <TYPE <2 .ML>> FORM>> <RETURN #FALSE ()>)
307 | 			(<FLATSIZE <1 <2 .ML>>
308 | 				   <- <SET AVSP
309 | 					   <- .AVSP
310 | 					      3
311 | 					      <FLATSIZE <1 .ML> 99999999>>>
312 | 				      3>>
313 | 			 <SET ML <2 .ML>>)
314 | 			(ELSE <RETURN T>)>>)>>
315 | 
316 | 
317 | <PUT LVAL SPECFORM <FUNCTION () <DAMMIT !".>>>
318 | 
319 | <PUT GVAL SPECFORM <FUNCTION () <DAMMIT !",>>>
320 | 
321 | <PUT QUOTE SPECFORM <FUNCTION () <DAMMIT !"'>>>
322 | 
323 | <DEFINE DAMMIT (Q)
324 | 	<COND (<==? 2 <LENGTH .L>>
325 | 		<PRINC .Q>		;"No fucking comments printed on . , or ' "
326 | 		<COND	(<EMPTY? <REST .L>>)
327 | 			(<.COMELE <REST .L>>)>)
328 | 	      (ELSE <NORMFORM>)>>
329 | 
330 | <PUT FUNCTION SPECFORM <FUNCTION ()
331 | 	<PRINC "<FUNCTION ">
332 | 	<FUNCBODY <REST .L> <- <LINPOS .OUTCHAN> 2>>
333 | 	<PRINC ">">>>
334 | 
335 | <PUT DEFINE SPECFORM <FUNCTION ()
336 | 	<PRINC "<DEFINE ">
337 | 	<SET POS <LINPOS .OUTCHAN>>
338 | 	<COND (<EMPTY? <SET L <REST .L>>>)
339 | 	      (ELSE
340 | 		<PRIN1 <1 .L>>
341 | 		<PRINC !" >
342 | 		<FUNCBODY <REST .L> .POS>)>
343 | 	<PRINC ">">>>
344 | 
345 | <PUT REPEAT SPECFORM <FUNCTION ("AUX" (CPOS <+ <LINPOS .OUTCHAN> 3>))
346 | 	<PRINC "<REPEAT ">
347 | 	<FORMS <2 .L>>
348 | 	<TERPRI>
349 | 	<INDENT-TO .CPOS>
350 | 	<.COMELE <REST .L 2>>
351 | 	<PRINC ">">>>
352 | <SETG PPRINT <FUNCTION PPRINT  (L "OPTIONAL" (OUTCHAN .OUTCHAN))
353 | 	<COND (<NOT <==? <TYPE .L> ATOM>> <EPRINT .L>)
354 | 	      (<GASSIGNED? .L>
355 | 		<COND (<==? <TYPE ,.L> FUNCTION>
356 | 			<EPRINT <FORM DEFINE .L !,.L>>)
357 | 		      (<==? <TYPE ,.L> RSUBR>
358 | 			<EPRINT <FORM SETG .L <FORM RSUBR <FORM QUOTE <CHTYPE ,.L VECTOR>>>>>)
359 | 		      (ELSE <EPRINT <FORM SETG .L <FORM QUOTE ,.L>>>)>)
360 | 	      (<AND <BOUND? .L> <ASSIGNED? .L>>
361 | 		<EPRINT
362 | 		 <FORM SET .L
363 | 			     <COND (<==? <TYPE ..L> FUNCTION>
364 | 					<FORM FUNCTION !..L>)
365 | 				   (<==? <TYPE ..L> RSUBR>
366 | 					<FORM RSUBR <CHTYPE ..L VECTOR>>)
367 | 				   (ELSE <FORM QUOTE ..L>)>>>)
368 | 	      (ELSE <PRINT .L> #FALSE ("NAKED ATOM?"))>>>
369 | 
370 | <SETG EPRINT <FUNCTION (L "EXTRA" (M 0) (COMELE ,COMPONENTS))
371 | 	<SPEEDSEL>
372 | 	<TERPRI>
373 | 	<FORMS .L>
374 | 	<TERPRI>
375 | 	,NULL	;"Null atom returned" >>
376 | 
377 | <DEFINE PPRINF FACT (INF "OPTIONAL" (OUTF ("" "" "TPL"))
378 | 			"AUX" (INCH <OPEN  "READ" !.INF>)
379 | 				OUTCH NULLO)
380 | 	<OR .INCH <EXIT .FACT "BAD FILE NAME?">>
381 | 	<PUT <SET OUTCH <OPEN "PRINT" !.OUTF>> 13 100>
382 | 	<PUT <SET NULLO <OPEN "PRINT" "" "" "NUL">> 13 100>
383 | 	<REPEAT ((BOTH (<PUT .OUTCH 15 99999> <PUT .NULLO 15 99999>))
384 | 		  Q)
385 | 		<PPRINT <SET Q <READ '<RETURN T> .INCH>>
386 | 			<PUT .NULLO 16 <16 .OUTCH>>>
387 | 		<AND <G? <16 .NULLO> 58> <PRINC <ASCII 12> .BOTH>>
388 | 		<PPRINT .Q .OUTCH>>
389 | 	<CLOSE .INCH>
390 | 	<CLOSE .OUTCH>
391 | 	<CLOSE .NULLO>
392 | 	"DONE">
393 | 
394 | 
395 | 
396 | <ENDBLOCK>
397 | 
398 | 
399 | 
400 | <COND (<LOOKUP "PPRINT" <1 .OBLIST>> <SETG PPRINT ,PPRINT!-> <REMOVE PPRINT>)>
401 | <COND (<LOOKUP "FRAMES" <1 .OBLIST>> <SETG FRAMES ,FRAMES!-> <REMOVE FRAMES>)>
402 | <COND (<LOOKUP "FRM" <1 .OBLIST>> <SETG FRM ,FRM!-> <REMOVE FRM>)>
403 | <COND (<LOOKUP "PPRINF" <1 .OBLIST>> <SETG PPRINF ,PPRINF!-> <REMOVE PPRINF>)>
404 | p`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`Ap`A


--------------------------------------------------------------------------------
/src/syntax.zil:
--------------------------------------------------------------------------------
  1 | "SYNTAX2 for
  2 | 		      Zork: The Wizard of Frobozz
  3 | 		 The Great Underground Empire (Part 2)
  4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
  5 | "
  6 | 
  7 | "SUBTITLE VOCABULARY"
  8 | 
  9 | <BUZZ A THE IS AND OF THEN ALL ONE BUT EXCEPT \. \, \" YES NO Y
 10 |       FEEBLE FUMBLE FEAR FILCH FREEZE FALL FRY FLUORESCE
 11 |       FERMENT FIERCE FLOAT FIREPROOF FENCE FUDGE FANTASIZE>
 12 | 
 13 | <SYNONYM WITH USING THROUGH>
 14 | <SYNONYM IN INSIDE INTO>
 15 | <SYNONYM UNDER UNDERNEATH BENEATH>
 16 | 
 17 | <SYNONYM NORTH N>
 18 | <SYNONYM SOUTH S>
 19 | <SYNONYM EAST E>
 20 | <SYNONYM WEST W>
 21 | <SYNONYM DOWN D>
 22 | <SYNONYM UP U>
 23 | <SYNONYM NW NORTHWEST>
 24 | <SYNONYM NE NORTHE>
 25 | <SYNONYM SW SOUTHWEST>
 26 | <SYNONYM SE SOUTHE>
 27 | 
 28 | \
 29 | 
 30 | "ZORK game commands"
 31 | 
 32 | <SYNTAX BRIEF = V-BRIEF>
 33 | 
 34 | <SYNTAX SUPER = V-SUPER-BRIEF>
 35 | <SYNONYM SUPER SUPERBRIEF>
 36 | 
 37 | <SYNTAX DIAGNOSE = V-DIAGNOSE>
 38 | 
 39 | <SYNTAX INVENTORY = V-INVENTORY>
 40 | <SYNONYM INVENTORY I>
 41 | 
 42 | <SYNTAX QUIT = V-QUIT>
 43 | <SYNONYM QUIT Q>
 44 | 
 45 | <SYNTAX RESTART = V-RESTART>
 46 | 
 47 | <SYNTAX RESTORE = V-RESTORE>
 48 | 
 49 | <SYNTAX SAVE = V-SAVE>
 50 | 
 51 | <SYNTAX SCORE = V-SCORE>
 52 | 
 53 | <SYNTAX VERSION = V-VERSION>
 54 | 
 55 | <SYNTAX VERBOSE = V-VERBOSE>
 56 | 
 57 | \
 58 | 
 59 | "SUBTITLE REAL VERBS"
 60 | 
 61 | <SYNTAX AGAIN = V-AGAIN>
 62 | 
 63 | <SYNTAX ANSWER = V-ANSWER>
 64 | <SYNTAX ANSWER OBJECT = V-REPLY>
 65 | <SYNONYM ANSWER REPLY>
 66 | 
 67 | <SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
 68 | 
 69 | <SYNTAX ATTACK
 70 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
 71 | 	WITH
 72 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
 73 | 	= V-ATTACK>
 74 | <SYNONYM ATTACK FIGHT HURT INJURE HIT>
 75 | 
 76 | <SYNTAX BACK = V-BACK>
 77 | 
 78 | <SYNTAX BLAST = V-BLAST>
 79 | 
 80 | <SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
 81 | 	= V-BOARD PRE-BOARD>
 82 | 
 83 | <SYNTAX BUG = V-BUG>
 84 | 
 85 | <SYNTAX BURN
 86 | 	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
 87 | 	WITH
 88 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
 89 | 	= V-BURN PRE-BURN>
 90 | <SYNTAX BURN
 91 | 	DOWN
 92 | 	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
 93 | 	WITH
 94 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
 95 | 	= V-BURN PRE-BURN>
 96 | <SYNONYM BURN INCINERATE IGNITE>
 97 | 
 98 | <SYNTAX CHOMP = V-CHOMP>
 99 | <SYNONYM CHOMP LOSE BARF>
100 | 
101 | <SYNTAX CLIMB UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
102 | <SYNTAX CLIMB DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
103 | <SYNTAX CLIMB OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
104 | <SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
105 | <SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
106 | <SYNONYM CLIMB SIT>
107 | 
108 | <SYNTAX CLOSE
109 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
110 | 	= V-CLOSE>
111 | 
112 | <SYNTAX COUNT OBJECT = V-COUNT>
113 | <SYNONYM COUNT>
114 | 
115 | <SYNTAX CROSS OBJECT = V-CROSS>
116 | <SYNONYM CROSS FORD>
117 | 
118 | <SYNTAX CUT OBJECT WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
119 | <SYNONYM CUT SLICE PIERCE> 
120 | 
121 | <SYNTAX CURSE = V-CURSES>
122 | <SYNTAX CURSE OBJECT (FIND VILLAIN) = V-CURSES>
123 | <SYNONYM CURSE DAMN>
124 | 
125 | <SYNTAX DEFLATE OBJECT = V-DEFLATE>
126 | 
127 | <SYNTAX DIG
128 | 	OBJECT ;(FIND DIGBIT) (ON-GROUND IN-ROOM)
129 | 	WITH
130 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
131 | 	= V-DIG PRE-DIG ;*>
132 | <SYNTAX DIG
133 | 	IN
134 | 	OBJECT ;(FIND DIGBIT) (ON-GROUND IN-ROOM)
135 | 	WITH
136 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
137 | 	= V-DIG PRE-DIG>
138 | 
139 | <SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
140 | 	= V-DISEMBARK>
141 | 
142 | <SYNTAX DRINK
143 | 	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
144 | 	= V-DRINK>
145 | <SYNONYM DRINK IMBIBE SWALLOW>
146 | 
147 | <SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
148 | <SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
149 | <SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
150 | <SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
151 | <SYNONYM DROP RELEASE>
152 | 
153 | <SYNTAX EAT
154 | 	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE MANY)
155 | 	= V-EAT>
156 | <SYNONYM EAT CONSUME TASTE>
157 | 
158 | <SYNTAX ENTER = V-ENTER>
159 | <SYNTAX ENTER OBJECT = V-THROUGH>
160 | <SYNTAX EXIT = V-EXIT>
161 | <SYNTAX EXIT OBJECT = V-EXIT>
162 | 
163 | <SYNTAX EXAMINE OBJECT = V-EXAMINE>
164 | <SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY) 
165 | 		= V-LOOK-INSIDE>
166 | <SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY)
167 | 		= V-LOOK-INSIDE>
168 | <SYNONYM EXAMINE DESCRIBE WHAT WHATS>
169 | 
170 | <SYNTAX EXORCISE OBJECT = V-EXORCISE>
171 | <SYNTAX EXORCISE OUT OBJECT (FIND VILLAIN) = V-EXORCISE>
172 | <SYNTAX EXORCISE AWAY OBJECT (FIND VILLAIN) = V-EXORCISE>
173 | <SYNONYM EXORCISE BANISH CAST DRIVE BEGONE>
174 | 
175 | <SYNTAX EXTINGUISH
176 | 	OBJECT (FIND LIGHTBIT) (MANY HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
177 | 	= V-LAMP-OFF>
178 | <SYNONYM EXTINGUISH DOUSE>
179 | 
180 | <SYNTAX FILL
181 | 	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
182 | 	WITH
183 | 	OBJECT
184 | 	= V-FILL>
185 | <SYNTAX FILL
186 | 	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
187 | 	= V-FILL>
188 | 
189 | <SYNTAX FIND OBJECT
190 | 	= V-FIND>
191 | <SYNONYM FIND WHERE SEEK SEE>
192 | 
193 | <SYNTAX FOLLOW = V-FOLLOW>
194 | <SYNTAX FOLLOW OBJECT = V-FOLLOW>
195 | <SYNONYM FOLLOW PURSUE CHASE>
196 | 
197 | <SYNTAX GIVE
198 | 	OBJECT (MANY HELD HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
199 | 	TO
200 | 	OBJECT (FIND VICBIT) (ON-GROUND)
201 | 	= V-GIVE PRE-GIVE>
202 | <SYNTAX GIVE
203 | 	OBJECT (FIND VICBIT) (ON-GROUND)
204 | 	OBJECT (MANY HELD HAVE)
205 | 	= V-SGIVE PRE-SGIVE>
206 | <SYNONYM GIVE HAND DONATE OFFER FEED>
207 | 
208 | <SYNTAX HELLO = V-HELLO ;*>
209 | <SYNTAX HELLO OBJECT = V-HELLO>
210 | <SYNONYM HELLO HI>
211 | 
212 | <SYNTAX BLOW OUT OBJECT = V-LAMP-OFF>
213 | <SYNTAX BLOW UP
214 | 	OBJECT
215 | 	WITH
216 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
217 | 	= V-INFLATE ;*>
218 | <SYNTAX BLOW UP OBJECT = V-BLAST>
219 | 
220 | <SYNTAX INFLAT
221 | 	OBJECT
222 | 	WITH
223 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
224 | 	= V-INFLATE>
225 | 
226 | <SYNTAX JUMP = V-LEAP>
227 | <SYNTAX JUMP OVER OBJECT = V-LEAP>
228 | <SYNTAX JUMP ACROSS OBJECT = V-LEAP>
229 | <SYNTAX JUMP IN OBJECT = V-LEAP>
230 | <SYNTAX JUMP FROM OBJECT = V-LEAP>
231 | <SYNTAX JUMP OFF OBJECT = V-LEAP>
232 | <SYNONYM JUMP LEAP>
233 | 
234 | <SYNTAX KICK OBJECT = V-KICK>
235 | <SYNONYM KICK BITE TAUNT>
236 | 
237 | <SYNTAX KILL OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KILL>
238 | <SYNTAX KILL
239 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
240 | 	WITH
241 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
242 | 	= V-KILL>
243 | <SYNONYM KILL MURDER SLAY DISPATCH STAB>
244 | 
245 | <SYNTAX KISS OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KISS>
246 | 
247 | <SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
248 | <SYNTAX KNOCK ON OBJECT = V-KNOCK>
249 | <SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
250 | <SYNONYM KNOCK RAP>
251 | 
252 | <SYNTAX LAUNCH OBJECT (FIND VEHBIT) = V-LAUNCH>
253 | 
254 | <SYNTAX LEAVE = V-LEAVE>
255 | <SYNTAX LEAVE OBJECT = V-DROP>
256 | 
257 | <SYNTAX LIGHT
258 | 	OBJECT (FIND LIGHTBIT)
259 | 	(HELD CARRIED ON-GROUND IN-ROOM HAVE)
260 | 	= V-LAMP-ON ;*>
261 | <SYNTAX LIGHT
262 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
263 | 	WITH
264 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED HAVE)
265 | 	= V-BURN PRE-BURN>
266 | 
267 | <SYNTAX LISTEN TO OBJECT = V-LISTEN>
268 | <SYNTAX LISTEN FOR OBJECT = V-LISTEN>
269 | 
270 | <SYNTAX LOCK
271 | 	OBJECT (ON-GROUND IN-ROOM)
272 | 	WITH
273 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
274 | 	= V-LOCK>
275 | 
276 | <SYNTAX LOOK = V-LOOK>
277 | <SYNTAX LOOK UP OBJECT (FIND RMUNGBIT) = V-LOOK>
278 | <SYNTAX LOOK DOWN OBJECT (FIND RMUNGBIT) = V-LOOK>
279 | <SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
280 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EXAMINE>
281 | <SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
282 | <SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
283 | <SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
284 | <SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
285 | <SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
286 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) WITH OBJECT = V-READ PRE-READ>
287 | <SYNTAX LOOK FOR OBJECT = V-FIND>
288 | <SYNONYM LOOK L STARE GAZE>
289 | 
290 | <SYNTAX SEARCH OBJECT = V-SEARCH>
291 | <SYNTAX SEARCH IN OBJECT = V-SEARCH>
292 | <SYNTAX SEARCH FOR OBJECT = V-FIND>
293 | 
294 | <SYNTAX LOWER OBJECT = V-LOWER>
295 | 
296 | <SYNTAX MAKE OBJECT = V-MAKE>
297 | 
298 | <SYNTAX MELT
299 | 	OBJECT
300 | 	WITH
301 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
302 | 	= V-MELT>
303 | <SYNONYM MELT LIQUIFY>
304 | 
305 | <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
306 | <SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
307 | <SYNONYM MOVE>
308 | 
309 | <SYNTAX PLAY OBJECT = V-PLAY>
310 | 
311 | <SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE ; *>
312 | <SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
313 | <SYNONYM PULL TUG>
314 | 
315 | <SYNTAX MUMBLE = V-MUMBLE>
316 | <SYNONYM MUMBLE SIGH>
317 | 
318 | <SYNTAX DESTROY
319 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
320 | 	WITH
321 | 	OBJECT (HELD CARRIED TAKE)
322 | 	= V-MUNG PRE-MUNG>
323 | <SYNTAX DESTROY
324 | 	DOWN
325 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
326 | 	WITH
327 | 	OBJECT (HELD CARRIED TAKE)
328 | 	= V-MUNG PRE-MUNG>
329 | <SYNONYM DESTROY DAMAGE BREAK SMASH>
330 | 
331 | <SYNTAX LUBRICATE OBJECT WITH OBJECT (HELD CARRIED) = V-OIL PRE-OIL>
332 | <SYNONYM LUBRICATE OIL GREASE>
333 | 
334 | <SYNTAX OPEN
335 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
336 | 	= V-OPEN ;*>
337 | <SYNTAX OPEN
338 | 	UP
339 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
340 | 	= V-OPEN ;*>
341 | <SYNTAX OPEN
342 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
343 | 	WITH
344 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
345 | 	= V-OPEN>
346 | 
347 | <SYNTAX PICK OBJECT = V-PICK>
348 | <SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
349 | 
350 | <SYNTAX PICK UP
351 | 	OBJECT (FIND TAKEBIT)
352 | 	       (ON-GROUND MANY)
353 | 	= V-TAKE PRE-TAKE>
354 | 
355 | <SYNTAX PLUG OBJECT WITH OBJECT = V-PLUG>
356 | <SYNONYM PLUG GLUE PATCH REPAIR FIX>
357 | 
358 | <SYNTAX PLUGH = V-ADVENT>
359 | <SYNONYM PLUGH XYZZY>
360 | 
361 | <SYNTAX POKE
362 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
363 | 	WITH
364 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
365 | 	= V-MUNG PRE-MUNG>
366 | <SYNONYM POKE JAB BLIND>
367 | 
368 | <SYNTAX POUR OBJECT (HELD CARRIED) = V-DROP ;*>
369 | <SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-DROP>
370 | <SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR-ON PRE-POUR-ON>
371 | <SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-DROP>
372 | <SYNONYM POUR SPILL>
373 | 
374 | <SYNTAX PRAY = V-PRAY>
375 | 
376 | <SYNTAX PUMP UP OBJECT = V-PUMP>
377 | <SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
378 | 
379 | <SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
380 | <SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
381 | <SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
382 | <SYNONYM PUSH PRESS>
383 | 
384 | <SYNTAX PUT OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT ;*>
385 | <SYNTAX PUT OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
386 | <SYNTAX PUT DOWN OBJECT (HELD MANY) = V-DROP>
387 | <SYNTAX PUT OBJECT UNDER OBJECT = V-PUT-UNDER> 
388 | <SYNONYM PUT STUFF INSERT PLACE>
389 | 
390 | <SYNTAX RAISE OBJECT = V-RAISE ;*>
391 | <SYNTAX RAISE UP OBJECT = V-RAISE>
392 | <SYNONYM RAISE LIFT>
393 | 
394 | <SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
395 | <SYNONYM RAPE MOLEST>
396 | 
397 | <SYNTAX READ
398 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
399 | 	= V-READ PRE-READ ; *>
400 | <SYNTAX READ
401 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
402 | 	WITH
403 | 	OBJECT
404 | 	= V-READ PRE-READ>
405 | <SYNONYM READ SKIM>
406 | 
407 | <SYNTAX REPENT = V-REPENT>
408 | 
409 | <SYNTAX RUB OBJECT = V-RUB>
410 | <SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
411 | <SYNONYM RUB TOUCH FEEL PAT PET>
412 | 
413 | <SYNTAX SCRIPT = V-SCRIPT>
414 | <SYNTAX UNSCRIPT = V-UNSCRIPT>
415 | 
416 | <SYNTAX SEND FOR OBJECT = V-SEND>
417 | 
418 | <SYNTAX SHAKE OBJECT = V-SHAKE>
419 | 
420 | <SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
421 | 
422 | <SYNTAX SKIP = V-SKIP>
423 | <SYNONYM SKIP HOP>
424 | 
425 | <SYNTAX SMELL OBJECT = V-SMELL>
426 | <SYNONYM SMELL SNIFF>
427 | 
428 | <SYNTAX SPRAY OBJECT ON OBJECT = V-SPRAY>
429 | <SYNTAX SPRAY OBJECT WITH OBJECT = V-SSPRAY>
430 | 
431 | <SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
432 | <SYNTAX SQUEEZE OBJECT ON OBJECT = V-PUT PRE-PUT>
433 | 
434 | <SYNTAX STRIKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
435 | 	WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
436 | 	= V-ATTACK>
437 | <SYNTAX STRIKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)	= V-ATTACK ;*>
438 | <SYNTAX STRIKE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-LAMP-ON>
439 | 
440 | <SYNTAX SWIM = V-SWIM>
441 | <SYNTAX SWIM IN OBJECT = V-SWIM>
442 | <SYNONYM SWIM BATHE WADE>
443 | 
444 | <SYNTAX SWING
445 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
446 | 	= V-SWING>
447 | <SYNTAX SWING
448 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
449 | 	AT
450 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
451 | 	= V-SWING>
452 | <SYNONYM SWING THRUST>
453 | 
454 | <SYNTAX TAKE
455 | 	OBJECT (FIND TAKEBIT)
456 | 	(ON-GROUND MANY)
457 | 	= V-TAKE PRE-TAKE ;*>
458 | <SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
459 | <SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
460 | <SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
461 | <SYNTAX TAKE
462 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
463 | 	OUT
464 | 	OBJECT
465 | 	= V-TAKE PRE-TAKE>
466 | <SYNTAX TAKE
467 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
468 | 	OFF
469 | 	OBJECT
470 | 	= V-TAKE PRE-TAKE>
471 | <SYNTAX TAKE
472 | 	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
473 | 	FROM
474 | 	OBJECT
475 | 	= V-TAKE PRE-TAKE>
476 | <SYNONYM TAKE GET HOLD CARRY REMOVE>
477 | 
478 | <SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
479 | <SYNONYM TELL ASK>
480 | 
481 | <SYNTAX SAY TO OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
482 | <SYNTAX SAY = V-SAY>
483 | <SYNONYM SAY TALK>
484 | 
485 | <SYNTAX INCANT = V-INCANT>
486 | <SYNONYM INCANT CHANT>
487 | 
488 | <SYNTAX ENCHANT OBJECT (ON-GROUND IN-ROOM) = V-ENCHANT>
489 | <SYNONYM ENCHANT CURSE>
490 | <SYNTAX DISENCHANT OBJECT = V-DISENCHANT>
491 | <SYNONYM DISENCHANT EXORCISE>
492 | 
493 | <SYNTAX THROW
494 | 	OBJECT (HELD CARRIED HAVE)
495 | 	AT
496 | 	OBJECT (ON-GROUND IN-ROOM)
497 | 	= V-THROW ;*>
498 | <SYNTAX THROW
499 | 	OBJECT (HELD CARRIED HAVE)
500 | 	WITH
501 | 	OBJECT (ON-GROUND IN-ROOM)
502 | 	= V-THROW>
503 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) IN OBJECT = V-PUT PRE-PUT>
504 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) ON OBJECT = V-PUT PRE-PUT>
505 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-PUT PRE-PUT>
506 | <SYNONYM THROW HURL CHUCK TOSS>
507 | 
508 | <SYNTAX TIE OBJECT TO OBJECT = V-TIE PRE-TIE>
509 | <SYNTAX TIE UP
510 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
511 | 	WITH
512 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
513 | 	= V-TIE-UP>
514 | <SYNONYM TIE FASTEN SECURE ATTACH>
515 | 
516 | <SYNTAX TURN
517 | 	OBJECT (FIND TURNBIT) ( HELD CARRIED ON-GROUND IN-ROOM)
518 | 	WITH
519 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
520 | 	= V-TURN PRE-TURN ;*>
521 | <SYNTAX TURN ON
522 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
523 | 	= V-LAMP-ON>
524 | <SYNTAX TURN OFF
525 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
526 | 	= V-LAMP-OFF>
527 | <SYNONYM TURN FLIP SHUT>
528 | 
529 | <SYNTAX UNLOCK
530 | 	OBJECT (ON-GROUND IN-ROOM)
531 | 	WITH
532 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
533 | 	= V-UNLOCK>
534 | 
535 | <SYNTAX UNTIE
536 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
537 | 	= V-UNTIE PRE-UNTIE ;*>
538 | <SYNTAX UNTIE
539 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
540 | 	FROM
541 | 	OBJECT
542 | 	= V-UNTIE PRE-UNTIE>
543 | <SYNONYM UNTIE FREE UNFASTEN UNATTACH UNHOOK>
544 | 
545 | <SYNTAX WAIT = V-WAIT>
546 | 
547 | <SYNTAX WAKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM ;*>
548 | <SYNTAX WAKE UP OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM>
549 | <SYNONYM WAKE AWAKE SURPRISE STARTLE>
550 | 
551 | <SYNTAX WALK OBJECT = V-WALK>
552 | <SYNTAX WALK IN OBJECT = V-THROUGH>
553 | <SYNTAX WALK WITH OBJECT = V-THROUGH>
554 | <SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
555 | <SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
556 | <SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
557 | <SYNONYM WALK GO RUN PROCEED>
558 | 
559 | <SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE PRE-WAVE>
560 | <SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE PRE-WAVE>
561 | <SYNONYM WAVE BRANDISH AIM POINT>
562 | 
563 | <SYNTAX WIN = V-WIN>
564 | <SYNONYM WIN WINNAGE>
565 | 
566 | <SYNTAX WISH = V-WISH>
567 | 
568 | <SYNTAX YELL = V-YELL>
569 | <SYNONYM YELL SCREAM SHOUT>
570 | 
571 | <SYNTAX ZORK = V-ZORK>
572 | 
573 | ;"Simple questions"
574 | 
575 | ;"<SYNTAX WHAT ...> WHAT is a synonym of EXAMINE"
576 | 
577 | ;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
578 | 
579 | <SYNTAX $VERIFY = V-$VERIFY>
580 | 


--------------------------------------------------------------------------------
/origfiles/zork2-mac-r22.zil/syntax.zil:
--------------------------------------------------------------------------------
  1 | "SYNTAX2 for
  2 | 		      Zork: The Wizard of Frobozz
  3 | 		 The Great Underground Empire (Part 2)
  4 | 	(c) Copyright 1981 Infocom, Inc.  All Rights Reserved.
  5 | "
  6 | 
  7 | "SUBTITLE VOCABULARY"
  8 | 
  9 | <BUZZ A THE IS AND OF THEN ALL ONE BUT EXCEPT \. \, \" YES NO Y
 10 |       FEEBLE FUMBLE FEAR FILCH FREEZE FALL FRY FLUORESCE
 11 |       FERMENT FIERCE FLOAT FIREPROOF FENCE FUDGE FANTASIZE>
 12 | 
 13 | <SYNONYM WITH USING THROUGH>
 14 | <SYNONYM IN INSIDE INTO>
 15 | <SYNONYM UNDER UNDERNEATH BENEATH>
 16 | 
 17 | <SYNONYM NORTH N>
 18 | <SYNONYM SOUTH S>
 19 | <SYNONYM EAST E>
 20 | <SYNONYM WEST W>
 21 | <SYNONYM DOWN D>
 22 | <SYNONYM UP U>
 23 | <SYNONYM NW NORTHWEST>
 24 | <SYNONYM NE NORTHE>
 25 | <SYNONYM SW SOUTHWEST>
 26 | <SYNONYM SE SOUTHE>
 27 | 
 28 | \
 29 | 
 30 | "ZORK game commands"
 31 | 
 32 | <SYNTAX BRIEF = V-BRIEF>
 33 | 
 34 | <SYNTAX SUPER = V-SUPER-BRIEF>
 35 | <SYNONYM SUPER SUPERBRIEF>
 36 | 
 37 | <SYNTAX DIAGNOSE = V-DIAGNOSE>
 38 | 
 39 | <SYNTAX INVENTORY = V-INVENTORY>
 40 | <SYNONYM INVENTORY I>
 41 | 
 42 | <SYNTAX QUIT = V-QUIT>
 43 | <SYNONYM QUIT Q>
 44 | 
 45 | <SYNTAX RESTART = V-RESTART>
 46 | 
 47 | <SYNTAX RESTORE = V-RESTORE>
 48 | 
 49 | <SYNTAX SAVE = V-SAVE>
 50 | 
 51 | <SYNTAX SCORE = V-SCORE>
 52 | 
 53 | <SYNTAX VERSION = V-VERSION>
 54 | 
 55 | <SYNTAX VERBOSE = V-VERBOSE>
 56 | 
 57 | \
 58 | 
 59 | "SUBTITLE REAL VERBS"
 60 | 
 61 | <SYNTAX AGAIN = V-AGAIN>
 62 | 
 63 | <SYNTAX ANSWER = V-ANSWER>
 64 | <SYNTAX ANSWER OBJECT = V-REPLY>
 65 | <SYNONYM ANSWER REPLY>
 66 | 
 67 | <SYNTAX APPLY OBJECT TO OBJECT = V-PUT PRE-PUT>
 68 | 
 69 | <SYNTAX ATTACK
 70 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
 71 | 	WITH
 72 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
 73 | 	= V-ATTACK>
 74 | <SYNONYM ATTACK FIGHT HURT INJURE HIT>
 75 | 
 76 | <SYNTAX BACK = V-BACK>
 77 | 
 78 | <SYNTAX BLAST = V-BLAST>
 79 | 
 80 | <SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
 81 | 	= V-BOARD PRE-BOARD>
 82 | 
 83 | <SYNTAX BUG = V-BUG>
 84 | 
 85 | <SYNTAX BURN
 86 | 	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
 87 | 	WITH
 88 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
 89 | 	= V-BURN PRE-BURN>
 90 | <SYNTAX BURN
 91 | 	DOWN
 92 | 	OBJECT (FIND BURNBIT) (HELD CARRIED ON-GROUND IN-ROOM)
 93 | 	WITH
 94 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
 95 | 	= V-BURN PRE-BURN>
 96 | <SYNONYM BURN INCINERATE IGNITE>
 97 | 
 98 | <SYNTAX CHOMP = V-CHOMP>
 99 | <SYNONYM CHOMP LOSE BARF>
100 | 
101 | <SYNTAX CLIMB UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
102 | <SYNTAX CLIMB DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
103 | <SYNTAX CLIMB OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
104 | <SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
105 | <SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
106 | <SYNONYM CLIMB SIT>
107 | 
108 | <SYNTAX CLOSE
109 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
110 | 	= V-CLOSE>
111 | 
112 | <SYNTAX COUNT OBJECT = V-COUNT>
113 | <SYNONYM COUNT>
114 | 
115 | <SYNTAX CROSS OBJECT = V-CROSS>
116 | <SYNONYM CROSS FORD>
117 | 
118 | <SYNTAX CUT OBJECT WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
119 | <SYNONYM CUT SLICE PIERCE> 
120 | 
121 | <SYNTAX CURSE = V-CURSES>
122 | <SYNTAX CURSE OBJECT (FIND VILLAIN) = V-CURSES>
123 | <SYNONYM CURSE DAMN>
124 | 
125 | <SYNTAX DEFLATE OBJECT = V-DEFLATE>
126 | 
127 | <SYNTAX DIG
128 | 	OBJECT ;(FIND DIGBIT) (ON-GROUND IN-ROOM)
129 | 	WITH
130 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
131 | 	= V-DIG PRE-DIG ;*>
132 | <SYNTAX DIG
133 | 	IN
134 | 	OBJECT ;(FIND DIGBIT) (ON-GROUND IN-ROOM)
135 | 	WITH
136 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE)
137 | 	= V-DIG PRE-DIG>
138 | 
139 | <SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM)
140 | 	= V-DISEMBARK>
141 | 
142 | <SYNTAX DRINK
143 | 	OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
144 | 	= V-DRINK>
145 | <SYNONYM DRINK IMBIBE SWALLOW>
146 | 
147 | <SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP ;*>
148 | <SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
149 | <SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
150 | <SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
151 | <SYNONYM DROP RELEASE>
152 | 
153 | <SYNTAX EAT
154 | 	OBJECT (FIND FOODBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE MANY)
155 | 	= V-EAT>
156 | <SYNONYM EAT CONSUME TASTE>
157 | 
158 | <SYNTAX ENTER = V-ENTER>
159 | <SYNTAX ENTER OBJECT = V-THROUGH>
160 | <SYNTAX EXIT = V-EXIT>
161 | <SYNTAX EXIT OBJECT = V-EXIT>
162 | 
163 | <SYNTAX EXAMINE OBJECT = V-EXAMINE>
164 | <SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY) 
165 | 		= V-LOOK-INSIDE>
166 | <SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND MANY)
167 | 		= V-LOOK-INSIDE>
168 | <SYNONYM EXAMINE DESCRIBE WHAT WHATS>
169 | 
170 | <SYNTAX EXORCISE OBJECT = V-EXORCISE>
171 | <SYNTAX EXORCISE OUT OBJECT (FIND VILLAIN) = V-EXORCISE>
172 | <SYNTAX EXORCISE AWAY OBJECT (FIND VILLAIN) = V-EXORCISE>
173 | <SYNONYM EXORCISE BANISH CAST DRIVE BEGONE>
174 | 
175 | <SYNTAX EXTINGUISH
176 | 	OBJECT (FIND LIGHTBIT) (MANY HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
177 | 	= V-LAMP-OFF>
178 | <SYNONYM EXTINGUISH DOUSE>
179 | 
180 | <SYNTAX FILL
181 | 	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
182 | 	WITH
183 | 	OBJECT
184 | 	= V-FILL>
185 | <SYNTAX FILL
186 | 	OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
187 | 	= V-FILL>
188 | 
189 | <SYNTAX FIND OBJECT
190 | 	= V-FIND>
191 | <SYNONYM FIND WHERE SEEK SEE>
192 | 
193 | <SYNTAX FOLLOW = V-FOLLOW>
194 | <SYNTAX FOLLOW OBJECT = V-FOLLOW>
195 | <SYNONYM FOLLOW PURSUE CHASE>
196 | 
197 | <SYNTAX GIVE
198 | 	OBJECT (MANY HELD HAVE ;CARRIED ;ON-GROUND ;IN-ROOM)
199 | 	TO
200 | 	OBJECT (FIND VICBIT) (ON-GROUND)
201 | 	= V-GIVE PRE-GIVE>
202 | <SYNTAX GIVE
203 | 	OBJECT (FIND VICBIT) (ON-GROUND)
204 | 	OBJECT (MANY HELD HAVE)
205 | 	= V-SGIVE PRE-SGIVE>
206 | <SYNONYM GIVE HAND DONATE OFFER FEED>
207 | 
208 | <SYNTAX HELLO = V-HELLO ;*>
209 | <SYNTAX HELLO OBJECT = V-HELLO>
210 | <SYNONYM HELLO HI>
211 | 
212 | <SYNTAX BLOW OUT OBJECT = V-LAMP-OFF>
213 | <SYNTAX BLOW UP
214 | 	OBJECT
215 | 	WITH
216 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
217 | 	= V-INFLATE ;*>
218 | <SYNTAX BLOW UP OBJECT = V-BLAST>
219 | 
220 | <SYNTAX INFLAT
221 | 	OBJECT
222 | 	WITH
223 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED)
224 | 	= V-INFLATE>
225 | 
226 | <SYNTAX JUMP = V-LEAP>
227 | <SYNTAX JUMP OVER OBJECT = V-LEAP>
228 | <SYNTAX JUMP ACROSS OBJECT = V-LEAP>
229 | <SYNTAX JUMP IN OBJECT = V-LEAP>
230 | <SYNTAX JUMP FROM OBJECT = V-LEAP>
231 | <SYNTAX JUMP OFF OBJECT = V-LEAP>
232 | <SYNONYM JUMP LEAP>
233 | 
234 | <SYNTAX KICK OBJECT = V-KICK>
235 | <SYNONYM KICK BITE TAUNT>
236 | 
237 | <SYNTAX KILL OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KILL>
238 | <SYNTAX KILL
239 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
240 | 	WITH
241 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
242 | 	= V-KILL>
243 | <SYNONYM KILL MURDER SLAY DISPATCH STAB>
244 | 
245 | <SYNTAX KISS OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM) = V-KISS>
246 | 
247 | <SYNTAX KNOCK AT OBJECT = V-KNOCK ;*>
248 | <SYNTAX KNOCK ON OBJECT = V-KNOCK>
249 | <SYNTAX KNOCK DOWN OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ATTACK>
250 | <SYNONYM KNOCK RAP>
251 | 
252 | <SYNTAX LAUNCH OBJECT (FIND VEHBIT) = V-LAUNCH>
253 | 
254 | <SYNTAX LEAVE = V-LEAVE>
255 | <SYNTAX LEAVE OBJECT = V-DROP>
256 | 
257 | <SYNTAX LIGHT
258 | 	OBJECT (FIND LIGHTBIT)
259 | 	(HELD CARRIED ON-GROUND IN-ROOM HAVE)
260 | 	= V-LAMP-ON ;*>
261 | <SYNTAX LIGHT
262 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
263 | 	WITH
264 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED HAVE)
265 | 	= V-BURN PRE-BURN>
266 | 
267 | <SYNTAX LISTEN TO OBJECT = V-LISTEN>
268 | <SYNTAX LISTEN FOR OBJECT = V-LISTEN>
269 | 
270 | <SYNTAX LOCK
271 | 	OBJECT (ON-GROUND IN-ROOM)
272 | 	WITH
273 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
274 | 	= V-LOCK>
275 | 
276 | <SYNTAX LOOK = V-LOOK>
277 | <SYNTAX LOOK UP OBJECT (FIND RMUNGBIT) = V-LOOK>
278 | <SYNTAX LOOK DOWN OBJECT (FIND RMUNGBIT) = V-LOOK>
279 | <SYNTAX LOOK AROUND OBJECT (FIND RMUNGBIT) = V-LOOK>
280 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EXAMINE>
281 | <SYNTAX LOOK WITH OBJECT = V-LOOK-INSIDE>
282 | <SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
283 | <SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER>
284 | <SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND>
285 | <SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-LOOK-INSIDE>
286 | <SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) WITH OBJECT = V-READ PRE-READ>
287 | <SYNTAX LOOK FOR OBJECT = V-FIND>
288 | <SYNONYM LOOK L STARE GAZE>
289 | 
290 | <SYNTAX SEARCH OBJECT = V-SEARCH>
291 | <SYNTAX SEARCH IN OBJECT = V-SEARCH>
292 | <SYNTAX SEARCH FOR OBJECT = V-FIND>
293 | 
294 | <SYNTAX LOWER OBJECT = V-LOWER>
295 | 
296 | <SYNTAX MAKE OBJECT = V-MAKE>
297 | 
298 | <SYNTAX MELT
299 | 	OBJECT
300 | 	WITH
301 | 	OBJECT (FIND FLAMEBIT) (HELD CARRIED ON-GROUND IN-ROOM)
302 | 	= V-MELT>
303 | <SYNONYM MELT LIQUIFY>
304 | 
305 | <SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
306 | <SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
307 | <SYNONYM MOVE>
308 | 
309 | <SYNTAX PLAY OBJECT = V-PLAY>
310 | 
311 | <SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE ; *>
312 | <SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE PRE-MOVE>
313 | <SYNONYM PULL TUG>
314 | 
315 | <SYNTAX MUMBLE = V-MUMBLE>
316 | <SYNONYM MUMBLE SIGH>
317 | 
318 | <SYNTAX DESTROY
319 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
320 | 	WITH
321 | 	OBJECT (HELD CARRIED TAKE)
322 | 	= V-MUNG PRE-MUNG>
323 | <SYNTAX DESTROY
324 | 	DOWN
325 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
326 | 	WITH
327 | 	OBJECT (HELD CARRIED TAKE)
328 | 	= V-MUNG PRE-MUNG>
329 | <SYNONYM DESTROY DAMAGE BREAK SMASH>
330 | 
331 | <SYNTAX LUBRICATE OBJECT WITH OBJECT (HELD CARRIED) = V-OIL PRE-OIL>
332 | <SYNONYM LUBRICATE OIL GREASE>
333 | 
334 | <SYNTAX OPEN
335 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
336 | 	= V-OPEN ;*>
337 | <SYNTAX OPEN
338 | 	UP
339 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
340 | 	= V-OPEN ;*>
341 | <SYNTAX OPEN
342 | 	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
343 | 	WITH
344 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
345 | 	= V-OPEN>
346 | 
347 | <SYNTAX PICK OBJECT = V-PICK>
348 | <SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
349 | 
350 | <SYNTAX PICK UP
351 | 	OBJECT (FIND TAKEBIT)
352 | 	       (ON-GROUND MANY)
353 | 	= V-TAKE PRE-TAKE>
354 | 
355 | <SYNTAX PLUG OBJECT WITH OBJECT = V-PLUG>
356 | <SYNONYM PLUG GLUE PATCH REPAIR FIX>
357 | 
358 | <SYNTAX PLUGH = V-ADVENT>
359 | <SYNONYM PLUGH XYZZY>
360 | 
361 | <SYNTAX POKE
362 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
363 | 	WITH
364 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
365 | 	= V-MUNG PRE-MUNG>
366 | <SYNONYM POKE JAB BLIND>
367 | 
368 | <SYNTAX POUR OBJECT (HELD CARRIED) = V-DROP ;*>
369 | <SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-DROP>
370 | <SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR-ON PRE-POUR-ON>
371 | <SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-DROP>
372 | <SYNONYM POUR SPILL>
373 | 
374 | <SYNTAX PRAY = V-PRAY>
375 | 
376 | <SYNTAX PUMP UP OBJECT = V-PUMP>
377 | <SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
378 | 
379 | <SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
380 | <SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND MANY) = V-PUSH>
381 | <SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
382 | <SYNONYM PUSH PRESS>
383 | 
384 | <SYNTAX PUT OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT ;*>
385 | <SYNTAX PUT OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
386 | <SYNTAX PUT DOWN OBJECT (HELD MANY) = V-DROP>
387 | <SYNTAX PUT OBJECT UNDER OBJECT = V-PUT-UNDER> 
388 | <SYNONYM PUT STUFF INSERT PLACE>
389 | 
390 | <SYNTAX RAISE OBJECT = V-RAISE ;*>
391 | <SYNTAX RAISE UP OBJECT = V-RAISE>
392 | <SYNONYM RAISE LIFT>
393 | 
394 | <SYNTAX RAPE OBJECT (FIND VICBIT) = V-RAPE>
395 | <SYNONYM RAPE MOLEST>
396 | 
397 | <SYNTAX READ
398 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
399 | 	= V-READ PRE-READ ; *>
400 | <SYNTAX READ
401 | 	OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
402 | 	WITH
403 | 	OBJECT
404 | 	= V-READ PRE-READ>
405 | <SYNONYM READ SKIM>
406 | 
407 | <SYNTAX REPENT = V-REPENT>
408 | 
409 | <SYNTAX RUB OBJECT = V-RUB>
410 | <SYNTAX RUB OBJECT WITH OBJECT = V-RUB>
411 | <SYNONYM RUB TOUCH FEEL PAT PET>
412 | 
413 | <SYNTAX SCRIPT = V-SCRIPT>
414 | <SYNTAX UNSCRIPT = V-UNSCRIPT>
415 | 
416 | <SYNTAX SEND FOR OBJECT = V-SEND>
417 | 
418 | <SYNTAX SHAKE OBJECT = V-SHAKE>
419 | 
420 | <SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
421 | 
422 | <SYNTAX SKIP = V-SKIP>
423 | <SYNONYM SKIP HOP>
424 | 
425 | <SYNTAX SMELL OBJECT = V-SMELL>
426 | <SYNONYM SMELL SNIFF>
427 | 
428 | <SYNTAX SPRAY OBJECT ON OBJECT = V-SPRAY>
429 | <SYNTAX SPRAY OBJECT WITH OBJECT = V-SSPRAY>
430 | 
431 | <SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
432 | <SYNTAX SQUEEZE OBJECT ON OBJECT = V-PUT PRE-PUT>
433 | 
434 | <SYNTAX STRIKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
435 | 	WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED ON-GROUND IN-ROOM HAVE)
436 | 	= V-ATTACK>
437 | <SYNTAX STRIKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)	= V-ATTACK ;*>
438 | <SYNTAX STRIKE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-LAMP-ON>
439 | 
440 | <SYNTAX SWIM = V-SWIM>
441 | <SYNTAX SWIM IN OBJECT = V-SWIM>
442 | <SYNONYM SWIM BATHE WADE>
443 | 
444 | <SYNTAX SWING
445 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
446 | 	= V-SWING>
447 | <SYNTAX SWING
448 | 	OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
449 | 	AT
450 | 	OBJECT (FIND VILLAIN) (ON-GROUND IN-ROOM)
451 | 	= V-SWING>
452 | <SYNONYM SWING THRUST>
453 | 
454 | <SYNTAX TAKE
455 | 	OBJECT (FIND TAKEBIT)
456 | 	(ON-GROUND MANY)
457 | 	= V-TAKE PRE-TAKE ;*>
458 | <SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
459 | <SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
460 | <SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
461 | <SYNTAX TAKE
462 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
463 | 	OUT
464 | 	OBJECT
465 | 	= V-TAKE PRE-TAKE>
466 | <SYNTAX TAKE
467 | 	OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
468 | 	OFF
469 | 	OBJECT
470 | 	= V-TAKE PRE-TAKE>
471 | <SYNTAX TAKE
472 | 	OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
473 | 	FROM
474 | 	OBJECT
475 | 	= V-TAKE PRE-TAKE>
476 | <SYNONYM TAKE GET HOLD CARRY REMOVE>
477 | 
478 | <SYNTAX TELL OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
479 | <SYNONYM TELL ASK>
480 | 
481 | <SYNTAX SAY TO OBJECT (FIND VICBIT) (IN-ROOM) = V-TELL>
482 | <SYNTAX SAY = V-SAY>
483 | <SYNONYM SAY TALK>
484 | 
485 | <SYNTAX INCANT = V-INCANT>
486 | <SYNONYM INCANT CHANT>
487 | 
488 | <SYNTAX ENCHANT OBJECT (ON-GROUND IN-ROOM) = V-ENCHANT>
489 | <SYNONYM ENCHANT CURSE>
490 | <SYNTAX DISENCHANT OBJECT = V-DISENCHANT>
491 | <SYNONYM DISENCHANT EXORCISE>
492 | 
493 | <SYNTAX THROW
494 | 	OBJECT (HELD CARRIED HAVE)
495 | 	AT
496 | 	OBJECT (ON-GROUND IN-ROOM)
497 | 	= V-THROW ;*>
498 | <SYNTAX THROW
499 | 	OBJECT (HELD CARRIED HAVE)
500 | 	WITH
501 | 	OBJECT (ON-GROUND IN-ROOM)
502 | 	= V-THROW>
503 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) IN OBJECT = V-PUT PRE-PUT>
504 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) ON OBJECT = V-PUT PRE-PUT>
505 | <SYNTAX THROW OBJECT (HELD CARRIED HAVE) OVER OBJECT = V-PUT PRE-PUT>
506 | <SYNONYM THROW HURL CHUCK TOSS>
507 | 
508 | <SYNTAX TIE OBJECT TO OBJECT = V-TIE PRE-TIE>
509 | <SYNTAX TIE UP
510 | 	OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM)
511 | 	WITH
512 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
513 | 	= V-TIE-UP>
514 | <SYNONYM TIE FASTEN SECURE ATTACH>
515 | 
516 | <SYNTAX TURN
517 | 	OBJECT (FIND TURNBIT) ( HELD CARRIED ON-GROUND IN-ROOM)
518 | 	WITH
519 | 	OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
520 | 	= V-TURN PRE-TURN ;*>
521 | <SYNTAX TURN ON
522 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
523 | 	= V-LAMP-ON>
524 | <SYNTAX TURN OFF
525 | 	OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE)
526 | 	= V-LAMP-OFF>
527 | <SYNONYM TURN FLIP SHUT>
528 | 
529 | <SYNTAX UNLOCK
530 | 	OBJECT (ON-GROUND IN-ROOM)
531 | 	WITH
532 | 	OBJECT (FIND TOOLBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
533 | 	= V-UNLOCK>
534 | 
535 | <SYNTAX UNTIE
536 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
537 | 	= V-UNTIE PRE-UNTIE ;*>
538 | <SYNTAX UNTIE
539 | 	OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
540 | 	FROM
541 | 	OBJECT
542 | 	= V-UNTIE PRE-UNTIE>
543 | <SYNONYM UNTIE FREE UNFASTEN UNATTACH UNHOOK>
544 | 
545 | <SYNTAX WAIT = V-WAIT>
546 | 
547 | <SYNTAX WAKE OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM ;*>
548 | <SYNTAX WAKE UP OBJECT (FIND VICBIT) (ON-GROUND IN-ROOM) = V-ALARM>
549 | <SYNONYM WAKE AWAKE SURPRISE STARTLE>
550 | 
551 | <SYNTAX WALK OBJECT = V-WALK>
552 | <SYNTAX WALK IN OBJECT = V-THROUGH>
553 | <SYNTAX WALK WITH OBJECT = V-THROUGH>
554 | <SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
555 | <SYNTAX WALK UP OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
556 | <SYNTAX WALK DOWN OBJECT (FIND CLIMBBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
557 | <SYNONYM WALK GO RUN PROCEED>
558 | 
559 | <SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE PRE-WAVE>
560 | <SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE PRE-WAVE>
561 | <SYNONYM WAVE BRANDISH AIM POINT>
562 | 
563 | <SYNTAX WIN = V-WIN>
564 | <SYNONYM WIN WINNAGE>
565 | 
566 | <SYNTAX WISH = V-WISH>
567 | 
568 | <SYNTAX YELL = V-YELL>
569 | <SYNONYM YELL SCREAM SHOUT>
570 | 
571 | <SYNTAX ZORK = V-ZORK>
572 | 
573 | ;"Simple questions"
574 | 
575 | ;"<SYNTAX WHAT ...> WHAT is a synonym of EXAMINE"
576 | 
577 | ;"<SYNTAX WHERE ...> WHERE is a synonym of FIND"
578 | 
579 | <SYNTAX $VERIFY = V-$VERIFY>
580 | 


--------------------------------------------------------------------------------
/origfiles/zork.z.rest/apply.mud.1:
--------------------------------------------------------------------------------
  1 | <DEFINE I$FCN (FUCN NAME FLAG "OPTIONAL" (FORM '<1>)
  2 | 	       		      "AUX" (HATM <>) (SEG <>) ATM ARGL NBIND
  3 | 			            (LPROG %<P-I "LPROG ">) (BODY .FUCN)
  4 | 				    (FRM <CALL CFRAME>) (ARGS <TUPLE !.FORM>)
  5 | 			      "NAME" ACT)
  6 | 	#DECL ((FUCN BODY ARGL) LIST (FLAG) <PRIMTYPE WORD> (FRM) T$FRAME
  7 | 	       (NAME LPROG) T$ATOM (SEG) STRUCTURED (FORM) <OR FORM TUPLE>
  8 | 	       (ATM) ANY (HATM) <OR T$ATOM ADECL FALSE> (NBIND) T$LBIND 
  9 | 	       (ARGS) TUPLE (ACT) ACTIVATION)
 10 | 	<COND (<TYPE? .FORM TUPLE> <SET ARGS .FORM>)
 11 | 	      (T <SET ARGS <REST .ARGS>>)>
 12 | 	<COND (<EMPTY? .BODY>
 13 | 	       <RETURN <T$ERROR %<P-E "EMPTY-BODY"> .NAME> .ACT>)
 14 | 	      (<TYPE? <1 .BODY> T$ATOM ADECL>
 15 | 	       <SET HATM <1 .BODY>>
 16 | 	       <SET BODY <REST .BODY>>)>
 17 | 	<COND (<OR <LENGTH? .BODY 1> <NOT <TYPE? <1 .BODY> LIST>>>
 18 | 	       <RETURN <T$ERROR %<P-E "BAD-ARGUMENT-LIST"> .NAME> .ACT>)
 19 | 	      (T
 20 | 	       <SET ARGL <1 .BODY>>
 21 | 	       <SET BODY <REST .BODY>>)>
 22 | 	<COND (<==? <ANDB .FLAG <+ ,M$$F-APLY ,M$$F-EVAL>> 0>
 23 | 	       <SET FLAG <ORB .FLAG ,M$$F-AUX>>)>
 24 | 	<REPEAT (BND TOKEN VAL (FIXUP <>))
 25 | 		#DECL ((BND) <OR FALSE T$LBIND> (FIXUP) <OR FALSE ATOM>
 26 | 		       (TOKEN VAL) ANY)
 27 | 		<COND (<AND <EMPTY? .ARGS> <EMPTY? .SEG> <NOT .FIXUP>>
 28 | 		       <CALL FIXBIND>
 29 | 		       <SET FIXUP T>)>
 30 | 		<COND (<EMPTY? .ARGL> <RETURN>)
 31 | 		      (<AND <TYPE? <SET TOKEN <1 .ARGL>> ADECL>
 32 | 			    <TYPE? <SET ATM <1 .TOKEN>> T$ATOM>
 33 | 			    <N==? <ANDB .FLAG ,M$$F-DECL> 0>>
 34 | 		       <COND (<SET BND <M$$LVAL <1 .TOKEN>>>
 35 | 			      <PUT .BND ,M$$DECL <2 .TOKEN>>)>)
 36 | 		      (<OR <TYPE? .TOKEN T$ATOM ADECL>
 37 | 			   <AND <TYPE? .TOKEN LIST>
 38 | 				<==? <LENGTH .TOKEN> 2>
 39 | 				<TYPE? <1 .TOKEN> T$ATOM ADECL>>
 40 | 			   <AND <TYPE? .TOKEN FORM>
 41 | 				<==? <LENGTH .TOKEN> 2>
 42 | 				<==? <1 .TOKEN> %<P-R "QUOTE">>
 43 | 				<TYPE? <2 .TOKEN> T$ATOM>>>
 44 | 		       <COND (<TYPE? .TOKEN FORM>
 45 | 			      <SET ATM <2 .TOKEN>>)
 46 | 			     (<TYPE? .TOKEN LIST>
 47 | 			      <SET VAL <T$EVAL <2 .TOKEN>>>
 48 | 			      <SET ATM <1 .TOKEN>>)
 49 | 			     (T
 50 | 			      <SET ATM .TOKEN>
 51 | 			      <SET VAL ,M$$UNBOUND>)>
 52 | 		       <SET NBIND <CALL BIND>>
 53 | 		       <I$SET-ATOM .ATM
 54 | 				   .NBIND
 55 | 				   <COND (<N==? <ANDB .FLAG ,M$$F-OWN> 0>
 56 | 					  <COND (<T$GETPROP .FUCN .ATM>)
 57 | 						(T
 58 | 						 <T$PUTPROP .FUCN .ATM
 59 | 						    <CHTYPE (.VAL) T$DEFER>>
 60 | 						 <T$GETPROP .FUCN .ATM>)>)
 61 | 					 (<N==? <ANDB .FLAG ,M$$F-AUX> 0>
 62 | 					  .VAL)
 63 | 					 (<AND <EMPTY? .SEG> <EMPTY? .ARGS>>
 64 | 					  <COND (<N==? <ANDB .FLAG ,M$$F-OPT>
 65 | 						       0>
 66 | 						 .VAL)
 67 | 						(T
 68 | 						 <RETURN
 69 | 						  <T$ERROR
 70 | 						   %<P-E "TOO-FEW-ARGUMENTS">
 71 | 						   .NAME>
 72 | 						  .ACT>)>)
 73 | 					 (<AND <EMPTY? .SEG>
 74 | 					       <OR <SET VAL <1 .ARGS>> T>
 75 | 					       <SET ARGS <REST .ARGS>>
 76 | 					       <OR <NOT <TYPE? .VAL SEGMENT>>
 77 | 						   <N==? <ANDB .FLAG
 78 | 							       ,M$$F-APLY>
 79 | 							 0>>>
 80 | 					  <COND (<AND <NOT <TYPE? .TOKEN FORM>>
 81 | 						      <==? <ANDB .FLAG
 82 | 								 ,M$$F-APLY>
 83 | 							   0>>
 84 | 						 <SET VAL <T$EVAL .VAL>>)>
 85 | 					  .VAL)
 86 | 					 (T
 87 | 					  <COND (<TYPE? .VAL SEGMENT>
 88 | 						 <SET
 89 | 						  SEG
 90 | 						  <T$EVAL
 91 | 						   <CHTYPE .VAL FORM>>>)>
 92 | 					  <SET VAL <1 .SEG>>
 93 | 					  <OR <TYPE? .TOKEN FORM>
 94 | 					      <N==? <ANDB .FLAG ,M$$F-APLY>
 95 | 						    0>
 96 | 					      <SET VAL <T$EVAL .VAL>>>
 97 | 					  <SET SEG <REST .SEG>>
 98 | 					  .VAL)>
 99 | 				   .FIXUP>)
100 | 		      (<AND <=? .TOKEN "BIND">
101 | 		            <==? <ANDB .FLAG <+ ,M$$F-BIND ,M$$F-REPT
102 | 						,M$$F-REPT ,M$$F-FIRST>>
103 | 				 0>
104 | 			    <NOT <LENGTH? .ARGL 1>>
105 | 			    <TYPE? <SET ATM <2 .ARGL>> T$ATOM ADECL>>
106 | 		       <SET NBIND <CALL BIND>>
107 | 		       <I$SET-ATOM .ATM .NBIND <M$$FRM-PREV .FRM> .FIXUP>
108 | 		       <SET ARGL <REST .ARGL>>)
109 | 		      (<AND <MEMBER .TOKEN '["OPT" "OPTIONAL"]>
110 | 		            <==? <ANDB .FLAG <+ ,M$$F-BIND ,M$$F-REPT
111 | 						,M$$F-PROG ,M$$F-AUX
112 | 						,M$$F-DECL>>
113 | 				 0>>
114 | 		       <SET FLAG <ORB .FLAG ,M$$F-OPT>>)
115 | 		      (<AND <OR <AND <MEMBER .TOKEN '["ARGS" "CALL"]>
116 | 			             <==? <ANDB .FLAG <+ ,M$$F-BIND ,M$$F-REPT
117 | 							 ,M$$F-PROG ,M$$F-ARTU
118 | 							 ,M$$F-DECL
119 | 							 ,M$$F-APLY>>
120 | 					  0>>
121 | 				<AND <=? .TOKEN "TUPLE">
122 | 				     <==? <ANDB .FLAG <+ ,M$$F-BIND ,M$$F-REPT
123 | 							 ,M$$F-PROG ,M$$F-ARTU
124 | 							 ,M$$F-DECL>>
125 | 					  0>>>
126 | 		       	    <NOT <LENGTH? .ARGL 1>>
127 | 			    <TYPE? <SET ATM <2 .ARGL>> T$ATOM ADECL>>
128 | 		       	    <SET NBIND <CALL BIND>>
129 | 			    <I$SET-ATOM .ATM
130 | 					.NBIND
131 | 					<COND (<=? .TOKEN "ARGS">
132 | 					       <REST .FORM>)
133 | 					      (<=? .TOKEN "CALL">
134 | 					       .FORM)
135 | 					      (T
136 | 					       <I$FCNTUP .SEG .ARGS .FLAG>)>
137 | 					.FIXUP>
138 | 		       <SET ARGL <REST .ARGL>>
139 | 		       <SET ARGS <REST .ARGS <LENGTH .ARGS>>>
140 | 		       <SET FLAG <ORB .FLAG ,M$$F-ARTU>>)
141 | 		      (<AND <MEMBER .TOKEN '["AUX" "EXTRA"]>
142 | 			    <==? <ANDB .FLAG <+ ,M$$F-BIND ,M$$F-REPT
143 | 						,M$$F-PROG ,M$$F-AUX
144 | 						,M$$F-NAM ,M$$F-DECL>>
145 | 				 0>>
146 | 		       <SET FLAG <ORB .FLAG ,M$$F-AUX>>)
147 | 		      (<AND <MEMBER .TOKEN '["NAME" "ACT"]>
148 | 			    <==? <ANDB .FLAG ,M$$F-NAM> 0>
149 | 			    <NOT <LENGTH? .ARGL 1>>
150 | 			    <TYPE? <SET ATM <2 .ARGL>> T$ATOM ADECL>>
151 | 		       <SET NBIND <CALL BIND>>
152 | 		       <I$SET-ATOM .ATM .NBIND .FRM .FIXUP>
153 | 		       <SET ARGL <REST .ARGL>>)
154 | 		      (<AND <=? .TOKEN "DECL">
155 | 			    <==? <ANDB ,FLAG ,M$$F-DECL> 0>>
156 | 		       <SET FLAG <ORB .FLAG ,M$$F-DECL>>)
157 | 		      (<=? .TOKEN "OWN">
158 | 		       <SET FLAG <ORB .FLAG ,M$$F-OWN>>)
159 | 		      (T
160 | 		       <RETURN <T$ERROR %<P-E "BAD-ARGUMENT-LIST"> .NAME>
161 | 			       .ACT>)>
162 | 		<SET ARGL <REST .ARGL>>>
163 | 	<COND (<AND <N==? <ANDB .FLAG <+ ,M$$F-APLY ,M$$F-EVAL>> 0>
164 | 		    <OR <NOT <EMPTY? .ARGS>>
165 | 			<NOT <EMPTY? .SEG>>>>
166 | 	       <RETURN <T$ERROR %<P-E "TOO-MANY-ARGUMENTS"> .NAME> .ACT>)>
167 | 	<COND (.HATM
168 | 	       <SET NBIND <CALL BIND>>
169 | 	       <I$SET-ATOM .HATM .NBIND .FRM T>)>
170 | 	<COND (<==? <ANDB .FLAG ,M$$F-BIND> 0>
171 | 	       <SET NBIND <CALL BIND>>
172 | 	       <PUT .LPROG
173 | 		    ,M$$LVAL
174 | 		     <PUT <I$LBIND .LPROG .NBIND>
175 | 			  ,M$$VALU
176 | 			  .FRM>>)>
177 | 	<PROG (ANS "NAME" ACT)
178 | 	      #DECL ((ANS) ANY (ACT) ACTIVATION)
179 | 	      <CALL ACTIVATION .FRM .ACT>
180 | 	      <SET ANS <MAPF <> ,T$EVAL .BODY>>
181 | 	      <COND (<N==? <ANDB .FLAG ,M$$F-REPT> 0> <T$AGAIN .FRM>)
182 | 		    (ELSE <T$RETURN .ANS .FRM>)>>>
183 | 
184 | <SETG M$$DECL-CHECK %<P-R "T">>
185 | 
186 | <DEFINE I$SET-ATOM (ARG BND VAL "OPTIONAL" (FX T)
187 | 		                "AUX" (DECL %<P-R "ANY">) ATM)
188 | 	#DECL ((ARG) <OR ADECL T$ATOM> (ATM) T$ATOM (BND) T$LBIND (VAL) ANY
189 | 	       (DECL) <OR T$ATOM FORM SEGMENT> (FX) <OR ATOM FALSE>)
190 | 	<COND (<TYPE? .ARG ADECL>
191 | 	       <SET ATM <1 .ARG>>
192 | 	       <COND (<OR <NOT ,M$$DECL-CHECK>
193 | 			  <T$DECL? .VAL <2 .ARG>>
194 | 			  <TYPE? .VAL T$UNBOUND>>
195 | 		      <SET DECL <2 .ARG>>)
196 | 		     (T
197 | 		      <T$ERROR %<P-E "TYPE-MISMATCH">
198 | 			       <1 .ARG>
199 | 			       <2 .ARG>
200 | 			       .VAL
201 | 			       %<P-R "EVAL">>)>)
202 | 	      (T <SET ATM .ARG>)>
203 | 	<M$$VALU <M$$DECL <SET BND <I$LBIND .ATM .BND>> .DECL> .VAL>
204 | 	<COND (.FX <PUT .ATM ,M$$LVAL .BND>)>>
205 | 
206 | <DEFINE I$FCNTUP (SEG ARGS FLAG "AUX" (APLY? <N==? <ANDB .FLAG ,M$$F-APLY>
207 | 						   0>) (CNT 0))
208 | 	#DECL ((SEG) STRUCTURED (ARGS) TUPLE (CNT) FIX (FLAG) <PRIMTYPE WORD>
209 | 	       (APLY?) <OR ATOM FALSE>)
210 | 	<REPEAT (ARG)
211 | 		#DECL ((ARG) ANY)
212 | 		<COND (<AND <EMPTY? .ARGS> <EMPTY? .SEG>>
213 | 		       <RETURN <CALL TUPLE .CNT>>)
214 | 		      (<EMPTY? .SEG>
215 | 		       <COND (<TYPE? <SET ARG <1 .ARGS>> SEGMENT>
216 | 			      <SET SEG <T$EVAL <CHTYPE .ARG FORM>>>)
217 | 			     (T
218 | 			      <CALL PUSH
219 | 				    <COND (.APLY? .ARG)
220 | 					  (T <T$EVAL .ARG>)>>
221 | 			      <SET CNT <+ .CNT 1>>)>
222 | 		       <SET ARGS <REST .ARGS>>)
223 | 		      (T
224 | 		       <CALL PUSH
225 | 			     <COND (.APLY? <1 .SEG>)
226 | 				   (T <T$EVAL <1 .SEG>>)>>
227 | 		       <SET CNT <+ .CNT 1>>
228 | 		       <SET SEG <REST .SEG>>)>>>
229 | 
230 | ;"Here are the SUBRs themselves."
231 | 
232 | <DEFINE T$PROG ("ARGS" ARGS) #DECL ((ARGS) LIST)
233 | 	<I$FCN .ARGS %<P-R "PROG"> ,M$$F-PROG>>
234 | 
235 | <DEFINE T$BIND ("ARGS" ARGS) #DECL ((ARGS) LIST)
236 | 	<I$FCN .ARGS %<P-R "BIND"> ,M$$F-BIND>>
237 | 
238 | <DEFINE T$REPEAT ("ARGS" ARGS) #DECL ((ARGS) LIST)
239 | 	<I$FCN .ARGS %<P-R "REPEAT"> ,M$$F-REPT>>
240 | 
241 | <DEFINE T$RETURN ("OPTIONAL" (VAL <T$LOOKUP "T" <T$ROOT>>) FRM)
242 | 	#DECL ((VAL VALUE) ANY (FRM) T$FRAME)
243 | 	<COND (<ASSIGNED? FRM>
244 | 	       <CALL RFRAME .FRM>
245 | 	       <CALL RETURN .VAL>)
246 | 	      (<T$ASSIGNED? %<P-I "LPROG ">>
247 |                <CALL RFRAME <T$LVAL %<P-I "LPROG">>>
248 | 	       <CALL RETURN .VAL>)
249 | 	      (ELSE <T$ERROR %<P-E "NO-LPROG"> %<P-R "RETURN">>)>>
250 | 
251 | <DEFINE T$AGAIN ("OPTIONAL" FRM) #DECL ((FRM) T$FRAME (VALUE) ANY)
252 | 	<COND (<ASSIGNED? FRM> <CALL AGAIN .FRM>)
253 | 	      (<T$ASSIGNED? %<P-I "LPROG ">>
254 | 	       <CALL AGAIN <T$LVAL %<P-I "LPROG ">>>)
255 | 	      (ELSE <T$ERROR %<P-E "NO-LPROG"> %<P-R "AGAIN">>)>>
256 | 
257 | <DEFINE T$APPLY (FCN "TUPLE" ARGS
258 | 		     "AUX" (TYP <CHTYPE <LSH <CALL TYPE .FCN> -6> FIX>)
259 | 		           (ENTRY <NTH ,M$$TYPE-INFO <+ .TYP 1>>)
260 | 			   (ETYP <NTH .ENTRY ,M$$APPLY>) LEN)
261 | 	#DECL ((FCN VALUE) ANY (ARGS) TUPLE (LEN) FIX (ENTRY) T$TYPE-ENTRY
262 | 	       (TYP) FIX (ETYP) <OR T$ATOM T$MSUBR0 APPLICABLE FALSE>)
263 | 	<COND (<==? .ETYP %<P-R "MSUBR">>
264 | 	       <I$MSUBR <CHTYPE .FCN T$MSUBR> %<P-R "APPLY"> .ARGS>)
265 | 	      (<==? .ETYP %<P-R "FUNCTION">>
266 | 	       <I$FCN <CHTYPE .FCN LIST> %<P-R "APPLY"> ,M$$F-APLY .ARGS>)
267 | 	      (<MEMQ .ETYP [%<P-R "FIX"> %<P-R "OFFSET">]>
268 | 	       <COND (<0? <SET LEN <LENGTH .ARGS>>>
269 | 		      <T$ERROR %<P-E "TOO-FEW-ARGUMENTS"> %<P-R "APPLY">>)
270 | 		     (<1? .LEN>
271 | 		      <T$NTH <NTH .ARGS 1> <T$CHTYPE .FCN .ETYP>>)
272 | 		     (<==? .LEN 2>
273 | 		      <T$PUT <NTH .ARGS 1>
274 | 			     <T$CHTYPE .FCN .ETYP>
275 | 			     <NTH .ARGS 2>>)
276 | 		     (ELSE
277 | 		      <T$ERROR %<P-E "TOO-MANY-ARGUMENTS-SUPPLIED">
278 | 			       %<P-R "APPLY">>)>)
279 | 	      (ELSE <T$ERROR %<P-E "NON-APPLICABLE-TYPE"> %<P-R "APPLY">>)>>
280 | 
281 |  <DEFINE T$EVAL (ARG1 "OPTIONAL" ARG2
282 | 		      "AUX" (OBND <CALL GETS BIND>) FCN ATM VAL LEN (INT? <>)
283 | 			    (ENTRY <NTH ,M$$TYPE-INFO
284 | 					<+ <CHTYPE <LSH <CALL TYPE .ARG1> -6>
285 | 						FIX> 1>>)
286 | 			    (ETYP <NTH .ENTRY ,M$$NEVAL>))
287 | 	#DECL ((ARG1 ATM VAL VALUE IOVAL) ANY (FCN) <OR APPLICABLE ANY>
288 | 	       (ARG2) T$FRAME (OBND) <OR T$LBIND FALSE>
289 | 	       (ETYP) <OR APPLICABLE T$ATOM FALSE> (LEN) FIX
290 | 	       (ENTRY) T$TYPE-ENTRY (INT?) <OR FALSE T$ATOM>)
291 | 	;<COND (<SET INT? <M$$C-ENABLE ,M$$EVALCLASS>>
292 | 	       <T$INTERRUPT "EVAL" %<P-R "EVAL-IN"> .ARG1>)>
293 | 	<COND (<ASSIGNED? ARG2>
294 | 	       <SETG M$$BINDID <+ ,M$$BINDID 1>>
295 | 	       <COND (<N==? .ARG2 ,M$$TBIND>
296 | 		      <CALL SETS BIND <M$$FRM-BIND .ARG2>>)>)>
297 | 	<SET VAL
298 | 	     <COND
299 | 	      (<NOT .ETYP> .ARG1)
300 | 	      (<==? .ETYP %<P-R "VECTOR">>
301 | 	       <CHTYPE <MAPF ,VECTOR
302 | 			     <FUNCTION (ITM) #DECL ((ITM) ANY)
303 | 				  <COND (<TYPE? .ITM SEGMENT>
304 | 					 <MAPRET !<T$EVAL <CHTYPE .ITM FORM>>>)
305 | 					(T <T$EVAL .ITM>)>>
306 | 			     .ARG1>
307 | 		       <TYPE .ARG1>>)
308 | 	      (<==? .ETYP %<P-R "LIST">> <I$LISTEVAL .ARG1>)
309 | 	      (<==? .ETYP <SET ATM %<P-R "LVAL">>>
310 | 	       <T$APPLY <T$GVAL .ATM> <CHTYPE .ARG1 T$ATOM>>)
311 | 	      (<==? .ETYP <SET ATM %<P-R "GVAL">>>
312 | 	       <T$APPLY <T$GVAL .ATM> <CHTYPE .ARG1 T$ATOM>>)
313 | 	      (<AND <==? .ETYP %<P-R "FORM">>
314 | 		    <EMPTY? .ARG1>>
315 | 	       <>)
316 | 	      (<==? .ETYP %<P-R "FORM">>
317 | 	       <SET FCN
318 | 		    <COND (<TYPE? <SET ATM <CALL NTHL .ARG1 1>> T$ATOM>
319 | 		           <T$GVAL .ATM>)
320 | 			  (T <T$EVAL .ATM>)>>
321 | 	       <COND (<TYPE? .FCN FIX OFFSET>
322 | 		      <COND (<1? <SET LEN <CALL LENL .ARG1>>>
323 | 			     <T$ERROR %<P-E "TOO-FEW-ARGUMENTS">
324 | 				      %<P-R "EVAL">>)
325 | 			    (<==? .LEN 2>
326 | 			     <T$NTH <T$EVAL <CALL NTHL .ARG1 2>> .FCN>)
327 | 			    (<==? .LEN 3>
328 | 			     <T$PUT <T$EVAL <CALL NTHL .ARG1 2>>
329 | 				    .FCN
330 | 				    <T$EVAL <CALL NTHL .ARG1 3>>>)
331 | 			    (T
332 | 			     <T$ERROR %<P-E "TOO-MANY-ARGUMENTS">
333 | 				      %<P-R "EVAL">>)>)
334 | 		     (<TYPE? .FCN T$MSUBR>
335 | 		      <I$MSUBR .FCN %<P-R "EVAL"> <CHTYPE .ARG1 FORM>>)
336 | 		     (<TYPE? .FCN T$FUNCTION>
337 | 		      <I$FCN <CHTYPE .FCN LIST>
338 | 			     %<P-R "EVAL">
339 | 			     ,M$$F-EVAL
340 | 			     <CHTYPE .ARG1 FORM>>)
341 | 		     (<NTH .ENTRY ,M$$APPLY>
342 | 		      <T$APPLY .FCN !<REST .ARG1>>)
343 | 		     (<TYPE? .FCN T$MACRO>
344 | 		      <T$EVAL <T$EXPAND .ARG1>>)
345 | 		     (T
346 | 		      <T$ERROR %<P-E "NON-APPLICABLE-TYPE"> %<P-R "EVAL">>)>)
347 | 	      (<==? .ETYP %<P-R "ADECL">>
348 | 	       <COND (<OR <NOT ,M$$DECL-CHECK>
349 | 			  <T$DECL? <SET VAL <T$EVAL <1 .ARG1>>> <2 .ARG1>>>
350 | 		      .VAL)
351 | 		     (T
352 | 		      <T$ERROR %<P-E "DECL-VIOLATION">
353 | 			       .VAL <2 .ARG1> %<P-R "EVAL">>)>)
354 | 	      (<==? .ETYP %<P-R "SEGMENT">>
355 | 	       <T$ERROR %<P-E "ILLEGAL-SEGMENT"> %<P-R "EVAL">>)
356 | 	      (<T$APPLICABLE? .ETYP> <T$APPLY .ETYP .ARG1>)
357 | 	      (ELSE .ARG1)>>
358 | 	<COND (<ASSIGNED? ARG2>
359 | 	       <SETG M$$BINDID <+ ,M$$BINDID 1>>
360 | 	       <COND (<N==? .ARG2 ,M$$TBIND> <CALL SETS BIND .OBND>)>)>
361 | 	;<COND (.INT? <T$INTERRUPT "EVAL" %<P-R "EVAL-OUT"> .ARG1 .VAL>)>
362 | 	.VAL>
363 | 
364 | <DEFINE I$LISTEVAL (ARG1 "AUX" (L ()) (LL .L) (TYP <TYPE .ARG1>) ITM)
365 | 	#DECL ((ARG1) <PRIMTYPE LIST> (L LL) LIST (TYP) ATOM (ITM) ANY)
366 | 	<REPEAT ()
367 | 		<COND (<EMPTY? .ARG1>
368 | 		       <RETURN <CHTYPE .LL .TYP>>)
369 | 		      (T
370 | 		       <SET ITM <1 .ARG1>>
371 | 		       <SET ARG1 <REST .ARG1>>
372 | 		       <COND (<TYPE? .ITM SEGMENT>
373 | 			      <SET ITM <T$EVAL <CHTYPE .ITM FORM>>>
374 | 			      <COND (<AND <EMPTY? .ARG1>
375 | 					  <==? <PRIMTYPE .ITM> LIST>>
376 | 				     <COND (<EMPTY? .L>
377 | 					    <RETURN <CHTYPE .ITM LIST>>)
378 | 					   (T <PUTREST .L .ITM>)>)
379 | 				    (T
380 | 				     <REPEAT ()
381 | 					 <COND (<EMPTY? .ITM> <RETURN>)
382 | 					       (<EMPTY? .L>
383 | 						<SET LL <SET L (<1 .ITM>)>>)
384 | 					       (T
385 | 						<SET L
386 | 						     <REST
387 | 						        <PUTREST .L
388 | 								 (<1 .ITM>)>>>
389 | 						<SET ITM <REST .ITM>>)>>)>)
390 | 			     (<EMPTY? .L> <SET LL <SET L (<T$EVAL .ITM>)>>)
391 | 			     (T
392 | 			      <SET L <REST <PUTREST .L (<T$EVAL .ITM>)>>>)>)>>>
393 | 
394 | <DEFINE T$EXPAND (FRM "AUX" (OBIND <CALL GETS BIND>) VAL FROB NFROB)
395 | 	#DECL ((FRM) FORM (OBIND) <OR FALSE T$LBIND>
396 | 	       (FROB NFROB VAL) ANY)
397 | 	<CALL SETS BIND ,M$$TBIND>
398 | 	<COND (<TYPE? <SET FROB <1 .FRM>> T$MACRO>
399 | 	       <PUT .FRM 1 <1 .FROB>>
400 | 	       <SET VAL <T$EVAL .FRM>>
401 | 	       <PUT .FRM 1 .FROB>)
402 | 	      (<AND <TYPE? .FROB T$ATOM>
403 | 		    <TYPE? <SET NFROB <T$GVAL .FROB>> T$MACRO>>
404 | 	       <PUT .FRM 1 <1 .NFROB>>
405 | 	       <SET VAL <T$EVAL .FRM>>
406 | 	       <PUT .FRM 1 .FROB>)
407 | 	      (T <SET VAL <T$EVAL .FRM>>)> 
408 | 	<CALL SETS BIND .OBIND>
409 | 	.VAL>
410 | 
411 | <DEFINE I$MSUBRF ("TUPLE" TUP "AUX" VAL (MSBN <M$$MSB-NAME .MSB>))
412 | 	#DECL ((TAFLG) <OR ATOM FALSE> (TUP) TUPLE (VAL) ANY (MSB) MSUBR
413 | 	       (MSBN) ATOM)
414 | 	<COND (<AND .TAFLG <NOT <I$MSTUPLE .MSB .TUP>>>)
415 | 	      (<T$DECL? <SET VAL <CALL CALL .MSBN !.TUP>> .VDCL>
416 | 	       .VAL)
417 | 	      (ELSE
418 | 	       <T$ERROR %<P-E "TYPE-MISMATCH">
419 | 			%<P-R "VALUE">
420 | 			.VDCL
421 | 			.VAL
422 | 			.NAME>)>>
423 | 
424 | <DEFINE I$MSUBR (MSB NAME FORM "AUX" (VDCL %<P-R "ANY">) (SEG ())
425 | 		 		     (OPT <>) (VAL <>) (QUOT <>) (TUP <>)
426 | 				     (DCL <M$$MSB-DECL .MSB>)
427 | 				     (ARGS <TUPLE !.FORM>) ARG (TAFLG <>))
428 | 	#DECL ((MSB) <SPECIAL T$MSUBR> (ARGS) TUPLE (ARG) ANY
429 | 	       (NAME) <SPECIAL T$ATOM> (TAFLG) <SPECIAL <OR ATOM FALSE>>
430 | 	       (SEG) STRUCTURED (OPT VAL QUOT TUP) <OR ATOM FALSE>
431 | 	       (DCL) <PRIMTYPE LIST> (FORM) <OR TUPLE FORM>
432 | 	       (VDCL) <SPECIAL <OR T$ATOM FORM SEGMENT>>)
433 | 	<COND (<TYPE? .FORM TUPLE> <SET ARGS .FORM>)
434 | 	      (T <SET ARGS <REST .ARGS>>)>
435 | 	<MAPR ,I$MSUBRF
436 | 	      <FUNCTION ("AUX" TOKEN)
437 | 		   #DECL ((TOKEN) ANY)
438 | 	           <COND (.TUP <SET TOKEN <>>)
439 | 			 (<EMPTY? .DCL> <MAPSTOP>)
440 | 			 (T
441 | 			  <SET TOKEN <1 .DCL>>
442 | 			  <SET DCL <REST .DCL>>)>
443 | 		   <COND (.VAL <SET VAL <>> <MAPRET>)
444 | 			 (<OR <TYPE? .TOKEN T$ATOM FORM> .TUP>
445 | 			  <COND (<AND <EMPTY? .SEG> <EMPTY? .ARGS>>
446 | 				 <COND (<OR .OPT .TUP> <MAPSTOP>)
447 | 				       (T
448 | 					<T$ERROR %<P-E "TOO-FEW-ARGUMENTS">
449 | 						 .NAME>)>)
450 | 				(<EMPTY? .SEG>
451 | 				 <SET ARG <1 .ARGS>>
452 | 				 <COND (<TYPE? .ARG SEGMENT>
453 | 					<SET SEG <T$EVAL <CHTYPE .ARG FORM>>>
454 | 					<SET ARG <1 .SEG>>
455 | 					<SET SEG <REST .SEG>>)
456 | 				       (T
457 | 					<COND (.QUOT <SET QUOT <>>)
458 | 					      (<==? .NAME %<P-R "APPLY">>)
459 | 					      (T <SET ARG <T$EVAL .ARG>>)>)>
460 | 				 <SET ARGS <REST .ARGS>>)
461 | 				(T
462 | 				 <SET ARG <1 .SEG>>
463 | 				 <SET SEG <REST .SEG>>)>
464 | 			  <COND (<OR .TUP <T$DECL? .ARG .TOKEN>>
465 | 				 .ARG)
466 | 				(T
467 | 				 <T$ERROR %<P-E "ARG-WRONG-TYPE"> .NAME>)>)
468 | 			 (<MEMBER .TOKEN '["OPT" "OPTIONAL"]>
469 | 			  <SET OPT T>
470 | 			  <MAPRET>)
471 | 			 (<=? .TOKEN "VALUE">
472 | 			  <SET VDCL <1 .DCL>>
473 | 			  <SET VAL T>
474 | 			  <MAPRET>)
475 | 			 (<=? .TOKEN "TUPLE">
476 | 			  <SET TUP T>
477 | 			  <SET TAFLG T>
478 | 			  <MAPRET>)
479 | 			 (<=? .TOKEN "QUOTE">
480 | 			  <SET QUOT T>
481 | 			  <MAPRET>)
482 | 			 (<=? .TOKEN "ARGS">
483 | 			  <COND (<T$DECL? <REST .FORM> <1 .DCL>>
484 | 				 <MAPSTOP <REST .FORM>>)
485 | 				(T <T$ERROR %<P-E "ARG-WRONG-TYPE"> .NAME>)>)
486 | 			 (<=? .TOKEN "CALL">
487 | 			  <MAPSTOP .FORM>)
488 | 			 (T <T$ERROR %<P-E "BAD-MSUBR-DECL"> .NAME>)>>>>
489 | 
490 | <DEFINE I$MSTUPLE (MSB TUP "AUX" (DCL <M$$MSB-DECL .MSB>) TOK)
491 | 	#DECL ((MSB) T$MSUBR (TUP) TUPLE (DCL) <PRIMTYPE LIST>
492 | 	       (TOK) <OR STRING T$ATOM FORM SEGMENT>)
493 | 	<REPEAT ()
494 | 		<COND (<=? <SET TOK <1 .DCL>> "TUPLE">
495 | 		       <COND (<T$DECL? .TUP <2 .DCL>>
496 | 			      <RETURN T>)
497 | 			     (T
498 | 			      <T$ERROR %<P-E "ARG-WRONG-TYPE">
499 | 				       <M$$MSB-NAME .MSB>>
500 | 			      <>)>)
501 | 		      (<NOT <TYPE? .TOK STRING>> <SET TUP <REST .TUP>>)
502 | 		      (<=? .TOK "VALUE"> <SET DCL <REST .DCL>>)>
503 | 		<SET DCL <REST .DCL>>>> 
504 | 
505 | <DEFINE T$DECL-CHECK ("OPTIONAL" NEW "AUX" (OLD ,M$$DECL-CHECK))
506 | 	#DECL ((NEW OLD) <OR T$ATOM FALSE>)
507 | 	<COND (<ASSIGNED? NEW>
508 | 	       <SETG M$$DECL-CHECK .NEW>)>
509 | 	.OLD>
510 | 
511 | <DEFINE T$OVAL (ATM FCN "OPTIONAL" SET
512 | 			"AUX" (VAL <T$GETPROP <CHTYPE .FCN LIST> .ATM>))
513 | 	#DECL ((FCN) T$FUNCTION (ATM) T$ATOM (VAL) <OR T$DEFER FALSE>
514 | 	       (SET) ANY)
515 | 	<COND (.VAL
516 | 	       <COND (<ASSIGNED? SET> <PUT .VAL 1 .SET> .SET)
517 | 		     (<TYPE? <1 .VAL> T$UNBOUND>
518 | 		      <T$ERROR %<P-E "UNBOUND-VARIABLE">
519 | 			       .ATM
520 | 			       %<P-R "OWNED-VALUE">>)
521 | 		     (T <1 .VAL>)>)
522 | 	      (<ASSIGNED? SET>
523 | 	       <T$PUTPROP <CHTYPE .FCN LIST> .ATM <CHTYPE (.SET) T$DEFER>>
524 | 	       .SET)
525 | 	      (T <T$ERROR %<P-E "UNOWNED-VARIABLE"> .FCN .ATM>)>>
526 | 
527 | <DEFINE T$UNOWN (ATM FCN)
528 | 	#DECL ((ATM) T$ATOM (FCN) T$FUNCTION)
529 | 	<T$PUTPROP <CHTYPE .FCN LIST> .ATM <>>
530 | 	%<P-R "T">>
531 | 
532 | <DEFINE T$OWNED? (ATM FCN)
533 | 	#DECL ((ATM) T$ATOM (FCN) T$FUNCTION)
534 | 	<COND (<T$GETPROP <CHTYPE .FCN LIST> .ATM> %<P-R "T">)>>


--------------------------------------------------------------------------------
/out/PARSER.ZAP:
--------------------------------------------------------------------------------
   1 | 
   2 | 
   3 | 	.FUNCT	PARSER,PTR=P-LEXSTART,WORD,VAL=0,VERB=0,LEN,DIR=0,NW=0,NUM
   4 | 	CALL	CLEAR-ITBL
   5 | 	PUT	P-PRSO,P-MATCHLEN,0
   6 | 	PUT	P-PRSI,P-MATCHLEN,0
   7 | 	PUT	P-BUTS,P-MATCHLEN,0
   8 | 	ZERO?	QUOTE-FLAG \?CND1
   9 | 	EQUAL?	WINNER,ADVENTURER /?CND1
  10 | 	SET	'WINNER,ADVENTURER
  11 | 	LOC	WINNER >HERE
  12 | ?CND1:	ZERO?	P-CONT /?ELS8
  13 | 	SET	'PTR,P-CONT
  14 | 	SET	'P-CONT,0
  15 | 	EQUAL?	PRSA,V?TELL /?CND6
  16 | 	ZERO?	SUPER-BRIEF \?CND6
  17 | 	CRLF	
  18 | 	JUMP	?CND6
  19 | ?ELS8:	SET	'WINNER,ADVENTURER
  20 | 	LOC	WINNER
  21 | 	FSET?	STACK,VEHBIT /?CND17
  22 | 	LOC	WINNER >HERE
  23 | ?CND17:	ZERO?	SUPER-BRIEF \?CND20
  24 | 	CRLF	
  25 | ?CND20:	PRINTI	">"
  26 | 	READ	P-INBUF,P-LEXV
  27 | ?CND6:	GETB	P-LEXV,P-LEXWORDS >P-LEN
  28 | 	ZERO?	P-LEN \?CND25
  29 | 	PRINTI	"Beg pardon?"
  30 | 	CRLF	
  31 | 	RFALSE	
  32 | ?CND25:	SET	'LEN,P-LEN
  33 | 	SET	'P-DIR,0
  34 | 	SET	'P-NCN,0
  35 | 	SET	'P-GETFLAGS,0
  36 | ?PRG30:	DLESS?	'P-LEN,0 \?ELS34
  37 | 	SET	'QUOTE-FLAG,0
  38 | 	JUMP	?REP31
  39 | ?ELS34:	GET	P-LEXV,PTR >WORD
  40 | 	ZERO?	WORD /?ELS36
  41 | 	EQUAL?	WORD,W?THEN,W?. /?THN40
  42 | 	EQUAL?	WORD,W?QUOTE \?ELS39
  43 | ?THN40:	EQUAL?	WORD,W?QUOTE \?CND42
  44 | 	ZERO?	QUOTE-FLAG /?ELS47
  45 | 	SET	'QUOTE-FLAG,0
  46 | 	JUMP	?CND42
  47 | ?ELS47:	SET	'QUOTE-FLAG,1
  48 | ?CND42:	ZERO?	P-LEN /?THN51
  49 | 	ADD	PTR,P-LEXELEN >P-CONT
  50 | ?THN51:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
  51 | 	JUMP	?REP31
  52 | ?ELS39:	CALL	WT?,WORD,PS?DIRECTION,P1?DIRECTION >VAL
  53 | 	ZERO?	VAL /?ELS54
  54 | 	EQUAL?	VERB,ACT?WALK,0 \?ELS54
  55 | 	EQUAL?	LEN,1 /?THN57
  56 | 	EQUAL?	LEN,2 \?ELS60
  57 | 	EQUAL?	VERB,ACT?WALK /?THN57
  58 | ?ELS60:	ADD	PTR,P-LEXELEN
  59 | 	GET	P-LEXV,STACK >NW
  60 | 	EQUAL?	NW,W?THEN,W?.,W?QUOTE \?ELS62
  61 | 	GRTR?	LEN,2 /?THN57
  62 | ?ELS62:	EQUAL?	NW,W?. \?ELS64
  63 | 	GRTR?	LEN,1 /?THN57
  64 | ?ELS64:	ZERO?	QUOTE-FLAG /?ELS66
  65 | 	EQUAL?	LEN,2 \?ELS66
  66 | 	EQUAL?	NW,W?QUOTE /?THN57
  67 | ?ELS66:	GRTR?	LEN,2 \?ELS54
  68 | 	EQUAL?	NW,W?COMMA,W?AND \?ELS54
  69 | ?THN57:	SET	'DIR,VAL
  70 | 	EQUAL?	NW,W?COMMA,W?AND \?CND69
  71 | 	ADD	PTR,P-LEXELEN
  72 | 	PUT	P-LEXV,STACK,W?THEN
  73 | ?CND69:	GRTR?	LEN,2 /?CND32
  74 | 	SET	'QUOTE-FLAG,0
  75 | 	JUMP	?REP31
  76 | ?ELS54:	CALL	WT?,WORD,PS?VERB,P1?VERB >VAL
  77 | 	ZERO?	VAL /?ELS76
  78 | 	ZERO?	VERB \?ELS76
  79 | 	SET	'VERB,VAL
  80 | 	PUT	P-ITBL,P-VERB,VAL
  81 | 	PUT	P-ITBL,P-VERBN,P-VTBL
  82 | 	PUT	P-VTBL,0,WORD
  83 | 	MUL	PTR,2
  84 | 	ADD	STACK,2 >NUM
  85 | 	GETB	P-LEXV,NUM
  86 | 	PUTB	P-VTBL,2,STACK
  87 | 	ADD	NUM,1
  88 | 	GETB	P-LEXV,STACK
  89 | 	PUTB	P-VTBL,3,STACK
  90 | 	JUMP	?CND32
  91 | ?ELS76:	CALL	WT?,WORD,PS?PREPOSITION,0 >VAL
  92 | 	ZERO?	VAL \?THN81
  93 | 	EQUAL?	WORD,W?ALL,W?ONE,W?A /?THN85
  94 | 	CALL	WT?,WORD,PS?ADJECTIVE
  95 | 	ZERO?	STACK \?THN85
  96 | 	CALL	WT?,WORD,PS?OBJECT
  97 | 	ZERO?	STACK /?ELS80
  98 | ?THN85:	SET	'VAL,0
  99 | ?THN81:	GRTR?	P-LEN,0 \?ELS89
 100 | 	ADD	PTR,P-LEXELEN
 101 | 	GET	P-LEXV,STACK
 102 | 	EQUAL?	STACK,W?OF \?ELS89
 103 | 	ZERO?	VAL \?ELS89
 104 | 	EQUAL?	WORD,W?ALL,W?ONE,W?A /?ELS89
 105 | 	JUMP	?CND32
 106 | ?ELS89:	ZERO?	VAL /?ELS93
 107 | 	ZERO?	P-LEN /?THN96
 108 | 	ADD	PTR,2
 109 | 	GET	P-LEXV,STACK
 110 | 	EQUAL?	STACK,W?THEN,W?. \?ELS93
 111 | ?THN96:	LESS?	P-NCN,2 \?CND32
 112 | 	PUT	P-ITBL,P-PREP1,VAL
 113 | 	PUT	P-ITBL,P-PREP1N,WORD
 114 | 	JUMP	?CND32
 115 | ?ELS93:	EQUAL?	P-NCN,2 \?ELS102
 116 | 	PRINTI	"Too many noun clauses??"
 117 | 	CRLF	
 118 | 	RFALSE	
 119 | ?ELS102:	INC	'P-NCN
 120 | 	CALL	CLAUSE,PTR,VAL,WORD >PTR
 121 | 	ZERO?	PTR /FALSE
 122 | 	LESS?	PTR,0 \?CND32
 123 | 	SET	'QUOTE-FLAG,0
 124 | 	JUMP	?REP31
 125 | ?ELS80:	CALL	WT?,WORD,PS?BUZZ-WORD
 126 | 	ZERO?	STACK /?ELS113
 127 | 	JUMP	?CND32
 128 | ?ELS113:	PRINTI	"I can't use the word '"
 129 | 	PRINTB	WORD
 130 | 	PRINTI	"' here."
 131 | 	CRLF	
 132 | 	RFALSE	
 133 | ?ELS36:	CALL	UNKNOWN-WORD,PTR
 134 | 	SET	'QUOTE-FLAG,0
 135 | 	RFALSE	
 136 | ?CND32:	ADD	PTR,P-LEXELEN >PTR
 137 | 	JUMP	?PRG30
 138 | ?REP31:	ZERO?	DIR /?CND122
 139 | 	SET	'PRSA,V?WALK
 140 | 	SET	'PRSO,DIR
 141 | 	RTRUE	
 142 | ?CND122:	ZERO?	P-OFLAG /?CND126
 143 | 	CALL	ORPHAN-MERGE
 144 | ?CND126:	CALL	SYNTAX-CHECK
 145 | 	ZERO?	STACK /FALSE
 146 | 	CALL	SNARF-OBJECTS
 147 | 	ZERO?	STACK /FALSE
 148 | 	CALL	TAKE-CHECK
 149 | 	ZERO?	STACK /FALSE
 150 | 	CALL	MANY-CHECK
 151 | 	ZERO?	STACK /FALSE
 152 | 	RTRUE
 153 | 
 154 | 
 155 | 	.FUNCT	WT?,PTR,BIT,B1=5,OFFSET=P-P1OFF,TYP
 156 | 	GETB	PTR,P-PSOFF >TYP
 157 | 	BTST	TYP,BIT \FALSE
 158 | 	GRTR?	B1,4 /TRUE
 159 | 	BAND	TYP,P-P1BITS >TYP
 160 | 	EQUAL?	TYP,B1 /?CND13
 161 | 	INC	'OFFSET
 162 | ?CND13:	GETB	PTR,OFFSET
 163 | 	RSTACK	
 164 | 
 165 | 
 166 | 	.FUNCT	CLAUSE,PTR,VAL,WORD,OFF,NUM,ANDFLG=0,FIRST??=0,NW,?TMP1
 167 | 	SUB	P-NCN,1
 168 | 	MUL	STACK,2 >OFF
 169 | 	ZERO?	VAL /?ELS3
 170 | 	ADD	P-PREP1,OFF >NUM
 171 | 	PUT	P-ITBL,NUM,VAL
 172 | 	ADD	NUM,1
 173 | 	PUT	P-ITBL,STACK,WORD
 174 | 	ADD	PTR,P-LEXELEN >PTR
 175 | 	JUMP	?CND1
 176 | ?ELS3:	INC	'P-LEN
 177 | ?CND1:	ZERO?	P-LEN \?CND6
 178 | 	DEC	'P-NCN
 179 | 	RETURN	-1
 180 | ?CND6:	ADD	P-NC1,OFF >NUM
 181 | 	MUL	PTR,2
 182 | 	ADD	P-LEXV,STACK
 183 | 	PUT	P-ITBL,NUM,STACK
 184 | ?PRG9:	DLESS?	'P-LEN,0 \?CND11
 185 | 	ADD	NUM,1 >?TMP1
 186 | 	MUL	PTR,2
 187 | 	ADD	P-LEXV,STACK
 188 | 	PUT	P-ITBL,?TMP1,STACK
 189 | 	RETURN	-1
 190 | ?CND11:	GET	P-LEXV,PTR >WORD
 191 | 	ZERO?	WORD /?ELS16
 192 | 	ZERO?	P-LEN \?ELS19
 193 | 	SET	'NW,0
 194 | 	JUMP	?CND17
 195 | ?ELS19:	ADD	PTR,P-LEXELEN
 196 | 	GET	P-LEXV,STACK >NW
 197 | ?CND17:	EQUAL?	WORD,W?AND,W?COMMA \?ELS24
 198 | 	SET	'ANDFLG,1
 199 | 	JUMP	?CND14
 200 | ?ELS24:	EQUAL?	WORD,W?ALL,W?ONE \?ELS26
 201 | 	EQUAL?	NW,W?OF \?CND14
 202 | 	DEC	'P-LEN
 203 | 	ADD	PTR,P-LEXELEN >PTR
 204 | 	JUMP	?CND14
 205 | ?ELS26:	EQUAL?	WORD,W?THEN,W?. /?THN32
 206 | 	CALL	WT?,WORD,PS?PREPOSITION
 207 | 	ZERO?	STACK /?ELS31
 208 | 	ZERO?	FIRST?? \?ELS31
 209 | ?THN32:	INC	'P-LEN
 210 | 	ADD	NUM,1 >?TMP1
 211 | 	MUL	PTR,2
 212 | 	ADD	P-LEXV,STACK
 213 | 	PUT	P-ITBL,?TMP1,STACK
 214 | 	SUB	PTR,P-LEXELEN
 215 | 	RETURN	STACK
 216 | ?ELS31:	CALL	WT?,WORD,PS?OBJECT
 217 | 	ZERO?	STACK /?ELS37
 218 | 	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE
 219 | 	ZERO?	STACK /?ELS40
 220 | 	ZERO?	NW /?ELS40
 221 | 	CALL	WT?,NW,PS?OBJECT
 222 | 	ZERO?	STACK /?ELS40
 223 | 	JUMP	?CND14
 224 | ?ELS40:	ZERO?	ANDFLG \?ELS44
 225 | 	EQUAL?	NW,W?BUT,W?EXCEPT /?ELS44
 226 | 	EQUAL?	NW,W?AND,W?COMMA /?ELS44
 227 | 	ADD	NUM,1 >?TMP1
 228 | 	ADD	PTR,2
 229 | 	MUL	STACK,2
 230 | 	ADD	P-LEXV,STACK
 231 | 	PUT	P-ITBL,?TMP1,STACK
 232 | 	RETURN	PTR
 233 | ?ELS44:	SET	'ANDFLG,0
 234 | 	JUMP	?CND14
 235 | ?ELS37:	CALL	WT?,WORD,PS?ADJECTIVE
 236 | 	ZERO?	STACK \?CND14
 237 | 	CALL	WT?,WORD,PS?BUZZ-WORD
 238 | 	ZERO?	STACK /?ELS50
 239 | 	JUMP	?CND14
 240 | ?ELS50:	ZERO?	ANDFLG /?ELS54
 241 | 	CALL	WT?,WORD,PS?DIRECTION
 242 | 	ZERO?	STACK \?THN57
 243 | 	CALL	WT?,WORD,PS?VERB
 244 | 	ZERO?	STACK /?ELS54
 245 | ?THN57:	SUB	PTR,4 >PTR
 246 | 	ADD	PTR,2
 247 | 	PUT	P-LEXV,STACK,W?THEN
 248 | 	ADD	P-LEN,2 >P-LEN
 249 | 	JUMP	?CND14
 250 | ?ELS54:	PRINTI	"I can't use the word '"
 251 | 	PRINTB	WORD
 252 | 	PRINTI	"' here."
 253 | 	CRLF	
 254 | 	RFALSE	
 255 | ?ELS16:	CALL	UNKNOWN-WORD,PTR
 256 | 	RFALSE	
 257 | ?CND14:	SET	'FIRST??,0
 258 | 	ADD	PTR,P-LEXELEN >PTR
 259 | 	JUMP	?PRG9
 260 | 
 261 | 
 262 | 	.FUNCT	ORPHAN-MERGE,CNT=-1,TEMP,VERB,BEG,END,ADJ=0,WRD,?TMP1
 263 | 	SET	'P-OFLAG,0
 264 | 	GET	P-ITBL,P-VERB >VERB
 265 | 	ZERO?	VERB /?ELS3
 266 | 	GET	P-OTBL,P-VERB
 267 | 	EQUAL?	VERB,STACK \FALSE
 268 | ?ELS3:	EQUAL?	P-NCN,2 /FALSE
 269 | 	GET	P-OTBL,P-NC1
 270 | 	EQUAL?	STACK,1 \?ELS9
 271 | 	GET	P-ITBL,P-PREP1 >TEMP
 272 | 	GET	P-OTBL,P-PREP1
 273 | 	EQUAL?	TEMP,STACK /?THN13
 274 | 	ZERO?	TEMP \FALSE
 275 | ?THN13:	GET	P-ITBL,P-NC1
 276 | 	PUT	P-OTBL,P-NC1,STACK
 277 | 	GET	P-ITBL,P-NC1L
 278 | 	PUT	P-OTBL,P-NC1L,STACK
 279 | 	JUMP	?CND1
 280 | ?ELS9:	GET	P-OTBL,P-NC2
 281 | 	EQUAL?	STACK,1 \?ELS18
 282 | 	GET	P-ITBL,P-PREP1 >TEMP
 283 | 	GET	P-OTBL,P-PREP2
 284 | 	EQUAL?	TEMP,STACK /?THN22
 285 | 	ZERO?	TEMP \FALSE
 286 | ?THN22:	GET	P-ITBL,P-NC1
 287 | 	PUT	P-OTBL,P-NC2,STACK
 288 | 	GET	P-ITBL,P-NC1L
 289 | 	PUT	P-OTBL,P-NC2L,STACK
 290 | 	SET	'P-NCN,2
 291 | 	JUMP	?CND1
 292 | ?ELS18:	ZERO?	P-ACLAUSE /?CND1
 293 | 	EQUAL?	P-NCN,1 /?ELS31
 294 | 	SET	'P-ACLAUSE,0
 295 | 	RFALSE	
 296 | ?ELS31:	GET	P-ITBL,P-NC1 >BEG
 297 | 	GET	P-ITBL,P-NC1L >END
 298 | ?PRG34:	EQUAL?	BEG,END \?ELS38
 299 | 	ZERO?	ADJ /?ELS41
 300 | 	CALL	ACLAUSE-WIN,ADJ
 301 | 	JUMP	?CND29
 302 | ?ELS41:	SET	'P-ACLAUSE,0
 303 | 	RFALSE	
 304 | ?ELS38:	ZERO?	ADJ \?ELS46
 305 | 	GET	BEG,0 >WRD
 306 | 	GETB	WRD,P-PSOFF
 307 | 	BTST	STACK,PS?ADJECTIVE \?ELS46
 308 | 	SET	'ADJ,WRD
 309 | 	JUMP	?CND36
 310 | ?ELS46:	GETB	WRD,P-PSOFF
 311 | 	BTST	STACK,PS?OBJECT /?THN51
 312 | 	EQUAL?	WRD,W?ONE \?CND36
 313 | ?THN51:	EQUAL?	WRD,P-ANAM,W?ONE \FALSE
 314 | 	CALL	ACLAUSE-WIN,ADJ
 315 | 	JUMP	?CND29
 316 | ?CND36:	ADD	BEG,P-WORDLEN >BEG
 317 | 	JUMP	?PRG34
 318 | ?CND29:	
 319 | ?CND1:	
 320 | ?PRG58:	IGRTR?	'CNT,P-ITBLLEN /TRUE
 321 | 	GET	P-OTBL,CNT
 322 | 	PUT	P-ITBL,CNT,STACK
 323 | 	JUMP	?PRG58
 324 | 
 325 | 
 326 | 	.FUNCT	ACLAUSE-WIN,ADJ
 327 | 	SET	'P-CCSRC,P-OTBL
 328 | 	ADD	P-ACLAUSE,1
 329 | 	CALL	CLAUSE-COPY,P-ACLAUSE,STACK,ADJ
 330 | 	GET	P-OTBL,P-NC2
 331 | 	ZERO?	STACK /?ELS2
 332 | 	SET	'P-NCN,2
 333 | ?ELS2:	SET	'P-ACLAUSE,0
 334 | 	RTRUE	
 335 | 
 336 | 
 337 | 	.FUNCT	WORD-PRINT,CNT,BUF
 338 | ?PRG1:	DLESS?	'CNT,0 /TRUE
 339 | 	GETB	P-INBUF,BUF
 340 | 	PRINTC	STACK
 341 | 	INC	'BUF
 342 | 	JUMP	?PRG1
 343 | 
 344 | 
 345 | 	.FUNCT	UNKNOWN-WORD,PTR,BUF,?TMP1
 346 | 	PRINTI	"I don't know the word '"
 347 | 	MUL	PTR,2 >BUF
 348 | 	ADD	P-LEXV,BUF
 349 | 	GETB	STACK,2 >?TMP1
 350 | 	ADD	P-LEXV,BUF
 351 | 	GETB	STACK,3
 352 | 	CALL	WORD-PRINT,?TMP1,STACK
 353 | 	PRINTI	"'."
 354 | 	CRLF	
 355 | 	SET	'P-OFLAG,0
 356 | 	RTRUE	
 357 | 
 358 | 
 359 | 	.FUNCT	CLEAR-ITBL,CNT=-1
 360 | ?PRG1:	IGRTR?	'CNT,P-ITBLLEN /TRUE
 361 | 	PUT	P-ITBL,CNT,0
 362 | 	JUMP	?PRG1
 363 | 
 364 | 
 365 | 	.FUNCT	SYNTAX-CHECK,SYN,LEN,NUM,OBJ,DRIVE1=0,DRIVE2=0,PREP,VERB,TMP,?TMP2,?TMP1
 366 | 	GET	P-ITBL,P-VERB >VERB
 367 | 	ZERO?	VERB \?CND1
 368 | 	PRINTI	"You must supply a verb!"
 369 | 	CRLF	
 370 | 	RFALSE	
 371 | ?CND1:	SUB	255,VERB
 372 | 	GET	VERBS,STACK >SYN
 373 | 	GETB	SYN,0 >LEN
 374 | 	ADD	1,SYN >SYN
 375 | ?PRG6:	GETB	SYN,P-SBITS
 376 | 	BAND	STACK,P-SONUMS >NUM
 377 | 	LESS?	NUM,1 /?ELS10
 378 | 	ZERO?	P-NCN \?ELS10
 379 | 	GET	P-ITBL,P-PREP1 >PREP
 380 | 	ZERO?	PREP /?THN13
 381 | 	GETB	SYN,P-SPREP1
 382 | 	EQUAL?	PREP,STACK \?ELS10
 383 | ?THN13:	SET	'DRIVE1,SYN
 384 | 	JUMP	?CND8
 385 | ?ELS10:	GETB	SYN,P-SPREP1 >?TMP1
 386 | 	GET	P-ITBL,P-PREP1
 387 | 	EQUAL?	?TMP1,STACK \?CND8
 388 | 	EQUAL?	NUM,2 \?ELS19
 389 | 	EQUAL?	P-NCN,1 \?ELS19
 390 | 	SET	'DRIVE2,SYN
 391 | 	JUMP	?CND8
 392 | ?ELS19:	GETB	SYN,P-SPREP2 >?TMP1
 393 | 	GET	P-ITBL,P-PREP2
 394 | 	EQUAL?	?TMP1,STACK \?CND8
 395 | 	CALL	SYNTAX-FOUND,SYN
 396 | 	RTRUE	
 397 | ?CND8:	DLESS?	'LEN,1 \?ELS26
 398 | 	ZERO?	DRIVE1 \?REP7
 399 | 	ZERO?	DRIVE2 /?ELS29
 400 | 	JUMP	?REP7
 401 | ?ELS29:	PRINTI	"I don't understand that sentence."
 402 | 	CRLF	
 403 | 	RFALSE	
 404 | ?ELS26:	ADD	SYN,P-SYNLEN >SYN
 405 | 	JUMP	?PRG6
 406 | ?REP7:	ZERO?	DRIVE1 /?ELS42
 407 | 	GETB	DRIVE1,P-SFWIM1 >?TMP2
 408 | 	GETB	DRIVE1,P-SLOC1 >?TMP1
 409 | 	GETB	DRIVE1,P-SPREP1
 410 | 	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
 411 | 	ZERO?	OBJ /?ELS42
 412 | 	PUT	P-PRSO,P-MATCHLEN,1
 413 | 	PUT	P-PRSO,1,OBJ
 414 | 	CALL	SYNTAX-FOUND,DRIVE1
 415 | 	RSTACK	
 416 | ?ELS42:	ZERO?	DRIVE2 /?ELS46
 417 | 	GETB	DRIVE2,P-SFWIM2 >?TMP2
 418 | 	GETB	DRIVE2,P-SLOC2 >?TMP1
 419 | 	GETB	DRIVE2,P-SPREP2
 420 | 	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
 421 | 	ZERO?	OBJ /?ELS46
 422 | 	PUT	P-PRSI,P-MATCHLEN,1
 423 | 	PUT	P-PRSI,1,OBJ
 424 | 	CALL	SYNTAX-FOUND,DRIVE2
 425 | 	RSTACK	
 426 | ?ELS46:	CALL	ORPHAN,DRIVE1,DRIVE2
 427 | 	PRINTI	"What do you want to "
 428 | 	GET	P-OTBL,P-VERBN >TMP
 429 | 	GETB	P-VTBL,2
 430 | 	ZERO?	STACK \?ELS55
 431 | 	GET	TMP,0
 432 | 	PRINTB	STACK
 433 | 	JUMP	?CND53
 434 | ?ELS55:	GETB	TMP,2 >?TMP1
 435 | 	GETB	TMP,3
 436 | 	CALL	WORD-PRINT,?TMP1,STACK
 437 | 	PUTB	P-VTBL,2,0
 438 | ?CND53:	ZERO?	DRIVE2 /?CND58
 439 | 	PRINTI	" the"
 440 | 	CALL	CLAUSE-PRINT,P-PREP1,P-NC1,P-NC1L
 441 | ?CND58:	SET	'P-OFLAG,1
 442 | 	ZERO?	DRIVE1 /?ELS68
 443 | 	GETB	DRIVE1,P-SPREP1
 444 | 	JUMP	?CND64
 445 | ?ELS68:	GETB	DRIVE2,P-SPREP2
 446 | ?CND64:	CALL	PREP-PRINT,STACK
 447 | 	PRINTI	"?"
 448 | 	CRLF	
 449 | 	RFALSE	
 450 | 
 451 | 
 452 | 	.FUNCT	ORPHAN,D1,D2,CNT=-1
 453 | 	PUT	P-OCLAUSE,P-MATCHLEN,0
 454 | 	SET	'P-CCSRC,P-ITBL
 455 | ?PRG1:	IGRTR?	'CNT,P-ITBLLEN \?ELS5
 456 | 	JUMP	?REP2
 457 | ?ELS5:	GET	P-ITBL,CNT
 458 | 	PUT	P-OTBL,CNT,STACK
 459 | 	JUMP	?PRG1
 460 | ?REP2:	EQUAL?	P-NCN,2 \?CND8
 461 | 	CALL	CLAUSE-COPY,P-NC2,P-NC2L
 462 | ?CND8:	LESS?	P-NCN,1 /?CND11
 463 | 	CALL	CLAUSE-COPY,P-NC1,P-NC1L
 464 | ?CND11:	ZERO?	D1 /?ELS18
 465 | 	GETB	D1,P-SPREP1
 466 | 	PUT	P-OTBL,P-PREP1,STACK
 467 | 	PUT	P-OTBL,P-NC1,1
 468 | 	RTRUE	
 469 | ?ELS18:	ZERO?	D2 /FALSE
 470 | 	GETB	D2,P-SPREP2
 471 | 	PUT	P-OTBL,P-PREP2,STACK
 472 | 	PUT	P-OTBL,P-NC2,1
 473 | 	RTRUE	
 474 | 
 475 | 
 476 | 	.FUNCT	CLAUSE-PRINT,PPTR,BPTR,EPTR,BEG,END,?TMP1
 477 | 	GET	P-ITBL,BPTR >BEG
 478 | 	GET	P-ITBL,EPTR >END
 479 | 	GET	P-OTBL,PPTR
 480 | 	CALL	PREP-PRINT,STACK
 481 | ?PRG1:	EQUAL?	BEG,END /TRUE
 482 | 	PRINTI	" "
 483 | 	ZERO?	P-OFLAG /?ELS12
 484 | 	GET	BEG,0
 485 | 	PRINTB	STACK
 486 | 	JUMP	?CND3
 487 | ?ELS12:	GETB	BEG,2 >?TMP1
 488 | 	GETB	BEG,3
 489 | 	CALL	WORD-PRINT,?TMP1,STACK
 490 | ?CND3:	ADD	BEG,P-WORDLEN >BEG
 491 | 	JUMP	?PRG1
 492 | 
 493 | 
 494 | 	.FUNCT	PREP-PRINT,PREP
 495 | 	ZERO?	PREP /FALSE
 496 | 	PRINTI	" "
 497 | 	CALL	PREP-FIND,PREP
 498 | 	PRINTB	STACK
 499 | 	RTRUE	
 500 | 
 501 | 
 502 | 	.FUNCT	CLAUSE-COPY,BPTR,EPTR,INSERT=0,BEG,END
 503 | 	GET	P-CCSRC,BPTR >BEG
 504 | 	GET	P-CCSRC,EPTR >END
 505 | 	GET	P-OCLAUSE,P-MATCHLEN
 506 | 	MUL	STACK,P-LEXELEN
 507 | 	ADD	STACK,2
 508 | 	ADD	P-OCLAUSE,STACK
 509 | 	PUT	P-OTBL,BPTR,STACK
 510 | ?PRG1:	EQUAL?	BEG,END \?ELS5
 511 | 	GET	P-OCLAUSE,P-MATCHLEN
 512 | 	MUL	STACK,P-LEXELEN
 513 | 	ADD	STACK,2
 514 | 	ADD	P-OCLAUSE,STACK
 515 | 	PUT	P-OTBL,EPTR,STACK
 516 | 	RTRUE	
 517 | ?ELS5:	ZERO?	INSERT /?CND8
 518 | 	GET	BEG,0
 519 | 	EQUAL?	P-ANAM,STACK \?CND8
 520 | 	CALL	CLAUSE-ADD,INSERT
 521 | ?CND8:	GET	BEG,0
 522 | 	CALL	CLAUSE-ADD,STACK
 523 | ?CND3:	ADD	BEG,P-WORDLEN >BEG
 524 | 	JUMP	?PRG1
 525 | 
 526 | 
 527 | 	.FUNCT	CLAUSE-ADD,WRD,PTR
 528 | 	GET	P-OCLAUSE,P-MATCHLEN
 529 | 	ADD	STACK,2 >PTR
 530 | 	SUB	PTR,1
 531 | 	PUT	P-OCLAUSE,STACK,WRD
 532 | 	PUT	P-OCLAUSE,PTR,0
 533 | 	PUT	P-OCLAUSE,P-MATCHLEN,PTR
 534 | 	RTRUE	
 535 | 
 536 | 
 537 | 	.FUNCT	PREP-FIND,PREP,CNT=0,SIZE
 538 | 	GET	PREPOSITIONS,0
 539 | 	MUL	STACK,2 >SIZE
 540 | ?PRG1:	IGRTR?	'CNT,SIZE /FALSE
 541 | 	GET	PREPOSITIONS,CNT
 542 | 	EQUAL?	STACK,PREP \?PRG1
 543 | 	SUB	CNT,1
 544 | 	GET	PREPOSITIONS,STACK
 545 | 	RETURN	STACK
 546 | 
 547 | 
 548 | 	.FUNCT	SYNTAX-FOUND,SYN
 549 | 	SET	'P-SYNTAX,SYN
 550 | 	GETB	SYN,P-SACTION >PRSA
 551 | 	RETURN	PRSA
 552 | 
 553 | 
 554 | 	.FUNCT	GWIM,GBIT,LBIT,PREP,OBJ
 555 | 	EQUAL?	GBIT,RMUNGBIT \?CND1
 556 | 	RETURN	ROOMS
 557 | ?CND1:	SET	'P-GWIMBIT,GBIT
 558 | 	SET	'P-SLOCBITS,LBIT
 559 | 	PUT	P-MERGE,P-MATCHLEN,0
 560 | 	CALL	GET-OBJECT,P-MERGE,0
 561 | 	ZERO?	STACK /?ELS8
 562 | 	SET	'P-GWIMBIT,0
 563 | 	GET	P-MERGE,P-MATCHLEN
 564 | 	EQUAL?	STACK,1 \FALSE
 565 | 	GET	P-MERGE,1 >OBJ
 566 | 	PRINTI	"("
 567 | 	ZERO?	PREP /?CND16
 568 | 	CALL	PREP-FIND,PREP >PREP
 569 | 	PRINTB	PREP
 570 | 	EQUAL?	PREP,W?OUT \?CND19
 571 | 	PRINTI	" of"
 572 | ?CND19:	EQUAL?	OBJ,HANDS \?ELS26
 573 | 	PRINTI	" your hands)"
 574 | 	CRLF	
 575 | 	JUMP	?CND16
 576 | ?ELS26:	PRINTI	" the "
 577 | ?CND16:	EQUAL?	OBJ,HANDS /?CND33
 578 | 	PRINTD	OBJ
 579 | 	PRINTI	")"
 580 | 	CRLF	
 581 | ?CND33:	RETURN	OBJ
 582 | ?ELS8:	SET	'P-GWIMBIT,0
 583 | 	RFALSE	
 584 | 
 585 | 
 586 | 	.FUNCT	SNARF-OBJECTS,PTR
 587 | 	GET	P-ITBL,P-NC1 >PTR
 588 | 	ZERO?	PTR /?CND1
 589 | 	GETB	P-SYNTAX,P-SLOC1 >P-SLOCBITS
 590 | 	GET	P-ITBL,P-NC1L
 591 | 	CALL	SNARFEM,PTR,STACK,P-PRSO
 592 | 	ZERO?	STACK /FALSE
 593 | 	GET	P-BUTS,P-MATCHLEN
 594 | 	ZERO?	STACK /?CND1
 595 | 	CALL	BUT-MERGE,P-PRSO >P-PRSO
 596 | ?CND1:	GET	P-ITBL,P-NC2 >PTR
 597 | 	ZERO?	PTR /TRUE
 598 | 	GETB	P-SYNTAX,P-SLOC2 >P-SLOCBITS
 599 | 	GET	P-ITBL,P-NC2L
 600 | 	CALL	SNARFEM,PTR,STACK,P-PRSI
 601 | 	ZERO?	STACK /FALSE
 602 | 	GET	P-BUTS,P-MATCHLEN
 603 | 	ZERO?	STACK /TRUE
 604 | 	GET	P-PRSI,P-MATCHLEN
 605 | 	EQUAL?	STACK,1 \?ELS18
 606 | 	CALL	BUT-MERGE,P-PRSO >P-PRSO
 607 | 	RTRUE	
 608 | ?ELS18:	CALL	BUT-MERGE,P-PRSI >P-PRSI
 609 | 	RTRUE	
 610 | 
 611 | 
 612 | 	.FUNCT	BUT-MERGE,TBL,LEN,BUTLEN,CNT=1,MATCHES=0,OBJ,NTBL
 613 | 	GET	TBL,P-MATCHLEN >LEN
 614 | 	PUT	P-MERGE,P-MATCHLEN,0
 615 | ?PRG1:	DLESS?	'LEN,0 \?ELS5
 616 | 	JUMP	?REP2
 617 | ?ELS5:	GET	TBL,CNT >OBJ
 618 | 	CALL	ZMEMQ,OBJ,P-BUTS
 619 | 	ZERO?	STACK /?ELS7
 620 | 	JUMP	?CND3
 621 | ?ELS7:	ADD	MATCHES,1
 622 | 	PUT	P-MERGE,STACK,OBJ
 623 | 	INC	'MATCHES
 624 | ?CND3:	INC	'CNT
 625 | 	JUMP	?PRG1
 626 | ?REP2:	PUT	P-MERGE,P-MATCHLEN,MATCHES
 627 | 	SET	'NTBL,P-MERGE
 628 | 	SET	'P-MERGE,TBL
 629 | 	RETURN	NTBL
 630 | 
 631 | 
 632 | 	.FUNCT	SNARFEM,PTR,EPTR,TBL,AND=0,BUT=0,LEN,WV,WORD,NW
 633 | 	SET	'P-GETFLAGS,0
 634 | 	PUT	P-BUTS,P-MATCHLEN,0
 635 | 	PUT	TBL,P-MATCHLEN,0
 636 | 	GET	PTR,0 >WORD
 637 | ?PRG1:	EQUAL?	PTR,EPTR \?ELS5
 638 | 	ZERO?	BUT /?ORP9
 639 | 	PUSH	BUT
 640 | 	JUMP	?THN6
 641 | ?ORP9:	PUSH	TBL
 642 | ?THN6:	CALL	GET-OBJECT,STACK
 643 | 	RETURN	STACK
 644 | ?ELS5:	GET	PTR,P-LEXELEN >NW
 645 | 	EQUAL?	WORD,W?ALL \?ELS14
 646 | 	SET	'P-GETFLAGS,P-ALL
 647 | 	EQUAL?	NW,W?OF \?CND12
 648 | 	ADD	PTR,P-WORDLEN >PTR
 649 | 	JUMP	?CND12
 650 | ?ELS14:	EQUAL?	WORD,W?BUT,W?EXCEPT \?ELS19
 651 | 	ZERO?	BUT /?ORP25
 652 | 	PUSH	BUT
 653 | 	JUMP	?THN22
 654 | ?ORP25:	PUSH	TBL
 655 | ?THN22:	CALL	GET-OBJECT,STACK
 656 | 	ZERO?	STACK /FALSE
 657 | 	SET	'BUT,P-BUTS
 658 | 	PUT	BUT,P-MATCHLEN,0
 659 | 	JUMP	?CND3
 660 | ?ELS19:	EQUAL?	WORD,W?A,W?ONE \?ELS27
 661 | 	ZERO?	P-ADJ \?ELS30
 662 | 	SET	'P-GETFLAGS,P-ONE
 663 | 	EQUAL?	NW,W?OF \?CND3
 664 | 	ADD	PTR,P-WORDLEN >PTR
 665 | 	JUMP	?CND3
 666 | ?ELS30:	SET	'P-NAM,P-ONEOBJ
 667 | 	ZERO?	BUT /?ORP41
 668 | 	PUSH	BUT
 669 | 	JUMP	?THN38
 670 | ?ORP41:	PUSH	TBL
 671 | ?THN38:	CALL	GET-OBJECT,STACK
 672 | 	ZERO?	STACK /FALSE
 673 | 	ZERO?	NW /TRUE
 674 | 	JUMP	?CND3
 675 | ?ELS27:	EQUAL?	WORD,W?AND,W?COMMA \?ELS45
 676 | 	EQUAL?	NW,W?AND,W?COMMA /?ELS45
 677 | 	ZERO?	BUT /?ORP53
 678 | 	PUSH	BUT
 679 | 	JUMP	?THN50
 680 | ?ORP53:	PUSH	TBL
 681 | ?THN50:	CALL	GET-OBJECT,STACK
 682 | 	ZERO?	STACK \?CND12
 683 | 	RFALSE	
 684 | ?ELS45:	CALL	WT?,WORD,PS?BUZZ-WORD
 685 | 	ZERO?	STACK /?ELS55
 686 | 	JUMP	?CND3
 687 | ?ELS55:	EQUAL?	WORD,W?AND,W?COMMA \?ELS57
 688 | 	JUMP	?CND3
 689 | ?ELS57:	EQUAL?	WORD,W?OF \?ELS59
 690 | 	ZERO?	P-GETFLAGS \?CND12
 691 | 	SET	'P-GETFLAGS,P-INHIBIT
 692 | 	JUMP	?CND12
 693 | ?ELS59:	CALL	WT?,WORD,PS?ADJECTIVE,P1?ADJECTIVE >WV
 694 | 	ZERO?	WV /?ELS64
 695 | 	SET	'P-ADJ,WV
 696 | 	SET	'P-ADJN,WORD
 697 | 	JUMP	?CND3
 698 | ?ELS64:	CALL	WT?,WORD,PS?OBJECT,P1?OBJECT
 699 | 	ZERO?	STACK /?CND3
 700 | 	SET	'P-NAM,WORD
 701 | 	SET	'P-ONEOBJ,WORD
 702 | ?CND12:	
 703 | ?CND3:	EQUAL?	PTR,EPTR /?PRG1
 704 | 	ADD	PTR,P-WORDLEN >PTR
 705 | 	SET	'WORD,NW
 706 | 	JUMP	?PRG1
 707 | 
 708 | 
 709 | 	.FUNCT	GET-OBJECT,TBL,VRB=1,BITS,LEN,XBITS,TLEN,GCHECK=0
 710 | 	SET	'XBITS,P-SLOCBITS
 711 | 	GET	TBL,P-MATCHLEN >TLEN
 712 | 	BTST	P-GETFLAGS,P-INHIBIT /TRUE
 713 | 	ZERO?	P-NAM \?CND4
 714 | 	ZERO?	P-ADJ /?CND4
 715 | 	CALL	WT?,P-ADJN,PS?OBJECT,P1?OBJECT
 716 | 	ZERO?	STACK /?CND4
 717 | 	SET	'P-NAM,P-ADJN
 718 | 	SET	'P-ADJ,0
 719 | ?CND4:	ZERO?	P-NAM \?CND9
 720 | 	ZERO?	P-ADJ \?CND9
 721 | 	EQUAL?	P-GETFLAGS,P-ALL /?CND9
 722 | 	ZERO?	P-GWIMBIT \?CND9
 723 | 	ZERO?	VRB /FALSE
 724 | 	PRINTI	"There is a noun missing in that sentence."
 725 | 	CRLF	
 726 | 	RFALSE	
 727 | ?CND9:	EQUAL?	P-GETFLAGS,P-ALL \?THN23
 728 | 	ZERO?	P-SLOCBITS \?CND20
 729 | ?THN23:	SET	'P-SLOCBITS,-1
 730 | ?CND20:	SET	'P-TABLE,TBL
 731 | ?PRG25:	ZERO?	GCHECK /?ELS29
 732 | 	CALL	GLOBAL-CHECK,TBL
 733 | 	JUMP	?CND27
 734 | ?ELS29:	ZERO?	LIT /?CND33
 735 | 	CALL	DO-SL,HERE,SOG,SIR
 736 | ?CND33:	CALL	DO-SL,ADVENTURER,SH,SC
 737 | 	EQUAL?	WINNER,ADVENTURER /?CND27
 738 | 	CALL	DO-SL,WINNER,SH,SC
 739 | ?CND27:	GET	TBL,P-MATCHLEN
 740 | 	SUB	STACK,TLEN >LEN
 741 | 	BTST	P-GETFLAGS,P-ALL \?ELS42
 742 | 	JUMP	?CND40
 743 | ?ELS42:	BTST	P-GETFLAGS,P-ONE \?ELS44
 744 | 	ZERO?	LEN /?ELS44
 745 | 	EQUAL?	LEN,1 /?CND47
 746 | 	RANDOM	LEN
 747 | 	GET	TBL,STACK
 748 | 	PUT	TBL,1,STACK
 749 | 	PRINTI	"(How about the "
 750 | 	GET	TBL,1
 751 | 	PRINTD	STACK
 752 | 	PRINTI	"?)"
 753 | 	CRLF	
 754 | ?CND47:	PUT	TBL,P-MATCHLEN,1
 755 | 	JUMP	?CND40
 756 | ?ELS44:	GRTR?	LEN,1 /?THN56
 757 | 	ZERO?	LEN \?ELS55
 758 | 	EQUAL?	P-SLOCBITS,-1 /?ELS55
 759 | ?THN56:	EQUAL?	P-SLOCBITS,-1 \?ELS62
 760 | 	SET	'P-SLOCBITS,XBITS
 761 | 	GET	TBL,P-MATCHLEN
 762 | 	SUB	STACK,LEN
 763 | 	PUT	TBL,P-MATCHLEN,STACK
 764 | 	JUMP	?PRG25
 765 | ?ELS62:	ZERO?	VRB /?CND65
 766 | 	CALL	WHICH-PRINT,TLEN,LEN,TBL
 767 | 	EQUAL?	TBL,P-PRSO \?ELS73
 768 | 	PUSH	P-NC1
 769 | 	JUMP	?CND69
 770 | ?ELS73:	PUSH	P-NC2
 771 | ?CND69:	SET	'P-ACLAUSE,STACK
 772 | 	SET	'P-AADJ,P-ADJ
 773 | 	SET	'P-ANAM,P-NAM
 774 | 	CALL	ORPHAN,0,0
 775 | 	SET	'P-OFLAG,1
 776 | ?CND65:	SET	'P-NAM,0
 777 | 	SET	'P-ADJ,0
 778 | 	RFALSE	
 779 | ?ELS55:	ZERO?	LEN \?ELS77
 780 | 	ZERO?	GCHECK /?ELS77
 781 | 	ZERO?	VRB /?CND80
 782 | 	ZERO?	LIT /?ELS86
 783 | 	PRINTI	"I can't see any"
 784 | 	ZERO?	P-ADJ /?CND90
 785 | 	PRINTI	" "
 786 | 	PRINTB	P-ADJN
 787 | ?CND90:	ZERO?	P-NAM /?CND96
 788 | 	PRINTI	" "
 789 | 	PRINTB	P-NAM
 790 | ?CND96:	PRINTI	" here."
 791 | 	CRLF	
 792 | 	JUMP	?CND80
 793 | ?ELS86:	PRINTI	"It's too dark to see."
 794 | 	CRLF	
 795 | ?CND80:	SET	'P-NAM,0
 796 | 	SET	'P-ADJ,0
 797 | 	RFALSE	
 798 | ?ELS77:	ZERO?	LEN \?CND40
 799 | 	SET	'GCHECK,1
 800 | 	JUMP	?PRG25
 801 | ?CND40:	SET	'P-ADJ,0
 802 | 	SET	'P-NAM,0
 803 | 	SET	'P-SLOCBITS,XBITS
 804 | 	RTRUE	
 805 | 
 806 | 
 807 | 	.FUNCT	WHICH-PRINT,TLEN,LEN,TBL,OBJ,RLEN
 808 | 	SET	'RLEN,LEN
 809 | 	PRINTI	"Which "
 810 | 	PRINTB	P-NAM
 811 | 	PRINTI	" do you mean, "
 812 | ?PRG5:	INC	'TLEN
 813 | 	GET	TBL,TLEN >OBJ
 814 | 	PRINTI	"the "
 815 | 	PRINTD	OBJ
 816 | 	EQUAL?	LEN,2 \?ELS11
 817 | 	EQUAL?	RLEN,2 /?CND12
 818 | 	PRINTI	","
 819 | ?CND12:	PRINTI	" or "
 820 | 	JUMP	?CND9
 821 | ?ELS11:	GRTR?	LEN,2 \?CND9
 822 | 	PRINTI	", "
 823 | ?CND9:	DLESS?	'LEN,1 \?PRG5
 824 | 	PRINTR	"?"
 825 | 
 826 | 
 827 | 	.FUNCT	GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT=0,OBJ,OBITS,FOO
 828 | 	GET	TBL,P-MATCHLEN >LEN
 829 | 	SET	'OBITS,P-SLOCBITS
 830 | 	GETPT	HERE,P?GLOBAL >RMG
 831 | 	ZERO?	RMG /?CND1
 832 | 	PTSIZE	RMG
 833 | 	SUB	STACK,1 >RMGL
 834 | ?PRG4:	GETB	RMG,CNT >OBJ
 835 | 	CALL	THIS-IT?,OBJ,TBL
 836 | 	ZERO?	STACK /?CND6
 837 | 	CALL	OBJ-FOUND,OBJ,TBL
 838 | ?CND6:	IGRTR?	'CNT,RMGL \?PRG4
 839 | ?CND1:	GETPT	HERE,P?PSEUDO >RMG
 840 | 	ZERO?	RMG /?CND12
 841 | 	PTSIZE	RMG
 842 | 	DIV	STACK,4
 843 | 	SUB	STACK,1 >RMGL
 844 | 	SET	'CNT,0
 845 | ?PRG15:	MUL	CNT,2
 846 | 	GET	RMG,STACK
 847 | 	EQUAL?	P-NAM,STACK \?ELS19
 848 | 	MUL	CNT,2
 849 | 	ADD	STACK,1
 850 | 	GET	RMG,STACK
 851 | 	PUTP	PSEUDO-OBJECT,P?ACTION,STACK
 852 | 	GETPT	PSEUDO-OBJECT,P?ACTION
 853 | 	SUB	STACK,5 >FOO
 854 | 	GET	P-NAM,0
 855 | 	PUT	FOO,0,STACK
 856 | 	GET	P-NAM,1
 857 | 	PUT	FOO,1,STACK
 858 | 	CALL	OBJ-FOUND,PSEUDO-OBJECT,TBL
 859 | 	JUMP	?CND12
 860 | ?ELS19:	IGRTR?	'CNT,RMGL \?PRG15
 861 | ?CND12:	GET	TBL,P-MATCHLEN
 862 | 	EQUAL?	STACK,LEN \FALSE
 863 | 	SET	'P-SLOCBITS,-1
 864 | 	SET	'P-TABLE,TBL
 865 | 	CALL	DO-SL,GLOBAL-OBJECTS,1,1
 866 | 	SET	'P-SLOCBITS,OBITS
 867 | 	RTRUE	
 868 | 
 869 | 
 870 | 	.FUNCT	DO-SL,OBJ,BIT1,BIT2,BITS
 871 | 	ADD	BIT1,BIT2
 872 | 	BTST	P-SLOCBITS,STACK \?ELS5
 873 | 	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCALL
 874 | 	RSTACK	
 875 | ?ELS5:	BTST	P-SLOCBITS,BIT1 \?ELS12
 876 | 	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCTOP
 877 | 	RSTACK	
 878 | ?ELS12:	BTST	P-SLOCBITS,BIT2 \TRUE
 879 | 	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCBOT
 880 | 	RSTACK	
 881 | 
 882 | 
 883 | 	.FUNCT	SEARCH-LIST,OBJ,TBL,LVL,FLS,NOBJ
 884 | 	FIRST?	OBJ >OBJ \FALSE
 885 | ?PRG6:	EQUAL?	LVL,P-SRCBOT /?CND8
 886 | 	CALL	THIS-IT?,OBJ,TBL
 887 | 	ZERO?	STACK /?CND8
 888 | 	CALL	OBJ-FOUND,OBJ,TBL
 889 | ?CND8:	EQUAL?	LVL,P-SRCTOP \?THN18
 890 | 	FSET?	OBJ,SEARCHBIT /?THN18
 891 | 	FSET?	OBJ,SURFACEBIT \?CND13
 892 | ?THN18:	FIRST?	OBJ >NOBJ \?CND13
 893 | 	FSET?	OBJ,OPENBIT /?THN20
 894 | 	FSET?	OBJ,TRANSBIT \?CND13
 895 | ?THN20:	FSET?	OBJ,SURFACEBIT \?ELS26
 896 | 	PUSH	P-SRCALL
 897 | 	JUMP	?CND22
 898 | ?ELS26:	FSET?	OBJ,SEARCHBIT \?ELS28
 899 | 	PUSH	P-SRCALL
 900 | 	JUMP	?CND22
 901 | ?ELS28:	PUSH	P-SRCTOP
 902 | ?CND22:	CALL	SEARCH-LIST,OBJ,TBL,STACK >FLS
 903 | ?CND13:	NEXT?	OBJ >OBJ /?PRG6
 904 | 	RTRUE	
 905 | 
 906 | 
 907 | 	.FUNCT	OBJ-FOUND,OBJ,TBL,PTR
 908 | 	GET	TBL,P-MATCHLEN >PTR
 909 | 	ADD	PTR,1
 910 | 	PUT	TBL,STACK,OBJ
 911 | 	ADD	PTR,1
 912 | 	PUT	TBL,P-MATCHLEN,STACK
 913 | 	RTRUE	
 914 | 
 915 | 
 916 | 	.FUNCT	TAKE-CHECK
 917 | 	GETB	P-SYNTAX,P-SLOC1
 918 | 	CALL	ITAKE-CHECK,P-PRSO,STACK
 919 | 	ZERO?	STACK /FALSE
 920 | 	GETB	P-SYNTAX,P-SLOC2
 921 | 	CALL	ITAKE-CHECK,P-PRSI,STACK
 922 | 	RSTACK	
 923 | 
 924 | 
 925 | 	.FUNCT	ITAKE-CHECK,TBL,BITS,PTR,OBJ,TAKEN
 926 | 	GET	TBL,P-MATCHLEN >PTR
 927 | 	ZERO?	PTR /TRUE
 928 | 	BTST	BITS,STAKE \TRUE
 929 | ?PRG8:	DLESS?	'PTR,0 /TRUE
 930 | 	ADD	PTR,1
 931 | 	GET	TBL,STACK >OBJ
 932 | 	EQUAL?	OBJ,IT \?CND15
 933 | 	SET	'OBJ,P-IT-OBJECT
 934 | ?CND15:	IN?	OBJ,WINNER /?PRG8
 935 | 	SET	'PRSO,OBJ
 936 | 	FSET?	OBJ,TRYTAKEBIT \?ELS23
 937 | 	SET	'TAKEN,1
 938 | 	JUMP	?CND21
 939 | ?ELS23:	CALL	ITAKE,0
 940 | 	EQUAL?	STACK,1 \?ELS25
 941 | 	SET	'TAKEN,0
 942 | 	JUMP	?CND21
 943 | ?ELS25:	SET	'TAKEN,1
 944 | ?CND21:	ZERO?	TAKEN /?ELS30
 945 | 	BTST	BITS,SHAVE \?ELS30
 946 | 	PRINTI	"You don't have the "
 947 | 	PRINTD	OBJ
 948 | 	PRINTI	"."
 949 | 	CRLF	
 950 | 	RFALSE	
 951 | ?ELS30:	ZERO?	TAKEN \?PRG8
 952 | 	PRINTI	"(Taken)"
 953 | 	CRLF	
 954 | 	JUMP	?PRG8
 955 | 
 956 | 
 957 | 	.FUNCT	MANY-CHECK,LOSS=0,TMP,?TMP1
 958 | 	GET	P-PRSO,P-MATCHLEN
 959 | 	GRTR?	STACK,1 \?ELS3
 960 | 	GETB	P-SYNTAX,P-SLOC1
 961 | 	BTST	STACK,SMANY /?ELS3
 962 | 	SET	'LOSS,1
 963 | 	JUMP	?CND1
 964 | ?ELS3:	GET	P-PRSI,P-MATCHLEN
 965 | 	GRTR?	STACK,1 \?CND1
 966 | 	GETB	P-SYNTAX,P-SLOC2
 967 | 	BTST	STACK,SMANY /?CND1
 968 | 	SET	'LOSS,2
 969 | ?CND1:	ZERO?	LOSS /TRUE
 970 | 	PRINTI	"You can't use multiple "
 971 | 	EQUAL?	LOSS,2 \?CND18
 972 | 	PRINTI	"in"
 973 | ?CND18:	PRINTI	"direct objects with '"
 974 | 	GET	P-ITBL,P-VERBN >TMP
 975 | 	ZERO?	P-OFLAG /?ELS27
 976 | 	GET	TMP,0
 977 | 	PRINTB	STACK
 978 | 	JUMP	?CND25
 979 | ?ELS27:	GETB	TMP,2 >?TMP1
 980 | 	GETB	TMP,3
 981 | 	CALL	WORD-PRINT,?TMP1,STACK
 982 | ?CND25:	PRINTI	"'."
 983 | 	CRLF	
 984 | 	RFALSE	
 985 | 
 986 | 
 987 | 	.FUNCT	ZMEMQ,ITM,TBL,SIZE=-1,CNT=1
 988 | 	ZERO?	TBL /FALSE
 989 | 	LESS?	SIZE,0 /?ELS6
 990 | 	SET	'CNT,0
 991 | 	JUMP	?CND4
 992 | ?ELS6:	GET	TBL,0 >SIZE
 993 | ?CND4:	
 994 | ?PRG9:	GET	TBL,CNT
 995 | 	EQUAL?	ITM,STACK /TRUE
 996 | 	IGRTR?	'CNT,SIZE \?PRG9
 997 | 	RFALSE	
 998 | 
 999 | 
1000 | 	.FUNCT	ZMEMQB,ITM,TBL,SIZE,CNT=0
1001 | ?PRG1:	GETB	TBL,CNT
1002 | 	EQUAL?	ITM,STACK /TRUE
1003 | 	IGRTR?	'CNT,SIZE \?PRG1
1004 | 	RFALSE	
1005 | 
1006 | 
1007 | 	.FUNCT	LIT?,RM,OHERE,LIT=0
1008 | 	SET	'P-GWIMBIT,ONBIT
1009 | 	SET	'OHERE,HERE
1010 | 	SET	'HERE,RM
1011 | 	FSET?	RM,ONBIT /?THN4
1012 | 	ZERO?	ALWAYS-LIT /?ELS3
1013 | ?THN4:	SET	'LIT,1
1014 | 	JUMP	?CND1
1015 | ?ELS3:	PUT	P-MERGE,P-MATCHLEN,0
1016 | 	SET	'P-TABLE,P-MERGE
1017 | 	SET	'P-SLOCBITS,-1
1018 | 	EQUAL?	OHERE,RM \?CND8
1019 | 	CALL	DO-SL,WINNER,1,1
1020 | ?CND8:	CALL	DO-SL,RM,1,1
1021 | 	GET	P-TABLE,P-MATCHLEN
1022 | 	GRTR?	STACK,0 \?CND1
1023 | 	SET	'LIT,1
1024 | ?CND1:	SET	'HERE,OHERE
1025 | 	SET	'P-GWIMBIT,0
1026 | 	RETURN	LIT
1027 | 
1028 | 	.ENDI
1029 | 


--------------------------------------------------------------------------------