.FUNCT	MAIN-LOOP:ANY:0:0,TRASH
?PRG1:	CALL1	MAIN-LOOP-1 >TRASH
	JUMP	?PRG1


	.FUNCT	MAIN-LOOP-1:ANY:0:0,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,O,I
	SET	'CNT,0
	SET	'OBJ,FALSE-VALUE
	SET	'PTBL,TRUE-VALUE
	CALL1	PARSER >P-WON
	ZERO?	P-WON /?CCL3
	GET	P-PRSI,P-MATCHLEN >ICNT
	GET	P-PRSO,P-MATCHLEN >OCNT
	ZERO?	P-IT-OBJECT /?PRD7
	CALL2	ACCESSIBLE?,P-IT-OBJECT
	ZERO?	STACK \?CCL5
?PRD7:	ZERO?	P-HIM-OBJECT /?PRD10
	CALL2	ACCESSIBLE?,P-HIM-OBJECT
	ZERO?	STACK \?CCL5
?PRD10:	ZERO?	P-HER-OBJECT /?CND4
	CALL2	ACCESSIBLE?,P-HER-OBJECT
	ZERO?	STACK /?CND4
?CCL5:	SET	'TMP,FALSE-VALUE
?PRG15:	IGRTR?	'CNT,ICNT /?REP16
	GET	P-PRSI,CNT
	EQUAL?	STACK,IT \?CCL22
	ZERO?	P-IT-OBJECT /?CCL22
	PUT	P-PRSI,CNT,P-IT-OBJECT
	SET	'TMP,TRUE-VALUE
	JUMP	?REP16
?CCL22:	GET	P-PRSI,CNT
	EQUAL?	STACK,HIM \?CCL26
	ZERO?	P-HIM-OBJECT /?CCL26
	PUT	P-PRSI,CNT,P-HIM-OBJECT
	SET	'TMP,TRUE-VALUE
	JUMP	?REP16
?CCL26:	GET	P-PRSI,CNT
	EQUAL?	STACK,HER \?PRG15
	ZERO?	P-HER-OBJECT /?PRG15
	PUT	P-PRSI,CNT,P-HER-OBJECT
	SET	'TMP,TRUE-VALUE
?REP16:	ZERO?	TMP \?CND32
	SET	'CNT,0
?PRG34:	IGRTR?	'CNT,OCNT /?CND32
	GET	P-PRSI,CNT
	EQUAL?	STACK,IT \?CCL41
	ZERO?	P-IT-OBJECT /?CCL41
	PUT	P-PRSI,CNT,P-IT-OBJECT
	JUMP	?CND32
?CCL41:	GET	P-PRSI,CNT
	EQUAL?	STACK,HIM \?CCL45
	ZERO?	P-HIM-OBJECT /?CCL45
	PUT	P-PRSI,CNT,P-HIM-OBJECT
	JUMP	?CND32
?CCL45:	GET	P-PRSI,CNT
	EQUAL?	STACK,HER \?PRG34
	ZERO?	P-HER-OBJECT /?PRG34
	PUT	P-PRSI,CNT,P-HER-OBJECT
?CND32:	SET	'CNT,0
?CND4:	ZERO?	OCNT \?CCL53
	SET	'NUM,OCNT
	JUMP	?CND51
?CCL53:	GRTR?	OCNT,1 \?CCL55
	SET	'TBL,P-PRSO
	ZERO?	ICNT \?CCL58
	SET	'OBJ,FALSE-VALUE
	JUMP	?CND56
?CCL58:	GET	P-PRSI,1 >OBJ
?CND56:	SET	'NUM,OCNT
	JUMP	?CND51
?CCL55:	GRTR?	ICNT,1 \?CCL60
	SET	'PTBL,FALSE-VALUE
	SET	'TBL,P-PRSI
	GET	P-PRSO,1 >OBJ
	SET	'NUM,ICNT
	JUMP	?CND51
?CCL60:	SET	'NUM,1
?CND51:	ZERO?	OBJ \?CND61
	EQUAL?	ICNT,1 \?CND61
	GET	P-PRSI,1 >OBJ
?CND61:	EQUAL?	PRSA,V?WALK \?CCL67
	ZERO?	P-WALK-DIR /?CCL67
	CALL	PERFORM,PRSA,PRSO >V
	JUMP	?CND65
?CCL67:	ZERO?	NUM \?CCL71
	GETB	P-SYNTAX,P-SBITS
	BAND	STACK,P-SONUMS
	ZERO?	STACK \?CCL74
	CALL2	PERFORM,PRSA >V
	SET	'PRSO,FALSE-VALUE
	JUMP	?CND65
