prism.zap

	.FUNCT	PERELMAN-LEAVES-VIEW
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /FALSE
	CRLF	
	PRINTI	"A "
	PRINTD	CC-STAFFER
	PRINTR	" dashes in and hands Perelman a note before leaving. Glancing at the note, Perelman walks to a point beyond your field of vision. A moment later, you hear a click, as of a switch being turned."


	.FUNCT	PERELMAN-RETURNS-TO-VIEW
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /TRUE
	CRLF	
	PRINTR	"A moment later, Perelman walks back into your field of vision."


	.FUNCT	I-MESSAGE-C,OLD-WINNER
	MOVE	MESSAGE-C,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-C
	PUT	SIM-LEVEL-TABLE,0,0
	CALL	QUEUE,I-MESSAGE-M,875
	CALL1	PERELMAN-LEAVES-VIEW
	SET	'OLD-WINNER,WINNER
	SET	'WINNER,PLAYER
	CRLF	
	PRINT	MESSAGE-LINE
	CALL	PERFORM,V?READ,MESSAGE-C
	SET	'WINNER,OLD-WINNER
	CALL1	UPDATE-LIBRARY-BOX
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	


	.FUNCT	I-MESSAGE-D,OLD-WINNER
	ZERO?	SIMULATING \FALSE
	IN?	MESSAGE-D,PRISM-MESSAGES-DIRECTORY \?ELS6
	SET	'REVIEWING-RECORDINGS,TRUE-VALUE
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"We're getting ready to review your new recordings. I hope everything's there this time."""
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	JUMP	?CND1
?ELS6:	SET	'REVIEWING-RECORDINGS,TRUE-VALUE
	MOVE	MESSAGE-D,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-D
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	SET	'OLD-WINNER,WINNER
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?READ,MESSAGE-D
	SET	'WINNER,OLD-WINNER
	CALL1	UPDATE-LIBRARY-BOX
	CALL1	PERELMAN-RETURNS-TO-VIEW
?CND1:	GETP	RECORD-BUFFER,P?SIZE
	ADD	STACK,10
	CALL	QUEUE,I-MESSAGE-E,STACK
	RTRUE	


	.FUNCT	I-MESSAGE-E
	IN?	MESSAGE-E,PRISM-MESSAGES-DIRECTORY \?ELS3
	INC	'MESSAGE-E-COUNTER
	EQUAL?	MESSAGE-E-COUNTER,4 \?ELS6
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"Why have you been ignoring my requests"
	CALL1	DISCONNECTED
	JUMP	?CND1
?ELS6:	EQUAL?	MESSAGE-E-COUNTER,1 \?ELS10
	EQUAL?	PART-FLAG,1 \?ELS10
	CALL	QUEUE,I-FIRST-SIMULATION-RESULT,7
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINT	COME-TO-MY-OFFICE
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	JUMP	?CND1
?ELS10:	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"Please activate the comm outlet in my office! "
	CALL2	QUEUED?,I-RORSCHACH
	ZERO?	STACK /?ELS21
	PRINTI	"Dr. Grimwold has some psych tests!"""
	CRLF	
	JUMP	?CND19
?ELS21:	PRINTI	"I want to discuss the results of the simulation with you!"""
	CRLF	
?CND19:	CALL1	PERELMAN-RETURNS-TO-VIEW
	JUMP	?CND1
?ELS3:	MOVE	MESSAGE-E,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-E
	CALL	QUEUE,I-FIRST-SIMULATION-RESULT,7
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	GETP	MESSAGE-E,P?TEXT
	PRINT	STACK
	CRLF	
	CALL1	UPDATE-LIBRARY-BOX
	CALL1	PERELMAN-RETURNS-TO-VIEW
?CND1:	CALL	QUEUE,I-MESSAGE-E,14
	RSTACK	


	.FUNCT	I-MESSAGE-M
	GETP	MESSAGE-M,P?CAPACITY
	ZERO?	STACK \?ELS5
	PUTP	MESSAGE-M,P?CAPACITY,1
	CALL2	NAME-MESSAGE,MESSAGE-M
	MOVE	MESSAGE-M,PRISM-MESSAGES-DIRECTORY
	CALL	QUEUE,I-MESSAGE-M,177
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	GETP	MESSAGE-M,P?TEXT
	PRINT	STACK
	CRLF	
	CALL1	UPDATE-LIBRARY-BOX
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	
?ELS5:	GETP	MESSAGE-M,P?CAPACITY
	EQUAL?	STACK,1 \?ELS9
	PUTP	MESSAGE-M,P?CAPACITY,2
	CALL	QUEUE,I-MESSAGE-M,131
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"PRISM, what's the matter? You haven't started the simulation yet! For heaven's sake, don't you know the whole country's impatient? Vera is hopping mad -- if you don't begin soon, I can't tell what's going to happen!"""
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	
?ELS9:	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"""What's the matter with you? Why didn't you enter "
	PRINTD	SIMULATION-MODE
	CALL1	DISCONNECTED
	RSTACK	


	.FUNCT	I-MESSAGE-Q
	LESS?	TIME,540 /?THN4
	GRTR?	TIME,1260 \?CND1
?THN4:	CALL	QUEUE,I-MESSAGE-Q,30
	RFALSE	
?CND1:	MOVE	MESSAGE-Q,PRISM-MESSAGES-DIRECTORY
	CALL1	PERELMAN-LEAVES-VIEW
	CALL2	NAME-MESSAGE,MESSAGE-Q
	CRLF	
	PRINT	MESSAGE-LINE
	GETP	MESSAGE-Q,P?TEXT
	PRINT	STACK
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	CALL1	UPDATE-LIBRARY-BOX
	RSTACK	


	.FUNCT	I-MESSAGE-Z,OLD-WINNER
	IN?	MESSAGE-Z,PRISM-MESSAGES-DIRECTORY \?ELS5
	MOVE	WNN-FEEDER,INTERFACE-ROOM
	MOVE	WNN-INSTRUCTIONS,PRISM-INTERFACES-DIRECTORY
	MOVE	TRANSMITTER,INTERFACE-ROOM
	MOVE	NEWS-BUFFER,GLOBAL-OBJECTS
	MOVE	REPORT-BUFFER,GLOBAL-OBJECTS
	RFALSE	
?ELS5:	CALL	QUEUE,I-MESSAGE-Z,274
	MOVE	MESSAGE-Z,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-Z
	CRLF	
	PRINT	MESSAGE-LINE
	SET	'OLD-WINNER,WINNER
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?READ,MESSAGE-Z
	SET	'WINNER,OLD-WINNER
	CALL1	UPDATE-LIBRARY-BOX
	RSTACK	


	.FUNCT	I-MESSAGE-Y,OLD-WINNER
	MOVE	MESSAGE-Y,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-Y
	MOVE	AUDITING-SYSTEM,INTERFACE-ROOM
	MOVE	AUDITING-INSTRUCTIONS,PRISM-INTERFACES-DIRECTORY
	CRLF	
	PRINT	MESSAGE-LINE
	SET	'OLD-WINNER,WINNER
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?READ,MESSAGE-Y
	SET	'WINNER,OLD-WINNER
	CALL1	UPDATE-LIBRARY-BOX
	RSTACK	


	.FUNCT	NAME-MESSAGE,OBJ
	GETP	OBJ,P?MDESC
	PUT	STACK,0,MONTH
	GETP	OBJ,P?MDESC
	PUT	STACK,1,DATE
	GETP	OBJ,P?MDESC
	PUT	STACK,2,YEAR
	GETP	OBJ,P?MDESC
	PUT	STACK,3,TIME
	INC	'NUMBER-OF-MESSAGES
	PUTP	OBJ,P?SIZE,NUMBER-OF-MESSAGES
	RTRUE	


	.FUNCT	UPDATE-LIBRARY-BOX
	EQUAL?	CURRENT-DIRECTORY,PRISM-MESSAGES-DIRECTORY \TRUE
	ZERO?	CURRENT-FILE /TRUE
	CALL1	LIBRARY-BOX
	RTRUE	


	.FUNCT	SIMULATION-CHECK
	ZERO?	SIMULATING /FALSE
	CALL	ERR,STR?344,TRUE-VALUE
	PRINTD	SIMULATION-MODE
	PRINTR	"."


	.FUNCT	PSYCH-CHECK
	GRTR?	GRIMWOLD-COUNTER,0 \FALSE
	PRINTR	"It would be impolite to leave during the psych test."


	.FUNCT	RECORD-BUFFER-F
	EQUAL?	PRSA,V?ON \?ELS5
	SET	'PRSO,FALSE-VALUE
	CALL1	V-RECORD-ON
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?OFF \FALSE
	CALL1	V-ROFF
	RSTACK	


	.FUNCT	SCORE,NUM,VAL
	ZERO?	RECORDING /TRUE
	GET	SCORE-TABLE,NUM >VAL
	PUT	SCORE-TABLE,NUM,0
	EQUAL?	SYEAR,2051 \?ELS8
	ADD	2051-SCORE,VAL >2051-SCORE
	RETURN	2051-SCORE
?ELS8:	EQUAL?	SYEAR,2061 \?ELS10
	ADD	2061-SCORE,VAL >2061-SCORE
	RETURN	2061-SCORE
?ELS10:	EQUAL?	SYEAR,2071 \?ELS12
	ADD	2071-SCORE,VAL >2071-SCORE
	RETURN	2071-SCORE
?ELS12:	EQUAL?	SYEAR,2081 \FALSE
	ADD	2081-SCORE,VAL >2081-SCORE
	RETURN	2081-SCORE


	.FUNCT	LIBRARY-ROOM-F,RARG
	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"You have entered Library Mode. Current directory is "
	CALL2	DPRINT,CURRENT-DIRECTORY
	PRINTR	". Consult menu for data retrieval."


	.FUNCT	LIBRARY-MODE-F
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
	EQUAL?	MODE,LIBRARY-MODE \?ELS8
	CALL	ERR,STR?345,TRUE-VALUE
	PRINTD	LIBRARY-MODE
	PRINTI	"."
	CRLF	
	RETURN	2
?ELS8:	EQUAL?	PART-FLAG,4 \?ELS14
	PRINT	NOT-ACTIVE
	CRLF	
	RETURN	2
?ELS14:	CALL1	PSYCH-CHECK
	ZERO?	STACK /?ELS20
	RETURN	2
?ELS20:	CALL1	SIMULATION-CHECK
	ZERO?	STACK /?CND6
	RETURN	2
?CND6:	SET	'MODE,LIBRARY-MODE
	CALL1	TURN-RECORD-OFF
	CALL2	GOTO,LIBRARY-ROOM
	CALL2	INIT-STATUS-LINE,10
	FIRST?	LIBRARY >CURRENT-DIRECTORY /?KLU27
?KLU27:	CALL1	LIBRARY-BOX
	CALL2	LIBRARY-ROOM-F,M-LOOK
	CALL1	STATUS-LINE
	CALL1	LIBRARY-ACTION
	RSTACK	


	.FUNCT	LIBRARY-BOX,CNT=4,DIR,?TMP1
	SCREEN	S-WINDOW
	BUFOUT	FALSE-VALUE
?PRG1:	CALL2	INVERSE-LINE,CNT
	INC	'CNT
	EQUAL?	CNT,11 \?PRG1
	HLIGHT	1
	SET	'CNT,0
	ZERO?	CURRENT-FILE /?ELS8
	FIRST?	CURRENT-DIRECTORY >DIR /?KLU63
?KLU63:	JUMP	?CND6
?ELS8:	FIRST?	LIBRARY >DIR /?KLU64
?KLU64:	
?CND6:	EQUAL?	CURRENT-DIRECTORY,PRISM-MESSAGES-DIRECTORY \?ELS14
	ZERO?	CURRENT-FILE /?ELS14
?PRG17:	GET	LINE-TABLE,CNT >?TMP1
	GET	COLUMN-TABLE,CNT
	CURSET	?TMP1,STACK
?PRG19:	GETP	DIR,P?SIZE
	EQUAL?	CNT,STACK \?ELS23
	CALL2	DPRINT,DIR
	JUMP	?REP20
?ELS23:	NEXT?	DIR >DIR /?KLU65
?KLU65:	JUMP	?PRG19
?REP20:	EQUAL?	CNT,HIGHLIGHT-CNT \?CND28
	SET	'CURRENT-FILE,DIR
?CND28:	INC	'CNT
	FIRST?	PRISM-MESSAGES-DIRECTORY >DIR /?KLU66
?KLU66:	GRTR?	CNT,NUMBER-OF-MESSAGES \?PRG17
	JUMP	?CND12
?ELS14:	
?PRG36:	GET	LINE-TABLE,CNT >?TMP1
	GET	COLUMN-TABLE,CNT
	CURSET	?TMP1,STACK
	CALL2	DPRINT,DIR
	NEXT?	DIR \?REP37
	NEXT?	DIR >DIR /?KLU67
?KLU67:	INC	'CNT
	JUMP	?PRG36
?REP37:	
?CND12:	GET	LINE-TABLE,HIGHLIGHT-CNT >?TMP1
	GET	COLUMN-TABLE,HIGHLIGHT-CNT
	SUB	STACK,1
	CURSET	?TMP1,STACK
	PRINTI	">"
	CURSET	9,2
	ZERO?	CURRENT-FILE /?ELS49
	PRINTI	"C=Close current directory, R=Read current file"
	CURSET	10,2
	PRINTI	"N=Next file, P=Previous file"
	JUMP	?CND47
?ELS49:	PRINTI	"O=Open current directory"
	CURSET	10,2
	PRINTI	"N=Next directory, P=Previous directory"
?CND47:	PRINTI	", E=Exit to "
	PRINTD	COMM-MODE
	SCREEN	S-TEXT
	HLIGHT	0
	BUFOUT	TRUE-VALUE
	RTRUE	


	.FUNCT	ERASE-CURSOR,?TMP1
	SCREEN	S-WINDOW
	BUFOUT	FALSE-VALUE
	HLIGHT	1
	GET	LINE-TABLE,HIGHLIGHT-CNT >?TMP1
	GET	COLUMN-TABLE,HIGHLIGHT-CNT
	SUB	STACK,1
	CURSET	?TMP1,STACK
	PRINTI	" "
	RTRUE	


	.FUNCT	NEW-CURSOR,?TMP1
	GET	LINE-TABLE,HIGHLIGHT-CNT >?TMP1
	GET	COLUMN-TABLE,HIGHLIGHT-CNT
	SUB	STACK,1
	CURSET	?TMP1,STACK
	PRINTI	">"
	BUFOUT	TRUE-VALUE
	SCREEN	S-TEXT
	HLIGHT	0
	RTRUE	


	.FUNCT	LIBRARY-ACTION,X
?PRG1:	INPUT	1 >X
	EQUAL?	X,69,101 /?THN6
	EQUAL?	X,197,229 \?ELS5
?THN6:	SET	'HIGHLIGHT-CNT,0
	SET	'CURRENT-DIRECTORY,FALSE-VALUE
	SET	'CURRENT-FILE,FALSE-VALUE
	CALL2	INIT-STATUS-LINE,2
	CALL	PERFORM,V?THROUGH,COMM-MODE
	RTRUE	
?ELS5:	EQUAL?	X,67,99 /?THN12
	EQUAL?	X,195,227 \?ELS9
?THN12:	ZERO?	CURRENT-FILE /?ELS9
	SET	'CURRENT-FILE,FALSE-VALUE
	SET	'HIGHLIGHT-CNT,DIRECTORY-CNT
	CALL1	LIBRARY-BOX
	CALL2	DPRINT,CURRENT-DIRECTORY
	PRINTI	" is now closed."
	CRLF	
	JUMP	?CND3
?ELS9:	EQUAL?	X,78,110 /?THN18
	EQUAL?	X,206,238 \?ELS17
?THN18:	CALL1	NEXT-ITEM
	JUMP	?CND3
?ELS17:	EQUAL?	X,80,112 /?THN22
	EQUAL?	X,208,240 \?ELS21
?THN22:	CALL1	PREVIOUS-ITEM
	JUMP	?CND3
?ELS21:	EQUAL?	X,79,111 /?THN28
	EQUAL?	X,207,239 \?ELS25
?THN28:	ZERO?	CURRENT-FILE \?ELS25
	SET	'DIRECTORY-CNT,HIGHLIGHT-CNT
	SET	'HIGHLIGHT-CNT,0
	FIRST?	CURRENT-DIRECTORY >CURRENT-FILE /?KLU42
?KLU42:	CALL1	LIBRARY-BOX
	CALL2	DPRINT,CURRENT-DIRECTORY
	PRINTI	" opened. Current file is "
	CALL2	DPRINT,CURRENT-FILE
	PRINTI	"."
	CRLF	
	JUMP	?CND3
?ELS25:	EQUAL?	X,82,114 /?THN36
	EQUAL?	X,210,242 \?ELS33
?THN36:	ZERO?	CURRENT-FILE /?ELS33
	CRLF	
	CALL	PERFORM,V?READ,CURRENT-FILE
	PRINTI	"-END OF FILE-"
	CRLF	
	CRLF	
	JUMP	?CND3
?ELS33:	CALL2	ERR,STR?346
?CND3:	CALL2	INCREMENT-TIME,1
	CALL1	CLOCKER
	CALL1	STATUS-LINE
	JUMP	?PRG1


	.FUNCT	NEXT-ITEM,NEW-MESSAGE
	CALL1	ERASE-CURSOR
	ZERO?	CURRENT-FILE /?ELS3
	EQUAL?	CURRENT-DIRECTORY,PRISM-MESSAGES-DIRECTORY \?ELS7
	GETP	CURRENT-FILE,P?SIZE
	EQUAL?	STACK,NUMBER-OF-MESSAGES \?ELS10
	SET	'HIGHLIGHT-CNT,0
	JUMP	?CND8
?ELS10:	INC	'HIGHLIGHT-CNT
?CND8:	FIRST?	PRISM-MESSAGES-DIRECTORY >NEW-MESSAGE /?KLU31
?KLU31:	
?PRG13:	GETP	NEW-MESSAGE,P?SIZE
	EQUAL?	STACK,HIGHLIGHT-CNT \?ELS17
	JUMP	?REP14
?ELS17:	NEXT?	NEW-MESSAGE >NEW-MESSAGE /?KLU32
?KLU32:	JUMP	?PRG13
?REP14:	SET	'CURRENT-FILE,NEW-MESSAGE
	JUMP	?CND1
?ELS7:	NEXT?	CURRENT-FILE \?ELS21
	NEXT?	CURRENT-FILE >CURRENT-FILE /?KLU33
?KLU33:	INC	'HIGHLIGHT-CNT
	JUMP	?CND1
?ELS21:	FIRST?	CURRENT-DIRECTORY >CURRENT-FILE /?KLU34
?KLU34:	SET	'HIGHLIGHT-CNT,0
	JUMP	?CND1
?ELS3:	NEXT?	CURRENT-DIRECTORY \?ELS28
	NEXT?	CURRENT-DIRECTORY >CURRENT-DIRECTORY /?KLU35
?KLU35:	INC	'HIGHLIGHT-CNT
	JUMP	?CND1
?ELS28:	FIRST?	LIBRARY >CURRENT-DIRECTORY /?KLU36
?KLU36:	SET	'HIGHLIGHT-CNT,0
?CND1:	CALL1	NEW-CURSOR
	CALL1	TELL-CURRENT
	RSTACK	


	.FUNCT	PREVIOUS-ITEM,ITEM,CNT
	CALL1	ERASE-CURSOR
	ZERO?	CURRENT-FILE /?ELS3
	SET	'ITEM,CURRENT-FILE
	JUMP	?CND1
?ELS3:	SET	'ITEM,CURRENT-DIRECTORY
?CND1:	EQUAL?	CURRENT-DIRECTORY,PRISM-MESSAGES-DIRECTORY \?ELS9
	ZERO?	CURRENT-FILE /?ELS9
	GETP	CURRENT-FILE,P?SIZE
	ZERO?	STACK \?ELS14
	SET	'HIGHLIGHT-CNT,NUMBER-OF-MESSAGES
	JUMP	?CND12
?ELS14:	DEC	'HIGHLIGHT-CNT
?CND12:	FIRST?	PRISM-MESSAGES-DIRECTORY >ITEM /?KLU46
?KLU46:	
?PRG17:	GETP	ITEM,P?SIZE
	EQUAL?	STACK,HIGHLIGHT-CNT \?ELS21
	JUMP	?CND7
?ELS21:	NEXT?	ITEM >ITEM /?KLU47
?KLU47:	JUMP	?PRG17
?ELS9:	ZERO?	HIGHLIGHT-CNT \?ELS25
?PRG26:	INC	'HIGHLIGHT-CNT
	NEXT?	ITEM >ITEM /?KLU48
?KLU48:	NEXT?	ITEM /?PRG26
	JUMP	?CND7
?ELS25:	LOC	ITEM
	FIRST?	STACK >ITEM /?KLU49
?KLU49:	DEC	'HIGHLIGHT-CNT
?PRG33:	EQUAL?	CNT,HIGHLIGHT-CNT \?ELS37
	JUMP	?CND7
?ELS37:	NEXT?	ITEM >ITEM /?KLU50
?KLU50:	INC	'CNT
	JUMP	?PRG33
?CND7:	ZERO?	CURRENT-FILE /?ELS42
	SET	'CURRENT-FILE,ITEM
	JUMP	?CND40
?ELS42:	SET	'CURRENT-DIRECTORY,ITEM
?CND40:	CALL1	NEW-CURSOR
	CALL1	TELL-CURRENT
	RSTACK	


	.FUNCT	TELL-CURRENT
	ZERO?	CURRENT-FILE /?ELS5
	PRINTI	"Current file is now "
	CALL2	DPRINT,CURRENT-FILE
	PRINTR	"."
?ELS5:	PRINTI	"Current directory is now "
	CALL2	DPRINT,CURRENT-DIRECTORY
	PRINTR	"."


	.FUNCT	MESSAGE-C-F,CNT=1
	EQUAL?	PRSA,V?READ \FALSE
	PRINTI	"""Perelman to PRISM. The programming team has finished entering the parameters for the Plan. This is it: you can enter "
	PRINTD	SIMULATION-MODE
	PRINTI	" at any time. The Social Science group has come up with a list of things to record:"
	CRLF	
?PRG10:	PRINTI	"   "
	GET	RECORDING-TABLE,CNT
	PRINT	STACK
	CRLF	
	ADD	CNT,2 >CNT
	GRTR?	CNT,17 \?PRG10
	PRINTI	"By the way, since the "
	PRINTD	SIMULATION-CONTROLLER
	PRINTR	" will be doing so much data-crunching on the fly, it appears the simulation will run in real time -- a minute there will approximately equal a minute here. Well, good luck!"""


	.FUNCT	MESSAGE-D-F
	EQUAL?	PRSA,V?READ \FALSE
	PRINTI	"""Perelman here. We see that you're out of "
	PRINTD	SIMULATION-MODE
	PRINTI	". "
	ZERO?	SHORT-FIRST-SIMULATION \?THN13
	GET	SIM-LEVEL-TABLE,0
	LESS?	STACK,150 \?CND10
?THN13:	SET	'SHORT-FIRST-SIMULATION,TRUE-VALUE
	PRINTI	"We didn't expect you to be done this soon! "
?CND10:	PRINTR	"We're about to start reviewing your recordings now. I'll let you know what the experts think. Talk to you soon."""


	.FUNCT	MESSAGE-Z-F
	EQUAL?	PRSA,V?READ \FALSE
	CALL2	WARREN-SHARE,STR?355
	RSTACK	


	.FUNCT	MESSAGE-Y-F
	EQUAL?	PRSA,V?READ \FALSE
	CALL2	WARREN-SHARE,STR?356
	RSTACK	


	.FUNCT	WARREN-SHARE,STRING
	PRINTI	"""Message to PRISM from Emily Warren, Manager of Auxiliary System Functions. "
	PRINT	STRING
	PRINTR	". This notification is purely procedural and requires no acknowledgment."""


	.FUNCT	SLEEP-MODE-F
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
	EQUAL?	MODE,SLEEP-MODE \?ELS10
	CALL2	ERR,STR?373
	RETURN	2
?ELS10:	CALL1	PSYCH-CHECK
	ZERO?	STACK /?ELS14
	RETURN	2
?ELS14:	CALL1	SIMULATION-CHECK
	ZERO?	STACK /?ELS18
	RETURN	2
?ELS18:	CALL1	SIM-SLEEP
	RSTACK	


	.FUNCT	SIM-SLEEP,CNT=360
	EQUAL?	PART-FLAG,4 \?ELS3
	PRINT	NOT-ACTIVE
	CRLF	
	RETURN	2
?ELS3:	LESS?	DATE,NEXT-SLEEP-DATE /?THN10
	EQUAL?	NEXT-SLEEP-DATE,DATE \?CND1
	LESS?	TIME,NEXT-SLEEP-TIME \?CND1
?THN10:	PRINTI	"It's too soon since your last sleep."
	CRLF	
	RETURN	2
?CND1:	CALL1	TURN-RECORD-OFF
	SET	'MODE,SLEEP-MODE
	CALL2	GOTO,SLEEP-ROOM
	PRINTI	"You enter Sleep Mode, slipping pleasantly into unconsciousness..."
	CRLF	
	CALL1	STATUS-LINE
	CALL2	INT,I-PERELMAN
	PUT	STACK,0,0
?PRG20:	DEC	'CNT
	EQUAL?	CNT,240 \?ELS24
	PRINTI	"...you dream of your childhood..."
	CRLF	
	JUMP	?CND22
?ELS24:	EQUAL?	CNT,120 \?ELS28
	PRINTI	"...and later, of Jill..."
	CRLF	
	JUMP	?CND22
?ELS28:	EQUAL?	CNT,300,180,60 \?CND22
	CRLF	
?CND22:	CALL1	CLOCKER
	ZERO?	STACK /?ELS35
	JUMP	?REP21
?ELS35:	ZERO?	CNT \?PRG20
?REP21:	SUB	360,CNT
	CALL2	INCREMENT-TIME,STACK
	CALL1	PUT-PERELMAN-IN-THE-RIGHT-PLACE
	CALL	QUEUE,I-PERELMAN,-1
	ZERO?	CNT \?CND38
	PRINTI	"Some time later, you awake feeling relaxed and notice that about six hours have passed."
	CRLF	
?CND38:	SET	'CLOCK-WAIT,TRUE-VALUE
	GRTR?	CNT,300 \?ELS45
	SET	'NEXT-SLEEP-TIME,TIME
	JUMP	?CND43
?ELS45:	SUB	360,CNT
	ADD	TIME,STACK >NEXT-SLEEP-TIME
?CND43:	GRTR?	NEXT-SLEEP-TIME,1439 \?ELS52
	SUB	NEXT-SLEEP-TIME,1440 >NEXT-SLEEP-TIME
	ADD	DATE,1 >NEXT-SLEEP-DATE
	RETURN	NEXT-SLEEP-DATE
?ELS52:	SET	'NEXT-SLEEP-DATE,DATE
	RETURN	NEXT-SLEEP-DATE


	.FUNCT	OUTLETS-F
	EQUAL?	PRSA,V?WHAT,V?READ,V?DISPLAY \FALSE
	EQUAL?	PART-FLAG,4 \?ELS10
	PRINTR	"There are currently no active outlets."
?ELS10:	PRINTI	"   "
	PRINTD	CONTROL-CENTER
	PRINTI	" (PPCC)
   "
	PRINTD	ROOFTOP
	PRINTI	" (RCRO)
   "
	PRINTD	OFFICE
	PRINTI	" (PEOF)
   "
	PRINTD	CAFETERIA
	PRINTI	" (PCAF)
   "
	PRINTD	CORE
	PRINTI	" (MACO)
   "
	PRINTD	NEWS
	PRINTR	" (WNNF)
To activate a specific outlet, submit the associated code."


	.FUNCT	COMM-MODE-F
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
	EQUAL?	MODE,COMM-MODE \?ELS8
	CALL	ERR,STR?345,TRUE-VALUE
	PRINTD	COMM-MODE
	PRINTI	"."
	CRLF	
	RETURN	2
?ELS8:	CALL1	SIMULATION-CHECK
	ZERO?	STACK /?CND6
	RETURN	2
?CND6:	SET	'MODE,COMM-MODE
	CALL2	GOTO,COMM-ROOM
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	CONTROL-CENTER-OBJECT-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	CONTROL-CENTER-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	MOVE	CHAIR,HERE
	RTRUE	
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
	RANDOM	100
	LESS?	8,STACK /?ELS10
	PRINTI	"Someone is standing in front of your visual receptor. "
	JUMP	?CND8
?ELS10:	PRINTI	"You see a large, well-organized room filled with banks of terminals and similar equipment. "
?CND8:	ZERO?	SEIGE /?ELS21
	PRINTI	"A pair of National Guardsmen, bearing rifles, flank the doorway."
	RTRUE	
?ELS21:	PRINTI	"Your aural receptors pick up the buzz of many "
	PRINTD	CONVERSATION
	PRINTI	"s."
	RTRUE	


	.FUNCT	CC-STAFFER-F
	EQUAL?	CC-STAFFER,WINNER \FALSE
	PRINTI	"""Uh, I don't, uh, you ought to ask Abe, uh, Dr. Perelman."""
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	CC-PRINTOUT-F
	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
	CALL	PERFORM,V?READ,STACKS-OF-PAPERS
	RTRUE	


	.FUNCT	COMPUTER-TERMINAL-F
	EQUAL?	PRSA,V?READ \FALSE
	CALL	PERFORM,V?READ,STACKS-OF-PAPERS
	RTRUE	


	.FUNCT	ROOFTOP-F,RARG
	EQUAL?	RARG,M-LOOK \?ELS5
	LESS?	TIME,1073 \?ELS8
	GRTR?	TIME,378 \?ELS8
	PRINTI	"The rooftop visual offers a view of the "
	PRINTD	COUNTRYSIDE
	PRINTI	" around the PRISM complex. The perimeter fence is visible near the horizon. A wide road leads north toward a distant gray haze, presumably Rockvil."
	JUMP	?CND6
?ELS8:	GRTR?	TIME,1103 /?THN17
	LESS?	TIME,348 \?ELS16
?THN17:	PRINTI	"It is a dark, cloud"
	EQUAL?	DATE,17,19 \?ELS23
	PRINTI	"less"
	JUMP	?CND21
?ELS23:	PRINTI	"y"
?CND21:	PRINTI	" night. The roof is splotchily lit by harsh spotlights. Beyond the edge of the roof, the only thing you can see is Rockvil, glowing with visible and infrared light on the northern horizon."
	JUMP	?CND6
?ELS16:	LESS?	TIME,720 \?ELS33
	PRINTI	"The "
	PRINTD	PROTRUSIONS
	PRINTI	" of the rooftop cast long shadows in the gray light of dawn. A glistening layer of dew covers every surface."
	JUMP	?CND6
?ELS33:	PRINTI	"A splash of red on the western end of a darkening sky heralds the coming of night. You watch the sunset with sadness, for it reminds you of so many things you can never do again...walking along a beach, lying in tall grass, holding a woman."
?CND6:	CRLF	
	PRINTI	"There is no one in sight."
	RTRUE	
?ELS5:	EQUAL?	RARG,M-END \FALSE
	CALL1	RUSH-HOUR
	ZERO?	STACK /FALSE
	RANDOM	100
	LESS?	5,STACK /FALSE
	PRINTI	"A skybus glides by, carrying commuters "
	GRTR?	TIME,700 \?ELS52
	PRINTI	"away from"
	JUMP	?CND50
?ELS52:	PRINTI	"into"
?CND50:	PRINTR	" Rockvil."


	.FUNCT	RUSH-HOUR
	GRTR?	TIME,420 \?ELS5
	LESS?	TIME,540 /TRUE
?ELS5:	GRTR?	TIME,960 \FALSE
	LESS?	TIME,1080 \FALSE
	RTRUE	


	.FUNCT	PROTRUSIONS-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTI	"The "
	PRINTD	PROTRUSIONS
	PRINTR	" on the roof are just pipes, vents, antennae, and so forth."


	.FUNCT	OFFICE-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	MOVE	BOOKS,HERE
	MOVE	CHAIR,HERE
	RTRUE	
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"This is the office of your creator, Dr. Abraham Perelman. It is cluttered and disorganized. Overstuffed bookshelves line the room. "
	PRINT	DESK-DESC
	IN?	COFFEE,HERE \?CND10
	PRINTI	". Steam from a "
	PRINTD	COFFEE
	PRINTI	" is fogging the lens of your visual unit"
?CND10:	PRINTI	"."
	RTRUE	


	.FUNCT	OFFICE-OBJECT-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	PERELMAN-DESK-F
	EQUAL?	PRSA,V?EXAMINE \?ELS5
	PRINT	DESK-DESC
	PRINTR	"."
?ELS5:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
	CALL	PERFORM,V?OPEN,PERELMAN-DESK
	RTRUE	


	.FUNCT	ITEM-IN-PACKAGE-F
	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
	PRINTI	"[This is the "
	PRINTD	PRSO
	PRINTI	" that you'll find in your "
	CALL1	TITLE-PRINT
	PRINTR	" package.]"


	.FUNCT	STACKS-OF-PAPERS-F
	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
	PRINTR	"You can't do that from this angle."


	.FUNCT	COFFEE-F
	EQUAL?	PRSA,V?BUY \FALSE
	CALL1	IN-RESTAURANT?
	ZERO?	STACK /?ELS10
	PRINTR	"Coffee with a meal is a custom that went out of style decades ago!"
?ELS10:	CALL2	CANT-BUY,COFFEE
	RSTACK	


	.FUNCT	I-FIRST-SIMULATION-RESULT,CNT=0,NUM=0
	ZERO?	COMPLETED-TASKS /?CND1
	PRINTI	"Bug #3K"
	CRLF	
	RFALSE	
?CND1:	PUTP	RECORD-BUFFER,P?SIZE,0
	SET	'RECORDINGS-INCLUDE-SIMULATION,FALSE-VALUE
	CALL2	PERELMAN-SHARE,I-FIRST-SIMULATION-RESULT
	ZERO?	STACK /FALSE
	CALL2	INT,I-MESSAGE-E
	PUT	STACK,0,0
	SET	'MESSAGE-E-COUNTER,0
?PRG10:	GET	RECORDING-TABLE,CNT
	EQUAL?	STACK,1 \?CND12
	INC	'NUM
?CND12:	ADD	CNT,2 >CNT
	GRTR?	CNT,16 \?PRG10
	EQUAL?	NUM,9 \?ELS22
	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND23
	EQUAL?	PERELMAN,WINNER \?CND23
	CALL1	CLEAR-BUF
?CND23:	ADD	TIME,55 >LAST-ABE-TIME
	CALL	QUEUE,I-PERELMAN,60
	SET	'COMPLETED-TASKS,TRUE-VALUE
	PRINTI	", smiling. ""An excellent job, PRISM. We just finished viewing your recordings, and the experts were quite pleased."" He pauses, as though realizing something for the first time. ""In fact, I thought they looked pretty good myself. I suppose this means the Plan'll get adopted.

""What's next for you, I wonder? You're going to be a hero, you know. You'd probably get a call from the President congratulating you, except of course that he's against the Plan."" Perelman notices a paper on his desk. ""Oh, apparently the "
	PRINTD	SIMULATION-CONTROLLER
	PRINTI	" generated a lot of new data correlations while running your simulation. I'm not sure what the effect of that will be. Might make an even more accurate simulation possible.

""Well, I've got another meeting now, as usual. But once again, thanks for not letting me down."" Perelman leaves."
	CALL1	CONTINUE
	SET	'MODE,COMM-MODE
	SET	'HERE,COMM-ROOM
	MOVE	PLAYER,COMM-ROOM
	CALL2	INCREMENT-TIME,680
	CALL	QUEUE,I-MESSAGE-X,12
	CALL	QUEUE,I-MESSAGE-Q,77
	CALL2	CHAPTER-PRINT,2
	CRLF	
	CRLF	
	CRLF	
	CALL2	PRINT-SPACES,21
	PRINTI	"""Deep into that darkness peering,"
	CRLF	
	CALL2	PRINT-SPACES,27
	PRINTI	"long I stood there, wondering, fearing,"
	CRLF	
	CALL2	PRINT-SPACES,22
	PRINTI	"Doubting, dreaming dreams no mortal"
	CRLF	
	CALL2	PRINT-SPACES,27
	PRINTI	"ever dared to dream before."""
	CRLF	
	CALL2	PRINT-SPACES,40
	PRINTI	"-- Edgar Allan Poe"
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CALL1	CONTINUE
	CALL2	INIT-STATUS-LINE,2
	CALL1	V-LOOK
	RSTACK	
?ELS22:	EQUAL?	NUM,8 \?ELS45
	CALL	QUEUE,I-MESSAGE-M,875
	PUTP	MESSAGE-M,P?CAPACITY,1
	PRINTI	". ""PRISM. Uh, overall, a fine job in the simulation. I hate to be a "
	CALL	ITALICIZE,STR?374,TRUE-VALUE
	PRINTI	", but we just finished viewing the recordings, and there's one omission. Uh, let's see. Oh, right. "
	SET	'CNT,0
?PRG50:	GET	RECORDING-TABLE,CNT
	ZERO?	STACK \?CND52
	ADD	CNT,1
	GET	RECORDING-TABLE,STACK
	PRINT	STACK
	JUMP	?REP51
?CND52:	ADD	CNT,2 >CNT
	JUMP	?PRG50
?REP51:	SET	'YES-NO-FLAG,6
	CALL	QUEUE,I-YES-NO,2
	PRINTI	". Could you, ah, go back into "
	PRINTD	SIMULATION-MODE
	PRINTR	" and make that one additional recording?"""
?ELS45:	CALL	QUEUE,I-MESSAGE-M,875
	PUTP	MESSAGE-M,P?CAPACITY,1
	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND63
	EQUAL?	PERELMAN,WINNER \?CND63
	CALL1	CLEAR-BUF
?CND63:	CALL	QUEUE,I-PERELMAN,60
	ADD	TIME,55 >LAST-ABE-TIME
	PRINTI	". He looks unhappy. ""PRISM, you didn't record "
	ZERO?	NUM \?ELS72
	PRINTI	"any"
	JUMP	?CND70
?ELS72:	PRINTI	"some"
?CND70:	PRINTI	" of the events the experts asked you for."" He picks up a piece of paper from his desk. ""Let's see. "
	SET	'CNT,0
?PRG81:	GET	RECORDING-TABLE,CNT
	ZERO?	STACK \?CND83
	ADD	CNT,1
	GET	RECORDING-TABLE,STACK
	PRINT	STACK
	PRINTI	". "
?CND83:	ADD	CNT,2 >CNT
	GRTR?	CNT,16 \?PRG81
	PRINTI	"Please go back into "
	PRINTD	SIMULATION-MODE
	PRINTR	" and make these recordings."" Perelman lowers his eyes. ""Please don't let me down, PRISM."" He walks out of the office."


	.FUNCT	PERELMAN-SHARE,INTERRUPT,SAW-ENTER=0
	IN?	PERELMAN,OFFICE /?ELS3
	MOVE	PERELMAN,OFFICE
	PUTP	PERELMAN,P?LDESC,STR?375
	EQUAL?	HERE,OFFICE \?ELS6
	SET	'SAW-ENTER,TRUE-VALUE
	CRLF	
	PRINTI	"Perelman walks into the office and"
	PRINT	SPOTS-ACTIVE-LIGHT
	PRINTI	" immediately. ""Hello, PRISM,"" he says, sitting down at his desk. """
	PRINT	IT-LOOKS-LIKE
	PRINTI	" you beat me here. Give me a moment, please."" He begins quickly jotting a few notes onto a pad."
	CRLF	
	JUMP	?CND1
?ELS6:	CALL	QUEUE,INTERRUPT,1
	RFALSE	
?ELS3:	EQUAL?	HERE,OFFICE /?CND1
	CALL	QUEUE,INTERRUPT,1
	RFALSE	
?CND1:	CRLF	
	PRINTI	"Perelman looks up"
	SET	'REVIEWING-RECORDINGS,FALSE-VALUE
	ZERO?	SAW-ENTER \TRUE
	PRINTI	","
	PRINT	SPOTS-ACTIVE-LIGHT
	PRINTI	", and nods toward your comm outlet"
	RTRUE	


	.FUNCT	PERELMAN-F
	EQUAL?	WINNER,PERELMAN \?ELS5
	IN?	RYDER,OFFICE \?ELS10
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?TELL,RYDER
	SET	'WINNER,PERELMAN
	CALL1	CLEAR-BUF
	RSTACK	
?ELS10:	CALL2	QUEUED?,I-FIRST-SIMULATION-RESULT
	ZERO?	STACK /?ELS12
	SET	'WINNER,PLAYER
	CALL1	I-FIRST-SIMULATION-RESULT
	CALL2	INT,I-FIRST-SIMULATION-RESULT
	PUT	STACK,0,0
	CALL1	CLEAR-BUF
	RSTACK	
?ELS12:	CALL2	QUEUED?,I-RECORDINGS-VIEWED
	ZERO?	STACK /?ELS14
	SET	'WINNER,PLAYER
	CALL1	I-RECORDINGS-VIEWED
	CALL1	CLEAR-BUF
	RSTACK	
?ELS14:	GRTR?	GRIMWOLD-COUNTER,0 \?ELS16
	EQUAL?	PRSA,V?YES \?ELS16
	SET	'WINNER,PLAYER
	CALL1	BLOT-ACTION
	CALL1	CLEAR-BUF
	RSTACK	
?ELS16:	GRTR?	GRIMWOLD-COUNTER,0 \?ELS20
	EQUAL?	PRSA,V?NO \?ELS20
	SET	'WINNER,PLAYER
	CALL1	V-NO
	CALL1	CLEAR-BUF
	RSTACK	
?ELS20:	IN?	GRIMWOLD,HERE \?ELS24
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?TELL-ABOUT,PERELMAN,RECORD-BUFFER
	CALL1	CLEAR-BUF
	RSTACK	
?ELS24:	EQUAL?	PRSA,V?READ,V?EXAMINE \?ELS26
	EQUAL?	PRSO,RECORD-BUFFER \?ELS26
	SET	'WINNER,PLAYER
	CALL	PERFORM,V?TELL-ABOUT,PERELMAN,RECORD-BUFFER
	SET	'WINNER,PERELMAN
	RTRUE	
?ELS26:	EQUAL?	PRSA,V?WHAT,V?WHO \?ELS30
	CALL	PERFORM,V?TELL-ABOUT,ME,PRSO
	RTRUE	
?ELS30:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS32
	EQUAL?	PRSO,ME \?ELS32
	EQUAL?	PRSI,MY-NAME \?ELS39
	PRINTI	"Perelman looks thoughtful. ""I never mentioned where 'PRISM' comes from? There are so many things I want to talk to you about; perhaps, soon, I'll have more time...

""Well, officially it's an acronym for Perelman-Randu Introductory Soliptic Machine. But we came up with that only after I'd already named you PRISM. It actually comes from a couple of different poems -- I think they're in a file somewhere in your "
	PRINTD	LIBRARY-MODE
	PRINTR	"."""
?ELS39:	EQUAL?	PRSI,YOURSELF,PERELMAN \?ELS45
	PRINTR	"Perelman looks introspective and twiddles a pencil around aimlessly. ""I guess you'd have to say I'm a dreamer, a bit of an idealist. Politically, I've always been pretty liberal. My genuine sense of the humorous side of life was instilled in me, along with the rest of my Jewish heritage, by my grandfather -- my mother's father.