?CCL74:	ZERO?	LIT \?CCL76
	PRINTI	"Es ist zu dunkel, um etwas zu sehen."
	CRLF	
	JUMP	?CND65
?CCL76:	ICALL1	REFERRING
	SET	'V,FALSE-VALUE
	JUMP	?CND65
?CCL71:	SET	'P-NOT-HERE,0
	SET	'P-MULT,FALSE-VALUE
	GRTR?	NUM,1 \?CND77
	SET	'P-MULT,TRUE-VALUE
?CND77:	SET	'TMP,FALSE-VALUE
?PRG79:	IGRTR?	'CNT,NUM \?CCL83
	GRTR?	P-NOT-HERE,0 \?CCL86
	PRINTI	"The "
	EQUAL?	P-NOT-HERE,1 \?CCL89
	PRINTI	"Das"
	JUMP	?CND87
?CCL89:	PRINTI	"Die"
?CND87:	EQUAL?	P-NOT-HERE,NUM /?CND90
	PRINTI	" andere "
?CND90:	PRINTI	"Ding"
	EQUAL?	P-NOT-HERE,1 /?CND92
	PRINTC	101
?CND92:	PRINTI	" von dem du sprichst, "
	EQUAL?	P-NOT-HERE,1 /?CCL96
	PRINTI	"sind"
	JUMP	?CND94
?CCL96:	PRINTI	"ist"
?CND94:	PRINTI	" nicht hier."
	CRLF	
	JUMP	?CND65
?CCL86:	ZERO?	TMP \?CND65
	PRINTI	"Es gibt hier nichts, das man wegnehmen kann."
	CRLF	
	JUMP	?CND65
?CCL83:	ZERO?	PTBL /?CCL100
	GET	P-PRSO,CNT >OBJ1
	JUMP	?CND98
?CCL100:	GET	P-PRSI,CNT >OBJ1
?CND98:	ZERO?	PTBL /?CCL103
	SET	'O,OBJ1
	JUMP	?CND101
?CCL103:	SET	'O,OBJ
?CND101:	ZERO?	PTBL /?CCL106
	SET	'I,OBJ
	JUMP	?CND104
?CCL106:	SET	'I,OBJ1
?CND104:	GRTR?	NUM,1 /?CCL108
	GET	P-ITBL,P-NC1
	GET	STACK,0
	EQUAL?	STACK,W?ALLES \?CND107
?CCL108:	LOC	WINNER >V
	EQUAL?	O,NOT-HERE-OBJECT \?CCL113
	INC	'P-NOT-HERE
	JUMP	?PRG79
?CCL113:	EQUAL?	PRSA,V?TAKE \?CCL115
	ZERO?	I /?CCL115
	GET	P-ITBL,P-NC1
	GET	STACK,0
	EQUAL?	STACK,W?ALLES \?CCL115
	IN?	O,I \?PRG79
?CCL115:	EQUAL?	P-GETFLAGS,P-ALL \?CCL121
	EQUAL?	PRSA,V?TAKE \?CCL121
	LOC	O
	EQUAL?	STACK,WINNER,HERE,V /?PRD126
	LOC	O
	EQUAL?	STACK,I /?PRD126
	LOC	O
	FSET?	STACK,SURFACEBIT \?PRG79
?PRD126:	FSET?	O,TAKEBIT /?CCL121
	FSET?	O,TRYTAKEBIT \?PRG79
?CCL121:	EQUAL?	OBJ1,IT \?CCL134
	ICALL	DPRINT,P-IT-OBJECT,FALSE-VALUE
	JUMP	?CND132
?CCL134:	EQUAL?	OBJ1,HIM \?CCL136
	ICALL	DPRINT,P-HIM-OBJECT,FALSE-VALUE
	JUMP	?CND132
?CCL136:	EQUAL?	OBJ1,HER \?CCL138
	ICALL	DPRINT,P-HER-OBJECT,FALSE-VALUE
	JUMP	?CND132
?CCL138:	ICALL	DPRINT,OBJ1,FALSE-VALUE
?CND132:	PRINTI	": "
?CND107:	SET	'PRSO,O
	SET	'PRSI,I
	SET	'TMP,TRUE-VALUE
	CALL	PERFORM,PRSA,PRSO,PRSI >V
	EQUAL?	V,M-FATAL \?PRG79
?CND65:	EQUAL?	V,M-FATAL /?CND141
	LOC	WINNER
	GETP	STACK,P?ACTION
	CALL	STACK,M-END >V
?CND141:	EQUAL?	V,M-FATAL \?CND1
	SET	'P-CONT,FALSE-VALUE
	JUMP	?CND1
?CCL3:	SET	'P-CONT,FALSE-VALUE
?CND1:	ICALL1	NULL-F
	ZERO?	P-WON /FALSE
	EQUAL?	PRSA,V?SUPER-BRIEF,V?BRIEF,V?TELL /TRUE
	EQUAL?	PRSA,V?HINT,V?SAVE,V?VERBOSE /TRUE
	EQUAL?	PRSA,V?QUIT,V?VERSION,V?HINTS-OFF /TRUE
	EQUAL?	PRSA,V?SCRIPT,V?SCORE,V?RESTART /TRUE
	EQUAL?	PRSA,V?RESTORE,V?UNSCRIPT /TRUE
	CALL1	CLOCKER >V
	RETURN	V


	.FUNCT	PERFORM:ANY:1:3,A,O,I,V,OA,OO,OI
	SET	'OA,PRSA
	SET	'OO,PRSO
	SET	'OI,PRSI
	ZERO?	P-WALK-DIR \?CND1
	EQUAL?	IT,I,O \?CND1
	ZERO?	P-IT-OBJECT /?CTR6
	CALL2	ACCESSIBLE?,P-IT-OBJECT
	ZERO?	STACK \?CCL7
?CTR6:	ICALL1	REFERRING
	RETURN	2
?CCL7:	EQUAL?	IT,O \?CCL13
	SET	'O,P-IT-OBJECT
	JUMP	?CND1
?CCL13:	EQUAL?	IT,I \?CND1
	SET	'I,P-IT-OBJECT
?CND1:	ZERO?	P-WALK-DIR \?CND15
	EQUAL?	HIM,I,O \?CND15
	ZERO?	P-HIM-OBJECT /?CTR20
	CALL2	ACCESSIBLE?,P-HIM-OBJECT
	ZERO?	STACK \?CCL21
?CTR20:	ICALL1	REFERRING
	RETURN	2
?CCL21:	EQUAL?	HIM,O \?CCL27
	SET	'O,P-HIM-OBJECT
	JUMP	?CND15
?CCL27:	EQUAL?	HIM,I \?CND15
	SET	'I,P-HIM-OBJECT
?CND15:	ZERO?	P-WALK-DIR \?CND29
	EQUAL?	HER,I,O \?CND29
	ZERO?	P-HER-OBJECT /?CTR34
	CALL2	ACCESSIBLE?,P-HER-OBJECT
	ZERO?	STACK \?CCL35
?CTR34:	ICALL1	REFERRING
	RETURN	2
?CCL35:	EQUAL?	HER,O \?CCL41
	SET	'O,P-HER-OBJECT
	JUMP	?CND29
?CCL41:	EQUAL?	HER,I \?CND29
	SET	'I,P-HER-OBJECT
?CND29:	SET	'PRSA,A
	SET	'PRSI,I
	SET	'PRSO,O
	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?CCL45
	CALL1	NOT-HERE-OBJECT-F >V
	ZERO?	V \?CND43
?CCL45:	SET	'O,PRSO
	SET	'I,PRSI
	ICALL2	THIS-IS-IT,PRSO
	ICALL2	THIS-IS-IT,PRSI
	GETP	WINNER,P?ACTION
	CALL	STACK >V
	ZERO?	V \?CND43
	LOC	WINNER
	GETP	STACK,P?ACTION
	CALL	STACK,M-BEG >V
	ZERO?	V \?CND43
	GET	PREACTIONS,A
	CALL	STACK >V
	ZERO?	V \?CND43
	ZERO?	I /?CCL56
	GETP	I,P?ACTION
	CALL	STACK >V
	ZERO?	V \?CND43
?CCL56:	ZERO?	O /?CCL60
	EQUAL?	A,V?WALK /?CCL60
	LOC	O
	ZERO?	STACK /?CCL60
	LOC	O
	GETP	STACK,P?CONTFCN
	CALL	STACK >V
	ZERO?	V \?CND43
?CCL60:	ZERO?	O /?CCL66
	EQUAL?	A,V?WALK /?CCL66
	GETP	O,P?ACTION
	CALL	STACK >V
	ZERO?	V \?CND43
?CCL66:	GET	ACTIONS,A
	CALL	STACK >V
	ZERO?	V /?CND43
?CND43:	SET	'PRSA,OA
	SET	'PRSO,OO
	SET	'PRSI,OI
	RETURN	V

	.ENDI