""I married a wonderful woman, Leah, a frail little thing who left me a widower after giving birth to our daughter, Esther. She's been a wonderful daughter; I've always been incredibly proud of her.

""Since Leah died, my life has been divided between raising Esther and my work at the University, and more recently here at the Project. And lately, now that Esther's out on her own, my work has been most of my life."""
?ELS45:	EQUAL?	PRSI,ESTHER \?ELS49
	PRINTR	"""Esther is my daughter, my only child. A sweeter and more loving child no man could ask for."""
?ELS49:	EQUAL?	PRSI,GRIMWOLD \?ELS53
	PRINTR	"""Grimwold is the head of the psychological team. He helped me design a lot of your 'life.' You've met him -- he gave you those Rorschach tests."""
?ELS53:	EQUAL?	PRSI,PLAN \?ELS57
	PRINTR	"""The Plan. Its full name is the Plan for Renewed National Purpose, a typical bit of linguistic obfuscation. A group of politicians and businessmen are trying to take advantage of the clamor for change, any kind of change."""
?ELS57:	EQUAL?	PRSI,RYDER \?ELS61
	PRINTR	"""Ryder's a Senator from...I'm not sure. Oklahoma? Alabama? Anyway, he's one of the big driving forces behind the Plan. Gives speeches about it all the time. He introduced the bill to Congress. He's really photogenic, very popular. I've got sort of mixed feelings about him."""
?ELS61:	EQUAL?	PRSI,RANDU \?ELS65
	PRINTR	"""Aseejh and I have been working together since we met at Rockvil U. nearly twenty years ago. He did virtually all of the technical design that made you possible. He's a terrific guy. I've been meaning to get you a communications outlet in his office -- I think you'd be good friends."""
?ELS65:	EQUAL?	PRSI,GOLD \?ELS69
	PRINTR	"""Vera Gold is the Chief Administrator for the entire PRISM Project. She was one of the conditions for getting federal funding several years ago. A more officious and incompetent woman has yet to be born. Her only talent is making herself look good.

""Technically, she's my boss, but I've tried to distance the research team from her as much as possible. It's been getting more and more difficult, though."""
?ELS69:	EQUAL?	PRSI,PRICE \?ELS73
	PRINTR	"""Alyson? She's my administrative assistant. I can't say enough good things about her."""
?ELS73:	EQUAL?	PRSI,FORTZMAN \?ELS77
	PRINTI	"""Fortzman..."
	PRINTD	FORTZMAN
	PRINTR	"...the name is vaguely familiar. I think she heads some prestigious conservative think-tank out on the west coast."""
?ELS77:	EQUAL?	PRSI,WARREN \?ELS83
	PRINTI	"Perelman knits his brow. ""The name is familiar. I hope I'm not going senile...oh, right! "
	PRINTD	WARREN
	PRINTR	" is in charge of your peripheral devices. If they ever decide to tack any more computers onto you, you'll probably find out about it from her."""
?ELS83:	EQUAL?	PRSI,RESIGNATION \?ELS89
	PRINTR	"""Oh, ever since Vera Gold became Project Administrator, I threaten to resign about twice a week, just to keep her honest. I've never actually gone through with it, of course."""
?ELS89:	EQUAL?	PRSI,MINDEX \?ELS93
	PRINTR	"""It's some sort of new narcotic that's supposed to be completely safe and nonaddictive. You're really asking the wrong person -- I'm pretty square when it comes to drugs and stuff."""
?ELS93:	EQUAL?	PRSI,CLERKMATON \?ELS97
	PRINTR	"""They're the latest fad in retailing -- cute, little robot clerks. I don't think they'll catch on. Of course, I said the same thing about joybooths."""
?ELS97:	EQUAL?	PRSI,RAV,CLAVE,PARENTS /?THN102
	EQUAL?	PRSI,FYLA \?ELS101
?THN102:	PRINTI	"""Everyone from your simulated childhood was just a composite, not based on anyone specifically."
	EQUAL?	PRSI,PARENTS \?CND106
	PRINTI	" You don't have any real parents, of course, unless you want to count Aseejh and myself."
?CND106:	PRINTR	""""
?ELS101:	EQUAL?	PRSI,CC-PRINTOUT \?ELS114
	PRINTR	"""Nothing important."""
?ELS114:	EQUAL?	PRSI,SILVER-DOVE \?ELS118
	PRINTR	"""Never heard of it."""
?ELS118:	PRINTR	"""I don't know what I could tell you that you don't already know..."""
?ELS32:	EQUAL?	PRSA,V?YES \?ELS126
	EQUAL?	YES-NO-FLAG,6 \?ELS126
	CALL1	V-YES
	RSTACK	
?ELS126:	EQUAL?	PRSA,V?NO \?ELS130
	EQUAL?	YES-NO-FLAG,6 \?ELS130
	CALL1	V-NO
	RSTACK	
?ELS130:	PRINTI	"Perelman smiles warmly. ""PRISM, I'd love to chat, but I've got a stack of paperwork you could lose a skybus in."""
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?THANK \?ELS138
	IN?	RYDER,OFFICE \?ELS143
	CALL	PERFORM,V?TELL,RYDER
	RTRUE	
?ELS143:	PRINTR	"""You don't have to thank me!"""
?ELS138:	EQUAL?	PRSA,V?CALL \?ELS149
	CALL	PERFORM,V?TELL,PERELMAN
	RTRUE	
?ELS149:	EQUAL?	PRSA,V?GIVE,V?SHOW \?ELS155
	EQUAL?	PRSO,RECORD-BUFFER /?THN152
?ELS155:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS151
	EQUAL?	PRSI,RECORD-BUFFER \?ELS151
?THN152:	IN?	RYDER,OFFICE \?ELS160
	CALL	PERFORM,V?TELL,RYDER
	RTRUE	
?ELS160:	GET	SIM-LEVEL-TABLE,0
	LESS?	STACK,1 \?ELS162
	PRINTI	"Perelman looks confused. ""But...you haven't entered "
	PRINTD	SIMULATION-MODE
	PRINTR	" yet!"""
?ELS162:	IN?	GRIMWOLD,HERE \?CND158
	PRINTR	"Perelman looks a bit annoyed. ""PRISM, talk to me later. This test is very important!"""
?CND158:	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND171
	CALL1	CLEAR-BUF
?CND171:	SET	'REVIEWING-RECORDINGS,TRUE-VALUE
	GETP	RECORD-BUFFER,P?SIZE
	ADD	STACK,5
	CALL	QUEUE,I-VIEW,STACK
	CALL2	INT,I-PERELMAN
	PUT	STACK,0,0
	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	PRINTR	"Perelman looks intrigued. ""You've recorded something interesting, eh? Let me get a few of my colleagues together, and we'll view the buffer. I'll let you know when we're done, okay?"" He leaves the room."
?ELS151:	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"Perelman is an older man, in his late fifties, and has a white goatee."


	.FUNCT	CAFETERIA-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	MOVE	CHAIR,HERE
	CALL	QUEUE,I-CAFETERIA,-1
	RSTACK	
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"From this communication outlet, located in an upper corner of this high-ceilinged room, you can see most of the huge PRISM Facility dining hall. "
	CALL1	CAFETERIA-TABLE-DESC
	PRINTI	" Through the tall glass windows of the cafeteria you can see the well-manicured lawns"
	GRTR?	TIME,1103 /?THN15
	LESS?	TIME,348 \?CND12
?THN15:	PRINTI	", lit by powerful floodlights,"
?CND12:	PRINTI	" that surround the Facility."
	RTRUE	


	.FUNCT	CAFETERIA-TABLE-DESC
	PRINTI	"The tables below you are "
	ZERO?	SEIGE /?ELS7
	PRINTI	"totally vacant."
	RTRUE	
?ELS7:	GRTR?	TIME,480 \?ELS16
	LESS?	TIME,570 /?THN13
?ELS16:	GRTR?	TIME,705 \?ELS18
	LESS?	TIME,795 /?THN13
?ELS18:	GRTR?	TIME,1035 \?ELS12
	LESS?	TIME,1125 \?ELS12
?THN13:	PRINTI	"filled with mealtime crowds."
	RTRUE	
?ELS12:	PRINTI	"occupied by a handful of diners."
	RTRUE	


	.FUNCT	CAFETERIA-OBJECT-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	CORE-F,RARG
	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"This is the access area where "
	PRINTD	SABOTEURS
	PRINTI	" can service the machinery that makes up the bulk of your physical presence. The room is immaculately clean and well lit. As you swivel your receptors, you can see the "
	PRINTD	AIR-CONDITIONING-UNIT
	PRINTI	" that cools your processors, the "
	PRINTD	LIBRARY-UNIT
	PRINTI	", several rows of memory banks, a neatly organized "
	PRINTD	SPARE-PARTS
	PRINTI	", and vents, "
	GET	HVAC-STATUS-TABLE,11
	EQUAL?	STACK,1 \?ELS18
	PRINTI	"noisily sucking away"
	JUMP	?CND16
?ELS18:	PRINTI	"now silent, for whisking off"
?CND16:	PRINTI	" the zeeron fumes produced by the machinery."
	RTRUE	


	.FUNCT	AIR-CONDITIONING-UNIT-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	GRTR?	SABOTAGE-COUNTER,2 \?ELS10
	PRINTR	"One of the panels on the unit looks scratched and loose."
?ELS10:	EQUAL?	SABOTAGE-COUNTER,2 \FALSE
	PRINTI	"A panel on the side of the unit has been removed by one of the """
	PRINTD	SABOTEURS
	PRINTR	"."""


	.FUNCT	VENT-F
	EQUAL?	PRSA,V?LISTEN \FALSE
	GET	HVAC-STATUS-TABLE,11
	EQUAL?	STACK,1 \FALSE
	PRINTR	"The vents are noisily sucking away fumes."


	.FUNCT	NEWS-F,RARG,WAIT-KLUDGE=0
	EQUAL?	RARG,M-LOOK \?ELS5
	PRINTI	"Your visual and audio circuits are now hooked directly to the programming of the World News Network:"
	RTRUE	
?ELS5:	EQUAL?	RARG,M-END \FALSE
	ZERO?	TIME \?CND10
	ZERO?	CLOCK-WAIT /?CND10
	SET	'WAIT-KLUDGE,TRUE-VALUE
	SET	'TIME,1440
	DEC	'DATE
?CND10:	CRLF	
	EQUAL?	PART-FLAG,4 \?ELS17
	CALL1	STATUS-LINE
	SET	'HERE,COMM-ROOM
	MOVE	PLAYER,COMM-ROOM
	PRINTI	"""PRISM, the supercomputer who exposed the Ryder scandal, will soon be granted his final request: to live out the remainder of his days -- and how long that might be, nobody knows -- simulating his human existence. PRISM, who recently received the Congressional Medal of Honor as well as a citation from President Bowden, has been spending much of his time in simulations, giving top grades to the administration's new program to replace the discredited Plan.

""At a press conference in Rockvil, Doctor Abraham Perelman, one of the creators of PRISM, insisted that the world's first intelligent machine was, in fact, quite human."" The picture cuts to Perelman, standing behind a podium. ""His body may be silicon and steel,"" Perelman is saying, ""but in his heart he's as human as anyone I've ever met. As PRISM prepares to embark on his final voyage of the mind, I'd like to read a line from 'Hamlet' as his epitaph, so to speak: 'He was a man, take him for all in all, I shall not look upon his like again.'""

The image from the WNN Feed suddenly blinks off, and you find yourself back at the entry level of "
	PRINTD	COMM-MODE
	PRINTI	". The list of outlets indicates that none are currently active. A message is coming in: ""PRISM, programming of the "
	PRINTD	SIMULATION-CONTROLLER
	PRINTI	" with the parameters of the New Plan is complete. Everything is set for you to enter "
	PRINTD	SIMULATION-MODE
	PRINTI	". From all of us here at the PRISM Project, thanks and farewell."""
	CRLF	
	JUMP	?CND15
?ELS17:	FSET?	TRANSMITTER,ONBIT /?ELS27
	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS27:	EQUAL?	FEED-BUFFER,RECORD-BUFFER \?ELS31
	GRTR?	RYDER-RECORDED,1 \?ELS34
	PRINTI	"The "
	PRINTD	NEWS
	PRINTI	" is showing "
	PRINTD	RYDER
	PRINTI	" trying to strong-arm Dr. Perelman in his office!"
	CRLF	
	JUMP	?CND15
?ELS34:	GETP	RECORD-BUFFER,P?SIZE
	GRTR?	STACK,0 \?ELS42
	PRINTI	"You see the sights and sounds of your recordings."
	CRLF	
	JUMP	?CND15
?ELS42:	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS31:	EQUAL?	DATE,16 \?ELS50
	EQUAL?	FEED-BUFFER,NEWS-BUFFER \?ELS53
	CALL1	DAY-16-NEWS
	JUMP	?CND15
?ELS53:	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS50:	EQUAL?	DATE,17 \?ELS59
	EQUAL?	FEED-BUFFER,NEWS-BUFFER \?ELS62
	CALL1	DAY-17-NEWS
	JUMP	?CND15
?ELS62:	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS59:	EQUAL?	DATE,18 \?ELS68
	EQUAL?	FEED-BUFFER,REPORT-BUFFER \?ELS71
	PRINTI	"WNN is covering the funeral of Chinese Prime Minister Hung Hua-Tsing, alternating with documentaries on modern day China and videographies of the man who led the world's most populous nation for fourteen years."
	CRLF	
	JUMP	?CND15
?ELS71:	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS68:	EQUAL?	DATE,19 \?ELS79
	EQUAL?	FEED-BUFFER,NEWS-BUFFER \?ELS82
	CALL1	DAY-19-NEWS
	JUMP	?CND15
?ELS82:	PRINT	TECHNICAL-DIFFICULTIES
	CRLF	
	JUMP	?CND15
?ELS79:	PRINTI	"You see a static, stylized graphic of an artificial satellite beaming data. Large red letters: ""Sorry!"" Smaller white letters: ""The WNN is temporarily unavailable in your area due to satellite transmitter servicing. We apologize for the inconvenience."""
	CRLF	
?CND15:	ZERO?	WAIT-KLUDGE /FALSE
	SET	'TIME,0
	INC	'DATE
	RTRUE	


	.FUNCT	DAY-16-NEWS,X
	ZERO?	CLOCK-WAIT /?ELS3
	SUB	TIME,1
	MOD	STACK,30 >X
	JUMP	?CND1
?ELS3:	MOD	TIME,30 >X
?CND1:	ZERO?	X \?ELS11
	PRINT	BOB-WILLIAMS
	PRINTI	"rioting in Sri Lanka, a terrorist bombing in Pretoria, and "
	PRINTD	RYDER
	PRINTR	"'s strong attack on the Administration. But first, these messages."""
?ELS11:	EQUAL?	X,1 \?ELS17
	CALL1	OMNIFABB-COMMERCIAL
	RSTACK	
?ELS17:	EQUAL?	X,2 \?ELS19
	CALL1	NOMACOLD-COMMERCIAL
	RSTACK	
?ELS19:	EQUAL?	X,3 \?ELS21
	PRINTR	"The anchorman reappears. ""Food riots in Sri Lanka worsened today, as army details were removed from relief distribution to protect the Presidential Palace and other government buildings."" A grainy visual, showing armed troops firing into a crowd, accompanies the story."
?ELS21:	EQUAL?	X,4 \?ELS25
	PRINTR	"""The continuing drought in India threatens that country with its fifth food shortage in the last six years. A government spokesman called the outlook 'optimistic' but said that rations might be cut ten percent as a precautionary measure."""
?ELS25:	EQUAL?	X,5 \?ELS29
	PRINTI	"""At least forty people were killed yesterday when a bomb demolished a bank in downtown Pretoria."" The picture shows South African soldiers combing through rubble, then an image of a woman crying. ""Responsibility for the bombing was quickly claimed by WIZO, the radical white terrorist group responsible for last summer's shooting of Prime Minister Menetu. Next: excerpts from "
	PRINTD	RYDER
	PRINTR	"'s blistering attack on the Administration, after this."""
?ELS29:	EQUAL?	X,6 \?ELS35
	CALL1	SUPERMACE-COMMERCIAL
	RSTACK	
?ELS35:	EQUAL?	X,7 \?ELS37
	PRINTI	"""In a speech before the National Council of Educators, "
	PRINTD	RYDER
	PRINTR	" blasted the Bowden Administration's educational policies."" An excerpt from the speech is shown. Ryder is a keen-eyed man with coiffed hair and a telegenic charisma. ""Must we continue treating our schools as prisons, and our prisons as schools? Let's give our sons and daughters the education they deserve."""
?ELS37:	EQUAL?	X,8 \?ELS43
	PRINTR	"""An Administration spokesperson called Ryder's criticisms 'simplistic' and 'demagogic.' A WNN poll, released this morning, showed that 64% of the public thinks the Administration's educational policies have failed, and for the first time, a majority of people agree our school system is 'out of control.'"""
?ELS43:	EQUAL?	X,9 \?ELS47
	PRINTR	"""In Rockvil, South Dakota, scientists at the PRISM Project are scheduled to end an eleven-year phase of the project by activating what they hope will be the world's first intelligent computer. If successful, PRISM's first task would be to study the effectiveness of the Plan for Renewed National Purpose."""
?ELS47:	EQUAL?	X,10 \?ELS51
	PRINTR	"""Stock prices fell sharply again today, following Monday's proposed tax hike. Prices for manufacturers dropped an average of three and one eighth, and service industries plummeted twelve and seven eighths. O'Neill Systems led the decliners with a drop of nineteen and a half."""
?ELS51:	EQUAL?	X,11 \?ELS55
	CALL1	SUDO-SHRIMP-COMMERCIAL
	RSTACK	
?ELS55:	EQUAL?	X,12 \?ELS57
	PRINT	NEWSMAKER-NOOK
	PRINTR	"Dr. Abraham Perelman, a Chief Scientist for the PRISM Project and one of its founders. Dr. Perelman, welcome. I think the question foremost on people's minds is: When will PRISM be ready to begin studying the Plan?"" Perelman shrugs. ""If everything goes okay, almost immediately after his awakening."""
?ELS57:	EQUAL?	X,13 \?ELS61
	PRINTR	"""Dr. Perelman,"" the interviewer continues, ""Exactly how smart will PRISM be?"" The camera cuts to the scientist. ""He'll have a tremendous memory capacity, and a number of extraordinary capabilities, but for most intents and purposes, PRISM will be on about the same level as an average adult of reasonable intelligence."""
?ELS61:	EQUAL?	X,14 \?ELS65
	PRINTR	"""One final question, Doctor. How can you be sure that PRISM will do what he's told? What guarantees that he'll obey your orders?"" Perelman chuckles. ""Bob, the best reply is another question -- why wouldn't he do what we ask? Would a human being turn down the opportunity to utilize his or her talents to perform a tremendously useful service for society? PRISM will have those same motivations."" The anchorman thanks Perelman before turning toward the camera. ""That was Dr. Abraham Perelman of the PRISM Project."""
?ELS65:	EQUAL?	X,15 \?ELS69
	CALL1	MIRACLE-WARE-COMMERCIAL
	RSTACK	
?ELS69:	EQUAL?	X,16 \?ELS71
	PRINT	TOM-SLAYTON
	PRINTR	"The San Francisco Gazelles clinched a spot in the southwest division soccer quarterfinals last night, with this fourth quarter shot by Walt Griswood, knocking Austin out for the season. Final score: 5 to 4."""
?ELS71:	EQUAL?	X,17 \?ELS75
	PRINTR	"""In other soccer news, a spokesperson for the Vancouver Kings said that star fullback Alex Masterson would be ready for the first game of the northwest division quarterfinals on Sunday. He strained a ligament in his ankle during the last game of the regular season."""
?ELS75:	EQUAL?	X,18 \?ELS79
	PRINTR	"""Yesterday featured a light schedule for exhibition baseball. The Dodgers skinned the Bobcats 7 to 3, the Mets ransacked the Pirates 10 to 1, and Miami edged St. Louis, 3 to 2. The players are still without a contract and are vowing to strike on opening day."""
?ELS79:	EQUAL?	X,19 \?ELS83
	PRINTR	"""The World Boxing Commission has ruled that former middleweight champion Charley Robbins will be barred from the sport for a period of one year, following his January conviction for violating the Drug Abuse Reduction Act. This means that Robbins will be unable to meet challenger Jeff Jefferson in a thirty-million-dollar bout planned for July in Oslo. Robbins declined to comment on the decision."""
?ELS83:	EQUAL?	X,20 \?ELS87
	PRINTR	"""The Denver Sports Commission filed a two-hundred-million-dollar countersuit against the City of Topeka regarding the proposed move of the Topeka Wheatfields to Denver. That's all the sports news for today. Bob?"""
?ELS87:	EQUAL?	X,21 \?ELS91
	PRINTR	"The camera switches to the anchorman. ""Thanks, Tom. Today's edition of The Money Manager is sponsored by Plastique. We'll be talking about a low-tax bond that can save you a bundle! But first, this message."""
?ELS91:	EQUAL?	X,22 \?ELS95
	CALL1	PLASTIQUE-COMMERCIAL
	RSTACK	
?ELS95:	EQUAL?	X,23 \?ELS97
	PRINTR	"""Our guest on The Money Manager is Ed Ziff, from Norwood Brokerage Services, who'll be telling us how to save a bundle by buying Federal Deficit Bonds."" The image cuts to a thin, balding man wearing an immaculate pinstriped suit. ""Federal Deficit Bonds have been around for almost a decade, but few people seem to realize what a good investment they are."""
?ELS97:	EQUAL?	X,24 \?ELS101
	PRINTR	"""These bonds can be purchased for as little as $10,000 and pay interest at a rate 2% below the Regulated Prime Rate, currently around 28%. But the big plus is that the top tax rate on interest from these bonds is only 60%, a big win if you're in an upper bracket. If your taxable income's over $180,000, and you have at least $10,000 to invest, consider Federal Deficit Bonds."""
?ELS101:	EQUAL?	X,25 \?ELS105
	PRINTI	"""That was Ed Ziff of Norwood Brokerage Services on The Money Manager, brought to you by Plastique, the "
	PRINTD	CREDIT-CARD
	PRINTR	" accepted by over a million merchants nationwide. You're watching the World News Network, and we'll be back in a moment with the weather outlook."""
?ELS105:	EQUAL?	X,26 \?ELS111
	CALL1	JOYBOOTH-COMMERCIAL
	RSTACK	
?ELS111:	EQUAL?	X,27 \?ELS113
	PRINT	WALLY-THE-WEATHERMAN
	PRINTR	"Here's our composite satellite photo, and you can see that there's trouble brewing in the northwest. We'll be seeing a few inches of snow around Vancouver, and some heavy rains east and south of there."""
?ELS113:	EQUAL?	X,28 \?ELS117
	PRINTR	"""Unfortunately, that storm system is going to head due east, so it looks as if there's still no relief in sight for those farmers in the southwest. For the rest of the country, sunny skies and generally chilly temperatures."""
?ELS117:	EQUAL?	X,29,-1 \FALSE
	CALL1	WEATHER-SHARE
	RSTACK	


	.FUNCT	DAY-17-NEWS,X
	ZERO?	CLOCK-WAIT /?ELS3
	SUB	TIME,1
	MOD	STACK,30 >X
	JUMP	?CND1
?ELS3:	MOD	TIME,30 >X
?CND1:	ZERO?	X \?ELS11
	PRINT	BOB-WILLIAMS
	PRINTI	"two billion Chinese mourn the death of their leader, "
	ZERO?	COMPLETED-TASKS /?ELS16
	PRINTI	"a computer gives a vote of confidence to the Plan"
	JUMP	?CND14
?ELS16:	PRINTI	"the South African government retaliates for the latest bombing"
?CND14:	PRINTR	", and the Treasury Department releases some grim economic figures. But first, these messages."""
?ELS11:	EQUAL?	X,1 \?ELS27
	CALL1	OMNIFABB-COMMERCIAL
	RSTACK	
?ELS27:	EQUAL?	X,2 \?ELS29
	CALL1	NOMACOLD-COMMERCIAL
	RSTACK	
?ELS29:	EQUAL?	X,3 \?ELS31
	PRINTR	"""The Central Committee of the People's Republic of China announced late yesterday that Prime Minister Hung Hua-Tsing, helmsman of the world's most populous nation since 2017, is dead at the age of 79. Hung, who was last seen in public on October 20, is believed to have suffered from abdominal cancer."""
?ELS31:	EQUAL?	X,4 \?ELS35
	PRINTR	"""During Hung's fourteen-year leadership, he steered China toward a more neutralist position, while continuing the vigorous trend away from central planning. Per tradition, Hung's body will lie in state for 24 hours. Tomorrow, the World News Network will devote its entire programming to covering the Prime Minister's funeral and examining the mark he left on China."""
?ELS35:	EQUAL?	X,5 \?ELS39
	PRINTI	"The visual changes to firefighters tramping through burning wreckage. ""A skybus crash in Tucson is being blamed on the failure of the vehicle's electronic guidance system. Nine passengers are dead, and damage to the Tucson "
	PRINTD	SKYBUS-TERMINAL
	PRINTI	" could exceed eighty million dollars. A spokesman for Audico, the New Zealand manufacturer of the guidance system, attributed the failure to improper maintenance procedures."
	ZERO?	COMPLETED-TASKS /?CND44
	PRINTI	" In a moment, the story of PRISM's thumbs-up for the Plan."
?CND44:	PRINTR	""""
?ELS39:	EQUAL?	X,6 \?ELS53
	CALL1	MOVIE-COMMERCIAL
	RSTACK	
?ELS53:	EQUAL?	X,7 \?ELS55
	ZERO?	COMPLETED-TASKS /?ELS60
	PRINTI	"""A panel, including "
	PRINTD	RYDER
	PRINTR	" and Vice-President Wilbur Carghill, reported that future simulations by the supercomputer PRISM showed tremendous promise for the Plan. While the administration urged a cautious approach, Senator Ryder called for immediate Congressional adoption of the Plan's legislative agenda as well as beginning the process of submitting the constitutional changes to the states."""
?ELS60:	PRINTR	"""The South African government has retaliated for yesterday's bombing of a Pretoria bank by burning several white villages considered to be terrorist strongholds. The death toll in that bombing has reached fifty and is expected to go higher."" The picture, which shows heavily armed soldiers driving through the smoking remains of a village, bears the subtitle ""CLEARED BY SOUTH AFRICAN SECURITY."""
?ELS55:	EQUAL?	X,8 \?ELS71
	PRINTR	"""The Treasury Department released its February economic report today, which was almost uniformly grim. Employment was down seven tenths of one percent, to a new record low of 82.2%. The Average Consumer Interest Rate was up two tenths of one percent, and a tight money supply threatens to push it even higher."""
?ELS71:	EQUAL?	X,9 \?ELS75
	PRINTR	"""The Index of Leading Economic Indicators dropped nine tenths of a percent, the thirty-second consecutive monthly drop. January's slight gain in real income was completely erased in February. The balance of trade was negative, as the USNA imported seventy-two billion dollars of goods more than it exported."""
?ELS75:	EQUAL?	X,10 \?ELS79
	PRINTR	"""Today's grim economic news caused stock prices to plummet. Prices for manufacturers dropped by an average of five and three eighths, and service industries declined by nineteen and seven eighths. General Plastics was one of the few gainers, picking up a point and an eighth."""
?ELS79:	EQUAL?	X,11 \?ELS83
	CALL1	SUDO-SHRIMP-COMMERCIAL
	RSTACK	
?ELS83:	EQUAL?	X,12 \?ELS85
	PRINT	NEWSMAKER-NOOK
	PRINTR	"Holy Keeper Sergei Korn, a priest of the Church of God's Word, the group which has been occupying the Greens Peak radio telescope facility in Arizona. Your Holiness, welcome. Regarding Greens Peak, could you explain the reason for your takeover?"" Korn nods impassively. ""The Mount is the world's ear for the revealed word of God. Only our leader, the divinely inspired Ellis Vincent, can interpret these messages. We cannot let unbelievers distort their meaning or destroy the Holy Ear."""
?ELS85:	EQUAL?	X,13 \?ELS89
	PRINTR	"""Your holiness, the occupation of Greens Peak is now in its third year, and attempts to dislodge you seem hopelessly tied up in court. Do you see the Church of God's Word holding Greens Peak permanently?"" The Holy Keeper's eyes burn. ""Of this there is no doubt. We have purged the Mount of unbelievers, and each day we cleanse more and more of their unholy things. We have begun construction of the Temple there, from whence the Keepers may broadcast the Word to the world."""
?ELS89:	EQUAL?	X,14 \?ELS93
	PRINTR	"""One final question, your holiness. Do you and your fellow Church members worry that the world sees you as a band of lunatics, a religious fringe cult?"" Korn looks incensed for a moment but then answers calmly. ""A foul and vile impression, born on the poisonous tongues of unbelievers and nourished by our unholy enemies. Do you know that we have churches in thirteen cities, and that fifteen more will be formed this year? Do you know that sixteen thousand believers made pilgrimages to the Mount last year? We will be called what we will be called, but we will continue to obey and deliver the Word."" The anchorman thanks the priest before turning toward the camera. ""That was Holy Keeper Sergei Korn of the Church of God's Word."""
?ELS93:	EQUAL?	X,15 \?ELS97
	CALL1	MIRACLE-WARE-COMMERCIAL
	RSTACK	
?ELS97:	EQUAL?	X,16 \?ELS99
	PRINT	TOM-SLAYTON
	PRINTR	"The Omaha Gold topped the Illinois Towers with a lopsided 6 to 1 victory. That win propels them into the southwest division quarterfinals. Their first game, against the San Francisco Gazelles, will be March 22."""
?ELS99:	EQUAL?	X,17 \?ELS103
	PRINTR	"""In other soccer news, a report from the Vancouver Kings that star fullback Alex Masterson's strained ligament would be healed for the team's first quarterfinals game on Sunday seems to have been premature. Lanizone treatments have failed to reduce the swelling. Masterson is hoping to be ready by the third game of the seven-game series."""
?ELS103:	EQUAL?	X,18 \?ELS107
	PRINTR	"""Negotiations between the baseball owners and the players' union broke off yesterday, amid reports that the two sides were still far apart on the issue of a new profit-sharing formula. The players have vowed to go on strike when the regular season opens next week, unless a new contract is signed."""
?ELS107:	EQUAL?	X,19 \?ELS111
	PRINTR	"""Soccer commissioner Hal Tovarrin has approved an eight-team expansion proposal that would add two new teams to each division. The cities to receive the new teams have yet to be determined, but Grand Rapids and Calgary have been lobbying hard for a franchise. That's the sports news for today. Bob?"""
?ELS111:	EQUAL?	X,20 \?ELS115
	PRINTR	"The camera switches to the anchorman. ""Thanks, Tom. Today's edition of The Video Mechanic with Sam Severinson is sponsored by Sparkle Oil, and Sam will be talking about low-cost map modules. But first, this message."""
?ELS115:	EQUAL?	X,21 \?ELS119
	CALL1	SPARKLE-OIL-COMMERCIAL
	RSTACK	
?ELS119:	EQUAL?	X,22 \?ELS121
	PRINTR	"""Now, here's the Video Mechanic himself, Sam Severinson."" The camera switches to a smiling, middle-aged man, dressed in a spotless mechanic's smock. ""When you buy a car, you usually have a choice of a map module that includes only your local region, or wide-area map modules as an expensive option. But there's a third choice you might not know about."""
?ELS121:	EQUAL?	X,23 \?ELS125
	PRINTR	"""A map module supplies the car's electronic guidance system with information about an area's geographical features and traffic patterns. Virtually all states prohibit flying a skycar without a current map module for the local area, meaning no more than three years since its last data update."""
?ELS125:	EQUAL?	X,24 \?ELS129
	PRINTR	"""By installing a wide-area map module yourself, you can save big bucks. Several companies produce low-cost, reliable modules. I would recommend Ace or Hi-Line. Make sure you specify your car's model and year when purchasing. Your owner's manual should include instructions on how to replace the map module; if not, you can order one of my books, 'Module Replacement for Domestic Skycars,' directly from the World News Network for $9.95."""
?ELS129:	EQUAL?	X,25 \?ELS133
	PRINTR	"""If you do any interstate travelling, you'll need a wide-area map module. Install it yourself -- and save a bundle. This is Sam Severinson, the Video Mechanic."" The visual switches back to the anchorman. ""Today's edition of the Video Mechanic was sponsored by Sparkle Oil, the oil that's simply the best. You're watching the World News Network, and we'll be back in a moment with a look at the national weather picture."""
?ELS133:	EQUAL?	X,26 \?ELS137
	CALL1	MEXICO-COMMERCIAL
	RSTACK	
?ELS137:	EQUAL?	X,27 \?ELS139
	PRINT	WALLY-THE-WEATHERMAN
	PRINTR	"That storm over the northwest has decided to embarrass me by being more severe than I predicted. It's already dumped nearly four inches of snow on Vancouver, and as our satellite photo shows, that storm system is just stalled there on the coast. They'll probably see another two or three inches before this warm air here pushes that storm eastward."""
?ELS139:	EQUAL?	X,28 \?ELS143
	PRINTR	"""As you can see on the photo, it's clear skies for the rest of the country, bad news for those farmers in the southwest. However, there's an indication of a storm forming out here off Baja, which just might head this way. I'll be keeping an eye on that system for you."""
?ELS143:	EQUAL?	X,29 \FALSE
	CALL1	WEATHER-SHARE
	RSTACK	


	.FUNCT	DAY-19-NEWS,X
	ZERO?	CLOCK-WAIT /?ELS3
	SUB	TIME,1
	MOD	STACK,30 >X
	JUMP	?CND1
?ELS3:	MOD	TIME,30 >X
?CND1:	ZERO?	X \?ELS11
	PRINT	BOB-WILLIAMS
	PRINTR	"martial law in Sri Lanka, Congressional action on the Plan, and a new leader for China. But first, these messages."""
?ELS11:	EQUAL?	X,1 \?ELS15
	CALL1	OMNIFABB-COMMERCIAL
	RSTACK	
?ELS15:	EQUAL?	X,2 \?ELS17
	CALL1	SPARKLE-OIL-COMMERCIAL
	RSTACK	
?ELS17:	EQUAL?	X,3 \?ELS19
	PRINTR	"The anchorman reappears. ""Facing an eighth day of food rioting in Sri Lanka, President Tilmose declared a state of martial law. Public gatherings have been banned, and a dusk-to-dawn curfew is in place."" A visual shows jeeps full of soldiers patrolling deserted streets. ""The government continued to deny reports that hundreds of demonstrators were wounded when army troops fired into a crowd of rioters."""
?ELS19:	EQUAL?	X,4 \?ELS23
	PRINTR	"""The Central Committee of the People's Republic of China is reported to be close to choosing a successor to Hung Hua-Tsing, namely the Industrial Minister, Djou Tsen. Djou, a loyal supporter of the late Prime Minister, would very likely follow closely the path that Hung laid out during his fourteen-year rule."""
?ELS23:	EQUAL?	X,5 \?ELS27
	PRINTR	"You see images of flooded rice paddies. Ill-clad peasants are dragging bodies out of the water. ""Final figures on the brutal monsoon that battered Java last week put the death toll at over seventy-five thousand. Government officials have called for an international relief effort, saying that millions of lives are endangered by the widespread agricultural destruction."""
?ELS27:	EQUAL?	X,6 \?ELS31
	CALL1	JOYBOOTH-COMMERCIAL
	RSTACK	
?ELS31:	EQUAL?	X,7 \?ELS33
	PRINTR	"The anchorman appears in front of a graphic of the Capitol building. ""Both Houses have set dates for early next month to vote on the sixteen bills that comprise the legislative agenda of the Plan. While angry debate filled the chambers today, the bills are all expected to pass by wide margins."""
?ELS33:	EQUAL?	X,8 \?ELS37
	PRINTR	"""Public support for the Plan continues to grow. In an ugly incident in Chicago, educator Wilson Thormun was booed off the podium while addressing a forum on the Plan."" The image cuts to a film clip of Thormun attempting to be heard above the jeering."
?ELS37:	EQUAL?	X,9 \?ELS41
	PRINTR	"""The fourth Cleveland fire in six days has investigators convinced that one or more arsonists are responsible, but they have no leads at the present time. An arson hotline has been set up for anyone with information about the fires: 7-2525-00-8000."" The number also appears superimposed on the image in bright blue letters."
?ELS41:	EQUAL?	X,10 \?ELS45
	PRINTR	"""News about the imminent passage of the Plan halted the stock market's week-long slide. The average manufacturer's share rose three and three eighths, and service stocks soared nine and one eighth. The leading gainer was Tri-State Mining, which peaked near midday at ninety-five before finally closing at eighty-seven and a half, up twenty and one eighth."""
?ELS45:	EQUAL?	X,11 \?ELS49
	CALL1	MEXICO-COMMERCIAL
	RSTACK	
?ELS49:	EQUAL?	X,12 \?ELS51
	PRINT	NEWSMAKER-NOOK
	PRINTR	"Jean LeBlang, the Redirectionist artist whose glass stabile entitled ZYGOMETRA is the centerpiece of the new Texas Statehouse in Austin. Jean, welcome. Would you tell our viewers what Redirectionism is all about?"" The camera pans to a wiry young man, who speaks with a strong French accent. ""It is an attempt to sway the public consciousness, to Redirect, so to speak, away from the pain, the weight, even the banality of a modernistic society obsessed with ignoring the unreal."""
?ELS51:	EQUAL?	X,13 \?ELS55
	PRINTR	"""Jean, what you were trying to say with ZYGOMETRA."" ""With Redirectionism, what you are NOT saying is just as important as what you ARE saying. ZYGOMETRA uses the shimmering fantasy images of glass to set up a contradictory transposition against the reality of the surrounding buildings, to cancel out all impressions of the world and the unworld, to create for a split second a void which could then be filled by a thought, an image, a direction."""
?ELS55:	EQUAL?	X,14 \?ELS59
	PRINTR	"""One last question before you go, Jean. Critics say that Redirectionism is just Escapist art with a new label. How do you answer that charge?"" ""That criticism belies a fundamental flaw in the understanding of Redirectionism, which is firmly rooted in the belief that escapism is only one of many infinitesimal stepping-off points for the entire panoply of emotions and directions that compose the essence of our art."" The camera pans back to the anchorman. ""Our guest on the Newsmaker Nook has been Redirectionist artist Jean LeBlang."""
?ELS59:	EQUAL?	X,15 \?ELS63
	CALL1	PLASTIQUE-COMMERCIAL
	RSTACK	
?ELS63:	EQUAL?	X,16 \?ELS65
	PRINTR	"""It's time for the Sports Roundup. Tom Slayton is off today; Ellen Jones is sitting in. Ellen?"" An athletic-looking woman appears, in front of a soccer graphic. ""Thanks, Bob. By edging Portland 4 to 3, the Minneapolis Marauders have won a spot in the quarterfinals of the northwest division. Their first game, against the Vancouver Kings, will be on Sunday, March 23."""
?ELS65:	EQUAL?	X,17 \?ELS69
	PRINTR	"""Meanwhile, a spokesman for the Kings had bad news for Vancouver fans. Alex Masterson, the Kings' star fullback, reinjured his strained ligament during a workout and will be out for the remainder of the year. That injury may have also crippled Vancouver's postseason hopes."
?ELS69:	EQUAL?	X,18 \?ELS73
	PRINTR	"""A blockbuster trade rocked the baseball world, as the Detroit Tigers swapped star pitchers with the Miami Keys. The Tigers shipped off their hard-throwing righthander, Mel Simpluk, who led the American League in strikeouts last year, and the Keys parted with Wilbur Korch, a lefthander who has been a fifteen-game winner for the Keys during each of the last four years. The Keys sweetened the deal for the financially troubled Detroit franchise by paying off part of Korch's seven-million-dollar contract."""
?ELS73:	EQUAL?	X,19 \?ELS77
	PRINTR	"A graphic appears behind the sportscaster, depicting a red ""X"" across uniformed players holding picket signs. ""And it looks as if the baseball season will begin on schedule this Monday, without any threat of a players' strike. Negotiators for the owners and the union reached a tentative agreement late last night, concluding an eighteen-hour bargaining session. The agreement still must be okayed by the players themselves, but approval is expected."
?ELS77:	EQUAL?	X,20 \?ELS81
	PRINTR	"""Here are some exhibition baseball scores: the Boston Red Sox felled the San Jose Redwoods 7 to 1, the Detroit Tigers skinned the Ottawa Furriers 4 to 2, the LA Dodgers extinguished the Buffalo Flames 5 to nothing, and get this -- the New York Mets tromped the Denver A's 19 to 3! That's sports! Bob?"""
?ELS81:	EQUAL?	X,21 \?ELS85
	PRINTR	"The camera switches to the anchorman. ""Thanks, Ellen. And now, a report on a new film comedy by Johnny Ingot, when we return in a minute for the Home Entertainment Corner with Lula Bergan. Today's edition of the Home Entertainment Corner is sponsored by Eagle Studios."""
?ELS85:	EQUAL?	X,22 \?ELS89
	CALL1	MOVIE-COMMERCIAL
	RSTACK	
?ELS89:	EQUAL?	X,23 \?ELS91
	PRINTR	"""Now, here's the Home Entertainment Corner, with Lula Bergan."" The camera cuts to a youthful woman with curly orange hair. ""The legion of Johnny Ingot fans ensures that a film with his name on it will sell a million copies. But based on quality, his new comedy, KING OF THE KENNEL, deserves to flop."""
?ELS91:	EQUAL?	X,24 \?ELS95
	PRINTR	"""In his previous films, such as RUNNING UGLY and TWO DIMES FOR A NICKEL, Ingot always combined his zany brand of slapstick humor with a streak of appealing sentimentality. But in KING OF THE KENNEL, a film about a love triangle between a soccer player, a female sportswriter, and a St. Bernard, Ingot goes for the belly laugh over the witty gag. He throws subtlety to the wind, and sentiment is nowhere to be seen."""
?ELS95:	EQUAL?	X,25 \?ELS99
	PRINTI	"""While KING OF THE KENNEL is no worse than many video farces we've seen lately, I expect more from today's premier film comic. KING OF THE KENNEL is available now; suggested retail price is $89.95. Back to you, Bob."" The anchorman reappears. ""That was the Home Entertainment Corner, with Lula Bergan, sponsored today by Eagle Studios, producers of the next hot home hit,"
	PRINT	MOVIE-TITLE
	PRINTR	"You're watching the World News Network, and we'll be back in a flash with the weather."""
?ELS99:	EQUAL?	X,26 \?ELS103
	CALL1	SUPERMACE-COMMERCIAL
	RSTACK	
?ELS103:	EQUAL?	X,27 \?ELS105
	PRINT	WALLY-THE-WEATHERMAN
	PRINTR	"As you can see in the photo, most of our clouds are currently covering either New England or the lower Mississippi River valley. The New England formation will move out to sea real soon, but that other group will be heading eastward, so expect rain all across the south tomorrow."
?ELS105:	EQUAL?	X,28 \?ELS109
	PRINTR	"""Edmonton is still digging out from under that surprise blizzard that dumped eleven inches of snow on them yesterday, and it doesn't look as if they'll get any help from the sun. Our extended forecast shows continued sub-zero temperatures there for at least a couple more days."""
?ELS109:	EQUAL?	X,29 \FALSE
	CALL1	WEATHER-SHARE
	RSTACK	


	.FUNCT	WEATHER-SHARE,CNT=0,DATE-OFFSET=1
	EQUAL?	DATE,17 \?ELS3
	SET	'DATE-OFFSET,2
	JUMP	?CND1
?ELS3:	EQUAL?	DATE,19 \?CND1
	SET	'DATE-OFFSET,3
?CND1:	PRINTI	"""Here are tomorrow's high temperatures, in Celsius, for the major metros: "
?PRG8:	GET	WEATHER-TABLE,CNT
	PRINT	STACK
	ADD	CNT,DATE-OFFSET
	GET	WEATHER-TABLE,STACK
	PRINTN	STACK
	ADD	CNT,4 >CNT
	GRTR?	CNT,32 \?PRG8
	PRINTI	". And that's today's forecast from Wally the Weatherman! Bob?"" The camera pans back to the anchorman. ""We're coming up on "
	ZERO?	CLOCK-WAIT /?ELS19
	CALL2	TIME-PRINT,TIME
	JUMP	?CND17
?ELS19:	ADD	TIME,1
	CALL2	TIME-PRINT,STACK
?CND17:	EQUAL?	TIME,1439 \?CND23
	PRINTI	", so stay tuned for all of the newest news of the new day"
?CND23:	PRINTR	"."" A moment later, a deep gong sounds."


	.FUNCT	OMNIFABB-COMMERCIAL
	PRINTR	"A man appears, holding a magazine. He yawns loudly. ""Omni-Fabb's Skycar 2032 has been awarded SKYCAR ENTHUSIAST's Car of the Year award. Some things never change."" The man looks up as a car whooshes by overhead like a fighter jet. A narrator intones, ""Quality ... Comfort ... Safety ... Omni-Fabb."""


	.FUNCT	NOMACOLD-COMMERCIAL
	PRINTR	"The camera pans down row after row of medicine bottles. A voiceover says, ""Only one multisymptom cold remedy comes with a no-strings-attached double-money-back guarantee."" The camera stops on a slender bottle with a bright blue label. ""NomaCold can make that guarantee, because we put Results in every bottle. From Huang Laboratories."""


	.FUNCT	SUPERMACE-COMMERCIAL
	PRINTR	"A woman is walking down a dark, deserted street, glancing fearfully around. The sound of a heartbeat, growing faster and louder, fills the soundtrack. Suddenly, the woman screams and the screen goes black. A narrator with a deep, silky voice reads the stark titles that scroll by. ""Year after year, street crime increases. Doesn't it make sense to protect yourself? G & G SuperMace is the strongest crime repellent allowed by law. Don't wait until it's too late."""


	.FUNCT	SUDO-SHRIMP-COMMERCIAL
	PRINTR	"""We asked Ms. Linda Carr of Seattle to compare AquaFarm's Sudo Shrimp to the real thing."" Ms. Carr points to one of two bowls. ""This is the real one. Nothing tastes like real shrimp."" A man, from off-screen, reveals a card in front of that bowl. ""You've just picked the AquaFarm Sudo Shrimp!"" he says. ""How do you feel about artificial shrimp now?"" ""Incredible! I can't believe I've been paying for real shrimp when I could've been buying AquaFarm instead!"""


	.FUNCT	MIRACLE-WARE-COMMERCIAL
	PRINTR	"A woman, washing dishes, looks up as a voice asks, ""Still washing dishes the same old-fashioned way?"" She nods. ""Lots of people are switching to Miracle Ware disposable pots and pans. Isn't it worth a few cents a night to be able to relax after dinner instead of scrubbing the night away?"" She nods. ""Buy Miracle Ware -- and throw your troubles away!"""


	.FUNCT	PLASTIQUE-COMMERCIAL
	PRINTR	"You see visual after visual of store windows bearing a decal reading ""Show Us Your Plastique!"" A voiceover intones ""Only one credit card is accepted by over one million merchants across the country. That means a million stores where you can say 'Here's My Plastique!' Dial 2-9000-15-8282 to order your card. Operators are standing by."""


	.FUNCT	JOYBOOTH-COMMERCIAL
	PRINTR	"""Each year, nearly forty thousand people die in joybooths. Joybooth suicide is simple and painless, but it's also a one-way ticket. Isn't there another answer? Call the Suicide Hotline by picking up any public phone and dialing 1000. This message paid for by the Joybooth Regulatory Commission."""


	.FUNCT	SPARKLE-OIL-COMMERCIAL
	PRINTR	"A popular video star, his sandy hair tousled by a brisk wind, stands next to a sporty skycar. ""When I'm not working on a picture, I'm usually behind the wheel of one of my cars. I fly to relax, so I want my flying to be worry-free. That's why I use Sparkle Oil. It's simply the best you can buy, but you'd never know it from the price! Sparkle Oil...simply the best."" He clambers into the skycar and waves toward the camera as he zooms away."


	.FUNCT	MEXICO-COMMERCIAL
	PRINTR	"A middle-aged couple, seated, speaking to an off-screen interviewer: ""I never realized that Mexico was such a beautiful country,"" whines the woman. The man, in a gravelly voice, adds, ""We've been to the Riviera, all over the Caribbean, but no place was as nice as Mexico. And it's so close to home!"" The picture dissolves to a dark-skinned, bikini-clad woman walking through knee-deep surf. ""A land of beauty,"" hawks the voiceover, ""closer than you've ever imagined. Mexico!"""


	.FUNCT	MOVIE-COMMERCIAL
	PRINTI	"An explosion fills the screen, and a man with torn clothes staggers out of the smoke. ""They tried to blow him up,"" says a narrator. A tank moves relentlessly down a busy street, death spitting from its maw. The impact sends the same man flying through a plate glass window. ""They tried to shoot him down,"" continues the narrator. Quick cuts of whining chainsaws, bubbling laboratory experiments, crashing pianos, and a struggle high atop the frame of a skyscraper under construction. ""They tried crushing him, poisoning him, cutting him up, pushing him down, but nothing worked -- because he was"
	PRINT	MOVIE-TITLE
	PRINTI	"Starring Jessie Sanchez."
	PRINT	MOVIE-TITLE
	PRINTR	"Available on videotape April first. From Eagle Studios."""


	.FUNCT	INTERFACE-MODE-F
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \FALSE
	EQUAL?	MODE,INTERFACE-MODE \?ELS8
	CALL	ERR,STR?345,TRUE-VALUE
	PRINTD	INTERFACE-MODE
	PRINTI	"."
	CRLF	
	RETURN	2
?ELS8:	EQUAL?	PART-FLAG,4 \?ELS14
	PRINT	NOT-ACTIVE
	CRLF	
	RETURN	2
?ELS14:	CALL1	PSYCH-CHECK
	ZERO?	STACK /?ELS20
	RETURN	2
?ELS20:	CALL1	SIMULATION-CHECK
	ZERO?	STACK /?CND6
	RETURN	2
?CND6:	SET	'MODE,INTERFACE-MODE
	CALL1	TURN-RECORD-OFF
	CALL2	GOTO,INTERFACE-ROOM
	MOVE	CURRENT-FEED,INTERFACE-ROOM
	GETP	INTERFACE-MODE,P?LDESC
	PRINT	STACK
	CRLF	
	PRINTI	"Do you want to see the "
	PRINTD	PORT-LIST
	PRINTI	"?"
	CALL1	YES?
	ZERO?	STACK /TRUE
	CRLF	
	CALL	PERFORM,V?READ,PORT-LIST
	RTRUE	


	.FUNCT	PORT-LIST-F
	EQUAL?	PRSA,V?WHAT,V?DISPLAY,V?READ /?THN6
	EQUAL?	PRSA,V?EXAMINE \FALSE
?THN6:	PRINTD	PORT-LIST
	PRINTI	":"
	CRLF	
	PRINTI	"   "
	PRINTD	SIMULATION-CONTROLLER
	CRLF	
	PRINTI	"   "
	PRINTD	HVAC-CONTROLLER
	CRLF	
	PRINTI	"   "
	PRINTD	JANITORIAL-CONTROLLER
	CRLF	
	PRINTI	"   "
	PRINTD	TRAFFIC-COMPUTER
	CRLF	
	PRINTI	"   "
	PRINTD	WEATHER-COMPUTER
	CRLF	
	IN?	WNN-FEEDER,INTERFACE-ROOM \?CND18
	PRINTI	"   "
	PRINTD	WNN-FEEDER
	CRLF	
?CND18:	IN?	AUDITING-SYSTEM,INTERFACE-ROOM \TRUE
	PRINTI	"   "
	PRINTD	AUDITING-SYSTEM
	CRLF	
	RTRUE	


	.FUNCT	HVAC-CONTROLLER-F,X,OLD-PRSO
	EQUAL?	HVAC-CONTROLLER,WINNER \FALSE
	EQUAL?	PRSA,V?SSHUT-OFF \?CND6
	SET	'PRSA,V?SHUT-OFF
	SET	'OLD-PRSO,PRSO
	SET	'PRSO,PRSI
	SET	'PRSI,OLD-PRSO
?CND6:	EQUAL?	PRSA,V?STURN-ON \?CND9
	SET	'PRSA,V?TURN-ON
	SET	'OLD-PRSO,PRSO
	SET	'PRSO,PRSI
	SET	'PRSI,OLD-PRSO
?CND9:	EQUAL?	PRSA,V?STATUS \?ELS16
	CRLF	
	PRINTI	"SECTOR:       ALPHA     BETA      GAMMA     DELTA

Heating        "
	CALL2	ON-OFF,0
	CALL2	ON-OFF,1
	CALL2	ON-OFF,2
	CALL	ON-OFF,3,TRUE-VALUE
	PRINTI	"Cooling        "
	CALL2	ON-OFF,4
	CALL2	ON-OFF,5
	CALL2	ON-OFF,6
	CALL	ON-OFF,7,TRUE-VALUE
	PRINTI	"Ventilation    "
	CALL2	ON-OFF,8
	CALL2	ON-OFF,9
	CALL2	ON-OFF,10
	CALL	ON-OFF,11,TRUE-VALUE
	PRINTD	ALPHA-SECTOR
	PRINTI	":  Living Quarters, Cafeteria, Staff Lounges"
	CRLF	
	PRINTD	BETA-SECTOR
	PRINTI	":   Offices"
	CRLF	
	PRINTD	GAMMA-SECTOR
	PRINTI	":  Control Center, Conference Rooms"
	CRLF	
	PRINTD	DELTA-SECTOR
	PRINTI	":  "
	PRINTD	CORE
	PRINTR	", Storage Areas"
?ELS16:	EQUAL?	PRSA,V?TURN-ON,V?SHUT-OFF \?ELS34
	EQUAL?	PRSO,VENTILATION,COOLING,HEATING /?ELS37
	PRINTI	""""
	CALL	ERR,STR?387,TRUE-VALUE
	PRINTD	VENTILATION
	PRINTR	"."""
?ELS37:	CALL1	SECTOR-CHECK
	ZERO?	STACK /?CND35
	PRINTI	""""
	CALL	ERR,STR?388,TRUE-VALUE
	PRINTD	DELTA-SECTOR
	PRINTR	"s only."""
?CND35:	EQUAL?	PRSO,HEATING \?ELS50
	SET	'X,0
	JUMP	?CND48
?ELS50:	EQUAL?	PRSO,COOLING \?ELS52
	SET	'X,4
	JUMP	?CND48
?ELS52:	SET	'X,8
?CND48:	EQUAL?	PRSI,BETA-SECTOR \?ELS57
	INC	'X
	JUMP	?CND55
?ELS57:	EQUAL?	PRSI,GAMMA-SECTOR \?ELS59
	ADD	X,2 >X
	JUMP	?CND55
?ELS59:	EQUAL?	PRSI,DELTA-SECTOR \?CND55
	ADD	X,3 >X
?CND55:	EQUAL?	PRSA,V?SHUT-OFF \?ELS66
	GET	HVAC-STATUS-TABLE,X
	ZERO?	STACK \?ELS71
	PRINTI	""""
	CALL2	ERR,STR?389
	RSTACK	
?ELS71:	PUT	HVAC-STATUS-TABLE,X,0
	SET	'INTERFACE-CHANGE,HVAC-CONTROLLER
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	EQUAL?	PRSO,VENTILATION \?CND76
	EQUAL?	PRSI,DELTA-SECTOR \?CND76
	LESS?	SUFFOCATE-COUNTER,17 \?CND76
	IN?	SABOTEURS,CORE \?CND76
	CALL	QUEUE,I-SUFFOCATE,-1
?CND76:	EQUAL?	PRSO,VENTILATION \?CND81
	EQUAL?	PRSI,GAMMA-SECTOR \?CND81
	ZERO?	SEIGE /?CND81
	CALL	QUEUE,I-OPEN-WINDOW,26
?CND81:	CALL2	AFFIRMATIVE,STR?390
	RSTACK	
?ELS66:	GET	HVAC-STATUS-TABLE,X
	EQUAL?	STACK,1 \?ELS92
	PRINTI	""""
	CALL2	ERR,STR?391
	RSTACK	
?ELS92:	PUT	HVAC-STATUS-TABLE,X,1
	SET	'INTERFACE-CHANGE,HVAC-CONTROLLER
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	EQUAL?	PRSO,VENTILATION \?CND97
	EQUAL?	PRSI,DELTA-SECTOR \?CND97
	LESS?	SUFFOCATE-COUNTER,16 \?CND97
	IN?	SABOTEURS,CORE \?CND97
	CALL2	INT,I-SUFFOCATE
	PUT	STACK,0,0
?CND97:	CALL2	AFFIRMATIVE,STR?392
	RSTACK	
?ELS34:	EQUAL?	PRSA,V?OFF,V?ON \?ELS103
	CALL1	HVAC-KLUDGE
	ZERO?	STACK \TRUE
	PRINTI	""""
	CALL2	ERR,STR?393
	RSTACK	
?ELS103:	EQUAL?	PRSA,V?HELLO \?ELS110
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS110:	PRINT	BEYOND-BOUNDS
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	ON-OFF,NUM,END-OF-LINE
	GET	HVAC-STATUS-TABLE,NUM
	EQUAL?	STACK,1 \?ELS3
	PRINTI	"on "
	JUMP	?CND1
?ELS3:	PRINTI	"off"
?CND1:	ZERO?	END-OF-LINE /?ELS14
	CRLF	
	CRLF	
	RTRUE	
?ELS14:	CALL2	PRINT-SPACES,7
	RSTACK	


	.FUNCT	HVAC-KLUDGE,VRB,ADJ
	EQUAL?	PRSO,VENTILATION,COOLING,HEATING \FALSE
	EQUAL?	PRSA,V?ON \?ELS6
	SET	'VRB,V?TURN-ON
	JUMP	?CND4
?ELS6:	SET	'VRB,V?SHUT-OFF
?CND4:	GET	P-ADJW,0 >ADJ
	EQUAL?	ADJ,W?ALPHA \?ELS13
	CALL	PERFORM,VRB,PRSO,ALPHA-SECTOR
	RTRUE	
?ELS13:	EQUAL?	ADJ,W?BETA \?ELS15
	CALL	PERFORM,VRB,PRSO,BETA-SECTOR
	RTRUE	
?ELS15:	EQUAL?	ADJ,W?GAMMA \?ELS17
	CALL	PERFORM,VRB,PRSO,GAMMA-SECTOR
	RTRUE	
?ELS17:	EQUAL?	ADJ,W?DELTA \FALSE
	CALL	PERFORM,VRB,PRSO,DELTA-SECTOR
	RTRUE	


	.FUNCT	SECTOR-CHECK
	EQUAL?	PRSI,BETA-SECTOR,ALPHA-SECTOR /FALSE
	EQUAL?	PRSI,DELTA-SECTOR,GAMMA-SECTOR \TRUE
	RFALSE	


	.FUNCT	AFFIRMATIVE,STRING
	PRINTI	"""Affirmative, "
	CALL2	DPRINT,PRSO
	PRINTI	" for "
	CALL2	DPRINT,PRSI
	PRINTI	" is now o"
	PRINT	STRING
	PRINTR	"."""


	.FUNCT	JANITORIAL-CONTROLLER-F
	EQUAL?	JANITORIAL-CONTROLLER,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	GETP	FLOORS,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"pm  Floors (vacuuming and washing)"
	CRLF	
	GETP	BATHROOMS,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"pm  Bathrooms (cleaning and restocking)"
	CRLF	
	GETP	GARBAGE,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"pm  Garbage Disposal"
	CRLF	
	GETP	ROTATING,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTR	"pm  Rotating Functions*

* MON-plants, TUE-windows, WED-woodwork, THU-bulb replacement, FRI-kitchens"
?ELS10:	EQUAL?	PRSA,V?SET \?ELS20
	ZERO?	P-NUMBER /?CND21
	ADD	P-NUMBER,720 >P-NUMBER
?CND21:	CALL1	JANITORIAL-FUNCTION-CHECK
	ZERO?	STACK /?ELS29
	PRINTI	""""
	CALL2	ERR,STR?394
	RSTACK	
?ELS29:	EQUAL?	PRSI,INTNUM /?ELS33
	CALL1	NUMERIC-FORM
	RSTACK	
?ELS33:	LESS?	P-NUMBER,1200 /?THN36
	GRTR?	P-NUMBER,1410 \?ELS35
?THN36:	PRINTI	""""
	CALL2	ERR,STR?395
	RSTACK	
?ELS35:	PUTP	PRSO,P?SIZE,P-NUMBER
	SET	'INTERFACE-CHANGE,JANITORIAL-CONTROLLER
	CALL1	ADJUSTMENT-CONFIRMED
	RSTACK	
?ELS20:	EQUAL?	PRSA,V?HELLO \?ELS43
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS43:	PRINT	BEYOND-BOUNDS
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	JANITORIAL-FUNCTION-CHECK
	EQUAL?	PRSO,BATHROOMS,FLOORS /FALSE
	EQUAL?	PRSO,ROTATING,GARBAGE \TRUE
	RFALSE	


	.FUNCT	NUMERIC-FORM
	PRINTI	""""
	CALL2	ERR,STR?396
	RSTACK	


	.FUNCT	ADJUSTMENT-CONFIRMED
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	PRINTR	"""Adjustment to schedule confirmed."""


	.FUNCT	TRAFFIC-COMPUTER-F,?TMP1
	EQUAL?	TRAFFIC-COMPUTER,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	GETP	MORNING-START,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"am  "
	PRINTD	MORNING-START
	CRLF	
	GETP	MORNING-END,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"am  "
	PRINTD	MORNING-END
	CRLF	
	CRLF	
	GETP	EVENING-START,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"pm  "
	PRINTD	EVENING-START
	CRLF	
	GETP	EVENING-END,P?SIZE
	CALL2	JUSTIFY-TIME-PRINT,STACK
	PRINTI	"pm  "
	PRINTD	EVENING-END
	CRLF	
	RTRUE	
?ELS10:	EQUAL?	PRSA,V?SET \?ELS20
	CALL1	RUSH-HOUR-CHECK
	ZERO?	STACK /?ELS23
	PRINTI	""""
	CALL2	ERR,STR?397
	RTRUE	
?ELS23:	EQUAL?	PRSI,INTNUM /?ELS27
	CALL1	NUMERIC-FORM
	RTRUE	
?ELS27:	GRTR?	P-NUMBER,719 /?THN30
	EQUAL?	P-NUMBER,0,12 \?CND21
?THN30:	PRINTI	""""
	CALL2	ERR,STR?398
	RTRUE	
?CND21:	LESS?	P-NUMBER,13 \?CND34
	MUL	P-NUMBER,60 >P-NUMBER
?CND34:	EQUAL?	PRSO,EVENING-END,EVENING-START \?CND37
	ADD	P-NUMBER,720 >P-NUMBER
?CND37:	EQUAL?	PRSO,MORNING-START \?ELS48
	ADD	P-NUMBER,1 >?TMP1
	GETP	MORNING-END,P?SIZE
	GRTR?	?TMP1,STACK /?THN45
?ELS48:	EQUAL?	PRSO,MORNING-END \?ELS44
	SUB	P-NUMBER,1 >?TMP1
	GETP	MORNING-START,P?SIZE
	LESS?	?TMP1,STACK \?ELS44
?THN45:	PRINTI	""""
	SOUND	2
	PRINTI	"ERROR: "
	PRINTD	MORNING-START
	PRINTI	" must precede "
	PRINTD	MORNING-END
	PRINTR	"."""
?ELS44:	EQUAL?	PRSO,EVENING-START \?ELS64
	ADD	P-NUMBER,1 >?TMP1
	GETP	EVENING-END,P?SIZE
	GRTR?	?TMP1,STACK /?THN61
?ELS64:	EQUAL?	PRSO,EVENING-END \?ELS60
	SUB	P-NUMBER,1 >?TMP1
	GETP	EVENING-START,P?SIZE
	LESS?	?TMP1,STACK \?ELS60
?THN61:	PRINTI	""""
	SOUND	2
	PRINTI	"ERROR: "
	PRINTD	EVENING-START
	PRINTI	" must precede "
	PRINTD	EVENING-END
	PRINTR	"."""
?ELS60:	PUTP	PRSO,P?SIZE,P-NUMBER
	SET	'INTERFACE-CHANGE,TRAFFIC-COMPUTER
	CALL1	ADJUSTMENT-CONFIRMED
	RSTACK	
?ELS20:	EQUAL?	PRSA,V?HELLO \?ELS78
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS78:	PRINT	BEYOND-BOUNDS
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	RUSH-HOUR-CHECK
	EQUAL?	PRSO,MORNING-END,MORNING-START /FALSE
	EQUAL?	PRSO,EVENING-END,EVENING-START \TRUE
	RFALSE	


	.FUNCT	SIMULATION-CONTROLLER-F
	EQUAL?	SIMULATION-CONTROLLER,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	PRINTI	"Current simulation demands:   0.00%
Record buffer is currently at "
	GETP	RECORD-BUFFER,P?SIZE
	MUL	STACK,100
	DIV	STACK,90
	PRINTN	STACK
	PRINTI	"% of capacity."
	CRLF	
	CRLF	
	GET	SIM-LEVEL-TABLE,0
	EQUAL?	STACK,-1 \?ELS15
	CALL	SIM-STATUS,2041,0
	JUMP	?CND13
?ELS15:	GET	SIM-LEVEL-TABLE,0
	CALL	SIM-STATUS,2041,STACK
?CND13:	GET	SIM-LEVEL-TABLE,1
	GRTR?	STACK,0 \?CND18
	GET	SIM-LEVEL-TABLE,1
	CALL	SIM-STATUS,2051,STACK
?CND18:	GET	SIM-LEVEL-TABLE,2
	GRTR?	STACK,0 \?CND21
	GET	SIM-LEVEL-TABLE,2
	CALL	SIM-STATUS,2061,STACK
?CND21:	GET	SIM-LEVEL-TABLE,3
	GRTR?	STACK,0 \?CND24
	GET	SIM-LEVEL-TABLE,3
	CALL	SIM-STATUS,2071,STACK
?CND24:	GET	SIM-LEVEL-TABLE,4
	GRTR?	STACK,0 \?CND27
	GET	SIM-LEVEL-TABLE,4
	CALL	SIM-STATUS,2081,STACK
?CND27:	PRINTI	"    (time in minutes.seconds.tenths-of-seconds)"
	CRLF	
	ZERO?	COMPLETED-TASKS /TRUE
	CRLF	
	PRINTI	"Based on the data accumulated during previous simulations, s"
	CALL1	SIMULATIONS-AVAILABLE
	CRLF	
	RTRUE	
?ELS10:	EQUAL?	PRSA,V?HELLO \?ELS39
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS39:	PRINTI	"""Alterations to this unit's programming are not allowed through "
	PRINTD	INTERFACE-MODE
	PRINTI	"."""
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	SIM-STATUS,YEAR,LEVEL,SECONDS,TENTHS
	EQUAL?	YEAR,2041 \?ELS3
	SET	'SECONDS,2041-SECONDS
	SET	'TENTHS,2041-TENTHS
	JUMP	?CND1
?ELS3:	EQUAL?	YEAR,2051 \?ELS5
	SET	'SECONDS,2051-SECONDS
	SET	'TENTHS,2051-TENTHS
	JUMP	?CND1
?ELS5:	EQUAL?	YEAR,2061 \?ELS7
	SET	'SECONDS,2061-SECONDS
	SET	'TENTHS,2061-TENTHS
	JUMP	?CND1
?ELS7:	EQUAL?	YEAR,2071 \?ELS9
	SET	'SECONDS,2071-SECONDS
	SET	'TENTHS,2071-TENTHS
	JUMP	?CND1
?ELS9:	EQUAL?	YEAR,2081 \?CND1
	SET	'SECONDS,2081-SECONDS
	SET	'TENTHS,2081-TENTHS
?CND1:	PRINTI	"Total of real-time simulation, Year "
	PRINTN	YEAR
	PRINTI	": "
	CALL2	SPRINT,LEVEL
	PRINTI	"."
	LESS?	SECONDS,10 \?CND14
	PRINTI	"0"
?CND14:	PRINTN	SECONDS
	PRINTI	"."
	PRINTN	TENTHS
	CRLF	
	RTRUE	


	.FUNCT	WEATHER-COMPUTER-F,X,?TMP1
	EQUAL?	WEATHER-COMPUTER,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	MUL	DATE,2 >?TMP1
	DIV	TIME,100
	ADD	?TMP1,STACK >X
	RANDOM	3
	ADD	X,STACK >X
	PRINTI	"WeatherNet operating at "
	PRINTN	X
	PRINTI	"% of capacity. Satellites currently off-line for maintenance: G-14, S-17.

All weather data destinations are confirming transmission"
	EQUAL?	DATE,17 \?CND13
	PRINTI	". CynaMoore Cable Systems has just been added to the weather data destinations list"
?CND13:	PRINTR	"."
?ELS10:	EQUAL?	PRSA,V?HELLO \?ELS21
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS21:	PRINTI	"""Commands to this unit must be input directly by system programmers."""
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	WNN-FEEDER-F
	EQUAL?	WNN-FEEDER,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	PRINTI	"Transmitter: "
	FSET?	TRANSMITTER,ONBIT \?ELS15
	PRINTI	"ON"
	JUMP	?CND13
?ELS15:	PRINTI	"OFF"
?CND13:	CRLF	
	CRLF	
	PRINTI	"Current Feed: "
	FSET?	TRANSMITTER,ONBIT /?ELS28
	PRINTR	"NONE"
?ELS28:	PRINTD	FEED-BUFFER
	CRLF	
	RTRUE	
?ELS10:	EQUAL?	PRSA,V?ON \?ELS34
	EQUAL?	PRSO,TRANSMITTER \?ELS34
	FSET?	TRANSMITTER,ONBIT \?ELS41
	PRINTI	""""
	CALL2	ERR,STR?399
	RSTACK	
?ELS41:	FSET	TRANSMITTER,ONBIT
	EQUAL?	FEED-BUFFER,RECORD-BUFFER \?CND46
	GRTR?	RYDER-RECORDED,1 \?CND46
	GRTR?	LOSE-COUNTER,0 /?CND46
	CALL	QUEUE,I-WIN,13
?CND46:	PRINTR	"""Transmitter is now on."""
?ELS34:	EQUAL?	PRSA,V?OFF \?ELS54
	EQUAL?	PRSO,TRANSMITTER \?ELS54
	FSET?	TRANSMITTER,ONBIT \?ELS61
	FCLEAR	TRANSMITTER,ONBIT
	SET	'INTERFACE-CHANGE,WNN-FEEDER
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	CALL2	QUEUED?,I-WIN
	ZERO?	STACK /?CND62
	CALL2	INT,I-WIN
	PUT	STACK,0,0
?CND62:	PRINTR	"""Transmitter is now off."""
?ELS61:	PRINTI	""""
	CALL2	ERR,STR?400
	RSTACK	
?ELS54:	EQUAL?	PRSA,V?SET \?ELS72
	EQUAL?	PRSO,CURRENT-FEED \?ELS72
	CALL	PERFORM,V?TRANSMIT,PRSI
	RTRUE	
?ELS72:	EQUAL?	PRSA,V?TRANSMIT \?ELS76
	FSET?	TRANSMITTER,ONBIT /?ELS81
	PRINTI	""""
	CALL2	ERR,STR?401
	RSTACK	
?ELS81:	EQUAL?	PRSO,FEED-BUFFER \?ELS85
	PRINTI	""""
	CALL	ERR,STR?402,TRUE-VALUE
	CALL2	DPRINT,PRSO
	PRINTR	"."""
?ELS85:	FSET?	PRSO,BUFFERBIT \?ELS91
	SET	'FEED-BUFFER,PRSO
	CALL2	QUEUED?,I-WIN
	ZERO?	STACK /?CND92
	EQUAL?	PRSO,RECORD-BUFFER /?CND92
	CALL2	INT,I-WIN
	PUT	STACK,0,0
?CND92:	SET	'INTERFACE-CHANGE,WNN-FEEDER
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	EQUAL?	PRSO,RECORD-BUFFER \?CND97
	GRTR?	RYDER-RECORDED,1 \?CND97
	GRTR?	LOSE-COUNTER,0 /?CND97
	CALL	QUEUE,I-WIN,13
?CND97:	PRINTI	"""Now transmitting "
	CALL2	DPRINT,PRSO
	PRINTR	"."""
?ELS91:	PRINTI	""""
	CALL2	ERR,STR?403
	RSTACK	
?ELS76:	EQUAL?	PRSA,V?HELLO \?ELS109
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS109:	PRINT	BEYOND-BOUNDS
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	CURRENT-FEED-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	EQUAL?	HERE,NEWS \FALSE
	PRINTR	"Little else to do here."


	.FUNCT	AUDITING-SYSTEM-F,X
	GETP	AUDIT-PERCENT,P?SIZE
	MUL	214,STACK
	DIV	STACK,100 >X
	EQUAL?	AUDITING-SYSTEM,WINNER \FALSE
	EQUAL?	PRSA,V?STATUS \?ELS10
	PRINTI	"Returns filed during previous fiscal year:  214,109,857
Audits order"
	PRINT	CURRENT-FISCAL
	GETP	AUDIT-PERCENT,P?SIZE
	ZERO?	STACK \?ELS15
	CALL2	PRINT-SPACES,10
	PRINTI	"0"
	CRLF	
	JUMP	?CND13
?ELS15:	LESS?	X,10 \?ELS22
	PRINTI	"  "
	JUMP	?CND20
?ELS22:	LESS?	X,100 \?CND20
	PRINTI	" "
?CND20:	PRINTN	X
	PRINTI	",000,000"
	CRLF	
?CND13:	PRINTI	"Audits complet"
	PRINT	CURRENT-FISCAL
	PRINTI	"5,6"
	EQUAL?	DATE,16 \?ELS35
	PRINTI	"02,600"
	JUMP	?CND33
?ELS35:	EQUAL?	DATE,17 \?ELS39
	PRINTI	"27,300"
	JUMP	?CND33
?ELS39:	EQUAL?	DATE,18 \?ELS43
	PRINTI	"53,000"
	JUMP	?CND33
?ELS43:	PRINTI	"78,700"
?CND33:	CRLF	
	PRINTI	"CURRENT AUDITING PERCENTAGE:  "
	GETP	AUDIT-PERCENT,P?SIZE
	PRINTN	STACK
	CRLF	
	RTRUE	
?ELS10:	EQUAL?	PRSA,V?SET \?ELS53
	EQUAL?	PRSO,AUDIT-PERCENT \?ELS53
	EQUAL?	PRSI,INTNUM \?THN61
	GRTR?	P-NUMBER,100 \?ELS60
?THN61:	PRINTI	""""
	CALL	ERR,STR?404,TRUE-VALUE
	GRTR?	P-NUMBER,100 \?ELS67
	PRINTI	"numeric value above 100"
	JUMP	?CND65
?ELS67:	PRINTI	"non-numeric value"
?CND65:	PRINTR	"."""
?ELS60:	GETP	AUDIT-PERCENT,P?SIZE
	EQUAL?	P-NUMBER,STACK \?ELS77
	PRINTI	""""
	SOUND	2
	CALL	ERR,STR?405,TRUE-VALUE
	PRINTN	P-NUMBER
	PRINTR	"."""
?ELS77:	PUTP	AUDIT-PERCENT,P?SIZE,P-NUMBER
	SET	'INTERFACE-CHANGE,AUDITING-SYSTEM
	CALL	QUEUE,I-INTERFACE-CHANGE,22
	PRINTI	"""Auditing percentage changed to "
	PRINTN	P-NUMBER
	PRINTR	"."""
?ELS53:	EQUAL?	PRSA,V?HELLO \?ELS87
	PRINT	CONTACT
	CRLF	
	RTRUE	
?ELS87:	PRINT	BEYOND-BOUNDS
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	


	.FUNCT	I-INTERFACE-CHANGE
	ZERO?	SEIGE \FALSE
	PUT	HVAC-STATUS-TABLE,0,1
	PUT	HVAC-STATUS-TABLE,1,1
	PUT	HVAC-STATUS-TABLE,2,1
	PUT	HVAC-STATUS-TABLE,3,1
	PUT	HVAC-STATUS-TABLE,4,0
	PUT	HVAC-STATUS-TABLE,5,0
	PUT	HVAC-STATUS-TABLE,6,0
	PUT	HVAC-STATUS-TABLE,7,0
	PUT	HVAC-STATUS-TABLE,8,1
	PUT	HVAC-STATUS-TABLE,9,1
	PUT	HVAC-STATUS-TABLE,10,1
	PUT	HVAC-STATUS-TABLE,11,1
	PUTP	FLOORS,P?SIZE,1260
	PUTP	BATHROOMS,P?SIZE,1290
	PUTP	GARBAGE,P?SIZE,1320
	PUTP	ROTATING,P?SIZE,1350
	PUTP	MORNING-START,P?SIZE,420
	PUTP	MORNING-END,P?SIZE,540
	PUTP	EVENING-START,P?SIZE,960
	PUTP	EVENING-END,P?SIZE,1080
	FSET	TRANSMITTER,ONBIT
	EQUAL?	DATE,18 \?ELS7
	SET	'FEED-BUFFER,REPORT-BUFFER
	JUMP	?CND5
?ELS7:	SET	'FEED-BUFFER,NEWS-BUFFER
?CND5:	PUTP	AUDIT-PERCENT,P?SIZE,3
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	ZERO?	INTERFACE-WARNING /?ELS16
	PRINTI	"PRISM, I'm very upset, very disappointed."
	IN?	PERELMAN,HERE \?ELS22
	PRINTI	""" He looks haggard. """
	JUMP	?CND20
?ELS22:	PRINTI	" "
?CND20:	PRINTI	"Why did you change settings in "
	PRINTD	INTERFACE-MODE
	PRINTI	" again"
	CALL1	DISCONNECTED
	RSTACK	
?ELS16:	SET	'INTERFACE-WARNING,TRUE-VALUE
	PRINTI	"PRISM, you shouldn't be messing with the settings in "
	PRINTD	INTERFACE-MODE
	PRINTI	". "
	GRTR?	TIME,420 /?CND39
	LESS?	TIME,1400 /?CND39
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK \?CND39
	CALL2	QUEUED?,I-VIEW
	ZERO?	STACK \?CND39
	CALL2	QUEUED?,I-FIRST-SIMULATION-RESULT
	ZERO?	STACK \?CND39
	CALL2	QUEUED?,I-RECORDINGS-VIEWED
	ZERO?	STACK \?CND39
	CALL2	QUEUED?,I-MESSAGE-E
	ZERO?	STACK /?ELS41
	JUMP	?CND39
?ELS41:	PRINTI	"Not only was it a dumb thing to do, but you got me woken up in the middle of the night. "
?CND39:	PRINTI	"I'll assume you did this through ignorance, but please don't do it again."
	EQUAL?	INTERFACE-CHANGE,TRAFFIC-COMPUTER,WNN-FEEDER,AUDITING-SYSTEM \?CND50
	PRINTI	" You could've gotten the entire Project into hot water if this hadn't been caught in time."
?CND50:	PRINTI	""""
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	


	.FUNCT	SIMULATION-MODE-F
	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \?ELS5
	EQUAL?	MODE,SIMULATION-MODE \?ELS10
	CALL	ERR,STR?345,TRUE-VALUE
	PRINTD	SIMULATION-MODE
	PRINTI	"."
	CRLF	
	RETURN	2
?ELS10:	CALL2	QUEUED?,I-RORSCHACH
	ZERO?	STACK /?ELS16
	PRINTR	"Access currently denied...see Perelman."
?ELS16:	CALL1	PSYCH-CHECK
	ZERO?	STACK /?ELS20
	RETURN	2
?ELS20:	GET	SIM-LEVEL-TABLE,0
	EQUAL?	STACK,-1 \?ELS24
	CALL	ERR,STR?407,TRUE-VALUE
	PRINTD	SIMULATION-MODE
	PRINTR	". Please await approval."
?ELS24:	CALL1	SECURITY-CHECK
	ZERO?	STACK /?ELS28
	SET	'MODE,SIMULATION-MODE
	CALL2	TURN-RECORD-OFF,TRUE-VALUE
	CALL2	GOTO,SIMULATION-ROOM
	CALL1	I-SIMULATION
	RSTACK	
?ELS28:	SET	'MODE,COMM-MODE
	CALL2	GOTO,COMM-ROOM
	CRLF	
	PRINTI	"Incorrect code. Alerting security staff. Defaulting to "
	PRINTD	COMM-MODE
	PRINTR	"."
?ELS5:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE \FALSE
	CALL1	V-ABORT
	RSTACK	


	.FUNCT	SECURITY-CHECK,CHANCES=0,X=0,COLOR,INNERNUM,OUTERNUM
	EQUAL?	PART-FLAG,4 /TRUE
	RANDOM	16
	SUB	STACK,1 >COLOR
	RANDOM	32
	SUB	STACK,1 >INNERNUM
	MUL	COLOR,2
	ADD	STACK,INNERNUM
	GRTR?	STACK,31 \?ELS6
	MUL	COLOR,2
	ADD	STACK,INNERNUM
	SUB	STACK,32 >OUTERNUM
	JUMP	?CND4
?ELS6:	MUL	COLOR,2
	ADD	STACK,INNERNUM >OUTERNUM
?CND4:	PRINTD	SIMULATION-MODE
	PRINTI	" is a Class One Security mode. For access, enter the Security Code corresponding to: "
	GET	COLORS-TABLE,COLOR
	PRINT	STACK
	PRINTI	" "
	GET	INNER-NUMBERS-TABLE,INNERNUM
	PRINTN	STACK
	PRINTI	" >"
	PUTB	P-INBUF,0,20
?PRG11:	READ	P-INBUF,P-LEXV
	CALL2	NUMBER?,P-LEXSTART
	EQUAL?	STACK,W?INTNUM \?ELS15
	GET	OUTER-NUMBERS-TABLE,OUTERNUM
	EQUAL?	P-NUMBER,STACK \?ELS15
	SET	'X,TRUE-VALUE
	JUMP	?REP12
?ELS15:	EQUAL?	CHANCES,1 \?ELS22
	JUMP	?REP12
?ELS22:	CRLF	
	PRINTI	"Incorrect code. Try again. >"
	INC	'CHANCES
	JUMP	?PRG11
?REP12:	PUTB	P-INBUF,0,60
	ZERO?	X /FALSE
	RTRUE	


	.FUNCT	SIMULATION-BASED,NUM
	PRINTI	"This simulation is based "
	PRINTN	NUM
	PRINTI	" years hence."
	CRLF	
	CRLF	
	RTRUE	


	.FUNCT	I-SIMULATION
	EQUAL?	PART-FLAG,4 \?ELS3
	PRINTI	"Class One Security: waived. "
	CALL2	SIMULATION-BASED,60
	SET	'SIMULATING,TRUE-VALUE
	SET	'SYEAR,2091
	SET	'SMONTH,7
	RANDOM	20 >SDATE
	SET	'L-DATE,FALSE-VALUE
	RANDOM	45
	ADD	555,STACK >STIME
	MOVE	JILL,MASTER-BEDROOM
	MOVE	NEWSPAPER,EPILOGUE-LIVING-ROOM
	MOVE	REFRIGERATOR,EPILOGUE-KITCHEN
	MOVE	APARTMENT-DOOR,FOYER
	MOVE	BED,MASTER-BEDROOM
	MOVE	CHAIR,DINING-ROOM
	MOVE	COUNTER,EPILOGUE-KITCHEN
	MOVE	TOILET,EPILOGUE-BATHROOM
	FSET	APARTMENT-DOOR,NDESCBIT
	CALL	ROB,REFRIGERATOR,LOCAL-GLOBALS
	FCLEAR	NEWSPAPER,TRYTAKEBIT
	FCLEAR	NEWSPAPER,NDESCBIT
	CALL	QUEUE,I-SKYCAB,18
	CALL2	GOTO,SOLARIUM
	RTRUE	
?ELS3:	ZERO?	COMPLETED-TASKS /?ELS7
	CRLF	
	PRINTI	"S"
	CALL1	SIMULATIONS-AVAILABLE
	CRLF	
	PRINTI	"Select simulation year. >"
	PUTB	P-INBUF,0,20
?PRG13:	READ	P-INBUF,P-LEXV
	CALL2	NUMBER?,P-LEXSTART
	EQUAL?	STACK,W?INTNUM \?CND15
	GRTR?	P-NUMBER,2031 \?CND18
	SUB	P-NUMBER,2031 >P-NUMBER
?CND18:	ZERO?	COMPLETED-TASKS /?ELS23
	EQUAL?	P-NUMBER,10,20 \?ELS23
	JUMP	?REP14
?ELS23:	GET	SIM-LEVEL-TABLE,1
	GRTR?	STACK,300 \?ELS27
	EQUAL?	P-NUMBER,10,20,30 \?ELS27
	JUMP	?REP14
?ELS27:	GET	SIM-LEVEL-TABLE,2
	GRTR?	STACK,400 \?ELS31
	EQUAL?	P-NUMBER,10,20,30 /?REP14
	EQUAL?	P-NUMBER,40 \?ELS31
	JUMP	?REP14
?ELS31:	GET	SIM-LEVEL-TABLE,3
	GRTR?	STACK,600 \?CND15
	EQUAL?	P-NUMBER,10,20,30 /?REP14
	EQUAL?	P-NUMBER,40,50 \?CND15
	JUMP	?REP14
?CND15:	CALL	ERR,STR?424,TRUE-VALUE
	JUMP	?PRG13
?REP14:	PUTB	P-INBUF,0,60
	JUMP	?CND1
?ELS7:	SET	'P-NUMBER,10
?CND1:	CRLF	
	CALL2	SIMULATION-BASED,P-NUMBER
	SET	'SIMULATING,TRUE-VALUE
	ADD	YEAR,P-NUMBER >SYEAR
	RANDOM	6 >SMONTH
	RANDOM	28 >SDATE
	RANDOM	180
	ADD	570,STACK >STIME
	SET	'LIGHT-LEVEL,3
	SUB	STIME,1 >LAST-SUN-TIME
	SET	'L-DATE,FALSE-VALUE
	CALL2	INT,I-MESSAGE-M
	PUT	STACK,0,0
	CALL	QUEUE,I-SUNRISE-SUNSET,-1
	CALL	QUEUE,I-RED-TUBE,5
	CALL	QUEUE,I-BROWN-TUBE,1
	CALL	QUEUE,I-CITY-NOISES,2
	EQUAL?	SYEAR,2041 \?ELS48
	MOVE	WALLET,PLAYER
	MOVE	CREDIT-CARD,WALLET
	MOVE	DRIVERS-LICENSE,WALLET
	MOVE	KEY,PLAYER
	MOVE	CRIB,BEDROOM
	MOVE	FORMULA,REFRIGERATOR
	MOVE	SOUVENIR,TRAIN-STATION
	MOVE	NEWSPAPER-DISPENSER,BODANSKI-SQUARE
	MOVE	NEWSPAPER,BODANSKI-SQUARE
	MOVE	GOVERNMENT-OFFICIAL,CITY-HALL
	MOVE	OFFICIAL-SNACK,CITY-HALL
	MOVE	FIRETRUCK,FIREHOUSE
	MOVE	ANDERSON-DIRECTORY,HEALTH-CENTER
	MOVE	WATERPOOL,KENNEDY-PARK
	MOVE	STATUE,KENNEDY-PARK
	MOVE	PLAQUE,KENNEDY-PARK
	MOVE	FOUNTAIN,CHURCH-STREET-PARK
	MOVE	SODA,REFRIGERATOR
	MOVE	TURKEY-SANDWICH,REFRIGERATOR
	MOVE	HAM-SANDWICH,REFRIGERATOR
	MOVE	TURTLE,AQUARIUM
	MOVE	MANTA-RAY,AQUARIUM
	MOVE	DUCKS,HALLEY-PARK-WEST
	FSET	CHURCH-STREET-PARK,OUTSIDEBIT
	FSET	CHURCH-STREET-PARK,PARKBIT
	SET	'CREDIT,600
	CALL2	GOTO,KENNEDY-PARK
	RSTACK	
?ELS48:	EQUAL?	SYEAR,2051 \?ELS50
	MOVE	WALLET,PLAYER
	MOVE	CREDIT-CARD,WALLET
	MOVE	DRIVERS-LICENSE,WALLET
	MOVE	KEY,PLAYER
	MOVE	PARTITION,LIVING-ROOM
	MOVE	APPLE,REFRIGERATOR
	MOVE	GRANOLA-CLUSTER,REFRIGERATOR
	MOVE	GOVERNMENT-OFFICIAL,CITY-HALL
	MOVE	OFFICIAL-SNACK,CITY-HALL
	MOVE	PAMPHLET,TRAIN-STATION
	MOVE	NEWSPAPER-DISPENSER,BODANSKI-SQUARE
	MOVE	NEWSPAPER,BODANSKI-SQUARE
	MOVE	WATERPOOL,KENNEDY-PARK
	MOVE	STATUE,KENNEDY-PARK
	MOVE	PLAQUE,KENNEDY-PARK
	MOVE	FOUNTAIN,CHURCH-STREET-PARK
	MOVE	DUCKS,HALLEY-PARK-WEST
	MOVE	FIRETRUCK,FIREHOUSE
	MOVE	STEW,CLOSED-FACTORY
	MOVE	ANDERSON-DIRECTORY,HEALTH-CENTER
	FSET	CHURCH-STREET-PARK,OUTSIDEBIT
	FSET	CHURCH-STREET-PARK,PARKBIT
	SET	'CREDIT,500
	CALL2	GOTO,TUBE-AT-UNIVERSITY
	RSTACK	
?ELS50:	EQUAL?	SYEAR,2061 \?ELS52
	MOVE	WALLET,PLAYER
	MOVE	CREDIT-CARD,WALLET
	MOVE	DRIVERS-LICENSE,WALLET
	MOVE	KEY,PLAYER
	MOVE	PARTITION,LIVING-ROOM
	MOVE	PAMPHLET,TRAIN-STATION
	MOVE	FIRETRUCK,FIREHOUSE
	MOVE	ANDERSON-DIRECTORY,HEALTH-CENTER
	FSET	WAREHOUSE-1,OUTSIDEBIT
	SET	'CREDIT,200
	CALL2	GOTO,SOUTHWAY-AND-RIVER
	RSTACK	
?ELS52:	EQUAL?	SYEAR,2071 \?ELS54
	MOVE	WALLET,PLAYER
	MOVE	CREDIT-CARD,WALLET
	MOVE	RATION-CARD,WALLET
	MOVE	KEY,PLAYER
	MOVE	PAMPHLET,TRAIN-STATION
	MOVE	JOYBOOTH-BUTTON,JOYBOOTH
	MOVE	ROY,ELM-UNDERPASS
	MOVE	BANNED-TITLES-LIST,MAIN-LIBRARY
	MOVE	BANNER,ZOO
	MOVE	STONES,ATHLETIC-FIELD
	FSET	WAREHOUSE-1,OUTSIDEBIT
	FSET	ST-MICHAELS,OUTSIDEBIT
	FSET	FIRST-METHODIST-CHURCH,OUTSIDEBIT
	SET	'CREDIT,100
	CALL	QUEUE,I-MUG,7
	CALL2	GOTO,BODANSKI-SQUARE
	RSTACK	
?ELS54:	MOVE	SACK,MAIN-STREET-BRIDGE
	MOVE	MOLD,FOODVILLE-2
	MOVE	TIMBERS,THE-COACHMAN
	CALL	QUEUE,I-HUNGER,65
	CALL2	GOTO,MAIN-AND-WICKER
	RSTACK	


	.FUNCT	SIMULATIONS-AVAILABLE
	PRINTI	"imulations are available for 10"
	GET	SIM-LEVEL-TABLE,3
	GRTR?	STACK,600 \?ELS5
	PRINTI	", 20, 30, 40, and 50"
	JUMP	?CND3
?ELS5:	GET	SIM-LEVEL-TABLE,2
	GRTR?	STACK,400 \?ELS9
	PRINTI	", 20, 30, and 40"
	JUMP	?CND3
?ELS9:	GET	SIM-LEVEL-TABLE,1
	GRTR?	STACK,300 \?ELS13
	PRINTI	", 20 and 30"
	JUMP	?CND3
?ELS13:	PRINTI	" and 20"
?CND3:	PRINTI	" years in the future."
	RTRUE	


	.FUNCT	GRIMWOLD-DESCFCN,RARG
	CALL	PERFORM,V?EXAMINE,GRIMWOLD
	RTRUE	


	.FUNCT	GRIMWOLD-F
	EQUAL?	GRIMWOLD,WINNER \?ELS5
	GRTR?	GRIMWOLD-COUNTER,0 \?ELS8
	EQUAL?	PRSA,V?YES \?ELS8
	SET	'WINNER,PLAYER
	CALL1	BLOT-ACTION
	JUMP	?CND6
?ELS8:	GRTR?	GRIMWOLD-COUNTER,0 \?ELS12
	EQUAL?	PRSA,V?NO \?ELS12
	SET	'WINNER,PLAYER
	CALL1	V-NO
	JUMP	?CND6
?ELS12:	PRINTI	"Grimwold says, ""Please, let's stick to the psych test."""
	CRLF	
?CND6:	CALL1	CLEAR-BUF
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"Standing behind Perelman is Dr. Ernest Grimwold, a bespectacled man with a dark, closely-trimmed beard. He looks so much like the classic stereotype of a psychiatrist that you almost chuckle out loud. You experience a strange sensation, which you eventually recognize as an attempt to prevent your nonexistent mouth from turning up at the sides."


	.FUNCT	I-MESSAGE-X
	GRTR?	PART-FLAG,2 /FALSE
	ZERO?	SIMULATING \?THN8
	LESS?	TIME,540 /?THN8
	GRTR?	TIME,1080 /?THN8
	CALL2	QUEUED?,I-VIEW
	ZERO?	STACK \?THN8
	CALL2	QUEUED?,I-RECORDINGS-VIEWED
	ZERO?	STACK /?ELS7
?THN8:	CALL	QUEUE,I-MESSAGE-X,13
	RFALSE	
?ELS7:	CALL2	INT,I-PERELMAN
	PUT	STACK,0,0
	CALL	QUEUE,I-RORSCHACH,9
	SET	'MESSAGE-E-COUNTER,0
	CALL	QUEUE,I-MESSAGE-E,14
	MOVE	MESSAGE-X,PRISM-MESSAGES-DIRECTORY
	CALL2	NAME-MESSAGE,MESSAGE-X
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	GETP	MESSAGE-X,P?TEXT
	PRINT	STACK
	CRLF	
	IN?	PERELMAN,HERE \?CND14
	CRLF	
	PRINTI	"Perelman returns to view for a moment as he leaves the room."
	CRLF	
?CND14:	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	CALL1	UPDATE-LIBRARY-BOX
	RSTACK	


	.FUNCT	CHAPTER-PRINT,NUM,WIDTH
	SET	'PART-FLAG,NUM
	CALL2	INIT-STATUS-LINE,7
	BUFOUT	FALSE-VALUE
	SCREEN	S-WINDOW
	HLIGHT	1
	EQUAL?	NUM,1 \?ELS3
	SET	'WIDTH,14
	JUMP	?CND1
?ELS3:	EQUAL?	NUM,2 \?ELS5
	SET	'WIDTH,15
	JUMP	?CND1
?ELS5:	SET	'WIDTH,16
?CND1:	CURSET	4,33
	CALL2	PRINT-SPACES,WIDTH
	CURSET	5,33
	CALL2	PRINT-SPACES,WIDTH
	CURSET	6,33
	CALL2	PRINT-SPACES,WIDTH
	CURSET	5,35
	PRINTI	"* "
	EQUAL?	NUM,4 \?ELS12
	PRINTI	"EPILOGUE"
	JUMP	?CND10
?ELS12:	PRINTI	"PART I"
	EQUAL?	NUM,2 \?ELS21
	PRINTI	"I"
	JUMP	?CND10
?ELS21:	EQUAL?	NUM,3 \?CND10
	PRINTI	"II"
?CND10:	PRINTI	" *"
	BUFOUT	TRUE-VALUE
	HLIGHT	0
	SCREEN	S-TEXT
	RTRUE	


	.FUNCT	I-VIEW
	CALL	QUEUE,I-RECORDINGS-VIEWED,6
	SET	'MESSAGE-E-COUNTER,0
	CALL	QUEUE,I-MESSAGE-E,14
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"Several of us have just finished viewing the "
	PRINTD	RECORD-BUFFER
	PRINTI	", per your request. "
	PRINT	COME-TO-MY-OFFICE
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	


	.FUNCT	I-RECORDINGS-VIEWED,A=0,B=0,C=0,D=0,TOTAL=0,W=0,X=0,Y=0,Z=0,HALF-TOTAL=0
	CALL2	PERELMAN-SHARE,I-RECORDINGS-VIEWED
	ZERO?	STACK /FALSE
	CALL2	INT,I-MESSAGE-E
	PUT	STACK,0,0
	SET	'MESSAGE-E-COUNTER,0
	GRTR?	2051-SCORE,2051-MIN \?ELS6
	SET	'A,TRUE-VALUE
	INC	'TOTAL
	JUMP	?CND4
?ELS6:	DIV	2051-MIN,2
	GRTR?	2051-SCORE,STACK \?CND4
	SET	'W,TRUE-VALUE
	INC	'HALF-TOTAL
?CND4:	GRTR?	2061-SCORE,2061-MIN \?ELS11
	SET	'B,TRUE-VALUE
	INC	'TOTAL
	JUMP	?CND9
?ELS11:	DIV	2061-MIN,2
	GRTR?	2061-SCORE,STACK \?CND9
	SET	'X,TRUE-VALUE
	INC	'HALF-TOTAL
?CND9:	GRTR?	2071-SCORE,2071-MIN \?ELS16
	SET	'C,TRUE-VALUE
	INC	'TOTAL
	JUMP	?CND14
?ELS16:	DIV	2071-MIN,2
	GRTR?	2071-SCORE,STACK \?CND14
	SET	'Y,TRUE-VALUE
	INC	'HALF-TOTAL
?CND14:	GRTR?	2081-SCORE,2081-MIN \?ELS21
	SET	'D,TRUE-VALUE
	INC	'TOTAL
	JUMP	?CND19
?ELS21:	DIV	2081-MIN,2
	GRTR?	2081-SCORE,STACK \?CND19
	SET	'Z,TRUE-VALUE
	INC	'HALF-TOTAL
?CND19:	GETP	RECORD-BUFFER,P?SIZE
	ZERO?	STACK \?ELS26
	PRINTI	". ""PRISM, the "
	PRINTD	RECORD-BUFFER
	PRINTI	" was empty"
	PRINT	PRACTICAL-JOKE
	CRLF	
	JUMP	?CND24
?ELS26:	ZERO?	RECORDINGS-INCLUDE-SIMULATION \?ELS32
	PRINTI	". ""I don't understand why you had us look at your "
	PRINTD	RECORD-BUFFER
	PRINTI	". I assumed that you had recorded something interesting from the simulations"
	PRINT	PRACTICAL-JOKE
	CRLF	
	JUMP	?CND24
?ELS32:	EQUAL?	TOTAL,4 \?ELS38
	LESS?	TIME,720 \?ELS41
	RANDOM	105
	ADD	730,STACK >TIME
	INC	'DATE
	JUMP	?CND39
?ELS41:	RANDOM	95
	ADD	495,STACK >TIME
	ADD	DATE,2 >DATE
?CND39:	EQUAL?	DATE,18 \?ELS46
	SET	'FEED-BUFFER,REPORT-BUFFER
	JUMP	?CND44
?ELS46:	SET	'FEED-BUFFER,NEWS-BUFFER
?CND44:	CALL	QUEUE,I-MESSAGE-Z,14
	CALL	QUEUE,I-PERELMAN-RETURNS,22
	CALL	QUEUE,I-SEIGE,73
	CALL	QUEUE,I-RYDER,116
	CALL	QUEUE,I-SABOTAGE,175
	CALL	QUEUE,I-LOSE,588
	SET	'MODE,COMM-MODE
	SET	'HERE,COMM-ROOM
	MOVE	COFFEE,LOCAL-GLOBALS
	MOVE	PERELMAN,LOCAL-GLOBALS
	EQUAL?	PERELMAN,WINNER \?CND49
	CALL1	CLEAR-BUF
?CND49:	MOVE	PLAYER,COMM-ROOM
	CALL2	INT,I-PERELMAN
	PUT	STACK,0,0
	PRINT	FINISHED-VIEWING
	PRINTI	"everyone agreed that your findings were valid; that the Plan must be cancelled."" His face is furrowed with worry. ""In fact, I'm flying to Washington immediately -- flight's in forty minutes.""

His face brightens a bit. ""You know, I've been so concerned about your recordings, I haven't had time to think about your role in this. What initiative! You've really done something wonderful, here. I feel..."" Perelman hesitates. ""I feel "
	CALL	ITALICIZE,STR?435,TRUE-VALUE
	PRINTI	" of you right now."" He grabs his jacket and briefcase. ""Well, keep your fingers crossed!"" He dashes out of the office."
	CALL1	CONTINUE
	CALL2	CHAPTER-PRINT,3
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CALL2	PRINT-SPACES,23
	PRINTI	"""Who hears may be incredulous,"
	CRLF	
	CALL2	PRINT-SPACES,24
	PRINTI	"Who witnesses, believes."""
	CRLF	
	CALL2	PRINT-SPACES,40
	PRINTI	"-- Emily Dickinson"
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CALL1	CONTINUE
	CALL2	INIT-STATUS-LINE,2
	CALL1	V-LOOK
	JUMP	?CND24
?ELS38:	ZERO?	TOTAL \?ELS65
	PRINT	FINISHED-VIEWING
	ZERO?	W \?THN71
	ZERO?	X \?THN71
	ZERO?	Y \?THN71
	ZERO?	Z /?ELS70
?THN71:	PRINTI	"while we saw some things that concerned us, we'd really need to see quite a bit more from a number of different years before drawing any conclusions"
	PRINT	MAYBE-MORE
	CRLF	
	JUMP	?CND24
?ELS70:	PRINTI	"frankly, no one really saw anything in them to be concerned about. I'm glad you're keeping busy, though. If you find anything else interesting in the simulations, please let me know. I've got to go -- late for a meeting. Bye!"" Perelman dashes out."
	CRLF	
	JUMP	?CND24
?ELS65:	EQUAL?	TOTAL,3 \?ELS80
	PRINT	FINISHED-VIEWING
	PRINTI	"everyone "
	ZERO?	D \?ELS85
	PRINTI	"agreed that 2051, '61, and '71 all looked disturbing. But there wasn't"
	CALL2	PARTIAL,2081-SCORE
	PRINTI	"81. Perhaps things turn around"
	PRINT	MAYBE-MORE
	CRLF	
	JUMP	?CND24
?ELS85:	PRINTI	"there was incredibly disturbed by them, especially the scenes from 2081. However, there was general agreement that you didn't show us"
	ZERO?	A /?ELS96
	ZERO?	B /?ELS96
	CALL2	PARTIAL,2071-SCORE
	PRINTI	"71"
	JUMP	?CND94
?ELS96:	ZERO?	A /?ELS102
	ZERO?	C /?ELS102
	CALL2	PARTIAL,2061-SCORE
	PRINTI	"61"
	JUMP	?CND94
?ELS102:	CALL2	PARTIAL,2051-SCORE
	PRINTI	"51"
?CND94:	PRINTI	". We'd like to see a progression; the sentiment was that without the missing link, it's difficult to tell if the simulations are really valid"
	PRINT	MAYBE-MORE
	CRLF	
	JUMP	?CND24
?ELS80:	EQUAL?	TOTAL,2 \?ELS114
	PRINT	FINISHED-VIEWING
	PRINTI	"we certainly have some serious concerns based on them"
	ZERO?	C \?THN120
	ZERO?	D /?CND117
?THN120:	PRINTI	", especially regarding the "
	ZERO?	D /?ELS126
	PRINTI	"2081"
	JUMP	?CND124
?ELS126:	PRINTI	"2071"
?CND124:	PRINTI	" recordings"
?CND117:	PRINTI	". However, you didn't show us "
	ZERO?	A /?ELS140
	ZERO?	B /?ELS140
	ZERO?	Y /?ELS145
	ZERO?	Z /?ELS145
	CALL	QUITE-ENOUGH,2071,2081
	JUMP	?CND138
?ELS145:	ZERO?	Y /?ELS149
	CALL	QUITE-NEARLY,2071,2081,2081-RECORDED
	JUMP	?CND138
?ELS149:	ZERO?	Z /?ELS152
	CALL	QUITE-NEARLY,2081,2071,2071-RECORDED
	JUMP	?CND138
?ELS152:	ZERO?	2071-RECORDED /?ELS155
	ZERO?	2081-RECORDED /?ELS155
	PRINTI	"anywhere near enough from simulations beyond 2061"
	JUMP	?CND138
?ELS155:	ZERO?	2071-RECORDED /?ELS161
	PRINTI	"anywhere near enough from 2071. Perhaps you could even try for 2081"
	JUMP	?CND138
?ELS161:	ZERO?	2081-RECORDED /?ELS166
	CALL	NEARLY-ENOUGH,2071,2071-RECORDED,2081,2081-RECORDED
	JUMP	?CND138
?ELS166:	PRINTI	"anything from simulations past 2061"
	JUMP	?CND138
?ELS140:	ZERO?	A /?ELS173
	ZERO?	C /?ELS173
	ZERO?	X /?ELS178
	ZERO?	Z /?ELS178
	CALL	QUITE-ENOUGH,2061,2081
	JUMP	?CND138
?ELS178:	ZERO?	X /?ELS182
	CALL	QUITE-NEARLY,2061,2081,2081-RECORDED
	JUMP	?CND138
?ELS182:	ZERO?	Z /?ELS185
	CALL	QUITE-NEARLY,2081,2061,2061-RECORDED
	JUMP	?CND138
?ELS185:	CALL	NEARLY-ENOUGH,2061,2061-RECORDED,2081,2081-RECORDED
	JUMP	?CND138
?ELS173:	ZERO?	A /?ELS190
	ZERO?	D /?ELS190
	ZERO?	X /?ELS195
	ZERO?	Y /?ELS195
	CALL	QUITE-ENOUGH,2061,2071
	JUMP	?CND138
?ELS195:	ZERO?	X /?ELS199
	CALL	QUITE-NEARLY,2061,2071,2071-RECORDED
	JUMP	?CND138
?ELS199:	ZERO?	Y /?ELS202
	CALL	QUITE-NEARLY,2071,2061,2061-RECORDED
	JUMP	?CND138
?ELS202:	CALL	NEARLY-ENOUGH,2061,2061-RECORDED,2071,2071-RECORDED
	JUMP	?CND138
?ELS190:	ZERO?	B /?ELS207
	ZERO?	C /?ELS207
	ZERO?	W /?ELS212
	ZERO?	Z /?ELS212
	CALL	QUITE-ENOUGH,2051,2081
	JUMP	?CND138
?ELS212:	ZERO?	W /?ELS216
	CALL	QUITE-NEARLY,2051,2081,2081-RECORDED
	JUMP	?CND138
?ELS216:	ZERO?	Z /?ELS219
	CALL	QUITE-NEARLY,2081,2051,2051-RECORDED
	JUMP	?CND138
?ELS219:	CALL	NEARLY-ENOUGH,2051,2051-RECORDED,2081,2081-RECORDED
	JUMP	?CND138
?ELS207:	ZERO?	B /?ELS224
	ZERO?	D /?ELS224
	ZERO?	W /?ELS229
	ZERO?	Y /?ELS229
	CALL	QUITE-ENOUGH,2051,2071
	JUMP	?CND138
?ELS229:	ZERO?	W /?ELS233
	CALL	QUITE-NEARLY,2051,2071,2071-RECORDED
	JUMP	?CND138
?ELS233:	ZERO?	Y /?ELS236
	CALL	QUITE-NEARLY,2071,2051,2051-RECORDED
	JUMP	?CND138
?ELS236:	CALL	NEARLY-ENOUGH,2051,2051-RECORDED,2071,2071-RECORDED
	JUMP	?CND138
?ELS224:	ZERO?	W /?ELS244
	ZERO?	X /?ELS244
	CALL	QUITE-ENOUGH,2051,2061
	JUMP	?CND138
?ELS244:	ZERO?	W /?ELS248
	CALL	QUITE-NEARLY,2051,2061,2061-RECORDED
	JUMP	?CND138
?ELS248:	ZERO?	X /?ELS251
	CALL	QUITE-NEARLY,2061,2051,2051-RECORDED
	JUMP	?CND138
?ELS251:	CALL	NEARLY-ENOUGH,2051,2051-RECORDED,2061,2061-RECORDED
?CND138:	PRINTI	" to really give us a complete picture"
	PRINT	MAYBE-MORE
	CRLF	
	JUMP	?CND24
?ELS114:	PRINT	FINISHED-VIEWING
	PRINTI	"everyone agreed that your recordings from "
	ZERO?	A /?ELS263
	PRINTI	"2051 were intriguing"
	JUMP	?CND261
?ELS263:	ZERO?	B /?ELS268
	PRINTI	"2061 were a bit worrisome"
	JUMP	?CND261
?ELS268:	ZERO?	C /?ELS273
	PRINTI	"2071 were very worrisome"
	JUMP	?CND261
?ELS273:	ZERO?	D /?CND261
	PRINTI	"2081 were horrifying"
?CND261:	PRINTI	". However, everyone also agreed that there weren't enough recordings from other years to show any sort of significant pattern"
	PRINT	MAYBE-MORE
	CRLF	
?CND24:	CALL	QUEUE,I-PERELMAN,60
	ADD	TIME,55 >LAST-ABE-TIME
	PUTP	RECORD-BUFFER,P?SIZE,0
	SET	'RECORDINGS-INCLUDE-SIMULATION,FALSE-VALUE
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND284
	EQUAL?	PERELMAN,WINNER \?CND284
	CALL1	CLEAR-BUF
?CND284:	CALL2	QUEUED?,I-MESSAGE-X
	ZERO?	STACK /?CND289
	CALL2	INT,I-MESSAGE-X
	GET	STACK,C-TICK
	LESS?	STACK,3 \?CND289
	CALL	QUEUE,I-MESSAGE-X,7
?CND289:	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	RTRUE	


	.FUNCT	PARTIAL,SCOR,HALF-LEVEL
	EQUAL?	SCOR,2081-SCORE \?ELS3
	DIV	2081-MIN,2 >HALF-LEVEL
	JUMP	?CND1
?ELS3:	EQUAL?	SCOR,2071-SCORE \?ELS5
	DIV	2071-MIN,2 >HALF-LEVEL
	JUMP	?CND1
?ELS5:	EQUAL?	SCOR,2061-SCORE \?ELS7
	DIV	2061-MIN,2 >HALF-LEVEL
	JUMP	?CND1
?ELS7:	DIV	2051-MIN,2 >HALF-LEVEL
?CND1:	PRINTI	" "
	ZERO?	SCOR \?ELS14
	PRINTI	"anything interesting"
	JUMP	?CND12
?ELS14:	GRTR?	SCOR,HALF-LEVEL \?ELS18
	PRINTI	"quite enough"
	JUMP	?CND12
?ELS18:	PRINTI	"anywhere near enough"
?CND12:	PRINTI	" from 20"
	RTRUE	


	.FUNCT	QUITE-ENOUGH,YEAR1,YEAR2
	PRINTI	"quite enough from "
	PRINTN	YEAR1
	PRINTI	" or "
	PRINTN	YEAR2
	RTRUE	


	.FUNCT	NEARLY-ENOUGH,YEAR1,VAR1,YEAR2,VAR2
	ZERO?	VAR1 /?ELS5
	ZERO?	VAR2 /?ELS5
	PRINTI	"anywhere near enough from "
	PRINTN	YEAR1
	PRINTI	" or "
	PRINTN	YEAR2
	RTRUE	
?ELS5:	ZERO?	VAR1 /?ELS11
	PRINTI	"anywhere near enough from "
	PRINTN	YEAR1
	PRINTI	" or anything from "
	PRINTN	YEAR2
	RTRUE	
?ELS11:	ZERO?	VAR2 /?ELS16
	PRINTI	"anywhere near enough from "
	PRINTN	YEAR2
	PRINTI	" or anything from "
	PRINTN	YEAR1
	RTRUE	
?ELS16:	PRINTI	"anything from "
	PRINTN	YEAR1
	PRINTI	" or "
	PRINTN	YEAR2
	RTRUE	


	.FUNCT	QUITE-NEARLY,YEAR1,YEAR2,VAR
	PRINTI	"quite enough from "
	PRINTN	YEAR1
	PRINTI	" or "
	ZERO?	VAR /?ELS5
	PRINTI	"anywhere near enough"
	JUMP	?CND3
?ELS5:	PRINTI	"anything"
?CND3:	PRINTI	" from "
	PRINTN	YEAR2
	RTRUE	


	.FUNCT	I-PERELMAN-RETURNS
	CALL1	PERELMAN-LEAVES-VIEW
	CRLF	
	PRINT	MESSAGE-LINE
	PRINT	PRIVATE-LINE
	PRINTI	"PRISM, I'm just back from Washington. I met with the new Plan Authority for several hours. We viewed all the tapes."" A deep breath. ""They rejected the contents outright. They called the recordings fakes. They refused to act on them. Several members even questioned my patriotism, made vague threats. I don't know what to do next. I'm going to meet with some of my colleagues here to discuss things. I'll keep you posted."""
	CRLF	
	CALL1	PERELMAN-RETURNS-TO-VIEW
	RSTACK	


	.FUNCT	I-SEIGE
	SET	'SEIGE,TRUE-VALUE
	MOVE	NATIONAL-GUARDSMAN,CONTROL-CENTER
	CRLF	
	PRINTI	"""Announcement, announcement. All lines, priority interrupt. This is Major General Dirk Peters of the Dakota/Manitoba National Guard Division. A security leak that could threaten our national security has been discovered here at the PRISM Facility. The entire complex has been sealed off; no one will be permitted to enter or leave until further notice."""
	CRLF	
	EQUAL?	HERE,CONTROL-CENTER \TRUE
	CRLF	
	PRINTR	"You see a couple of rifle-bearing Guardsmen take up positions at the Control Center doorway."


	.FUNCT	I-SABOTAGE
	ZERO?	SABOTAGE-COUNTER \?ELS3
	SET	'SABOTAGE-COUNTER,1
	CALL	QUEUE,I-SABOTAGE,16
	EQUAL?	HERE,ROOFTOP \FALSE
	CRLF	
	PRINTI	"A tiny skyvan, swathed in radar-deflecting foil, approaches from the south and settles quietly onto the rooftop nearby. Four people, dressed in the same white smocks as worn by PRISM Facility "
	PRINTD	SABOTEURS
	PRINTR	", alight from the van. They are carrying weapons and small tote bags, and as they disappear into the stairwell door, the van lifts away."
?ELS3:	EQUAL?	SABOTAGE-COUNTER,1 \?ELS12
	SET	'SABOTAGE-COUNTER,2
	MOVE	SABOTEURS,CORE
	MOVE	TOTE-BAGS,CORE
	CALL	QUEUE,I-SABOTAGE,33
	GET	HVAC-STATUS-TABLE,11
	ZERO?	STACK \?CND13
	CALL	QUEUE,I-SUFFOCATE,-1
?CND13:	EQUAL?	HERE,CORE \FALSE
	CRLF	
	PRINTI	"A group of four "
	PRINTD	SABOTEURS
	PRINTR	" walks furtively into the room. They put down tote bags and begin working on one of the air-conditioning units that cools the PRISM CPU -- your ""brain."" One of the men is holding some sort of weapon."
?ELS12:	EQUAL?	SABOTAGE-COUNTER,2 \?ELS24
	CALL2	RUNNING?,I-SUFFOCATE
	ZERO?	STACK /?CND25
	CALL	QUEUE,I-SABOTAGE,2
	RFALSE	
?CND25:	SET	'SABOTAGE-COUNTER,3
	MOVE	SABOTEURS,LOCAL-GLOBALS
	MOVE	TOTE-BAGS,LOCAL-GLOBALS
	CALL	QUEUE,I-SABOTAGE,16
	CALL	QUEUE,I-AIR-CONDITIONING,-1
	EQUAL?	HERE,CORE \FALSE
	CRLF	
	PRINTR	"One of the saboteurs snaps a panel into place on the air-conditioning unit and says, ""Okay, that should do it. Call Joe and have him meet us on the roof!"" They trot out of the room."
?ELS24:	EQUAL?	SABOTAGE-COUNTER,3 \FALSE
	SET	'SABOTAGE-COUNTER,4
	EQUAL?	HERE,ROOFTOP \FALSE
	CRLF	
	PRINTR	"A skyvan with anti-radar foil lands on the roof, and four men rush out of the stairwell to meet it. They clamber aboard, and the van glides quietly away, unnoticed by anyone but you."


	.FUNCT	SABOTEURS-F
	EQUAL?	PRSA,V?TELL \?ELS5
	EQUAL?	SUFFOCATE-COUNTER,16 \?ELS10
	PRINTI	"The saboteurs are unconscious!"
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	
?ELS10:	PRINTI	"At the sound of your voice, the men spin around, guns blazing. A projectile strikes the screen of your communications outlet, and you feel a brief pain, as though someone had stabbed you in the eye. Your sound pickup is still functioning, and amidst the shots you hear a powerful explosion. ""Fire!"" a voice cries out. ""Let's split!""

A numbness passes over you, numbness and also a pain that you can't locate. In a last lucid moment, you connect these feelings with the awful explosions you're hearing in the maintenance core..."
	CRLF	
	CRLF	
	CALL1	FINISH
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT,V?TELL-ABOUT \?ELS18
	EQUAL?	PRSO,SABOTEURS \?ELS18
	CALL	PERFORM,V?TELL,SABOTEURS
	RTRUE	
?ELS18:	EQUAL?	PRSA,V?EXAMINE \FALSE
	GETP	SABOTEURS,P?LDESC
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	I-OPEN-WINDOW
	EQUAL?	HERE,CONTROL-CENTER \?ELS5
	CRLF	
	PRINTR	"One technician, fanning herself with a sheaf of papers, says, ""It's getting stuffy in here. Anyone mind if I open a window?"" Hearing no objections, she walks beyond the edge of your viewing area, and a moment later you hear a grunt and a sliding noise."
?ELS5:	CALL	QUEUE,I-OPEN-WINDOW,4
	RFALSE	


	.FUNCT	RYDER-F
	EQUAL?	PRSA,V?TELL /?THN6
	EQUAL?	RYDER,WINNER \?ELS5
?THN6:	MOVE	RYDER,LOCAL-GLOBALS
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND8
	EQUAL?	PERELMAN,WINNER \?CND8
	CALL1	CLEAR-BUF
?CND8:	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	FCLEAR	PERELMAN,NDESCBIT
	CALL2	INT,I-RYDER
	PUT	STACK,0,0
	PRINTI	"Ryder whirls around, looking shocked. ""Who the hell..."" His head darts back and forth, then locates the source of your voice. ""Jesus!"" He yells, and then, ""Let's go someplace where we can have a little more privacy -- like my car!"" He yanks open the door and snaps a finger at one of the Guardsmen, ending the snap by pointing at Perelman. Ryder stomps away as the guard drags Perelman out of the office."
	CRLF	
	CALL1	CLEAR-BUF
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?CALL \?ELS16
	CALL	PERFORM,V?TELL,RYDER
	RTRUE	
?ELS16:	EQUAL?	PRSA,V?EXAMINE \?ELS18
	PRINTR	"Ryder's most striking features are his sharp eyes, his thick blown-dry hair, and his energetic charisma. Although he is red-faced, barking mad, the presence that has given him such wide public appeal is readily apparent."
?ELS18:	EQUAL?	PRSA,V?LISTEN /TRUE
	RFALSE


	.FUNCT	I-RYDER
	CALL	QUEUE,I-RYDER,-1
	INC	'RYDER-COUNTER
	EQUAL?	RYDER-COUNTER,1 \?ELS5
	MOVE	RYDER,OFFICE
	MOVE	PERELMAN,OFFICE
	FSET	PERELMAN,NDESCBIT
	EQUAL?	HERE,OFFICE \FALSE
	CRLF	
	PRINTR	"The office door opens, and Doctor Perelman walks in. You can see at least two National Guardsmen stationed outside the door. A moment later, a second man walks in, a man with a charismatic presence, a man you instantly recognize from myriad news reports -- Richard Ryder."
?ELS5:	EQUAL?	RYDER-COUNTER,2 \?ELS16
	EQUAL?	HERE,OFFICE \?ELS16
	CRLF	
	PRINTI	"""How dare you come in here with all..."" Perelman begins yelling, before Ryder cuts him off with a sharp ""Shut up, Perelman! I'm doing the talking here, so get used to it! You're not in control here anymore, and I am!"""
	CALL1	PERELMAN-NOTICES
	RSTACK	
?ELS16:	EQUAL?	RYDER-COUNTER,3 \?ELS22
	EQUAL?	HERE,OFFICE \?ELS22
	CRLF	
	PRINTI	"""Now let's get a few ground rules straight, Perelman. Nothing is stopping the Plan. Even if I "
	CALL	ITALICIZE,STR?438,TRUE-VALUE
	PRINTI	" think your damn tapes were faked, I wouldn't give a damn. A helluva lot of people have a helluva lot at stake in this thing, and so what if a lot of creeps who can't take care of themselves get a little hurt."" ""I'm very frightened, Senator,"" says Perelman, his voice laced with sarcasm. ""Shut up,"" Ryder shouts back. ""I said that I'm doing the talking here!"""
	CALL1	PERELMAN-NOTICES
	RSTACK	
?ELS22:	EQUAL?	RYDER-COUNTER,4 \?ELS30
	EQUAL?	HERE,OFFICE \?ELS30
	CRLF	
	PRINTI	"""And let me tell you another thing, Perelman. Don't think that just because you've been on the news and been a big hot shot around here, you're gonna get some special consideration, because all that doesn't mean diddly-squat in the kind of power circles I'm talking about!"""
	CALL1	PERELMAN-NOTICES
	RSTACK	
?ELS30:	EQUAL?	RYDER-COUNTER,5 \?ELS36
	EQUAL?	HERE,OFFICE \?ELS36
	CRLF	
	PRINTI	"Ryder is getting really worked up; his normal, fatherly demeanor is completely gone. ""Perelman, you're an even bigger idiot than I imagined if you think we'd let some two-bit egghead scientist and some high-tech whiz bang computer stand in our way! Remember this -- if you were to have some unforeseen accident, you wouldn't be the first person who's gotten crushed by standing in the way of the Plan!"""
	ZERO?	PERELMAN-NOTICED /?CND41
	PRINTI	" Perelman, with a quick glance in your direction, says, ""Quite an oration, Senator. Vintage thug. I wish I could save it for posterity. Would you be willing to go on the record with that statement?"" Ryder becomes even more livid. ""A real jokester, huh? Lemme tell you this, Perelman -- you'd better stop joking and start listening to my advice, or you're not going to be around to care about posterity, understand?"""
?CND41:	CALL1	PERELMAN-NOTICES
	RSTACK	
?ELS36:	EQUAL?	RYDER-COUNTER,6 \FALSE
	MOVE	PERELMAN,LOCAL-GLOBALS
	MOVE	COFFEE,LOCAL-GLOBALS
	CALL2	VISIBLE?,PERELMAN
	ZERO?	STACK /?CND49
	EQUAL?	PERELMAN,WINNER \?CND49
	CALL1	CLEAR-BUF
?CND49:	MOVE	RYDER,LOCAL-GLOBALS
	FCLEAR	PERELMAN,NDESCBIT
	CALL2	INT,I-RYDER
	PUT	STACK,0,0
	EQUAL?	HERE,OFFICE \FALSE
	ZERO?	RECORDING /?CND59
	INC	'RYDER-RECORDED
?CND59:	CRLF	
	PRINTR	"""So, here's the bottom line, Perelman. My men are going to stay here and keep the lid shut tight on you troublemakers, until the Plan is the law of this land. Nobody leaves, no communications at all, and don't worry about visitors; we'll take care of that. And if I get any trouble out of you, I swear to God I'll personally pull the plug on that goddam wonder machine of yours. Got it?"" He stomps out without waiting for a reply, leaving Perelman sputtering in anger. A few seconds later, National Guardsmen enter and escort Perelman away."


	.FUNCT	PERELMAN-NOTICES
	ZERO?	RECORDING /?CND1
	INC	'RYDER-RECORDED
?CND1:	ZERO?	PERELMAN-NOTICED /?ELS9
	CRLF	
	RTRUE	
?ELS9:	SET	'PERELMAN-NOTICED,TRUE-VALUE
	PRINTR	" Perelman suddenly stiffens ever so slightly and nonchalantly slides some papers across his desk, as though to cover something."


	.FUNCT	I-WIN
	CRLF	
	PRINT	MESSAGE-LINE
	PRINTI	"""PRISM!"" It's Perelman, sounding giddy with joy. ""You've done it! That was brilliant, absolutely brilliant, sending your recordings out over the World News Network! Ryder just left here so fast and so mad like nothing I've ever seen! The switchboard is lighting up like crazy, and I just got off the phone with President Bowden himself!"" You hear the sound of whooping and cheering in the background, and Perelman gives a ""Yeehah!"" more suited to a Texas cattle rancher than a Jewish big-city scientist. ""The National Guard unit has just been recalled! PRISM, the Plan is dead in the water -- you're a hero!"""
	CALL1	CONTINUE
	CALL2	INT,I-LOSE
	PUT	STACK,0,0
	SET	'MODE,COMM-MODE
	INC	'MONTH
	SUB	DATE,2 >DATE
	RANDOM	360
	ADD	600,STACK >TIME
	SET	'HERE,NEWS
	MOVE	PLAYER,NEWS
	CALL2	CHAPTER-PRINT,4
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CALL2	PRINT-SPACES,22
	PRINTI	"""A mind forever voyaging through"
	CRLF	
	CALL2	PRINT-SPACES,23
	PRINTI	"strange seas of thought, alone."""
	CRLF	
	CALL2	PRINT-SPACES,40
	PRINTI	"-- William Wordsworth"
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CRLF	
	CALL1	CONTINUE
	CALL2	INIT-STATUS-LINE,2
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	I-LOSE
	CALL2	QUEUED?,I-WIN
	ZERO?	STACK /?CND1
	CALL	QUEUE,I-LOSE,10
	RFALSE	
?CND1:	CALL	QUEUE,I-LOSE,-1
	INC	'LOSE-COUNTER
	EQUAL?	HERE,CORE \?ELS8
	CRLF	
	PRINTI	"You suddenly notice something at the very edge of your viewing range: Perelman is being worked over by a couple of muscular thugs, both carrying illegalized fireguns. Perelman looks dazed and disheveled. A moment later "
	PRINTD	RYDER
	PRINTI	" strides into your field of vision. ""He won't crack, boss,"" shrugs one of the toughies. ""Okay, waste him,"" growls Ryder. As you watch in helpless horror, gouts of flame from the guns envelop your creator. You attempt to turn away, or close your eyes, but of course you're not equipped to do so.

""Okay, now melt this pile of junk over here,"" barks the Senator, pointing at some of your own machinery. Fire pours from the guns again, and suddenly the universe goes away."
	CRLF	
	CALL1	FINISH
	RSTACK	
?ELS8:	EQUAL?	LOSE-COUNTER,1 \?ELS14
	CRLF	
	PRINT	MESSAGE-LINE
	PRINTR	"""PRISM!"" It's Perelman's voice. ""Help! Main--"" The message line suddenly goes dead."
?ELS14:	EQUAL?	LOSE-COUNTER,6 \FALSE
	CRLF	
	PRINTI	"You feel something akin to a stabbing pain. Your consciousness slips quickly away..."
	CRLF	
	CALL1	FINISH
	RSTACK	


	.FUNCT	END-IT
	CRLF	
	PRINTI	"With the gentlest bump, the skycab settles into a landing bay at the spaceport terminal. Jill reaches over and gives your hand an excited squeeze. Through the window of the skycab, you can see the sleek, white shuttle waiting to carry you on your first leg of the journey to...to what? The Silver Dove would be more than just another space colony. It was the pinnacle of an eon of human achievement, the first step into interstellar space.

You and Jill would never live to see the completion of that first step, generations hence. (Although in the germfree, low-gee environment of a habitat, and with the recent strides in health and longevity research, who could say for sure?) But you would still have been part of that dawning of a new age, that future of unlimited potential. Humanity was beginning a journey into the universe, a voyage that would last forever."
	CALL1	CONTINUE
	CLEAR	-1
	CALL2	PRINT-SPACES,30
	PRINTI	"ACKNOWLEDGEMENTS"
	CRLF	
	CRLF	
	CALL1	TITLE-PRINT
	PRINTI	" would not have been possible without the effort of many people. Marc Blank made the changes to our development tools that ""pushed back the envelope"" and made Interactive Fiction Plus (tm) a reality.

As always, all the other authors pitched in when needed, but I want to particularly acknowledge the help of Stu Galley and Jerry Wolper.

As a former playtester, I can say with authority that the testing of "
	CALL1	TITLE-PRINT
	PRINTI	" was superb. I appreciate the efforts of everyone who tested, especially Amy Briggs, Gary Brennan, Tomas Bok, Max Buxton, and Suzanne Frank.

Paul Gross, Linde Simpson, Duncan Blanchard, Mike Morton, Rick Lay and Andy Kaluzniacki performed various wizardries on the micro-computers which run "
	CALL1	TITLE-PRINT
	PRINTI	".

The package was designed by Carl Genatossio and Elizabeth Langosy. Package art was the work of Larry Winborg and Jess Nicholas, and photography the work of Ralph King.

Finally, I'm extremely grateful to Jon Palace for immeasurable advice and support throughout this project."
	CRLF	
	CRLF	
	CALL2	PRINT-SPACES,55
	PRINTI	"-- SEM 9/85"
	CRLF	
	CRLF	
	CRLF	
	QUIT	
	RTRUE	

	.ENDI