� Compiler for DavidRPG2
� (c) David Spence, 1998.

(ver$="2.46"
2
<BO=0:Q=0:P=0:var=0:room=0:obj=0:people=0:play=0:code=0:string=0
F
P� � 0:�:� �:L=�:�quit_now
Z
d ț "<DavidRPG2$Dir>.Library"
n,ț "<DavidRPG2$Dir>.<DavidRPG2$Display>"
x�display_init("Compiler")
�
�=�display_special("Compiler for !DavidRPG2 version "+ver$)
�+�display_special("David Spence, 1998.")
�S�PROCdisplay_special("The error messages reported will be quite vague, sorry!")
�H�PROCdisplay_special("This is only a test version of the compiler.")
�P�PROCdisplay_special("Don't be suprised if an error in a file crashes this")
�%�PROCdisplay_special("compiler!")
��display_special(" ")
�
�
� I%=0�10
��display_poll
��
�

	err=0



pram$=�pram

"0� pram$="" � �report("No file specified."):�

,

6!O=�(�display_tempdir+".temp")

@O� O=0 � �report("Can't find !DavidRPG2 - has it been seen by the filer?"):�

J�#O

TO=0

^

h'� split file up and tokanise lables

rO = �(pram$)

|1� O=0 � �report("Can't find input file!!!"):�

�#var=�(�display_tempdir+".Vars")

�%room=�(�display_tempdir+".Rooms")

�%obj=�(�display_tempdir+".Object")

�(people=�(�display_tempdir+".People")

�&play=�(�display_tempdir+".Player")

�$code=�(�display_tempdir+".Code")

�)string=�(�display_tempdir+".Strings")

�

��#room,�(-1)

��#obj,�(-1)

��#people,�(-1)

�

�F� Step1 remove blank lines, comments and spaces and start of lines
!P=�(�display_tempdir+".Temp")
"Q=�(�display_tempdir+".Setup")
�
&
F$=�#O
0F$=�strip(F$)
:� F$<>"" � �F$,1,1)<>"|" �
DȎ �first(�firsteq(F$)) �
N2� "name","adventure","author","version":�#Q,F$
X �#P,F$
b�
l�
v	� �#O
��#Q
��#P
��#O
�O=0:P=0:Q=0
�
��display_poll
�
�max_a=49
�
max_b=256
�
�startroom%=-1
�
cur_R = 0
��#room,�(-1)
� R_data%(1,14) :� data
� R_objects%(1,max_a)
� R_people%(1,max_a)
 � R_action%(3,max_a)
*
4� P_data%(1,8)
>� P_objects%(1,max_a)
H� P_canbe%(3,max_a)
R� P_talk%(3,max_a)
\
f� O_data%(1,6)
p� O_canbe%(3,max_a)
z� O_cando%(3,max_a)
�
�� Y_data%(1,4)
�� Y_objects%(1,max_a)
�� Y_canbe%(3,max_a)
�� Y_cando%(3,max_a)
�Y_done% = �
�
�string_ptr%=0
�code_ptr%=1
�
�� R_label$(max_b)
�� R_flag%(max_b)
�R_label$(0)="null"
R_flag%(0)=�
R_label$(1)="c_room"
R_flag%(1)=�
$R_ptr%=2
.
8� O_label$(max_b)
B� O_flag%(max_b)
LO_label$(0)=""
VO_flag%(0)=�
`O_ptr%=1
j
�O_pad
t
~
�� V_label$(max_b)
�� V_flag%(max_b)
�V_label$(0)="c_room"
�V_label$(1)="ob_got"
�V_label$(2)="energy"
�V_label$(3)="pl_eng"
�V_flag%(0)=�
�V_flag%(1)=�
�V_flag%(2)=�
�V_flag%(3)=�
�V_ptr%=4
�
� P_label$(max_b)

� P_flag%(max_b)
P_label$(0)="player"
P_flag%(0)=�
(P_ptr%=1
2
�P_pad
<
F� step2 tokenise file
P!O=�(�display_tempdir+".Temp")
Z�
d�display_poll
ncurline$=�get
xȎ �first(curline$) �
�� "room":�room
�� "person":�person
�� "player":�player
�� "object":�object
�� "variable":�variable
�a �report("Unknown declatation word: '"+�first(curline$)+"' should be room, variable, etc.,")
��
�	� �#O
��display_poll
��#O
��tablesclearup
��#string:string=0
��#var:var=0
�#room=5
.� startroom%=-1 � �report("No start room")
�#room,startroom%
"�#room:room=0
,�#obj:obj=0
6�#people:people=0
@'� Y_done%=� � �report("No player.")
J�#play:play=0
T�#code:code=0
^�display_special(" ")
hL�display_special("File: '"+pram$+"' compiled with "+�(err)+" error(s).")
r
� err>0 �
|2�display_special("No compiled file produced.")
�M�display_special("Remember that the first error probably has caused the")
�=�display_special("subsequent errors, so fix this first!")
�:ș "XOS_CLI","Wipe "+�display_tempdir+".Setup ~C~R~VF"
��
��display_special(" ")
��display_special(" ")
��display_end
��
�
�/�*********************VARIABLE DECLARATIONS
�
���variable
� curline$=�notfirst(curline$)
dummy%=�getnewvariablelable
+curline$=�strip(�strip_end((curline$)))
g%=�(curline$)
&�#var,dummy%
0�#var,g%
:�
D
N �*********************PLAYER
X
b��player
l� Y_done%=� �
vf�report("More than one player declaration. Not parsing: there will be a lot of errors after this")
��
�%�display_special("Doing player.")
�
Y_done%=�
�Y_data%()=0
�Y_data%(0,3)=-1
�Y_objects%()=0
�Y_canbe%()=0
�Y_cando%()=0
�Y_obs=0
�
Y_canbe=0
�
Y_cando=0
� curline$=�notfirst(curline$)
�end_Y%=�
useold=�
�
� useold=� � curline$=�get
 p$=�first(curline$)
*useold=�
4Ȏ p$ �
>� "text:":�text_Y
H� "name:":�name_Y
R� "dead:":�dead_Y
\� "objects:":�objects_Y
f� "canbe:":�canbe_Y
p� "cando:":�cando_Y
z� "energy:":�energy_Y
�� "}":end_Y%=�
�- �report("Unknown player tag: '"+p$+"'")
��
�� end_Y%=�
�6�write_Y ::�********remember to also output number
��
��
�
�
��write_Y
�8�*****FIRST CHECK ALL THE NEEDED MEMBERS ARE PRESANT
�=� Y_data%(0,0)=0 � �report("No name: presant in player.")
�=� Y_data%(0,1)=0 � �report("No text: presant in player.")
�� I%=0�4
	�#play,Y_data%(0,I%)
	Ȏ I% �
	� 3:
	$ �#play,Y_data%(1,I%)
	.�
	8�
	BY_obs=0
	L�
	V�#play,Y_objects%(0,Y_obs)
	`�#play,Y_objects%(1,Y_obs)
	jY_obs+=1
	t9� Y_objects%(0,Y_obs-1)=0 � Y_objects%(1,Y_obs-1) = 0
	~
Y_canbe=0
	��
	��#play,Y_canbe%(0,Y_canbe)
	��#play,Y_canbe%(1,Y_canbe)
	��#play,Y_canbe%(2,Y_canbe)
	��#play,Y_canbe%(3,Y_canbe)
	�Y_canbe+=1
	�o� Y_canbe%(0,Y_canbe-1)=0 � Y_canbe%(1,Y_canbe-1) = 0 � Y_canbe%(2,Y_canbe-1)=0 � Y_canbe%(3,Y_canbe-1) = 0
	�
Y_cando=0
	��
	��#play,Y_cando%(0,Y_cando)
	��#play,Y_cando%(1,Y_cando)
	��#play,Y_cando%(2,Y_cando)
�#play,Y_cando%(3,Y_cando)

Y_cando+=1
o� Y_cando%(0,Y_cando-1)=0 � Y_cando%(1,Y_cando-1) = 0 � Y_cando%(2,Y_cando-1)=0 � Y_cando%(3,Y_cando-1) = 0
�
(
2��energy_Y
<4curline$=�strip(�strip_end(�notfirst(curline$)))
Fg=�(curline$)
P;� g=0 � �report("Bad energy: value 0 or not a number.")
ZY_data%(0,3)=g
d�
n
x��name_Y
� curline$=�notfirst(curline$)
�s=�dostring
�Y_data%(0,0)=&07
�Y_data%(1,0)=s
��
�
�8��text_Y  :� a block of strings rather than just one
� curline$=�notfirst(curline$)
�s=�dostring
�s2=s
�useold=�
�curline$=�get
�ȕ �curline$,1,1)=�(34)
s2=�dostring
curline$=�get
�
"Y_data%(0,1)=&07
,Y_data%(1,1)=s
6Y_data%(0,2)=&07
@Y_data%(1,2)=s2
J�
T
^��dead_Y
hȎ p$ �
r� "dead:":d=4
|�
� curline$=�notfirst(curline$)
�
y=�docode
�Y_data%(0,d)=&06
�Y_data%(1,d)=y
��
�
���objects_Y
� curline$=�notfirst(curline$)
�!ȕ curline$<>"" � Y_obs<max_a
�temp$=�comma_get(curline$)
�"curline$=�comma_rest(curline$)
�n=�obs(temp$)
�Y_objects%(0,Y_obs)=&02
Y_objects%(1,Y_obs)=n
Y_obs+=1
�
&;� curline$<>"" � �report("Too many objects in player.")
0�
:
D
��canbe_Y
N[� ¤strip_end(curline$))<>"{" � �report("last character on an canbe: line must be a {")
Xcurline$=�get
b,ȕ �first(curline$)<>"}" � Y_canbe<max_a
ln=�dostring
vE� �curline$,1,1)<>":" � �report("Colon needed after verb string")
�curline$=�curline$,2)
�
y=�docode
�Y_canbe%(0,Y_canbe)=&07
�Y_canbe%(1,Y_canbe)=n
�Y_canbe%(2,Y_canbe)=&06
�Y_canbe%(3,Y_canbe)=y
�Y_canbe+=1
�curline$=�get
��
�;� curline$<>"}" � �report("Too many canbes in player.")
��
�
�
��cando_Y

Z� ¤strip_end(curline$))<>"{" � �report("last character on an talk: line must be a {")

curline$=�get

,ȕ �first(curline$)<>"}" � Y_cando<max_a

 n=�dostring

*H� �curline$,1,1)<>":" � �report("Colon needed after keyword string")

4curline$=�curline$,2)

>
y=�docode

HY_cando%(0,Y_cando)=&07

RY_cando%(1,Y_cando)=n

\Y_cando%(2,Y_cando)=&06

fY_cando%(3,Y_cando)=y

pY_cando+=1

zcurline$=�get

��

�;� curline$<>"}" � �report("Too many candos in player.")

��

�

�

�!�*********************OBJECTS

�

���object

�O_data%()=0

�O_data%(0,5)=-1

�O_canbe%()=0

�O_cando%()=0

�
O_cando=0

O_canbe=0
 curline$=�notfirst(curline$)
this_O%=�getnewobjectlabel
$end_O%=�
.useold=�
8�
B� useold=� � curline$=�get
Lp$=�first(curline$)
Vuseold=�
`Ȏ p$ �
j� "text:":�text_O
t� "name:":�name_O
~� "dead:":�dead_O
�� "canbe:":�canbe_O
�� "cando:":�cando_O
�� "move:":�vismov_O
�� "energy:":�energy_O
�� "}":end_O%=�
�- �report("Unknown object tag: '"+p$+"'")
��
�� end_O%=�
�6�write_O ::�********remember to also output number
��
�
�
��write_O
8�*****FIRST CHECK ALL THE NEEDED MEMBERS ARE PRESANT

=� O_data%(0,0)=0 � �report("No name: presant in person.")
=� O_data%(0,1)=0 � �report("No text: presant in person.")
�#obj,this_O%
(� I%=0�6
2�#obj,O_data%(0,I%)
<Ȏ I% �
F� 3,4,5:
P �#obj,O_data%(1,I%)
Z�
d�
n
O_canbe=0
x�
��#obj,O_canbe%(0,O_canbe)
��#obj,O_canbe%(1,O_canbe)
��#obj,O_canbe%(2,O_canbe)
��#obj,O_canbe%(3,O_canbe)
�O_canbe+=1
�o� O_canbe%(0,O_canbe-1)=0 � O_canbe%(1,O_canbe-1) = 0 � O_canbe%(2,O_canbe-1)=0 � O_canbe%(3,O_canbe-1) = 0
�
O_cando=0
��
��#obj,O_cando%(0,O_cando)
��#obj,O_cando%(1,O_cando)
��#obj,O_cando%(2,O_cando)
��#obj,O_cando%(3,O_cando)
�O_cando+=1
o� O_cando%(0,O_cando-1)=0 � O_cando%(1,O_cando-1) = 0 � O_cando%(2,O_cando-1)=0 � O_cando%(3,O_cando-1) = 0
�

"��O_pad
,O_data%()=0
6O_data%(0,5)=-1
@O_canbe%()=0
JO_cando%()=0
T
O_cando=0
^
O_canbe=0
h8�*****FIRST CHECK ALL THE NEEDED MEMBERS ARE PRESANT
r�#obj,�(0)
|� I%=0�6
��#obj,O_data%(0,I%)
�Ȏ I% �
�� 3,4,5:
� �#obj,O_data%(1,I%)
��
��
�
O_canbe=0
��
��#obj,O_canbe%(0,O_canbe)
��#obj,O_canbe%(1,O_canbe)
��#obj,O_canbe%(2,O_canbe)
��#obj,O_canbe%(3,O_canbe)
�O_canbe+=1
o� O_canbe%(0,O_canbe-1)=0 � O_canbe%(1,O_canbe-1) = 0 � O_canbe%(2,O_canbe-1)=0 � O_canbe%(3,O_canbe-1) = 0

O_cando=0
�
&�#obj,O_cando%(0,O_cando)
0�#obj,O_cando%(1,O_cando)
:�#obj,O_cando%(2,O_cando)
D�#obj,O_cando%(3,O_cando)
NO_cando+=1
Xo� O_cando%(0,O_cando-1)=0 � O_cando%(1,O_cando-1) = 0 � O_cando%(2,O_cando-1)=0 � O_cando%(3,O_cando-1) = 0
b�
l
v��vismov_O
�Ȏ p$ �
�� "visable:":d=3
�� "move:":d=4
��
�4curline$=�strip(�strip_end(�notfirst(curline$)))
�t=0
�Ȏ curline$ �
�� "yes","y":t=-1
�� "no","n":t=0
�
�3�report("Unknown: '"+curline$+"' in or move:.")
��
�O_data%(0,d)=t
�

��energy_O
 4curline$=�strip(�strip_end(�notfirst(curline$)))
*g=�(curline$)
4;� g=0 � �report("Bad energy: value 0 or not a number.")
>O_data%(0,5)=g
H�
R
\��name_O
f curline$=�notfirst(curline$)
ps=�dostring
zO_data%(0,0)=&07
�O_data%(1,0)=s
��
�
�8��text_O  :� a block of strings rather than just one
� curline$=�notfirst(curline$)
�s=�dostring
�s2=s
�useold=�
�curline$=�get
�ȕ �curline$,1,1)=�(34)
�s2=�dostring
�curline$=�get
��
O_data%(0,1)=&07
O_data%(1,1)=s
O_data%(0,2)=&07
$O_data%(1,2)=s2
.�
8
B��dead_O
L curline$=�notfirst(curline$)
V
y=�docode
`O_data%(0,6)=&06
jO_data%(1,6)=y
t�
~
�
��canbe_O
�[� ¤strip_end(curline$))<>"{" � �report("last character on an canbe: line must be a {")
�curline$=�get
�,ȕ �first(curline$)<>"}" � O_canbe<max_a
�n=�dostring
�E� �curline$,1,1)<>":" � �report("Colon needed after verb string")
�curline$=�curline$,2)
�
y=�docode
�O_canbe%(0,O_canbe)=&07
�O_canbe%(1,O_canbe)=n
�O_canbe%(2,O_canbe)=&06
�O_canbe%(3,O_canbe)=y
O_canbe+=1

curline$=�get
�
;� curline$<>"}" � �report("Too many canbes in object.")
(�
2
<
��cando_O
F[� ¤strip_end(curline$))<>"{" � �report("last character on an cando: line must be a {")
Pcurline$=�get
Z,ȕ �first(curline$)<>"}" � O_cando<max_a
dn=�dostring
nE� �curline$,1,1)<>":" � �report("Colon needed after verb string")
xcurline$=�curline$,2)
�
y=�docode
�O_cando%(0,O_cando)=&07
�O_cando%(1,O_cando)=n
�O_cando%(2,O_cando)=&06
�O_cando%(3,O_cando)=y
�O_cando+=1
�curline$=�get
��
�;� curline$<>"}" � �report("Too many candos in object.")
��
�
� �*********************PEOPLE
�
��person
P_data%()=0
P_data%(0,5)=-1
"P_objects%()=0
,P_canbe%()=0
6P_talk%()=0
@P_obs=0
J
P_canbe=0
TP_talk=0
^ curline$=�notfirst(curline$)
hthis_P%=�getnewpersonlabel
rend_P%=�
|useold=�
��
�� useold=� � curline$=�get
�p$=�first(curline$)
�useold=�
�Ȏ p$ �
�� "text:":�text_P
�� "name:":�name_P
�(� "dead:","see:","unsee:":�deadsee_P
�� "objects:":�objects_P
�� "canbe:":�canbe_P
�� "talk:":�talk_P
�� "move:":�vismov_P
�� "energy:":�energy_P
� "}":end_P%=�
- �report("Unknown person tag: '"+p$+"'")
�
&� end_P%=�
06�write_P ::�********remember to also output number
:�
D
N
��write_P
X8�*****FIRST CHECK ALL THE NEEDED MEMBERS ARE PRESANT
b=� P_data%(0,0)=0 � �report("No name: presant in person.")
l=� P_data%(0,1)=0 � �report("No text: presant in person.")
v
��#people,this_P%
�� I%=0�8
��#people,P_data%(0,I%)
�Ȏ I% �
�� 3,4,5:
� �#people,P_data%(1,I%)
��
��
�P_obs=0
��
� �#people,P_objects%(0,P_obs)
� �#people,P_objects%(1,P_obs)
�P_obs+=1
9� P_objects%(0,P_obs-1)=0 � P_objects%(1,P_obs-1) = 0

P_canbe=0
�
  �#people,P_canbe%(0,P_canbe)
* �#people,P_canbe%(1,P_canbe)
4 �#people,P_canbe%(2,P_canbe)
> �#people,P_canbe%(3,P_canbe)
HP_canbe+=1
Ro� P_canbe%(0,P_canbe-1)=0 � P_canbe%(1,P_canbe-1) = 0 � P_canbe%(2,P_canbe-1)=0 � P_canbe%(3,P_canbe-1) = 0
\P_talk=0
f�
p�#people,P_talk%(0,P_talk)
z�#people,P_talk%(1,P_talk)
��#people,P_talk%(2,P_talk)
��#people,P_talk%(3,P_talk)
�
P_talk+=1
�g� P_talk%(0,P_talk-1)=0 � P_talk%(1,P_talk-1) = 0 � P_talk%(2,P_talk-1)=0 � P_talk%(3,P_talk-1) = 0
��
�
���P_pad
�P_data%()=0
�P_data%(0,5)=-1
�P_objects%()=0
�P_canbe%()=0
�P_talk%()=0
�P_obs=0

P_canbe=0
P_talk=0
�#people,�(0)
$� I%=0�8
.�#people,P_data%(0,I%)
8Ȏ I% �
B� 3,4,5:
L �#people,P_data%(1,I%)
V�
`�
jP_obs=0
t�
~ �#people,P_objects%(0,P_obs)
� �#people,P_objects%(1,P_obs)
�P_obs+=1
�9� P_objects%(0,P_obs-1)=0 � P_objects%(1,P_obs-1) = 0
�
P_canbe=0
��
� �#people,P_canbe%(0,P_canbe)
� �#people,P_canbe%(1,P_canbe)
� �#people,P_canbe%(2,P_canbe)
� �#people,P_canbe%(3,P_canbe)
�P_canbe+=1
�o� P_canbe%(0,P_canbe-1)=0 � P_canbe%(1,P_canbe-1) = 0 � P_canbe%(2,P_canbe-1)=0 � P_canbe%(3,P_canbe-1) = 0
�P_talk=0
�

�#people,P_talk%(0,P_talk)
�#people,P_talk%(1,P_talk)
�#people,P_talk%(2,P_talk)
(�#people,P_talk%(3,P_talk)
2
P_talk+=1
<g� P_talk%(0,P_talk-1)=0 � P_talk%(1,P_talk-1) = 0 � P_talk%(2,P_talk-1)=0 � P_talk%(3,P_talk-1) = 0
F�
P
Z��vismov_P
dȎ p$ �
n� "visable:":d=3
x� "move:":d=4
��
�4curline$=�strip(�strip_end(�notfirst(curline$)))
�t=0
�Ȏ curline$ �
�� "yes","y":t=-1
�� "no","n":t=0
�
�3�report("Unknown: '"+curline$+"' in or move:.")
��
�P_data%(0,d)=t
��
�
���energy_P
4curline$=�strip(�strip_end(�notfirst(curline$)))
g=�(curline$)
;� g=0 � �report("Bad energy: value 0 or not a number.")
"P_data%(0,5)=g
,�
6
@��name_P
J curline$=�notfirst(curline$)
Ts=�dostring
^P_data%(0,0)=&07
hP_data%(1,0)=s
r�
|
�8��text_P  :� a block of strings rather than just one
� curline$=�notfirst(curline$)
�s=�dostring
�s2=s
�useold=�
�curline$=�get
�ȕ �curline$,1,1)=�(34)
�s2=�dostring
�curline$=�get
��
�P_data%(0,1)=&07
�P_data%(1,1)=s
�P_data%(0,2)=&07
P_data%(1,2)=s2
�

&��deadsee_P
0Ȏ p$ �
:� "dead:":d=6
D� "see:":d=7
N� "unsee:":d=8
X�
b curline$=�notfirst(curline$)
l
y=�docode
vP_data%(0,d)=&06
�P_data%(1,d)=y
��
�
���objects_P
� curline$=�notfirst(curline$)
�!ȕ curline$<>"" � P_obs<max_a
�temp$=�comma_get(curline$)
�"curline$=�comma_rest(curline$)
�n=�obs(temp$)
�P_objects%(0,P_obs)=&02
�P_objects%(1,P_obs)=n
�P_obs+=1
��
;� curline$<>"" � �report("Too many objects in person.")
�

 
��canbe_P
*[� ¤strip_end(curline$))<>"{" � �report("last character on an canbe: line must be a {")
4curline$=�get
>,ȕ �first(curline$)<>"}" � P_canbe<max_a
Hn=�dostring
RE� �curline$,1,1)<>":" � �report("Colon needed after verb string")
\curline$=�curline$,2)
f
y=�docode
pP_canbe%(0,P_canbe)=&07
zP_canbe%(1,P_canbe)=n
�P_canbe%(2,P_canbe)=&06
�P_canbe%(3,P_canbe)=y
�P_canbe+=1
�curline$=�get
��
�;� curline$<>"}" � �report("Too many canbes in person.")
��
�
���talk_P
�Z� ¤strip_end(curline$))<>"{" � �report("last character on an talk: line must be a {")
�curline$=�get
�+ȕ �first(curline$)<>"}" � P_talk<max_a
�n=�dostring
H� �curline$,1,1)<>":" � �report("Colon needed after keyword string")
curline$=�curline$,2)

y=�docode
$P_talk%(0,P_talk)=&07
.P_talk%(1,P_talk)=n
8P_talk%(2,P_talk)=&06
BP_talk%(3,P_talk)=y
L
P_talk+=1
Vcurline$=�get
`�
j:� curline$<>"}" � �report("Too many talks in person.")
t�
~
��********************ROOMS
�
�
��room
�R_data%()=0
�R_objects%()=0
�R_people%()=0
�R_action%()=0
�R_obs=0
�R_person=0
�R_action=0
� curline$=�notfirst(curline$)
�this_R%=�getnewroomlabel
0� �curline$,"start")<>0 � startroom%=this_R%

end_R%=�
useold=�
�
(� useold=� �  curline$=�get
2p$=�first(curline$)
<useold=�
FȎ p$ �
P� "text:":�text_R
Z� "name:":�name_R
d�� "east:","west:","south:","north:","up:","down:","southeast:","southwest:","northeast:","northwest:","enter:","leave:":�dir_R
n� "objects:":�objects_R
x� "people:":�people_R
�� "actions:":�actions_R
�� "}":end_R%=�
�+ �report("Unknown room tag: '"+p$+"'")
��
�� end_R%=�
�
�6�write_R ::�********remember to also output number
��
�
�
��write_R
�8�*****FIRST CHECK ALL THE NEEDED MEMBERS ARE PRESANT
�;� R_data%(0,0)=0 � �report("No name: presant in room.")
�;� R_data%(0,1)=0 � �report("No text: presant in room.")
�#room,this_R%

� I%=0�14
�#room,R_data%(0,I%)
"�#room,R_data%(1,I%)
,�
6R_obs=0
@�
J�#room,R_objects%(0,R_obs)
T�#room,R_objects%(1,R_obs)
^R_obs+=1
h9� R_objects%(0,R_obs-1)=0 � R_objects%(1,R_obs-1) = 0
rR_person=0
|�
� �#room,R_people%(0,R_person)
� �#room,R_people%(1,R_person)
�R_person+=1
�=� R_people%(0,R_person-1)=0 � R_people%(1,R_person-1) = 0
�R_action=0
��
� �#room,R_action%(0,R_action)
� �#room,R_action%(1,R_action)
� �#room,R_action%(2,R_action)
� �#room,R_action%(3,R_action)
�R_action+=1
�w� R_action%(0,R_action-1)=0 � R_action%(1,R_action-1) = 0 � R_action%(2,R_action-1)=0 � R_action%(3,R_action-1) = 0
��
 
 
 ��objects_R
 & curline$=�notfirst(curline$)
 0!ȕ curline$<>"" � R_obs<max_a
 :temp$=�comma_get(curline$)
 D"curline$=�comma_rest(curline$)
 Nn=�obs(temp$)
 XR_objects%(0,R_obs)=&02
 bR_objects%(1,R_obs)=n
 lR_obs+=1
 v
 ��
 �9� curline$<>"" � �report("Too many objects in room.")
 ��
 �
 ���actions_R
 �\� ¤strip_end(curline$))<>"{" � �report("last character on an action: line must be a {")
 �curline$=�get
 �-ȕ �first(curline$)<>"}" � R_action<max_a
 �n=�dostring
 �E� �curline$,1,1)<>":" � �report("Colon needed after verb string")
 �curline$=�curline$,2)
 �
y=�docode
 �R_action%(0,R_action)=&07
!R_action%(1,R_action)=n
!R_action%(2,R_action)=&06
!R_action%(3,R_action)=y
! R_action+=1
!*curline$=�get
!4�
!>;� curline$<>"}" � �report("Too many actionss in room.")
!H�
!R
!\��people_R
!f curline$=�notfirst(curline$)
!p$ȕ curline$<>"" � R_person<max_a
!ztemp$=�comma_get(curline$)
!�"curline$=�comma_rest(curline$)
!�n=�person(temp$)
!�R_people%(0,R_person)=&03
!�R_people%(1,R_person)=n
!�M� n=0 � �report("You cannot have the player in a room { people: } list.")
!�R_person+=1
!��
!�8� curline$<>"" � �report("Too many people in room.")
!��
!�
!���name_R
!� curline$=�notfirst(curline$)
!�s=�dostring
"R_data%(0,0)=&07
"R_data%(1,0)=s
"�
"$
".8��text_R  :� a block of strings rather than just one
"8 curline$=�notfirst(curline$)
"Bs=�dostring
"Ls2=s
"Vuseold=�
"`curline$=�get
"jȕ �curline$,1,1)=�(34)
"ts2=�dostring
"~curline$=�get
"��
"�R_data%(0,1)=&07
"�R_data%(1,1)=s
"�R_data%(0,2)=&07
"�R_data%(1,2)=s2
"��
"�
"���dir_R
"�Ȏ p$ �
"�� "east:":d=3
"�� "west:":d=4
"�� "south:":d=5
#� "north:":d=6
#
� "up:":d=7
#� "down:":d=8
#� "southeast:":d=9
#(� "southwest:":d=10
#2� "northeast:":d=11
#<� "northwest:":d=12
#F� "enter:":d=13
#P� "leave:":d=14
#Z�
#d curline$=�notfirst(curline$)
#n
y=�docode
#xR_data%(0,d)=&06
#�R_data%(1,d)=y
#��
#�
#�
#�2�*********************************************
#�2� labels, strings, code, etc - not writen yet!
#�2�*********************************************
#�� general notes
#�� =============
#�_� all labels must be certified unique, so checks need to be done of ALL the sorts of label,
#�b� verables etc when a new label is declaed. Also at the end PROCtablesclearup is called so all
#�c� the rest of the data can be writen and all used labels can be checked to have been decalered.
#�
$��tablesclearup
$X� check that every label that has been used has been declared, any data left writen.
$� R_ptr%>0 �
$"� I%=0�R_ptr%-1
$,S� R_flag%(I%)=� ��report("Room Label: "+R_label$(I%)+" used but not declared.")
$6�
$@�
$J� O_ptr%>0 �
$T� I%=0�O_ptr%-1
$^U� O_flag%(I%)=� ��report("Object Label: "+O_label$(I%)+" used but not declared.")
$h�
$r�
$|� V_ptr%>0 �
$�� I%=0�V_ptr%-1
$�Q� V_flag%(I%)=� ��report("Variable: "+V_label$(I%)+" used but not declared.")
$��
$��
$�� P_ptr%>0 �
$�� I%=0�P_ptr%-1
$�U� P_flag%(I%)=� ��report("Person Label: "+P_label$(I%)+" used but not declared.")
$��
$��
$�=� write the number of rooms, objects and people to files.
$��#room=0
$��#room,�(R_ptr%)
$��#obj=0
%�#obj,�(O_ptr%)
%�#people=0
%�#people,�(P_ptr%)
%&�
%0
%:ݤgetnewroomlabel
%D>� gets the name of the room and deletes this from curline$
%N� returns the roomnumber
%Xr$=�first(curline$)
%b+�display_special("Doing room: "+r$+".")
%l(curline$=�strip(�notfirst(curline$))
%v� R_ptr%>0 �
%�� I%=0�R_ptr%-1
%�� R_label$(I%)=r$ �
%�� R_flag%(I%)=� �
%�- �report("Duplicate room label: "+r$):=I%
%��
%� R_flag%(I%)=�
%� =I%
%��
%��
%��
%��
%�� R_ptr%=max_b �
%��report("Too many rooms.")
&=0
&�
&R_label$(R_ptr%)=r$
& R_flag%(R_ptr%)=�
&*
R_ptr%+=1
&4
=R_ptr%-1
&>
&Hݤgetnewobjectlabel
&R@� gets the name of the object and deletes this from curline$
&\� returns the objectnumber
&fo$=�first(curline$)
&p-�display_special("Doing object: "+o$+".")
&z(curline$=�strip(�notfirst(curline$))
&�� O_ptr%>0 �
&�� I%=0�O_ptr%-1
&�� O_label$(I%)=o$ �
&�� O_flag%(I%)=� �
&�/ �report("Duplicate object label: "+o$):=I%
&��
&� O_flag%(I%)=�
&� =I%
&��
&��
&��
&��
&�� O_ptr%=max_b �
' �report("Too many objects.")
'=0
'�
'$O_label$(O_ptr%)=o$
'.O_flag%(O_ptr%)=�
'8
O_ptr%+=1
'B
=O_ptr%-1
'L
'Vݤgetnewpersonlabel
'`@� gets the name of the person and deletes this from curline$
'j� returns the personnumber
't� 0 is used for player
'~p$=�first(curline$)
'�-�display_special("Doing person: "+p$+".")
'�(curline$=�strip(�notfirst(curline$))
'�� P_ptr%>0 �
'�� I%=0�P_ptr%-1
'�� P_label$(I%)=p$ �
'�� P_flag%(I%)=� �
'�/ �report("Duplicate person label: "+p$):=I%
'��
'� P_flag%(I%)=�
'� =I%
'��
'��
(�
(
�
(� P_ptr%=max_b �
(�report("Too many people.")
((=0
(2�
(<P_label$(P_ptr%)=p$
(FP_flag%(P_ptr%)=�
(P
P_ptr%+=1
(Z
=P_ptr%-1
(d
(nݤgetnewvariablelable
(xB� gets the name of the variable and deletes this from curline$
(� � returns the variablenumber
(�v$=�first_eq(curline$)
(�/�display_special("Doing variable: "+v$+".")
(�*curline$=�strip(�notfirsteq(curline$))
(�� V_ptr%>0 �
(�� I%=0�V_ptr%-1
(�� V_label$(I%)=v$ �
(�� V_flag%(I%)=� �
(�1 �report("Duplicate variable label: "+v$):=I%
(��
(� V_flag%(I%)=�
(� =I%
(��
)�
)�
)�
)"� V_ptr%=max_b �
),"�report("Too many variables.")
)6=0
)@�
)JV_label$(V_ptr%)=v$
)TV_flag%(V_ptr%)=�
)^
V_ptr%+=1
)h
=V_ptr%-1
)r
)|ݤdostring
)�O� gets the string and outputs it to the file and deletes this from curline$
)�&� returns the number of the string
)�curline$=�strip(curline$)
)�I� �curline$,1,1)<>�(34) � �report("No "+�(34)+" at start of string.")
)�out$=""
)�curline$=�curline$,2)
)�Y    � */*/* Yes this is a very inefficiant way to do this but it is easyer to extend.
)�,ȕ �curline$,1,1)<>�(34) � �(curline$)>0
)�out$+=�curline$,1,1)
)�curline$=�curline$,2)
)��
)�� �(curline$)>0 �
)�curline$=�curline$,2)
*�
*3�report("No "+�(34)+" at the end of a string.")
*�
*&string_ptr%+=1
*0�#string,out$
*:=string_ptr%-1
*D
*Nݤdocode
*Xb� read input from curline$ and the tempfile until the end of the code block is found ('}') and
*b=� leaves curline$ and the file pointer at the next letter
*lF� If it is a one line code (without { and }) it just uses curline$
*vT� stores the tokenised code in the code file and returns the number of the code.
*�+g$=�strip(�strip_end(�first(curline$)))
*�� g$="{" �
*�� morethan one line
*�3� �strip(�strip_end(�notfirst(curline$)))<>"" �
*�7�report("In code { should be folowed by a return.")
*��
*�curline$=�get
*�0ȕ �strip(�strip_end(�first(curline$)))<>"}"
*��code_doline
*�curline$=�get
*��
*��
*��code_doline
+�
+�term_code
+code_ptr%+=1
+ =code_ptr%-1
+*
+4ݤdocode_special
+>b� read input from curline$ and the tempfile until the end of the code block is found ('}') and
+H=� leaves curline$ and the file pointer at the next letter
+RF� If it is a one line code (without { and }) it just uses curline$
+\T� stores the tokenised code in the code file and returns the number of the code.
+f+g$=�strip(�strip_end(�first(curline$)))
+p� g$="{" �
+z� morethan one line
+�3� �strip(�strip_end(�notfirst(curline$)))<>"" �
+�7�report("In code { should be folowed by a return.")
+��
+�curline$=�get
+�0ȕ �strip(�strip_end(�first(curline$)))<>"}"
+��code_doline
+�curline$=�get
+��
+��
+��code_doline
+��
+��term_code_special
+�=code_ptr%
,
,
,��code_doline
,$,� ********ONLY CALLED BY FNdocode*******
,.#ins$=�bracketleft_get(curline$)
,8%args$=�bracketleft_rest(curline$)
,B
Ȏ ins$ �
,L � "print":ins%=1:�code_print
,V� "goto":ins%=2:�code_goto
,`� "give":ins%=3:�code_give
,j!� "P_move":ins%=4:�code_Pmove
,t!� "O_move":ins%=4:�code_Omove
,~� "end":ins%=5:�code_end
,�� "set":ins%=7:�code_change
,�"� "change":ins%=8:�code_change
,�� "if":ins%=9:�code_if
,�0 �report("Bad function in code: "+ins$+".")
,��
,��
,�
,�#� silly code removed from above
,�'� "P_visible":ins%=6:�code_Pvisable
,�'� "O_visible":ins%=6:�code_Ovisable
,�)� "P_invisible":ins%=7:�code_Pvisable
,�)� "O_invisible":ins%=7:�code_Ovisable
-� code ends
-

-��code_goto
-&s%=�room(�bracketright_get(args$))
-(p%=1
-2�#code,ins%
-<
�#code,p%
-F
�#code,s%
-P�
-Z
-d��code_end
-n�#code,ins%
-x�
-�
-���code_change
-�#s%=�variable(�comma_get(args$))
-�@r$=�strip(�strip_end(�bracketright_get(�comma_rest(args$))))
-�� I%=1��(r$)
-�Ȏ �r$,I%,1) �
-�I� "+","-":� I%<>1 � �report("int as int argument in change()/set().")
-�.� "0","1","2","3","4","5","6","7","8","9":
-�7 �report("int as int argument in change()/set().")
-��
-�i%=�(r$)
-�p%=5
-�	p2%=4
.�#code,ins%
.
�#code,p%
.
�#code,s%
."�#code,p2%
.,
�#code,i%
.6�
.@
.J��code_give
.T!s%=�person(�comma_get(args$))
.^@r$=�strip(�strip_end(�bracketright_get(�comma_rest(args$))))
.hi%=�obs(r$)
.rp%=3
.|	p2%=2
.��#code,ins%
.�
�#code,p%
.�
�#code,s%
.��#code,p2%
.�
�#code,i%
.��
.�
.���code_Omove
.�s%=�obs(�comma_get(args$))
.�@r$=�strip(�strip_end(�bracketright_get(�comma_rest(args$))))
.�i%=�room(r$)
.�p%=2
.�	p2%=1
/�#code,ins%
/
�#code,p%
/
�#code,s%
/&�#code,p2%
/0
�#code,i%
/:�
/D
/N��code_Pmove
/X!s%=�person(�comma_get(args$))
/b@r$=�strip(�strip_end(�bracketright_get(�comma_rest(args$))))
/li%=�room(r$)
/vp%=3
/�	p2%=1
/��#code,ins%
/�
�#code,p%
/�
�#code,s%
/��#code,p2%
/�
�#code,i%
/��
/�
/���code_ifold
/�#s%=�variable(�comma_get(args$))
/�)curline$=�strip((�comma_rest(args$)))
/�i%=�dostring
/�p%=5
0	p2%=7
0�#code,ins%
0
�#code,p%
0 
�#code,s%
0*�#code,p2%
04
�#code,i%
0>.curline$=�strip(�bracketright_rest(args$))
0Hr%=�docode_special
0R�
0\
0f
��code_if
0p(s%=�variable(�special_if_get(args$))
0z.curline$=�strip((�special_if_rest(args$)))
0�	op=-1
0�Ȏ �curline$,1,1) �
0�,� "=":op=0:curline$=�strip(�curline$,2))
0�� "<":Ȏ �curline$,2,1) �
0�,� ">":op=1:curline$=�strip(�curline$,3))
0�( op=2:curline$=�strip(�curline$,2))
0��
0�,� ">":op=3:curline$=�strip(�curline$,2))
0��
0�0� op=-1 � �report("Bad conditional Op"):op=0
0�i%=�dostring
0�p%=5
0�	p2%=7
1
op%=op
1
opp%=4
1�#code,ins%
1$
�#code,p%
1.
�#code,s%
18�#code,opp%
1B�#code,op%
1L�#code,p2%
1V
�#code,i%
1`.curline$=�strip(�bracketright_rest(args$))
1jr%=�docode_special
1t�
1~
1�
1���code_Ovisable
1�%s%=�obs(�bracketright_get(args$))
1�p%=2
1��#code,ins%
1�
�#code,p%
1�
�#code,s%
1��
1�
1���code_Pvisable
1�(s%=�person(�bracketright_get(args$))
1�p%=3
2�#code,ins%
2

�#code,p%
2
�#code,s%
2�
2(
22��code_print
2<� �args$,1,1)=�(34) �
2Fcurline$=args$
2Ps%=�dostring
2Zp%=7
2d�
2n*s%=�variable(�bracketright_get(args$))
2xp%=5
2��
2��#code,ins%
2�
�#code,p%
2�
�#code,s%
2��
2�
2���term_code
2�,� ********ONLY CALLED BY FNdocode*******
2��#code,�(0)
2��
2�
2���term_code_special
2�,� ********ONLY CALLED BY FNdocode*******
3�#code,�(10)
3�
3
3"
ݤobs(o$)
3,I� returns the number of object, even if it has not been declared yet.
36� O_ptr%>0 �
3@� I%=0�O_ptr%-1
3J� O_label$(I%)=o$ � =I%
3T�
3^�
3h� O_ptr%=max_b �
3r �report("Too many objects.")
3|=0
3��
3�O_label$(O_ptr%)=o$
3�O_flag%(O_ptr%)=�
3�
O_ptr%+=1
3�
=O_ptr%-1
3�
3�ݤperson(p$)
3�I� returns the number of person, even if it has not been declared yet.
3�!� 0 for player label='player'
3�� P_ptr%>0 �
3�� I%=0�P_ptr%-1
3�� P_label$(I%)=p$ � =I%
3��
4�
4� P_ptr%=max_b �
4�report("Too many people.")
4&=0
40�
4:P_label$(P_ptr%)=p$
4DP_flag%(P_ptr%)=�
4N
P_ptr%+=1
4X
=P_ptr%-1
4b
4lݤvariable(v$)
4vK� returns the number of variable, even if it has not been declared yet.
4�� V_ptr%>0 �
4�� I%=0�V_ptr%-1
4�� V_label$(I%)=v$ � =I%
4��
4��
4�� V_ptr%=max_b �
4�"�report("Too many variables.")
4�=0
4��
4�V_label$(V_ptr%)=v$
4�V_flag%(V_ptr%)=�
4�
V_ptr%+=1
4�
=V_ptr%-1
5
5ݤroom(r$)
5G� returns the number of room, even if it has not been declared yet.
5 � R_ptr%>0 �
5*� I%=0�R_ptr%-1
54� R_label$(I%)=r$ � =I%
5>�
5H�
5R� R_ptr%=max_b �
5\�report("Too many rooms.")
5f=0
5p�
5zR_label$(R_ptr%)=r$
5�R_flag%(R_ptr%)=�
5�
R_ptr%+=1
5�
=R_ptr%-1
5�
5���quit_now
5�� �
5�� O<>0 � �#O
5�O=0
5�� Q<>0 � �#Q
5�Q=0
5�� P<>0 � �#P
5�P=0
5�� var<>0 � �#var
6	var=0
6� room<>0 � �#room
6
room=0
6$� obj<>0 � �#obj
6.	obj=0
68� people<>0 � �#people
6Bpeople=0
6L� play<>0 � �#play
6V
play=0
6`� code<>0 � �#code
6j
code=0
6t� string<>0 � �#string
6~string=0
6��
�

00000000  0d 00 0a 1c f4 20 43 6f  6d 70 69 6c 65 72 20 66  |..... Compiler f|
00000010  6f 72 20 44 61 76 69 64  52 50 47 32 0d 00 14 1d  |or DavidRPG2....|
00000020  f4 20 28 63 29 20 44 61  76 69 64 20 53 70 65 6e  |. (c) David Spen|
00000030  63 65 2c 20 31 39 39 38  2e 0d 00 1e 04 0d 00 28  |ce, 1998.......(|
00000040  0f 76 65 72 24 3d 22 32  2e 34 36 22 0d 00 32 04  |.ver$="2.46"..2.|
00000050  0d 00 3c 42 4f 3d 30 3a  51 3d 30 3a 50 3d 30 3a  |..<BO=0:Q=0:P=0:|
00000060  76 61 72 3d 30 3a 72 6f  6f 6d 3d 30 3a 6f 62 6a  |var=0:room=0:obj|
00000070  3d 30 3a 70 65 6f 70 6c  65 3d 30 3a 70 6c 61 79  |=0:people=0:play|
00000080  3d 30 3a 63 6f 64 65 3d  30 3a 73 74 72 69 6e 67  |=0:code=0:string|
00000090  3d 30 0d 00 46 04 0d 00  50 1e ee 85 20 eb 20 30  |=0..F...P... . 0|
000000a0  3a f6 3a f1 20 9e 3a 4c  3d a5 3a f2 71 75 69 74  |:.:. .:L=.:.quit|
000000b0  5f 6e 6f 77 0d 00 5a 04  0d 00 64 20 c8 9b 20 22  |_now..Z...d .. "|
000000c0  3c 44 61 76 69 64 52 50  47 32 24 44 69 72 3e 2e  |<DavidRPG2$Dir>.|
000000d0  4c 69 62 72 61 72 79 22  0d 00 6e 2c c8 9b 20 22  |Library"..n,.. "|
000000e0  3c 44 61 76 69 64 52 50  47 32 24 44 69 72 3e 2e  |<DavidRPG2$Dir>.|
000000f0  3c 44 61 76 69 64 52 50  47 32 24 44 69 73 70 6c  |<DavidRPG2$Displ|
00000100  61 79 3e 22 0d 00 78 1d  f2 64 69 73 70 6c 61 79  |ay>"..x..display|
00000110  5f 69 6e 69 74 28 22 43  6f 6d 70 69 6c 65 72 22  |_init("Compiler"|
00000120  29 0d 00 82 04 0d 00 8c  3d f2 64 69 73 70 6c 61  |).......=.displa|
00000130  79 5f 73 70 65 63 69 61  6c 28 22 43 6f 6d 70 69  |y_special("Compi|
00000140  6c 65 72 20 66 6f 72 20  21 44 61 76 69 64 52 50  |ler for !DavidRP|
00000150  47 32 20 76 65 72 73 69  6f 6e 20 22 2b 76 65 72  |G2 version "+ver|
00000160  24 29 0d 00 96 2b f2 64  69 73 70 6c 61 79 5f 73  |$)...+.display_s|
00000170  70 65 63 69 61 6c 28 22  44 61 76 69 64 20 53 70  |pecial("David Sp|
00000180  65 6e 63 65 2c 20 31 39  39 38 2e 22 29 0d 00 a0  |ence, 1998.")...|
00000190  53 f4 50 52 4f 43 64 69  73 70 6c 61 79 5f 73 70  |S.PROCdisplay_sp|
000001a0  65 63 69 61 6c 28 22 54  68 65 20 65 72 72 6f 72  |ecial("The error|
000001b0  20 6d 65 73 73 61 67 65  73 20 72 65 70 6f 72 74  | messages report|
000001c0  65 64 20 77 69 6c 6c 20  62 65 20 71 75 69 74 65  |ed will be quite|
000001d0  20 76 61 67 75 65 2c 20  73 6f 72 72 79 21 22 29  | vague, sorry!")|
000001e0  0d 00 aa 48 f4 50 52 4f  43 64 69 73 70 6c 61 79  |...H.PROCdisplay|
000001f0  5f 73 70 65 63 69 61 6c  28 22 54 68 69 73 20 69  |_special("This i|
00000200  73 20 6f 6e 6c 79 20 61  20 74 65 73 74 20 76 65  |s only a test ve|
00000210  72 73 69 6f 6e 20 6f 66  20 74 68 65 20 63 6f 6d  |rsion of the com|
00000220  70 69 6c 65 72 2e 22 29  0d 00 b4 50 f4 50 52 4f  |piler.")...P.PRO|
00000230  43 64 69 73 70 6c 61 79  5f 73 70 65 63 69 61 6c  |Cdisplay_special|
00000240  28 22 44 6f 6e 27 74 20  62 65 20 73 75 70 72 69  |("Don't be supri|
00000250  73 65 64 20 69 66 20 61  6e 20 65 72 72 6f 72 20  |sed if an error |
00000260  69 6e 20 61 20 66 69 6c  65 20 63 72 61 73 68 65  |in a file crashe|
00000270  73 20 74 68 69 73 22 29  0d 00 be 25 f4 50 52 4f  |s this")...%.PRO|
00000280  43 64 69 73 70 6c 61 79  5f 73 70 65 63 69 61 6c  |Cdisplay_special|
00000290  28 22 63 6f 6d 70 69 6c  65 72 21 22 29 0d 00 c8  |("compiler!")...|
000002a0  19 f2 64 69 73 70 6c 61  79 5f 73 70 65 63 69 61  |..display_specia|
000002b0  6c 28 22 20 22 29 0d 00  d2 04 0d 00 dc 0d e3 20  |l(" ")......... |
000002c0  49 25 3d 30 b8 31 30 0d  00 e6 11 f2 64 69 73 70  |I%=0.10.....disp|
000002d0  6c 61 79 5f 70 6f 6c 6c  0d 00 f0 05 ed 0d 00 fa  |lay_poll........|
000002e0  04 0d 01 04 09 65 72 72  3d 30 0d 01 0e 04 0d 01  |.....err=0......|
000002f0  18 0f 70 72 61 6d 24 3d  a4 70 72 61 6d 0d 01 22  |..pram$=.pram.."|
00000300  30 e7 20 70 72 61 6d 24  3d 22 22 20 8c 20 f2 72  |0. pram$="" . .r|
00000310  65 70 6f 72 74 28 22 4e  6f 20 66 69 6c 65 20 73  |eport("No file s|
00000320  70 65 63 69 66 69 65 64  2e 22 29 3a e0 0d 01 2c  |pecified."):...,|
00000330  04 0d 01 36 21 4f 3d ae  28 a4 64 69 73 70 6c 61  |...6!O=.(.displa|
00000340  79 5f 74 65 6d 70 64 69  72 2b 22 2e 74 65 6d 70  |y_tempdir+".temp|
00000350  22 29 0d 01 40 4f e7 20  4f 3d 30 20 8c 20 f2 72  |")..@O. O=0 . .r|
00000360  65 70 6f 72 74 28 22 43  61 6e 27 74 20 66 69 6e  |eport("Can't fin|
00000370  64 20 21 44 61 76 69 64  52 50 47 32 20 2d 20 68  |d !DavidRPG2 - h|
00000380  61 73 20 69 74 20 62 65  65 6e 20 73 65 65 6e 20  |as it been seen |
00000390  62 79 20 74 68 65 20 66  69 6c 65 72 3f 22 29 3a  |by the filer?"):|
000003a0  e0 0d 01 4a 07 d9 23 4f  0d 01 54 07 4f 3d 30 0d  |...J..#O..T.O=0.|
000003b0  01 5e 04 0d 01 68 27 f4  20 73 70 6c 69 74 20 66  |.^...h'. split f|
000003c0  69 6c 65 20 75 70 20 61  6e 64 20 74 6f 6b 61 6e  |ile up and tokan|
000003d0  69 73 65 20 6c 61 62 6c  65 73 0d 01 72 10 4f 20  |ise lables..r.O |
000003e0  3d 20 8e 28 70 72 61 6d  24 29 0d 01 7c 31 e7 20  |= .(pram$)..|1. |
000003f0  4f 3d 30 20 8c 20 f2 72  65 70 6f 72 74 28 22 43  |O=0 . .report("C|
00000400  61 6e 27 74 20 66 69 6e  64 20 69 6e 70 75 74 20  |an't find input |
00000410  66 69 6c 65 21 21 21 22  29 3a e0 0d 01 86 23 76  |file!!!"):....#v|
00000420  61 72 3d ae 28 a4 64 69  73 70 6c 61 79 5f 74 65  |ar=.(.display_te|
00000430  6d 70 64 69 72 2b 22 2e  56 61 72 73 22 29 0d 01  |mpdir+".Vars")..|
00000440  90 25 72 6f 6f 6d 3d ae  28 a4 64 69 73 70 6c 61  |.%room=.(.displa|
00000450  79 5f 74 65 6d 70 64 69  72 2b 22 2e 52 6f 6f 6d  |y_tempdir+".Room|
00000460  73 22 29 0d 01 9a 25 6f  62 6a 3d ae 28 a4 64 69  |s")...%obj=.(.di|
00000470  73 70 6c 61 79 5f 74 65  6d 70 64 69 72 2b 22 2e  |splay_tempdir+".|
00000480  4f 62 6a 65 63 74 22 29  0d 01 a4 28 70 65 6f 70  |Object")...(peop|
00000490  6c 65 3d ae 28 a4 64 69  73 70 6c 61 79 5f 74 65  |le=.(.display_te|
000004a0  6d 70 64 69 72 2b 22 2e  50 65 6f 70 6c 65 22 29  |mpdir+".People")|
000004b0  0d 01 ae 26 70 6c 61 79  3d ae 28 a4 64 69 73 70  |...&play=.(.disp|
000004c0  6c 61 79 5f 74 65 6d 70  64 69 72 2b 22 2e 50 6c  |lay_tempdir+".Pl|
000004d0  61 79 65 72 22 29 0d 01  b8 24 63 6f 64 65 3d ae  |ayer")...$code=.|
000004e0  28 a4 64 69 73 70 6c 61  79 5f 74 65 6d 70 64 69  |(.display_tempdi|
000004f0  72 2b 22 2e 43 6f 64 65  22 29 0d 01 c2 29 73 74  |r+".Code")...)st|
00000500  72 69 6e 67 3d ae 28 a4  64 69 73 70 6c 61 79 5f  |ring=.(.display_|
00000510  74 65 6d 70 64 69 72 2b  22 2e 53 74 72 69 6e 67  |tempdir+".String|
00000520  73 22 29 0d 01 cc 04 0d  01 d6 10 f1 23 72 6f 6f  |s").........#roo|
00000530  6d 2c a8 28 2d 31 29 0d  01 e0 0f f1 23 6f 62 6a  |m,.(-1).....#obj|
00000540  2c a8 28 2d 31 29 0d 01  ea 12 f1 23 70 65 6f 70  |,.(-1).....#peop|
00000550  6c 65 2c a8 28 2d 31 29  0d 01 f4 04 0d 01 fe 46  |le,.(-1).......F|
00000560  f4 20 53 74 65 70 31 20  72 65 6d 6f 76 65 20 62  |. Step1 remove b|
00000570  6c 61 6e 6b 20 6c 69 6e  65 73 2c 20 63 6f 6d 6d  |lank lines, comm|
00000580  65 6e 74 73 20 61 6e 64  20 73 70 61 63 65 73 20  |ents and spaces |
00000590  61 6e 64 20 73 74 61 72  74 20 6f 66 20 6c 69 6e  |and start of lin|
000005a0  65 73 0d 02 08 21 50 3d  ae 28 a4 64 69 73 70 6c  |es...!P=.(.displ|
000005b0  61 79 5f 74 65 6d 70 64  69 72 2b 22 2e 54 65 6d  |ay_tempdir+".Tem|
000005c0  70 22 29 0d 02 12 22 51  3d ae 28 a4 64 69 73 70  |p")..."Q=.(.disp|
000005d0  6c 61 79 5f 74 65 6d 70  64 69 72 2b 22 2e 53 65  |lay_tempdir+".Se|
000005e0  74 75 70 22 29 0d 02 1c  05 f5 0d 02 26 0a 46 24  |tup").......&.F$|
000005f0  3d be 23 4f 0d 02 30 11  46 24 3d a4 73 74 72 69  |=.#O..0.F$=.stri|
00000600  70 28 46 24 29 0d 02 3a  1e e7 20 46 24 3c 3e 22  |p(F$)..:.. F$<>"|
00000610  22 20 80 20 c1 46 24 2c  31 2c 31 29 3c 3e 22 7c  |" . .F$,1,1)<>"||
00000620  22 20 8c 0d 02 44 1d c8  8e 20 a4 66 69 72 73 74  |" ...D... .first|
00000630  28 a4 66 69 72 73 74 65  71 28 46 24 29 29 20 ca  |(.firsteq(F$)) .|
00000640  0d 02 4e 32 c9 20 22 6e  61 6d 65 22 2c 22 61 64  |..N2. "name","ad|
00000650  76 65 6e 74 75 72 65 22  2c 22 61 75 74 68 6f 72  |venture","author|
00000660  22 2c 22 76 65 72 73 69  6f 6e 22 3a d5 23 51 2c  |","version":.#Q,|
00000670  46 24 0d 02 58 0c 7f 20  d5 23 50 2c 46 24 0d 02  |F$..X.. .#P,F$..|
00000680  62 05 cb 0d 02 6c 05 cd  0d 02 76 09 fd 20 c5 23  |b....l....v.. .#|
00000690  4f 0d 02 80 07 d9 23 51  0d 02 8a 07 d9 23 50 0d  |O.....#Q.....#P.|
000006a0  02 94 07 d9 23 4f 0d 02  9e 0f 4f 3d 30 3a 50 3d  |....#O....O=0:P=|
000006b0  30 3a 51 3d 30 0d 02 a8  04 0d 02 b2 11 f2 64 69  |0:Q=0.........di|
000006c0  73 70 6c 61 79 5f 70 6f  6c 6c 0d 02 bc 04 0d 02  |splay_poll......|
000006d0  c6 0c 6d 61 78 5f 61 3d  34 39 0d 02 d0 0d 6d 61  |..max_a=49....ma|
000006e0  78 5f 62 3d 32 35 36 0d  02 da 04 0d 02 e4 11 73  |x_b=256........s|
000006f0  74 61 72 74 72 6f 6f 6d  25 3d 2d 31 0d 02 ee 0d  |tartroom%=-1....|
00000700  63 75 72 5f 52 20 3d 20  30 0d 02 f8 10 f1 23 72  |cur_R = 0.....#r|
00000710  6f 6f 6d 2c a8 28 2d 31  29 0d 03 02 1b de 20 52  |oom,.(-1)..... R|
00000720  5f 64 61 74 61 25 28 31  2c 31 34 29 20 3a f4 20  |_data%(1,14) :. |
00000730  64 61 74 61 0d 03 0c 19  de 20 52 5f 6f 62 6a 65  |data..... R_obje|
00000740  63 74 73 25 28 31 2c 6d  61 78 5f 61 29 0d 03 16  |cts%(1,max_a)...|
00000750  18 de 20 52 5f 70 65 6f  70 6c 65 25 28 31 2c 6d  |.. R_people%(1,m|
00000760  61 78 5f 61 29 0d 03 20  18 de 20 52 5f 61 63 74  |ax_a).. .. R_act|
00000770  69 6f 6e 25 28 33 2c 6d  61 78 5f 61 29 0d 03 2a  |ion%(3,max_a)..*|
00000780  04 0d 03 34 12 de 20 50  5f 64 61 74 61 25 28 31  |...4.. P_data%(1|
00000790  2c 38 29 0d 03 3e 19 de  20 50 5f 6f 62 6a 65 63  |,8)..>.. P_objec|
000007a0  74 73 25 28 31 2c 6d 61  78 5f 61 29 0d 03 48 17  |ts%(1,max_a)..H.|
000007b0  de 20 50 5f 63 61 6e 62  65 25 28 33 2c 6d 61 78  |. P_canbe%(3,max|
000007c0  5f 61 29 0d 03 52 16 de  20 50 5f 74 61 6c 6b 25  |_a)..R.. P_talk%|
000007d0  28 33 2c 6d 61 78 5f 61  29 0d 03 5c 04 0d 03 66  |(3,max_a)..\...f|
000007e0  12 de 20 4f 5f 64 61 74  61 25 28 31 2c 36 29 0d  |.. O_data%(1,6).|
000007f0  03 70 17 de 20 4f 5f 63  61 6e 62 65 25 28 33 2c  |.p.. O_canbe%(3,|
00000800  6d 61 78 5f 61 29 0d 03  7a 17 de 20 4f 5f 63 61  |max_a)..z.. O_ca|
00000810  6e 64 6f 25 28 33 2c 6d  61 78 5f 61 29 0d 03 84  |ndo%(3,max_a)...|
00000820  04 0d 03 8e 12 de 20 59  5f 64 61 74 61 25 28 31  |...... Y_data%(1|
00000830  2c 34 29 0d 03 98 19 de  20 59 5f 6f 62 6a 65 63  |,4)..... Y_objec|
00000840  74 73 25 28 31 2c 6d 61  78 5f 61 29 0d 03 a2 17  |ts%(1,max_a)....|
00000850  de 20 59 5f 63 61 6e 62  65 25 28 33 2c 6d 61 78  |. Y_canbe%(3,max|
00000860  5f 61 29 0d 03 ac 17 de  20 59 5f 63 61 6e 64 6f  |_a)..... Y_cando|
00000870  25 28 33 2c 6d 61 78 5f  61 29 0d 03 b6 0f 59 5f  |%(3,max_a)....Y_|
00000880  64 6f 6e 65 25 20 3d 20  a3 0d 03 c0 04 0d 03 ca  |done% = ........|
00000890  11 73 74 72 69 6e 67 5f  70 74 72 25 3d 30 0d 03  |.string_ptr%=0..|
000008a0  d4 0f 63 6f 64 65 5f 70  74 72 25 3d 31 0d 03 de  |..code_ptr%=1...|
000008b0  04 0d 03 e8 15 de 20 52  5f 6c 61 62 65 6c 24 28  |...... R_label$(|
000008c0  6d 61 78 5f 62 29 0d 03  f2 14 de 20 52 5f 66 6c  |max_b)..... R_fl|
000008d0  61 67 25 28 6d 61 78 5f  62 29 0d 03 fc 16 52 5f  |ag%(max_b)....R_|
000008e0  6c 61 62 65 6c 24 28 30  29 3d 22 6e 75 6c 6c 22  |label$(0)="null"|
000008f0  0d 04 06 10 52 5f 66 6c  61 67 25 28 30 29 3d b9  |....R_flag%(0)=.|
00000900  0d 04 10 18 52 5f 6c 61  62 65 6c 24 28 31 29 3d  |....R_label$(1)=|
00000910  22 63 5f 72 6f 6f 6d 22  0d 04 1a 10 52 5f 66 6c  |"c_room"....R_fl|
00000920  61 67 25 28 31 29 3d b9  0d 04 24 0c 52 5f 70 74  |ag%(1)=...$.R_pt|
00000930  72 25 3d 32 0d 04 2e 04  0d 04 38 15 de 20 4f 5f  |r%=2......8.. O_|
00000940  6c 61 62 65 6c 24 28 6d  61 78 5f 62 29 0d 04 42  |label$(max_b)..B|
00000950  14 de 20 4f 5f 66 6c 61  67 25 28 6d 61 78 5f 62  |.. O_flag%(max_b|
00000960  29 0d 04 4c 12 4f 5f 6c  61 62 65 6c 24 28 30 29  |)..L.O_label$(0)|
00000970  3d 22 22 0d 04 56 10 4f  5f 66 6c 61 67 25 28 30  |=""..V.O_flag%(0|
00000980  29 3d b9 0d 04 60 0c 4f  5f 70 74 72 25 3d 31 0d  |)=...`.O_ptr%=1.|
00000990  04 6a 0a f2 4f 5f 70 61  64 0d 04 74 04 0d 04 7e  |.j..O_pad..t...~|
000009a0  04 0d 04 88 15 de 20 56  5f 6c 61 62 65 6c 24 28  |...... V_label$(|
000009b0  6d 61 78 5f 62 29 0d 04  92 14 de 20 56 5f 66 6c  |max_b)..... V_fl|
000009c0  61 67 25 28 6d 61 78 5f  62 29 0d 04 9c 18 56 5f  |ag%(max_b)....V_|
000009d0  6c 61 62 65 6c 24 28 30  29 3d 22 63 5f 72 6f 6f  |label$(0)="c_roo|
000009e0  6d 22 0d 04 a6 18 56 5f  6c 61 62 65 6c 24 28 31  |m"....V_label$(1|
000009f0  29 3d 22 6f 62 5f 67 6f  74 22 0d 04 b0 18 56 5f  |)="ob_got"....V_|
00000a00  6c 61 62 65 6c 24 28 32  29 3d 22 65 6e 65 72 67  |label$(2)="energ|
00000a10  79 22 0d 04 ba 18 56 5f  6c 61 62 65 6c 24 28 33  |y"....V_label$(3|
00000a20  29 3d 22 70 6c 5f 65 6e  67 22 0d 04 c4 10 56 5f  |)="pl_eng"....V_|
00000a30  66 6c 61 67 25 28 30 29  3d b9 0d 04 ce 10 56 5f  |flag%(0)=.....V_|
00000a40  66 6c 61 67 25 28 31 29  3d b9 0d 04 d8 10 56 5f  |flag%(1)=.....V_|
00000a50  66 6c 61 67 25 28 32 29  3d b9 0d 04 e2 10 56 5f  |flag%(2)=.....V_|
00000a60  66 6c 61 67 25 28 33 29  3d b9 0d 04 ec 0c 56 5f  |flag%(3)=.....V_|
00000a70  70 74 72 25 3d 34 0d 04  f6 04 0d 05 00 15 de 20  |ptr%=4......... |
00000a80  50 5f 6c 61 62 65 6c 24  28 6d 61 78 5f 62 29 0d  |P_label$(max_b).|
00000a90  05 0a 14 de 20 50 5f 66  6c 61 67 25 28 6d 61 78  |.... P_flag%(max|
00000aa0  5f 62 29 0d 05 14 18 50  5f 6c 61 62 65 6c 24 28  |_b)....P_label$(|
00000ab0  30 29 3d 22 70 6c 61 79  65 72 22 0d 05 1e 10 50  |0)="player"....P|
00000ac0  5f 66 6c 61 67 25 28 30  29 3d b9 0d 05 28 0c 50  |_flag%(0)=...(.P|
00000ad0  5f 70 74 72 25 3d 31 0d  05 32 0a f2 50 5f 70 61  |_ptr%=1..2..P_pa|
00000ae0  64 0d 05 3c 04 0d 05 46  19 f4 20 73 74 65 70 32  |d..<...F.. step2|
00000af0  20 74 6f 6b 65 6e 69 73  65 20 66 69 6c 65 0d 05  | tokenise file..|
00000b00  50 21 4f 3d 8e 28 a4 64  69 73 70 6c 61 79 5f 74  |P!O=.(.display_t|
00000b10  65 6d 70 64 69 72 2b 22  2e 54 65 6d 70 22 29 0d  |empdir+".Temp").|
00000b20  05 5a 05 f5 0d 05 64 11  f2 64 69 73 70 6c 61 79  |.Z....d..display|
00000b30  5f 70 6f 6c 6c 0d 05 6e  11 63 75 72 6c 69 6e 65  |_poll..n.curline|
00000b40  24 3d a4 67 65 74 0d 05  78 19 c8 8e 20 a4 66 69  |$=.get..x... .fi|
00000b50  72 73 74 28 63 75 72 6c  69 6e 65 24 29 20 ca 0d  |rst(curline$) ..|
00000b60  05 82 12 c9 20 22 72 6f  6f 6d 22 3a f2 72 6f 6f  |.... "room":.roo|
00000b70  6d 0d 05 8c 16 c9 20 22  70 65 72 73 6f 6e 22 3a  |m..... "person":|
00000b80  f2 70 65 72 73 6f 6e 0d  05 96 16 c9 20 22 70 6c  |.person..... "pl|
00000b90  61 79 65 72 22 3a f2 70  6c 61 79 65 72 0d 05 a0  |ayer":.player...|
00000ba0  16 c9 20 22 6f 62 6a 65  63 74 22 3a f2 6f 62 6a  |.. "object":.obj|
00000bb0  65 63 74 0d 05 aa 1a c9  20 22 76 61 72 69 61 62  |ect..... "variab|
00000bc0  6c 65 22 3a f2 76 61 72  69 61 62 6c 65 0d 05 b4  |le":.variable...|
00000bd0  61 7f 20 f2 72 65 70 6f  72 74 28 22 55 6e 6b 6e  |a. .report("Unkn|
00000be0  6f 77 6e 20 64 65 63 6c  61 74 61 74 69 6f 6e 20  |own declatation |
00000bf0  77 6f 72 64 3a 20 27 22  2b a4 66 69 72 73 74 28  |word: '"+.first(|
00000c00  63 75 72 6c 69 6e 65 24  29 2b 22 27 20 73 68 6f  |curline$)+"' sho|
00000c10  75 6c 64 20 62 65 20 72  6f 6f 6d 2c 20 76 61 72  |uld be room, var|
00000c20  69 61 62 6c 65 2c 20 65  74 63 2e 2c 22 29 0d 05  |iable, etc.,")..|
00000c30  be 05 cb 0d 05 c8 09 fd  20 c5 23 4f 0d 05 d2 11  |........ .#O....|
00000c40  f2 64 69 73 70 6c 61 79  5f 70 6f 6c 6c 0d 05 dc  |.display_poll...|
00000c50  07 d9 23 4f 0d 05 e6 12  f2 74 61 62 6c 65 73 63  |..#O.....tablesc|
00000c60  6c 65 61 72 75 70 0d 05  f0 15 d9 23 73 74 72 69  |learup.....#stri|
00000c70  6e 67 3a 73 74 72 69 6e  67 3d 30 0d 05 fa 0f d9  |ng:string=0.....|
00000c80  23 76 61 72 3a 76 61 72  3d 30 0d 06 04 0c cf 23  |#var:var=0.....#|
00000c90  72 6f 6f 6d 3d 35 0d 06  0e 2e e7 20 73 74 61 72  |room=5..... star|
00000ca0  74 72 6f 6f 6d 25 3d 2d  31 20 8c 20 f2 72 65 70  |troom%=-1 . .rep|
00000cb0  6f 72 74 28 22 4e 6f 20  73 74 61 72 74 20 72 6f  |ort("No start ro|
00000cc0  6f 6d 22 29 0d 06 18 15  f1 23 72 6f 6f 6d 2c 73  |om").....#room,s|
00000cd0  74 61 72 74 72 6f 6f 6d  25 0d 06 22 11 d9 23 72  |tartroom%.."..#r|
00000ce0  6f 6f 6d 3a 72 6f 6f 6d  3d 30 0d 06 2c 0f d9 23  |oom:room=0..,..#|
00000cf0  6f 62 6a 3a 6f 62 6a 3d  30 0d 06 36 15 d9 23 70  |obj:obj=0..6..#p|
00000d00  65 6f 70 6c 65 3a 70 65  6f 70 6c 65 3d 30 0d 06  |eople:people=0..|
00000d10  40 27 e7 20 59 5f 64 6f  6e 65 25 3d a3 20 8c 20  |@'. Y_done%=. . |
00000d20  f2 72 65 70 6f 72 74 28  22 4e 6f 20 70 6c 61 79  |.report("No play|
00000d30  65 72 2e 22 29 0d 06 4a  11 d9 23 70 6c 61 79 3a  |er.")..J..#play:|
00000d40  70 6c 61 79 3d 30 0d 06  54 11 d9 23 63 6f 64 65  |play=0..T..#code|
00000d50  3a 63 6f 64 65 3d 30 0d  06 5e 19 f2 64 69 73 70  |:code=0..^..disp|
00000d60  6c 61 79 5f 73 70 65 63  69 61 6c 28 22 20 22 29  |lay_special(" ")|
00000d70  0d 06 68 4c f2 64 69 73  70 6c 61 79 5f 73 70 65  |..hL.display_spe|
00000d80  63 69 61 6c 28 22 46 69  6c 65 3a 20 27 22 2b 70  |cial("File: '"+p|
00000d90  72 61 6d 24 2b 22 27 20  63 6f 6d 70 69 6c 65 64  |ram$+"' compiled|
00000da0  20 77 69 74 68 20 22 2b  c3 28 65 72 72 29 2b 22  | with "+.(err)+"|
00000db0  20 65 72 72 6f 72 28 73  29 2e 22 29 0d 06 72 0d  | error(s).")..r.|
00000dc0  e7 20 65 72 72 3e 30 20  8c 0d 06 7c 32 f2 64 69  |. err>0 ...|2.di|
00000dd0  73 70 6c 61 79 5f 73 70  65 63 69 61 6c 28 22 4e  |splay_special("N|
00000de0  6f 20 63 6f 6d 70 69 6c  65 64 20 66 69 6c 65 20  |o compiled file |
00000df0  70 72 6f 64 75 63 65 64  2e 22 29 0d 06 86 4d f2  |produced.")...M.|
00000e00  64 69 73 70 6c 61 79 5f  73 70 65 63 69 61 6c 28  |display_special(|
00000e10  22 52 65 6d 65 6d 62 65  72 20 74 68 61 74 20 74  |"Remember that t|
00000e20  68 65 20 66 69 72 73 74  20 65 72 72 6f 72 20 70  |he first error p|
00000e30  72 6f 62 61 62 6c 79 20  68 61 73 20 63 61 75 73  |robably has caus|
00000e40  65 64 20 74 68 65 22 29  0d 06 90 3d f2 64 69 73  |ed the")...=.dis|
00000e50  70 6c 61 79 5f 73 70 65  63 69 61 6c 28 22 73 75  |play_special("su|
00000e60  62 73 65 71 75 65 6e 74  20 65 72 72 6f 72 73 2c  |bsequent errors,|
00000e70  20 73 6f 20 66 69 78 20  74 68 69 73 20 66 69 72  | so fix this fir|
00000e80  73 74 21 22 29 0d 06 9a  3a c8 99 20 22 58 4f 53  |st!")...:.. "XOS|
00000e90  5f 43 4c 49 22 2c 22 57  69 70 65 20 22 2b a4 64  |_CLI","Wipe "+.d|
00000ea0  69 73 70 6c 61 79 5f 74  65 6d 70 64 69 72 2b 22  |isplay_tempdir+"|
00000eb0  2e 53 65 74 75 70 20 7e  43 7e 52 7e 56 46 22 0d  |.Setup ~C~R~VF".|
00000ec0  06 a4 05 cd 0d 06 ae 19  f2 64 69 73 70 6c 61 79  |.........display|
00000ed0  5f 73 70 65 63 69 61 6c  28 22 20 22 29 0d 06 b8  |_special(" ")...|
00000ee0  19 f2 64 69 73 70 6c 61  79 5f 73 70 65 63 69 61  |..display_specia|
00000ef0  6c 28 22 20 22 29 0d 06  c2 10 f2 64 69 73 70 6c  |l(" ").....displ|
00000f00  61 79 5f 65 6e 64 0d 06  cc 05 e0 0d 06 d6 04 0d  |ay_end..........|
00000f10  06 e0 2f f4 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |../.************|
00000f20  2a 2a 2a 2a 2a 2a 2a 2a  2a 56 41 52 49 41 42 4c  |*********VARIABL|
00000f30  45 20 44 45 43 4c 41 52  41 54 49 4f 4e 53 0d 06  |E DECLARATIONS..|
00000f40  ea 04 0d 06 f4 0e dd f2  76 61 72 69 61 62 6c 65  |........variable|
00000f50  0d 06 fe 20 63 75 72 6c  69 6e 65 24 3d a4 6e 6f  |... curline$=.no|
00000f60  74 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |tfirst(curline$)|
00000f70  0d 07 08 1f 64 75 6d 6d  79 25 3d a4 67 65 74 6e  |....dummy%=.getn|
00000f80  65 77 76 61 72 69 61 62  6c 65 6c 61 62 6c 65 0d  |ewvariablelable.|
00000f90  07 12 2b 63 75 72 6c 69  6e 65 24 3d a4 73 74 72  |..+curline$=.str|
00000fa0  69 70 28 a4 73 74 72 69  70 5f 65 6e 64 28 28 63  |ip(.strip_end((c|
00000fb0  75 72 6c 69 6e 65 24 29  29 29 0d 07 1c 12 67 25  |urline$)))....g%|
00000fc0  3d bb 28 63 75 72 6c 69  6e 65 24 29 0d 07 26 10  |=.(curline$)..&.|
00000fd0  f1 23 76 61 72 2c 64 75  6d 6d 79 25 0d 07 30 0c  |.#var,dummy%..0.|
00000fe0  f1 23 76 61 72 2c 67 25  0d 07 3a 05 e1 0d 07 44  |.#var,g%..:....D|
00000ff0  04 0d 07 4e 20 f4 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...N .**********|
00001000  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 50 4c 41 59 45  |***********PLAYE|
00001010  52 0d 07 58 04 0d 07 62  0c dd f2 70 6c 61 79 65  |R..X...b...playe|
00001020  72 0d 07 6c 11 e7 20 59  5f 64 6f 6e 65 25 3d b9  |r..l.. Y_done%=.|
00001030  20 8c 0d 07 76 66 f2 72  65 70 6f 72 74 28 22 4d  | ...vf.report("M|
00001040  6f 72 65 20 74 68 61 6e  20 6f 6e 65 20 70 6c 61  |ore than one pla|
00001050  79 65 72 20 64 65 63 6c  61 72 61 74 69 6f 6e 2e  |yer declaration.|
00001060  20 4e 6f 74 20 70 61 72  73 69 6e 67 3a 20 74 68  | Not parsing: th|
00001070  65 72 65 20 77 69 6c 6c  20 62 65 20 61 20 6c 6f  |ere will be a lo|
00001080  74 20 6f 66 20 65 72 72  6f 72 73 20 61 66 74 65  |t of errors afte|
00001090  72 20 74 68 69 73 22 29  0d 07 80 05 cc 0d 07 8a  |r this")........|
000010a0  25 f2 64 69 73 70 6c 61  79 5f 73 70 65 63 69 61  |%.display_specia|
000010b0  6c 28 22 44 6f 69 6e 67  20 70 6c 61 79 65 72 2e  |l("Doing player.|
000010c0  22 29 0d 07 94 0d 59 5f  64 6f 6e 65 25 3d b9 0d  |")....Y_done%=..|
000010d0  07 9e 0f 59 5f 64 61 74  61 25 28 29 3d 30 0d 07  |...Y_data%()=0..|
000010e0  a8 13 59 5f 64 61 74 61  25 28 30 2c 33 29 3d 2d  |..Y_data%(0,3)=-|
000010f0  31 0d 07 b2 12 59 5f 6f  62 6a 65 63 74 73 25 28  |1....Y_objects%(|
00001100  29 3d 30 0d 07 bc 10 59  5f 63 61 6e 62 65 25 28  |)=0....Y_canbe%(|
00001110  29 3d 30 0d 07 c6 10 59  5f 63 61 6e 64 6f 25 28  |)=0....Y_cando%(|
00001120  29 3d 30 0d 07 d0 0b 59  5f 6f 62 73 3d 30 0d 07  |)=0....Y_obs=0..|
00001130  da 0d 59 5f 63 61 6e 62  65 3d 30 0d 07 e4 0d 59  |..Y_canbe=0....Y|
00001140  5f 63 61 6e 64 6f 3d 30  0d 07 ee 20 63 75 72 6c  |_cando=0... curl|
00001150  69 6e 65 24 3d a4 6e 6f  74 66 69 72 73 74 28 63  |ine$=.notfirst(c|
00001160  75 72 6c 69 6e 65 24 29  0d 07 f8 0c 65 6e 64 5f  |urline$)....end_|
00001170  59 25 3d a3 0d 08 02 0c  75 73 65 6f 6c 64 3d a3  |Y%=.....useold=.|
00001180  0d 08 0c 05 f5 0d 08 16  1e e7 20 75 73 65 6f 6c  |.......... useol|
00001190  64 3d a3 20 8c 20 63 75  72 6c 69 6e 65 24 3d a4  |d=. . curline$=.|
000011a0  67 65 74 0d 08 20 17 70  24 3d a4 66 69 72 73 74  |get.. .p$=.first|
000011b0  28 63 75 72 6c 69 6e 65  24 29 0d 08 2a 0c 75 73  |(curline$)..*.us|
000011c0  65 6f 6c 64 3d a3 0d 08  34 0b c8 8e 20 70 24 20  |eold=...4... p$ |
000011d0  ca 0d 08 3e 15 c9 20 22  74 65 78 74 3a 22 3a f2  |...>.. "text:":.|
000011e0  74 65 78 74 5f 59 0d 08  48 15 c9 20 22 6e 61 6d  |text_Y..H.. "nam|
000011f0  65 3a 22 3a f2 6e 61 6d  65 5f 59 0d 08 52 15 c9  |e:":.name_Y..R..|
00001200  20 22 64 65 61 64 3a 22  3a f2 64 65 61 64 5f 59  | "dead:":.dead_Y|
00001210  0d 08 5c 1b c9 20 22 6f  62 6a 65 63 74 73 3a 22  |..\.. "objects:"|
00001220  3a f2 6f 62 6a 65 63 74  73 5f 59 0d 08 66 17 c9  |:.objects_Y..f..|
00001230  20 22 63 61 6e 62 65 3a  22 3a f2 63 61 6e 62 65  | "canbe:":.canbe|
00001240  5f 59 0d 08 70 17 c9 20  22 63 61 6e 64 6f 3a 22  |_Y..p.. "cando:"|
00001250  3a f2 63 61 6e 64 6f 5f  59 0d 08 7a 19 c9 20 22  |:.cando_Y..z.. "|
00001260  65 6e 65 72 67 79 3a 22  3a f2 65 6e 65 72 67 79  |energy:":.energy|
00001270  5f 59 0d 08 84 12 c9 20  22 7d 22 3a 65 6e 64 5f  |_Y..... "}":end_|
00001280  59 25 3d b9 0d 08 8e 2d  7f 20 f2 72 65 70 6f 72  |Y%=....-. .repor|
00001290  74 28 22 55 6e 6b 6e 6f  77 6e 20 70 6c 61 79 65  |t("Unknown playe|
000012a0  72 20 74 61 67 3a 20 27  22 2b 70 24 2b 22 27 22  |r tag: '"+p$+"'"|
000012b0  29 0d 08 98 05 cb 0d 08  a2 0e fd 20 65 6e 64 5f  |).......... end_|
000012c0  59 25 3d b9 0d 08 ac 36  f2 77 72 69 74 65 5f 59  |Y%=....6.write_Y|
000012d0  20 3a 3a f4 2a 2a 2a 2a  2a 2a 2a 2a 72 65 6d 65  | ::.********reme|
000012e0  6d 62 65 72 20 74 6f 20  61 6c 73 6f 20 6f 75 74  |mber to also out|
000012f0  70 75 74 20 6e 75 6d 62  65 72 0d 08 b6 05 cd 0d  |put number......|
00001300  08 c0 05 e1 0d 08 ca 04  0d 08 d4 0d dd f2 77 72  |..............wr|
00001310  69 74 65 5f 59 0d 08 de  38 f4 2a 2a 2a 2a 2a 46  |ite_Y...8.*****F|
00001320  49 52 53 54 20 43 48 45  43 4b 20 41 4c 4c 20 54  |IRST CHECK ALL T|
00001330  48 45 20 4e 45 45 44 45  44 20 4d 45 4d 42 45 52  |HE NEEDED MEMBER|
00001340  53 20 41 52 45 20 50 52  45 53 41 4e 54 0d 08 e8  |S ARE PRESANT...|
00001350  3d e7 20 59 5f 64 61 74  61 25 28 30 2c 30 29 3d  |=. Y_data%(0,0)=|
00001360  30 20 8c 20 f2 72 65 70  6f 72 74 28 22 4e 6f 20  |0 . .report("No |
00001370  6e 61 6d 65 3a 20 70 72  65 73 61 6e 74 20 69 6e  |name: presant in|
00001380  20 70 6c 61 79 65 72 2e  22 29 0d 08 f2 3d e7 20  | player.")...=. |
00001390  59 5f 64 61 74 61 25 28  30 2c 31 29 3d 30 20 8c  |Y_data%(0,1)=0 .|
000013a0  20 f2 72 65 70 6f 72 74  28 22 4e 6f 20 74 65 78  | .report("No tex|
000013b0  74 3a 20 70 72 65 73 61  6e 74 20 69 6e 20 70 6c  |t: presant in pl|
000013c0  61 79 65 72 2e 22 29 0d  08 fc 0c e3 20 49 25 3d  |ayer.")..... I%=|
000013d0  30 b8 34 0d 09 06 18 f1  23 70 6c 61 79 2c 59 5f  |0.4.....#play,Y_|
000013e0  64 61 74 61 25 28 30 2c  49 25 29 0d 09 10 0b c8  |data%(0,I%).....|
000013f0  8e 20 49 25 20 ca 0d 09  1a 08 c9 20 33 3a 0d 09  |. I% ...... 3:..|
00001400  24 1a 7f 20 f1 23 70 6c  61 79 2c 59 5f 64 61 74  |$.. .#play,Y_dat|
00001410  61 25 28 31 2c 49 25 29  0d 09 2e 05 cb 0d 09 38  |a%(1,I%).......8|
00001420  05 ed 0d 09 42 0b 59 5f  6f 62 73 3d 30 0d 09 4c  |....B.Y_obs=0..L|
00001430  05 f5 0d 09 56 1e f1 23  70 6c 61 79 2c 59 5f 6f  |....V..#play,Y_o|
00001440  62 6a 65 63 74 73 25 28  30 2c 59 5f 6f 62 73 29  |bjects%(0,Y_obs)|
00001450  0d 09 60 1e f1 23 70 6c  61 79 2c 59 5f 6f 62 6a  |..`..#play,Y_obj|
00001460  65 63 74 73 25 28 31 2c  59 5f 6f 62 73 29 0d 09  |ects%(1,Y_obs)..|
00001470  6a 0c 59 5f 6f 62 73 2b  3d 31 0d 09 74 39 fd 20  |j.Y_obs+=1..t9. |
00001480  59 5f 6f 62 6a 65 63 74  73 25 28 30 2c 59 5f 6f  |Y_objects%(0,Y_o|
00001490  62 73 2d 31 29 3d 30 20  80 20 59 5f 6f 62 6a 65  |bs-1)=0 . Y_obje|
000014a0  63 74 73 25 28 31 2c 59  5f 6f 62 73 2d 31 29 20  |cts%(1,Y_obs-1) |
000014b0  3d 20 30 0d 09 7e 0d 59  5f 63 61 6e 62 65 3d 30  |= 0..~.Y_canbe=0|
000014c0  0d 09 88 05 f5 0d 09 92  1e f1 23 70 6c 61 79 2c  |..........#play,|
000014d0  59 5f 63 61 6e 62 65 25  28 30 2c 59 5f 63 61 6e  |Y_canbe%(0,Y_can|
000014e0  62 65 29 0d 09 9c 1e f1  23 70 6c 61 79 2c 59 5f  |be).....#play,Y_|
000014f0  63 61 6e 62 65 25 28 31  2c 59 5f 63 61 6e 62 65  |canbe%(1,Y_canbe|
00001500  29 0d 09 a6 1e f1 23 70  6c 61 79 2c 59 5f 63 61  |).....#play,Y_ca|
00001510  6e 62 65 25 28 32 2c 59  5f 63 61 6e 62 65 29 0d  |nbe%(2,Y_canbe).|
00001520  09 b0 1e f1 23 70 6c 61  79 2c 59 5f 63 61 6e 62  |....#play,Y_canb|
00001530  65 25 28 33 2c 59 5f 63  61 6e 62 65 29 0d 09 ba  |e%(3,Y_canbe)...|
00001540  0e 59 5f 63 61 6e 62 65  2b 3d 31 0d 09 c4 6f fd  |.Y_canbe+=1...o.|
00001550  20 59 5f 63 61 6e 62 65  25 28 30 2c 59 5f 63 61  | Y_canbe%(0,Y_ca|
00001560  6e 62 65 2d 31 29 3d 30  20 80 20 59 5f 63 61 6e  |nbe-1)=0 . Y_can|
00001570  62 65 25 28 31 2c 59 5f  63 61 6e 62 65 2d 31 29  |be%(1,Y_canbe-1)|
00001580  20 3d 20 30 20 80 20 59  5f 63 61 6e 62 65 25 28  | = 0 . Y_canbe%(|
00001590  32 2c 59 5f 63 61 6e 62  65 2d 31 29 3d 30 20 80  |2,Y_canbe-1)=0 .|
000015a0  20 59 5f 63 61 6e 62 65  25 28 33 2c 59 5f 63 61  | Y_canbe%(3,Y_ca|
000015b0  6e 62 65 2d 31 29 20 3d  20 30 0d 09 ce 0d 59 5f  |nbe-1) = 0....Y_|
000015c0  63 61 6e 64 6f 3d 30 0d  09 d8 05 f5 0d 09 e2 1e  |cando=0.........|
000015d0  f1 23 70 6c 61 79 2c 59  5f 63 61 6e 64 6f 25 28  |.#play,Y_cando%(|
000015e0  30 2c 59 5f 63 61 6e 64  6f 29 0d 09 ec 1e f1 23  |0,Y_cando).....#|
000015f0  70 6c 61 79 2c 59 5f 63  61 6e 64 6f 25 28 31 2c  |play,Y_cando%(1,|
00001600  59 5f 63 61 6e 64 6f 29  0d 09 f6 1e f1 23 70 6c  |Y_cando).....#pl|
00001610  61 79 2c 59 5f 63 61 6e  64 6f 25 28 32 2c 59 5f  |ay,Y_cando%(2,Y_|
00001620  63 61 6e 64 6f 29 0d 0a  00 1e f1 23 70 6c 61 79  |cando).....#play|
00001630  2c 59 5f 63 61 6e 64 6f  25 28 33 2c 59 5f 63 61  |,Y_cando%(3,Y_ca|
00001640  6e 64 6f 29 0d 0a 0a 0e  59 5f 63 61 6e 64 6f 2b  |ndo)....Y_cando+|
00001650  3d 31 0d 0a 14 6f fd 20  59 5f 63 61 6e 64 6f 25  |=1...o. Y_cando%|
00001660  28 30 2c 59 5f 63 61 6e  64 6f 2d 31 29 3d 30 20  |(0,Y_cando-1)=0 |
00001670  80 20 59 5f 63 61 6e 64  6f 25 28 31 2c 59 5f 63  |. Y_cando%(1,Y_c|
00001680  61 6e 64 6f 2d 31 29 20  3d 20 30 20 80 20 59 5f  |ando-1) = 0 . Y_|
00001690  63 61 6e 64 6f 25 28 32  2c 59 5f 63 61 6e 64 6f  |cando%(2,Y_cando|
000016a0  2d 31 29 3d 30 20 80 20  59 5f 63 61 6e 64 6f 25  |-1)=0 . Y_cando%|
000016b0  28 33 2c 59 5f 63 61 6e  64 6f 2d 31 29 20 3d 20  |(3,Y_cando-1) = |
000016c0  30 0d 0a 1e 05 e1 0d 0a  28 04 0d 0a 32 0e dd f2  |0.......(...2...|
000016d0  65 6e 65 72 67 79 5f 59  0d 0a 3c 34 63 75 72 6c  |energy_Y..<4curl|
000016e0  69 6e 65 24 3d a4 73 74  72 69 70 28 a4 73 74 72  |ine$=.strip(.str|
000016f0  69 70 5f 65 6e 64 28 a4  6e 6f 74 66 69 72 73 74  |ip_end(.notfirst|
00001700  28 63 75 72 6c 69 6e 65  24 29 29 29 0d 0a 46 11  |(curline$)))..F.|
00001710  67 3d bb 28 63 75 72 6c  69 6e 65 24 29 0d 0a 50  |g=.(curline$)..P|
00001720  3b e7 20 67 3d 30 20 8c  20 f2 72 65 70 6f 72 74  |;. g=0 . .report|
00001730  28 22 42 61 64 20 65 6e  65 72 67 79 3a 20 76 61  |("Bad energy: va|
00001740  6c 75 65 20 30 20 6f 72  20 6e 6f 74 20 61 20 6e  |lue 0 or not a n|
00001750  75 6d 62 65 72 2e 22 29  0d 0a 5a 12 59 5f 64 61  |umber.")..Z.Y_da|
00001760  74 61 25 28 30 2c 33 29  3d 67 0d 0a 64 05 e1 0d  |ta%(0,3)=g..d...|
00001770  0a 6e 04 0d 0a 78 0c dd  f2 6e 61 6d 65 5f 59 0d  |.n...x...name_Y.|
00001780  0a 82 20 63 75 72 6c 69  6e 65 24 3d a4 6e 6f 74  |.. curline$=.not|
00001790  66 69 72 73 74 28 63 75  72 6c 69 6e 65 24 29 0d  |first(curline$).|
000017a0  0a 8c 0f 73 3d a4 64 6f  73 74 72 69 6e 67 0d 0a  |...s=.dostring..|
000017b0  96 14 59 5f 64 61 74 61  25 28 30 2c 30 29 3d 26  |..Y_data%(0,0)=&|
000017c0  30 37 0d 0a a0 12 59 5f  64 61 74 61 25 28 31 2c  |07....Y_data%(1,|
000017d0  30 29 3d 73 0d 0a aa 05  e1 0d 0a b4 04 0d 0a be  |0)=s............|
000017e0  38 dd f2 74 65 78 74 5f  59 20 20 3a f4 20 61 20  |8..text_Y  :. a |
000017f0  62 6c 6f 63 6b 20 6f 66  20 73 74 72 69 6e 67 73  |block of strings|
00001800  20 72 61 74 68 65 72 20  74 68 61 6e 20 6a 75 73  | rather than jus|
00001810  74 20 6f 6e 65 0d 0a c8  20 63 75 72 6c 69 6e 65  |t one... curline|
00001820  24 3d a4 6e 6f 74 66 69  72 73 74 28 63 75 72 6c  |$=.notfirst(curl|
00001830  69 6e 65 24 29 0d 0a d2  0f 73 3d a4 64 6f 73 74  |ine$)....s=.dost|
00001840  72 69 6e 67 0d 0a dc 08  73 32 3d 73 0d 0a e6 0c  |ring....s2=s....|
00001850  75 73 65 6f 6c 64 3d b9  0d 0a f0 11 63 75 72 6c  |useold=.....curl|
00001860  69 6e 65 24 3d a4 67 65  74 0d 0a fa 1b c8 95 20  |ine$=.get...... |
00001870  c1 63 75 72 6c 69 6e 65  24 2c 31 2c 31 29 3d bd  |.curline$,1,1)=.|
00001880  28 33 34 29 0d 0b 04 10  73 32 3d a4 64 6f 73 74  |(34)....s2=.dost|
00001890  72 69 6e 67 0d 0b 0e 11  63 75 72 6c 69 6e 65 24  |ring....curline$|
000018a0  3d a4 67 65 74 0d 0b 18  05 ce 0d 0b 22 14 59 5f  |=.get.......".Y_|
000018b0  64 61 74 61 25 28 30 2c  31 29 3d 26 30 37 0d 0b  |data%(0,1)=&07..|
000018c0  2c 12 59 5f 64 61 74 61  25 28 31 2c 31 29 3d 73  |,.Y_data%(1,1)=s|
000018d0  0d 0b 36 14 59 5f 64 61  74 61 25 28 30 2c 32 29  |..6.Y_data%(0,2)|
000018e0  3d 26 30 37 0d 0b 40 13  59 5f 64 61 74 61 25 28  |=&07..@.Y_data%(|
000018f0  31 2c 32 29 3d 73 32 0d  0b 4a 05 e1 0d 0b 54 04  |1,2)=s2..J....T.|
00001900  0d 0b 5e 0c dd f2 64 65  61 64 5f 59 0d 0b 68 0b  |..^...dead_Y..h.|
00001910  c8 8e 20 70 24 20 ca 0d  0b 72 11 c9 20 22 64 65  |.. p$ ...r.. "de|
00001920  61 64 3a 22 3a 64 3d 34  0d 0b 7c 05 cb 0d 0b 86  |ad:":d=4..|.....|
00001930  20 63 75 72 6c 69 6e 65  24 3d a4 6e 6f 74 66 69  | curline$=.notfi|
00001940  72 73 74 28 63 75 72 6c  69 6e 65 24 29 0d 0b 90  |rst(curline$)...|
00001950  0d 79 3d a4 64 6f 63 6f  64 65 0d 0b 9a 14 59 5f  |.y=.docode....Y_|
00001960  64 61 74 61 25 28 30 2c  64 29 3d 26 30 36 0d 0b  |data%(0,d)=&06..|
00001970  a4 12 59 5f 64 61 74 61  25 28 31 2c 64 29 3d 79  |..Y_data%(1,d)=y|
00001980  0d 0b ae 05 e1 0d 0b b8  04 0d 0b c2 0f dd f2 6f  |...............o|
00001990  62 6a 65 63 74 73 5f 59  0d 0b cc 20 63 75 72 6c  |bjects_Y... curl|
000019a0  69 6e 65 24 3d a4 6e 6f  74 66 69 72 73 74 28 63  |ine$=.notfirst(c|
000019b0  75 72 6c 69 6e 65 24 29  0d 0b d6 21 c8 95 20 63  |urline$)...!.. c|
000019c0  75 72 6c 69 6e 65 24 3c  3e 22 22 20 80 20 59 5f  |urline$<>"" . Y_|
000019d0  6f 62 73 3c 6d 61 78 5f  61 0d 0b e0 1e 74 65 6d  |obs<max_a....tem|
000019e0  70 24 3d a4 63 6f 6d 6d  61 5f 67 65 74 28 63 75  |p$=.comma_get(cu|
000019f0  72 6c 69 6e 65 24 29 0d  0b ea 22 63 75 72 6c 69  |rline$)..."curli|
00001a00  6e 65 24 3d a4 63 6f 6d  6d 61 5f 72 65 73 74 28  |ne$=.comma_rest(|
00001a10  63 75 72 6c 69 6e 65 24  29 0d 0b f4 11 6e 3d a4  |curline$)....n=.|
00001a20  6f 62 73 28 74 65 6d 70  24 29 0d 0b fe 1b 59 5f  |obs(temp$)....Y_|
00001a30  6f 62 6a 65 63 74 73 25  28 30 2c 59 5f 6f 62 73  |objects%(0,Y_obs|
00001a40  29 3d 26 30 32 0d 0c 08  19 59 5f 6f 62 6a 65 63  |)=&02....Y_objec|
00001a50  74 73 25 28 31 2c 59 5f  6f 62 73 29 3d 6e 0d 0c  |ts%(1,Y_obs)=n..|
00001a60  12 0c 59 5f 6f 62 73 2b  3d 31 0d 0c 1c 05 ce 0d  |..Y_obs+=1......|
00001a70  0c 26 3b e7 20 63 75 72  6c 69 6e 65 24 3c 3e 22  |.&;. curline$<>"|
00001a80  22 20 8c 20 f2 72 65 70  6f 72 74 28 22 54 6f 6f  |" . .report("Too|
00001a90  20 6d 61 6e 79 20 6f 62  6a 65 63 74 73 20 69 6e  | many objects in|
00001aa0  20 70 6c 61 79 65 72 2e  22 29 0d 0c 30 05 e1 0d  | player.")..0...|
00001ab0  0c 3a 04 0d 0c 44 0d dd  f2 63 61 6e 62 65 5f 59  |.:...D...canbe_Y|
00001ac0  0d 0c 4e 5b e7 20 c2 a4  73 74 72 69 70 5f 65 6e  |..N[. ..strip_en|
00001ad0  64 28 63 75 72 6c 69 6e  65 24 29 29 3c 3e 22 7b  |d(curline$))<>"{|
00001ae0  22 20 8c 20 f2 72 65 70  6f 72 74 28 22 6c 61 73  |" . .report("las|
00001af0  74 20 63 68 61 72 61 63  74 65 72 20 6f 6e 20 61  |t character on a|
00001b00  6e 20 63 61 6e 62 65 3a  20 6c 69 6e 65 20 6d 75  |n canbe: line mu|
00001b10  73 74 20 62 65 20 61 20  7b 22 29 0d 0c 58 11 63  |st be a {")..X.c|
00001b20  75 72 6c 69 6e 65 24 3d  a4 67 65 74 0d 0c 62 2c  |urline$=.get..b,|
00001b30  c8 95 20 a4 66 69 72 73  74 28 63 75 72 6c 69 6e  |.. .first(curlin|
00001b40  65 24 29 3c 3e 22 7d 22  20 80 20 59 5f 63 61 6e  |e$)<>"}" . Y_can|
00001b50  62 65 3c 6d 61 78 5f 61  0d 0c 6c 0f 6e 3d a4 64  |be<max_a..l.n=.d|
00001b60  6f 73 74 72 69 6e 67 0d  0c 76 45 e7 20 c1 63 75  |ostring..vE. .cu|
00001b70  72 6c 69 6e 65 24 2c 31  2c 31 29 3c 3e 22 3a 22  |rline$,1,1)<>":"|
00001b80  20 8c 20 f2 72 65 70 6f  72 74 28 22 43 6f 6c 6f  | . .report("Colo|
00001b90  6e 20 6e 65 65 64 65 64  20 61 66 74 65 72 20 76  |n needed after v|
00001ba0  65 72 62 20 73 74 72 69  6e 67 22 29 0d 0c 80 19  |erb string")....|
00001bb0  63 75 72 6c 69 6e 65 24  3d c1 63 75 72 6c 69 6e  |curline$=.curlin|
00001bc0  65 24 2c 32 29 0d 0c 8a  0d 79 3d a4 64 6f 63 6f  |e$,2)....y=.doco|
00001bd0  64 65 0d 0c 94 1b 59 5f  63 61 6e 62 65 25 28 30  |de....Y_canbe%(0|
00001be0  2c 59 5f 63 61 6e 62 65  29 3d 26 30 37 0d 0c 9e  |,Y_canbe)=&07...|
00001bf0  19 59 5f 63 61 6e 62 65  25 28 31 2c 59 5f 63 61  |.Y_canbe%(1,Y_ca|
00001c00  6e 62 65 29 3d 6e 0d 0c  a8 1b 59 5f 63 61 6e 62  |nbe)=n....Y_canb|
00001c10  65 25 28 32 2c 59 5f 63  61 6e 62 65 29 3d 26 30  |e%(2,Y_canbe)=&0|
00001c20  36 0d 0c b2 19 59 5f 63  61 6e 62 65 25 28 33 2c  |6....Y_canbe%(3,|
00001c30  59 5f 63 61 6e 62 65 29  3d 79 0d 0c bc 0e 59 5f  |Y_canbe)=y....Y_|
00001c40  63 61 6e 62 65 2b 3d 31  0d 0c c6 11 63 75 72 6c  |canbe+=1....curl|
00001c50  69 6e 65 24 3d a4 67 65  74 0d 0c d0 05 ce 0d 0c  |ine$=.get.......|
00001c60  da 3b e7 20 63 75 72 6c  69 6e 65 24 3c 3e 22 7d  |.;. curline$<>"}|
00001c70  22 20 8c 20 f2 72 65 70  6f 72 74 28 22 54 6f 6f  |" . .report("Too|
00001c80  20 6d 61 6e 79 20 63 61  6e 62 65 73 20 69 6e 20  | many canbes in |
00001c90  70 6c 61 79 65 72 2e 22  29 0d 0c e4 05 e1 0d 0c  |player.").......|
00001ca0  ee 04 0d 0c f8 0d dd f2  63 61 6e 64 6f 5f 59 0d  |........cando_Y.|
00001cb0  0d 02 5a e7 20 c2 a4 73  74 72 69 70 5f 65 6e 64  |..Z. ..strip_end|
00001cc0  28 63 75 72 6c 69 6e 65  24 29 29 3c 3e 22 7b 22  |(curline$))<>"{"|
00001cd0  20 8c 20 f2 72 65 70 6f  72 74 28 22 6c 61 73 74  | . .report("last|
00001ce0  20 63 68 61 72 61 63 74  65 72 20 6f 6e 20 61 6e  | character on an|
00001cf0  20 74 61 6c 6b 3a 20 6c  69 6e 65 20 6d 75 73 74  | talk: line must|
00001d00  20 62 65 20 61 20 7b 22  29 0d 0d 0c 11 63 75 72  | be a {")....cur|
00001d10  6c 69 6e 65 24 3d a4 67  65 74 0d 0d 16 2c c8 95  |line$=.get...,..|
00001d20  20 a4 66 69 72 73 74 28  63 75 72 6c 69 6e 65 24  | .first(curline$|
00001d30  29 3c 3e 22 7d 22 20 80  20 59 5f 63 61 6e 64 6f  |)<>"}" . Y_cando|
00001d40  3c 6d 61 78 5f 61 0d 0d  20 0f 6e 3d a4 64 6f 73  |<max_a.. .n=.dos|
00001d50  74 72 69 6e 67 0d 0d 2a  48 e7 20 c1 63 75 72 6c  |tring..*H. .curl|
00001d60  69 6e 65 24 2c 31 2c 31  29 3c 3e 22 3a 22 20 8c  |ine$,1,1)<>":" .|
00001d70  20 f2 72 65 70 6f 72 74  28 22 43 6f 6c 6f 6e 20  | .report("Colon |
00001d80  6e 65 65 64 65 64 20 61  66 74 65 72 20 6b 65 79  |needed after key|
00001d90  77 6f 72 64 20 73 74 72  69 6e 67 22 29 0d 0d 34  |word string")..4|
00001da0  19 63 75 72 6c 69 6e 65  24 3d c1 63 75 72 6c 69  |.curline$=.curli|
00001db0  6e 65 24 2c 32 29 0d 0d  3e 0d 79 3d a4 64 6f 63  |ne$,2)..>.y=.doc|
00001dc0  6f 64 65 0d 0d 48 1b 59  5f 63 61 6e 64 6f 25 28  |ode..H.Y_cando%(|
00001dd0  30 2c 59 5f 63 61 6e 64  6f 29 3d 26 30 37 0d 0d  |0,Y_cando)=&07..|
00001de0  52 19 59 5f 63 61 6e 64  6f 25 28 31 2c 59 5f 63  |R.Y_cando%(1,Y_c|
00001df0  61 6e 64 6f 29 3d 6e 0d  0d 5c 1b 59 5f 63 61 6e  |ando)=n..\.Y_can|
00001e00  64 6f 25 28 32 2c 59 5f  63 61 6e 64 6f 29 3d 26  |do%(2,Y_cando)=&|
00001e10  30 36 0d 0d 66 19 59 5f  63 61 6e 64 6f 25 28 33  |06..f.Y_cando%(3|
00001e20  2c 59 5f 63 61 6e 64 6f  29 3d 79 0d 0d 70 0e 59  |,Y_cando)=y..p.Y|
00001e30  5f 63 61 6e 64 6f 2b 3d  31 0d 0d 7a 11 63 75 72  |_cando+=1..z.cur|
00001e40  6c 69 6e 65 24 3d a4 67  65 74 0d 0d 84 05 ce 0d  |line$=.get......|
00001e50  0d 8e 3b e7 20 63 75 72  6c 69 6e 65 24 3c 3e 22  |..;. curline$<>"|
00001e60  7d 22 20 8c 20 f2 72 65  70 6f 72 74 28 22 54 6f  |}" . .report("To|
00001e70  6f 20 6d 61 6e 79 20 63  61 6e 64 6f 73 20 69 6e  |o many candos in|
00001e80  20 70 6c 61 79 65 72 2e  22 29 0d 0d 98 05 e1 0d  | player.")......|
00001e90  0d a2 04 0d 0d ac 04 0d  0d b6 21 f4 2a 2a 2a 2a  |..........!.****|
00001ea0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001eb0  2a 4f 42 4a 45 43 54 53  0d 0d c0 04 0d 0d ca 0c  |*OBJECTS........|
00001ec0  dd f2 6f 62 6a 65 63 74  0d 0d d4 0f 4f 5f 64 61  |..object....O_da|
00001ed0  74 61 25 28 29 3d 30 0d  0d de 13 4f 5f 64 61 74  |ta%()=0....O_dat|
00001ee0  61 25 28 30 2c 35 29 3d  2d 31 0d 0d e8 10 4f 5f  |a%(0,5)=-1....O_|
00001ef0  63 61 6e 62 65 25 28 29  3d 30 0d 0d f2 10 4f 5f  |canbe%()=0....O_|
00001f00  63 61 6e 64 6f 25 28 29  3d 30 0d 0d fc 0d 4f 5f  |cando%()=0....O_|
00001f10  63 61 6e 64 6f 3d 30 0d  0e 06 0d 4f 5f 63 61 6e  |cando=0....O_can|
00001f20  62 65 3d 30 0d 0e 10 20  63 75 72 6c 69 6e 65 24  |be=0... curline$|
00001f30  3d a4 6e 6f 74 66 69 72  73 74 28 63 75 72 6c 69  |=.notfirst(curli|
00001f40  6e 65 24 29 0d 0e 1a 1e  74 68 69 73 5f 4f 25 3d  |ne$)....this_O%=|
00001f50  a4 67 65 74 6e 65 77 6f  62 6a 65 63 74 6c 61 62  |.getnewobjectlab|
00001f60  65 6c 0d 0e 24 0c 65 6e  64 5f 4f 25 3d a3 0d 0e  |el..$.end_O%=...|
00001f70  2e 0c 75 73 65 6f 6c 64  3d a3 0d 0e 38 05 f5 0d  |..useold=...8...|
00001f80  0e 42 1e e7 20 75 73 65  6f 6c 64 3d a3 20 8c 20  |.B.. useold=. . |
00001f90  63 75 72 6c 69 6e 65 24  3d a4 67 65 74 0d 0e 4c  |curline$=.get..L|
00001fa0  17 70 24 3d a4 66 69 72  73 74 28 63 75 72 6c 69  |.p$=.first(curli|
00001fb0  6e 65 24 29 0d 0e 56 0c  75 73 65 6f 6c 64 3d a3  |ne$)..V.useold=.|
00001fc0  0d 0e 60 0b c8 8e 20 70  24 20 ca 0d 0e 6a 15 c9  |..`... p$ ...j..|
00001fd0  20 22 74 65 78 74 3a 22  3a f2 74 65 78 74 5f 4f  | "text:":.text_O|
00001fe0  0d 0e 74 15 c9 20 22 6e  61 6d 65 3a 22 3a f2 6e  |..t.. "name:":.n|
00001ff0  61 6d 65 5f 4f 0d 0e 7e  15 c9 20 22 64 65 61 64  |ame_O..~.. "dead|
00002000  3a 22 3a f2 64 65 61 64  5f 4f 0d 0e 88 17 c9 20  |:":.dead_O..... |
00002010  22 63 61 6e 62 65 3a 22  3a f2 63 61 6e 62 65 5f  |"canbe:":.canbe_|
00002020  4f 0d 0e 92 17 c9 20 22  63 61 6e 64 6f 3a 22 3a  |O..... "cando:":|
00002030  f2 63 61 6e 64 6f 5f 4f  0d 0e 9c 17 c9 20 22 6d  |.cando_O..... "m|
00002040  6f 76 65 3a 22 3a f2 76  69 73 6d 6f 76 5f 4f 0d  |ove:":.vismov_O.|
00002050  0e a6 19 c9 20 22 65 6e  65 72 67 79 3a 22 3a f2  |.... "energy:":.|
00002060  65 6e 65 72 67 79 5f 4f  0d 0e b0 12 c9 20 22 7d  |energy_O..... "}|
00002070  22 3a 65 6e 64 5f 4f 25  3d b9 0d 0e ba 2d 7f 20  |":end_O%=....-. |
00002080  f2 72 65 70 6f 72 74 28  22 55 6e 6b 6e 6f 77 6e  |.report("Unknown|
00002090  20 6f 62 6a 65 63 74 20  74 61 67 3a 20 27 22 2b  | object tag: '"+|
000020a0  70 24 2b 22 27 22 29 0d  0e c4 05 cb 0d 0e ce 0e  |p$+"'").........|
000020b0  fd 20 65 6e 64 5f 4f 25  3d b9 0d 0e d8 36 f2 77  |. end_O%=....6.w|
000020c0  72 69 74 65 5f 4f 20 3a  3a f4 2a 2a 2a 2a 2a 2a  |rite_O ::.******|
000020d0  2a 2a 72 65 6d 65 6d 62  65 72 20 74 6f 20 61 6c  |**remember to al|
000020e0  73 6f 20 6f 75 74 70 75  74 20 6e 75 6d 62 65 72  |so output number|
000020f0  0d 0e e2 05 e1 0d 0e ec  04 0d 0e f6 0d dd f2 77  |...............w|
00002100  72 69 74 65 5f 4f 0d 0f  00 38 f4 2a 2a 2a 2a 2a  |rite_O...8.*****|
00002110  46 49 52 53 54 20 43 48  45 43 4b 20 41 4c 4c 20  |FIRST CHECK ALL |
00002120  54 48 45 20 4e 45 45 44  45 44 20 4d 45 4d 42 45  |THE NEEDED MEMBE|
00002130  52 53 20 41 52 45 20 50  52 45 53 41 4e 54 0d 0f  |RS ARE PRESANT..|
00002140  0a 3d e7 20 4f 5f 64 61  74 61 25 28 30 2c 30 29  |.=. O_data%(0,0)|
00002150  3d 30 20 8c 20 f2 72 65  70 6f 72 74 28 22 4e 6f  |=0 . .report("No|
00002160  20 6e 61 6d 65 3a 20 70  72 65 73 61 6e 74 20 69  | name: presant i|
00002170  6e 20 70 65 72 73 6f 6e  2e 22 29 0d 0f 14 3d e7  |n person.")...=.|
00002180  20 4f 5f 64 61 74 61 25  28 30 2c 31 29 3d 30 20  | O_data%(0,1)=0 |
00002190  8c 20 f2 72 65 70 6f 72  74 28 22 4e 6f 20 74 65  |. .report("No te|
000021a0  78 74 3a 20 70 72 65 73  61 6e 74 20 69 6e 20 70  |xt: presant in p|
000021b0  65 72 73 6f 6e 2e 22 29  0d 0f 1e 11 f1 23 6f 62  |erson.").....#ob|
000021c0  6a 2c 74 68 69 73 5f 4f  25 0d 0f 28 0c e3 20 49  |j,this_O%..(.. I|
000021d0  25 3d 30 b8 36 0d 0f 32  17 f1 23 6f 62 6a 2c 4f  |%=0.6..2..#obj,O|
000021e0  5f 64 61 74 61 25 28 30  2c 49 25 29 0d 0f 3c 0b  |_data%(0,I%)..<.|
000021f0  c8 8e 20 49 25 20 ca 0d  0f 46 0c c9 20 33 2c 34  |.. I% ...F.. 3,4|
00002200  2c 35 3a 0d 0f 50 19 7f  20 f1 23 6f 62 6a 2c 4f  |,5:..P.. .#obj,O|
00002210  5f 64 61 74 61 25 28 31  2c 49 25 29 0d 0f 5a 05  |_data%(1,I%)..Z.|
00002220  cb 0d 0f 64 05 ed 0d 0f  6e 0d 4f 5f 63 61 6e 62  |...d....n.O_canb|
00002230  65 3d 30 0d 0f 78 05 f5  0d 0f 82 1d f1 23 6f 62  |e=0..x.......#ob|
00002240  6a 2c 4f 5f 63 61 6e 62  65 25 28 30 2c 4f 5f 63  |j,O_canbe%(0,O_c|
00002250  61 6e 62 65 29 0d 0f 8c  1d f1 23 6f 62 6a 2c 4f  |anbe).....#obj,O|
00002260  5f 63 61 6e 62 65 25 28  31 2c 4f 5f 63 61 6e 62  |_canbe%(1,O_canb|
00002270  65 29 0d 0f 96 1d f1 23  6f 62 6a 2c 4f 5f 63 61  |e).....#obj,O_ca|
00002280  6e 62 65 25 28 32 2c 4f  5f 63 61 6e 62 65 29 0d  |nbe%(2,O_canbe).|
00002290  0f a0 1d f1 23 6f 62 6a  2c 4f 5f 63 61 6e 62 65  |....#obj,O_canbe|
000022a0  25 28 33 2c 4f 5f 63 61  6e 62 65 29 0d 0f aa 0e  |%(3,O_canbe)....|
000022b0  4f 5f 63 61 6e 62 65 2b  3d 31 0d 0f b4 6f fd 20  |O_canbe+=1...o. |
000022c0  4f 5f 63 61 6e 62 65 25  28 30 2c 4f 5f 63 61 6e  |O_canbe%(0,O_can|
000022d0  62 65 2d 31 29 3d 30 20  80 20 4f 5f 63 61 6e 62  |be-1)=0 . O_canb|
000022e0  65 25 28 31 2c 4f 5f 63  61 6e 62 65 2d 31 29 20  |e%(1,O_canbe-1) |
000022f0  3d 20 30 20 80 20 4f 5f  63 61 6e 62 65 25 28 32  |= 0 . O_canbe%(2|
00002300  2c 4f 5f 63 61 6e 62 65  2d 31 29 3d 30 20 80 20  |,O_canbe-1)=0 . |
00002310  4f 5f 63 61 6e 62 65 25  28 33 2c 4f 5f 63 61 6e  |O_canbe%(3,O_can|
00002320  62 65 2d 31 29 20 3d 20  30 0d 0f be 0d 4f 5f 63  |be-1) = 0....O_c|
00002330  61 6e 64 6f 3d 30 0d 0f  c8 05 f5 0d 0f d2 1d f1  |ando=0..........|
00002340  23 6f 62 6a 2c 4f 5f 63  61 6e 64 6f 25 28 30 2c  |#obj,O_cando%(0,|
00002350  4f 5f 63 61 6e 64 6f 29  0d 0f dc 1d f1 23 6f 62  |O_cando).....#ob|
00002360  6a 2c 4f 5f 63 61 6e 64  6f 25 28 31 2c 4f 5f 63  |j,O_cando%(1,O_c|
00002370  61 6e 64 6f 29 0d 0f e6  1d f1 23 6f 62 6a 2c 4f  |ando).....#obj,O|
00002380  5f 63 61 6e 64 6f 25 28  32 2c 4f 5f 63 61 6e 64  |_cando%(2,O_cand|
00002390  6f 29 0d 0f f0 1d f1 23  6f 62 6a 2c 4f 5f 63 61  |o).....#obj,O_ca|
000023a0  6e 64 6f 25 28 33 2c 4f  5f 63 61 6e 64 6f 29 0d  |ndo%(3,O_cando).|
000023b0  0f fa 0e 4f 5f 63 61 6e  64 6f 2b 3d 31 0d 10 04  |...O_cando+=1...|
000023c0  6f fd 20 4f 5f 63 61 6e  64 6f 25 28 30 2c 4f 5f  |o. O_cando%(0,O_|
000023d0  63 61 6e 64 6f 2d 31 29  3d 30 20 80 20 4f 5f 63  |cando-1)=0 . O_c|
000023e0  61 6e 64 6f 25 28 31 2c  4f 5f 63 61 6e 64 6f 2d  |ando%(1,O_cando-|
000023f0  31 29 20 3d 20 30 20 80  20 4f 5f 63 61 6e 64 6f  |1) = 0 . O_cando|
00002400  25 28 32 2c 4f 5f 63 61  6e 64 6f 2d 31 29 3d 30  |%(2,O_cando-1)=0|
00002410  20 80 20 4f 5f 63 61 6e  64 6f 25 28 33 2c 4f 5f  | . O_cando%(3,O_|
00002420  63 61 6e 64 6f 2d 31 29  20 3d 20 30 0d 10 0e 05  |cando-1) = 0....|
00002430  e1 0d 10 18 04 0d 10 22  0b dd f2 4f 5f 70 61 64  |......."...O_pad|
00002440  0d 10 2c 0f 4f 5f 64 61  74 61 25 28 29 3d 30 0d  |..,.O_data%()=0.|
00002450  10 36 13 4f 5f 64 61 74  61 25 28 30 2c 35 29 3d  |.6.O_data%(0,5)=|
00002460  2d 31 0d 10 40 10 4f 5f  63 61 6e 62 65 25 28 29  |-1..@.O_canbe%()|
00002470  3d 30 0d 10 4a 10 4f 5f  63 61 6e 64 6f 25 28 29  |=0..J.O_cando%()|
00002480  3d 30 0d 10 54 0d 4f 5f  63 61 6e 64 6f 3d 30 0d  |=0..T.O_cando=0.|
00002490  10 5e 0d 4f 5f 63 61 6e  62 65 3d 30 0d 10 68 38  |.^.O_canbe=0..h8|
000024a0  f4 2a 2a 2a 2a 2a 46 49  52 53 54 20 43 48 45 43  |.*****FIRST CHEC|
000024b0  4b 20 41 4c 4c 20 54 48  45 20 4e 45 45 44 45 44  |K ALL THE NEEDED|
000024c0  20 4d 45 4d 42 45 52 53  20 41 52 45 20 50 52 45  | MEMBERS ARE PRE|
000024d0  53 41 4e 54 0d 10 72 0e  f1 23 6f 62 6a 2c a8 28  |SANT..r..#obj,.(|
000024e0  30 29 0d 10 7c 0c e3 20  49 25 3d 30 b8 36 0d 10  |0)..|.. I%=0.6..|
000024f0  86 17 f1 23 6f 62 6a 2c  4f 5f 64 61 74 61 25 28  |...#obj,O_data%(|
00002500  30 2c 49 25 29 0d 10 90  0b c8 8e 20 49 25 20 ca  |0,I%)...... I% .|
00002510  0d 10 9a 0c c9 20 33 2c  34 2c 35 3a 0d 10 a4 19  |..... 3,4,5:....|
00002520  7f 20 f1 23 6f 62 6a 2c  4f 5f 64 61 74 61 25 28  |. .#obj,O_data%(|
00002530  31 2c 49 25 29 0d 10 ae  05 cb 0d 10 b8 05 ed 0d  |1,I%)...........|
00002540  10 c2 0d 4f 5f 63 61 6e  62 65 3d 30 0d 10 cc 05  |...O_canbe=0....|
00002550  f5 0d 10 d6 1d f1 23 6f  62 6a 2c 4f 5f 63 61 6e  |......#obj,O_can|
00002560  62 65 25 28 30 2c 4f 5f  63 61 6e 62 65 29 0d 10  |be%(0,O_canbe)..|
00002570  e0 1d f1 23 6f 62 6a 2c  4f 5f 63 61 6e 62 65 25  |...#obj,O_canbe%|
00002580  28 31 2c 4f 5f 63 61 6e  62 65 29 0d 10 ea 1d f1  |(1,O_canbe).....|
00002590  23 6f 62 6a 2c 4f 5f 63  61 6e 62 65 25 28 32 2c  |#obj,O_canbe%(2,|
000025a0  4f 5f 63 61 6e 62 65 29  0d 10 f4 1d f1 23 6f 62  |O_canbe).....#ob|
000025b0  6a 2c 4f 5f 63 61 6e 62  65 25 28 33 2c 4f 5f 63  |j,O_canbe%(3,O_c|
000025c0  61 6e 62 65 29 0d 10 fe  0e 4f 5f 63 61 6e 62 65  |anbe)....O_canbe|
000025d0  2b 3d 31 0d 11 08 6f fd  20 4f 5f 63 61 6e 62 65  |+=1...o. O_canbe|
000025e0  25 28 30 2c 4f 5f 63 61  6e 62 65 2d 31 29 3d 30  |%(0,O_canbe-1)=0|
000025f0  20 80 20 4f 5f 63 61 6e  62 65 25 28 31 2c 4f 5f  | . O_canbe%(1,O_|
00002600  63 61 6e 62 65 2d 31 29  20 3d 20 30 20 80 20 4f  |canbe-1) = 0 . O|
00002610  5f 63 61 6e 62 65 25 28  32 2c 4f 5f 63 61 6e 62  |_canbe%(2,O_canb|
00002620  65 2d 31 29 3d 30 20 80  20 4f 5f 63 61 6e 62 65  |e-1)=0 . O_canbe|
00002630  25 28 33 2c 4f 5f 63 61  6e 62 65 2d 31 29 20 3d  |%(3,O_canbe-1) =|
00002640  20 30 0d 11 12 0d 4f 5f  63 61 6e 64 6f 3d 30 0d  | 0....O_cando=0.|
00002650  11 1c 05 f5 0d 11 26 1d  f1 23 6f 62 6a 2c 4f 5f  |......&..#obj,O_|
00002660  63 61 6e 64 6f 25 28 30  2c 4f 5f 63 61 6e 64 6f  |cando%(0,O_cando|
00002670  29 0d 11 30 1d f1 23 6f  62 6a 2c 4f 5f 63 61 6e  |)..0..#obj,O_can|
00002680  64 6f 25 28 31 2c 4f 5f  63 61 6e 64 6f 29 0d 11  |do%(1,O_cando)..|
00002690  3a 1d f1 23 6f 62 6a 2c  4f 5f 63 61 6e 64 6f 25  |:..#obj,O_cando%|
000026a0  28 32 2c 4f 5f 63 61 6e  64 6f 29 0d 11 44 1d f1  |(2,O_cando)..D..|
000026b0  23 6f 62 6a 2c 4f 5f 63  61 6e 64 6f 25 28 33 2c  |#obj,O_cando%(3,|
000026c0  4f 5f 63 61 6e 64 6f 29  0d 11 4e 0e 4f 5f 63 61  |O_cando)..N.O_ca|
000026d0  6e 64 6f 2b 3d 31 0d 11  58 6f fd 20 4f 5f 63 61  |ndo+=1..Xo. O_ca|
000026e0  6e 64 6f 25 28 30 2c 4f  5f 63 61 6e 64 6f 2d 31  |ndo%(0,O_cando-1|
000026f0  29 3d 30 20 80 20 4f 5f  63 61 6e 64 6f 25 28 31  |)=0 . O_cando%(1|
00002700  2c 4f 5f 63 61 6e 64 6f  2d 31 29 20 3d 20 30 20  |,O_cando-1) = 0 |
00002710  80 20 4f 5f 63 61 6e 64  6f 25 28 32 2c 4f 5f 63  |. O_cando%(2,O_c|
00002720  61 6e 64 6f 2d 31 29 3d  30 20 80 20 4f 5f 63 61  |ando-1)=0 . O_ca|
00002730  6e 64 6f 25 28 33 2c 4f  5f 63 61 6e 64 6f 2d 31  |ndo%(3,O_cando-1|
00002740  29 20 3d 20 30 0d 11 62  05 e1 0d 11 6c 04 0d 11  |) = 0..b....l...|
00002750  76 0e dd f2 76 69 73 6d  6f 76 5f 4f 0d 11 80 0b  |v...vismov_O....|
00002760  c8 8e 20 70 24 20 ca 0d  11 8a 14 c9 20 22 76 69  |.. p$ ...... "vi|
00002770  73 61 62 6c 65 3a 22 3a  64 3d 33 0d 11 94 11 c9  |sable:":d=3.....|
00002780  20 22 6d 6f 76 65 3a 22  3a 64 3d 34 0d 11 9e 05  | "move:":d=4....|
00002790  cb 0d 11 a8 34 63 75 72  6c 69 6e 65 24 3d a4 73  |....4curline$=.s|
000027a0  74 72 69 70 28 a4 73 74  72 69 70 5f 65 6e 64 28  |trip(.strip_end(|
000027b0  a4 6e 6f 74 66 69 72 73  74 28 63 75 72 6c 69 6e  |.notfirst(curlin|
000027c0  65 24 29 29 29 0d 11 b2  07 74 3d 30 0d 11 bc 11  |e$)))....t=0....|
000027d0  c8 8e 20 63 75 72 6c 69  6e 65 24 20 ca 0d 11 c6  |.. curline$ ....|
000027e0  14 c9 20 22 79 65 73 22  2c 22 79 22 3a 74 3d 2d  |.. "yes","y":t=-|
000027f0  31 0d 11 d0 12 c9 20 22  6e 6f 22 2c 22 6e 22 3a  |1..... "no","n":|
00002800  74 3d 30 0d 11 da 05 7f  0d 11 e4 33 f2 72 65 70  |t=0........3.rep|
00002810  6f 72 74 28 22 55 6e 6b  6e 6f 77 6e 3a 20 27 22  |ort("Unknown: '"|
00002820  2b 63 75 72 6c 69 6e 65  24 2b 22 27 20 69 6e 20  |+curline$+"' in |
00002830  6f 72 20 6d 6f 76 65 3a  2e 22 29 0d 11 ee 05 cb  |or move:.").....|
00002840  0d 11 f8 12 4f 5f 64 61  74 61 25 28 30 2c 64 29  |....O_data%(0,d)|
00002850  3d 74 0d 12 02 05 e1 0d  12 0c 04 0d 12 16 0e dd  |=t..............|
00002860  f2 65 6e 65 72 67 79 5f  4f 0d 12 20 34 63 75 72  |.energy_O.. 4cur|
00002870  6c 69 6e 65 24 3d a4 73  74 72 69 70 28 a4 73 74  |line$=.strip(.st|
00002880  72 69 70 5f 65 6e 64 28  a4 6e 6f 74 66 69 72 73  |rip_end(.notfirs|
00002890  74 28 63 75 72 6c 69 6e  65 24 29 29 29 0d 12 2a  |t(curline$)))..*|
000028a0  11 67 3d bb 28 63 75 72  6c 69 6e 65 24 29 0d 12  |.g=.(curline$)..|
000028b0  34 3b e7 20 67 3d 30 20  8c 20 f2 72 65 70 6f 72  |4;. g=0 . .repor|
000028c0  74 28 22 42 61 64 20 65  6e 65 72 67 79 3a 20 76  |t("Bad energy: v|
000028d0  61 6c 75 65 20 30 20 6f  72 20 6e 6f 74 20 61 20  |alue 0 or not a |
000028e0  6e 75 6d 62 65 72 2e 22  29 0d 12 3e 12 4f 5f 64  |number.")..>.O_d|
000028f0  61 74 61 25 28 30 2c 35  29 3d 67 0d 12 48 05 e1  |ata%(0,5)=g..H..|
00002900  0d 12 52 04 0d 12 5c 0c  dd f2 6e 61 6d 65 5f 4f  |..R...\...name_O|
00002910  0d 12 66 20 63 75 72 6c  69 6e 65 24 3d a4 6e 6f  |..f curline$=.no|
00002920  74 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |tfirst(curline$)|
00002930  0d 12 70 0f 73 3d a4 64  6f 73 74 72 69 6e 67 0d  |..p.s=.dostring.|
00002940  12 7a 14 4f 5f 64 61 74  61 25 28 30 2c 30 29 3d  |.z.O_data%(0,0)=|
00002950  26 30 37 0d 12 84 12 4f  5f 64 61 74 61 25 28 31  |&07....O_data%(1|
00002960  2c 30 29 3d 73 0d 12 8e  05 e1 0d 12 98 04 0d 12  |,0)=s...........|
00002970  a2 38 dd f2 74 65 78 74  5f 4f 20 20 3a f4 20 61  |.8..text_O  :. a|
00002980  20 62 6c 6f 63 6b 20 6f  66 20 73 74 72 69 6e 67  | block of string|
00002990  73 20 72 61 74 68 65 72  20 74 68 61 6e 20 6a 75  |s rather than ju|
000029a0  73 74 20 6f 6e 65 0d 12  ac 20 63 75 72 6c 69 6e  |st one... curlin|
000029b0  65 24 3d a4 6e 6f 74 66  69 72 73 74 28 63 75 72  |e$=.notfirst(cur|
000029c0  6c 69 6e 65 24 29 0d 12  b6 0f 73 3d a4 64 6f 73  |line$)....s=.dos|
000029d0  74 72 69 6e 67 0d 12 c0  08 73 32 3d 73 0d 12 ca  |tring....s2=s...|
000029e0  0c 75 73 65 6f 6c 64 3d  b9 0d 12 d4 11 63 75 72  |.useold=.....cur|
000029f0  6c 69 6e 65 24 3d a4 67  65 74 0d 12 de 1b c8 95  |line$=.get......|
00002a00  20 c1 63 75 72 6c 69 6e  65 24 2c 31 2c 31 29 3d  | .curline$,1,1)=|
00002a10  bd 28 33 34 29 0d 12 e8  10 73 32 3d a4 64 6f 73  |.(34)....s2=.dos|
00002a20  74 72 69 6e 67 0d 12 f2  11 63 75 72 6c 69 6e 65  |tring....curline|
00002a30  24 3d a4 67 65 74 0d 12  fc 05 ce 0d 13 06 14 4f  |$=.get.........O|
00002a40  5f 64 61 74 61 25 28 30  2c 31 29 3d 26 30 37 0d  |_data%(0,1)=&07.|
00002a50  13 10 12 4f 5f 64 61 74  61 25 28 31 2c 31 29 3d  |...O_data%(1,1)=|
00002a60  73 0d 13 1a 14 4f 5f 64  61 74 61 25 28 30 2c 32  |s....O_data%(0,2|
00002a70  29 3d 26 30 37 0d 13 24  13 4f 5f 64 61 74 61 25  |)=&07..$.O_data%|
00002a80  28 31 2c 32 29 3d 73 32  0d 13 2e 05 e1 0d 13 38  |(1,2)=s2.......8|
00002a90  04 0d 13 42 0c dd f2 64  65 61 64 5f 4f 0d 13 4c  |...B...dead_O..L|
00002aa0  20 63 75 72 6c 69 6e 65  24 3d a4 6e 6f 74 66 69  | curline$=.notfi|
00002ab0  72 73 74 28 63 75 72 6c  69 6e 65 24 29 0d 13 56  |rst(curline$)..V|
00002ac0  0d 79 3d a4 64 6f 63 6f  64 65 0d 13 60 14 4f 5f  |.y=.docode..`.O_|
00002ad0  64 61 74 61 25 28 30 2c  36 29 3d 26 30 36 0d 13  |data%(0,6)=&06..|
00002ae0  6a 12 4f 5f 64 61 74 61  25 28 31 2c 36 29 3d 79  |j.O_data%(1,6)=y|
00002af0  0d 13 74 05 e1 0d 13 7e  04 0d 13 88 0d dd f2 63  |..t....~.......c|
00002b00  61 6e 62 65 5f 4f 0d 13  92 5b e7 20 c2 a4 73 74  |anbe_O...[. ..st|
00002b10  72 69 70 5f 65 6e 64 28  63 75 72 6c 69 6e 65 24  |rip_end(curline$|
00002b20  29 29 3c 3e 22 7b 22 20  8c 20 f2 72 65 70 6f 72  |))<>"{" . .repor|
00002b30  74 28 22 6c 61 73 74 20  63 68 61 72 61 63 74 65  |t("last characte|
00002b40  72 20 6f 6e 20 61 6e 20  63 61 6e 62 65 3a 20 6c  |r on an canbe: l|
00002b50  69 6e 65 20 6d 75 73 74  20 62 65 20 61 20 7b 22  |ine must be a {"|
00002b60  29 0d 13 9c 11 63 75 72  6c 69 6e 65 24 3d a4 67  |)....curline$=.g|
00002b70  65 74 0d 13 a6 2c c8 95  20 a4 66 69 72 73 74 28  |et...,.. .first(|
00002b80  63 75 72 6c 69 6e 65 24  29 3c 3e 22 7d 22 20 80  |curline$)<>"}" .|
00002b90  20 4f 5f 63 61 6e 62 65  3c 6d 61 78 5f 61 0d 13  | O_canbe<max_a..|
00002ba0  b0 0f 6e 3d a4 64 6f 73  74 72 69 6e 67 0d 13 ba  |..n=.dostring...|
00002bb0  45 e7 20 c1 63 75 72 6c  69 6e 65 24 2c 31 2c 31  |E. .curline$,1,1|
00002bc0  29 3c 3e 22 3a 22 20 8c  20 f2 72 65 70 6f 72 74  |)<>":" . .report|
00002bd0  28 22 43 6f 6c 6f 6e 20  6e 65 65 64 65 64 20 61  |("Colon needed a|
00002be0  66 74 65 72 20 76 65 72  62 20 73 74 72 69 6e 67  |fter verb string|
00002bf0  22 29 0d 13 c4 19 63 75  72 6c 69 6e 65 24 3d c1  |")....curline$=.|
00002c00  63 75 72 6c 69 6e 65 24  2c 32 29 0d 13 ce 0d 79  |curline$,2)....y|
00002c10  3d a4 64 6f 63 6f 64 65  0d 13 d8 1b 4f 5f 63 61  |=.docode....O_ca|
00002c20  6e 62 65 25 28 30 2c 4f  5f 63 61 6e 62 65 29 3d  |nbe%(0,O_canbe)=|
00002c30  26 30 37 0d 13 e2 19 4f  5f 63 61 6e 62 65 25 28  |&07....O_canbe%(|
00002c40  31 2c 4f 5f 63 61 6e 62  65 29 3d 6e 0d 13 ec 1b  |1,O_canbe)=n....|
00002c50  4f 5f 63 61 6e 62 65 25  28 32 2c 4f 5f 63 61 6e  |O_canbe%(2,O_can|
00002c60  62 65 29 3d 26 30 36 0d  13 f6 19 4f 5f 63 61 6e  |be)=&06....O_can|
00002c70  62 65 25 28 33 2c 4f 5f  63 61 6e 62 65 29 3d 79  |be%(3,O_canbe)=y|
00002c80  0d 14 00 0e 4f 5f 63 61  6e 62 65 2b 3d 31 0d 14  |....O_canbe+=1..|
00002c90  0a 11 63 75 72 6c 69 6e  65 24 3d a4 67 65 74 0d  |..curline$=.get.|
00002ca0  14 14 05 ce 0d 14 1e 3b  e7 20 63 75 72 6c 69 6e  |.......;. curlin|
00002cb0  65 24 3c 3e 22 7d 22 20  8c 20 f2 72 65 70 6f 72  |e$<>"}" . .repor|
00002cc0  74 28 22 54 6f 6f 20 6d  61 6e 79 20 63 61 6e 62  |t("Too many canb|
00002cd0  65 73 20 69 6e 20 6f 62  6a 65 63 74 2e 22 29 0d  |es in object.").|
00002ce0  14 28 05 e1 0d 14 32 04  0d 14 3c 0d dd f2 63 61  |.(....2...<...ca|
00002cf0  6e 64 6f 5f 4f 0d 14 46  5b e7 20 c2 a4 73 74 72  |ndo_O..F[. ..str|
00002d00  69 70 5f 65 6e 64 28 63  75 72 6c 69 6e 65 24 29  |ip_end(curline$)|
00002d10  29 3c 3e 22 7b 22 20 8c  20 f2 72 65 70 6f 72 74  |)<>"{" . .report|
00002d20  28 22 6c 61 73 74 20 63  68 61 72 61 63 74 65 72  |("last character|
00002d30  20 6f 6e 20 61 6e 20 63  61 6e 64 6f 3a 20 6c 69  | on an cando: li|
00002d40  6e 65 20 6d 75 73 74 20  62 65 20 61 20 7b 22 29  |ne must be a {")|
00002d50  0d 14 50 11 63 75 72 6c  69 6e 65 24 3d a4 67 65  |..P.curline$=.ge|
00002d60  74 0d 14 5a 2c c8 95 20  a4 66 69 72 73 74 28 63  |t..Z,.. .first(c|
00002d70  75 72 6c 69 6e 65 24 29  3c 3e 22 7d 22 20 80 20  |urline$)<>"}" . |
00002d80  4f 5f 63 61 6e 64 6f 3c  6d 61 78 5f 61 0d 14 64  |O_cando<max_a..d|
00002d90  0f 6e 3d a4 64 6f 73 74  72 69 6e 67 0d 14 6e 45  |.n=.dostring..nE|
00002da0  e7 20 c1 63 75 72 6c 69  6e 65 24 2c 31 2c 31 29  |. .curline$,1,1)|
00002db0  3c 3e 22 3a 22 20 8c 20  f2 72 65 70 6f 72 74 28  |<>":" . .report(|
00002dc0  22 43 6f 6c 6f 6e 20 6e  65 65 64 65 64 20 61 66  |"Colon needed af|
00002dd0  74 65 72 20 76 65 72 62  20 73 74 72 69 6e 67 22  |ter verb string"|
00002de0  29 0d 14 78 19 63 75 72  6c 69 6e 65 24 3d c1 63  |)..x.curline$=.c|
00002df0  75 72 6c 69 6e 65 24 2c  32 29 0d 14 82 0d 79 3d  |urline$,2)....y=|
00002e00  a4 64 6f 63 6f 64 65 0d  14 8c 1b 4f 5f 63 61 6e  |.docode....O_can|
00002e10  64 6f 25 28 30 2c 4f 5f  63 61 6e 64 6f 29 3d 26  |do%(0,O_cando)=&|
00002e20  30 37 0d 14 96 19 4f 5f  63 61 6e 64 6f 25 28 31  |07....O_cando%(1|
00002e30  2c 4f 5f 63 61 6e 64 6f  29 3d 6e 0d 14 a0 1b 4f  |,O_cando)=n....O|
00002e40  5f 63 61 6e 64 6f 25 28  32 2c 4f 5f 63 61 6e 64  |_cando%(2,O_cand|
00002e50  6f 29 3d 26 30 36 0d 14  aa 19 4f 5f 63 61 6e 64  |o)=&06....O_cand|
00002e60  6f 25 28 33 2c 4f 5f 63  61 6e 64 6f 29 3d 79 0d  |o%(3,O_cando)=y.|
00002e70  14 b4 0e 4f 5f 63 61 6e  64 6f 2b 3d 31 0d 14 be  |...O_cando+=1...|
00002e80  11 63 75 72 6c 69 6e 65  24 3d a4 67 65 74 0d 14  |.curline$=.get..|
00002e90  c8 05 ce 0d 14 d2 3b e7  20 63 75 72 6c 69 6e 65  |......;. curline|
00002ea0  24 3c 3e 22 7d 22 20 8c  20 f2 72 65 70 6f 72 74  |$<>"}" . .report|
00002eb0  28 22 54 6f 6f 20 6d 61  6e 79 20 63 61 6e 64 6f  |("Too many cando|
00002ec0  73 20 69 6e 20 6f 62 6a  65 63 74 2e 22 29 0d 14  |s in object.")..|
00002ed0  dc 05 e1 0d 14 e6 04 0d  14 f0 20 f4 2a 2a 2a 2a  |.......... .****|
00002ee0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002ef0  2a 50 45 4f 50 4c 45 0d  14 fa 04 0d 15 04 0c dd  |*PEOPLE.........|
00002f00  f2 70 65 72 73 6f 6e 0d  15 0e 0f 50 5f 64 61 74  |.person....P_dat|
00002f10  61 25 28 29 3d 30 0d 15  18 13 50 5f 64 61 74 61  |a%()=0....P_data|
00002f20  25 28 30 2c 35 29 3d 2d  31 0d 15 22 12 50 5f 6f  |%(0,5)=-1..".P_o|
00002f30  62 6a 65 63 74 73 25 28  29 3d 30 0d 15 2c 10 50  |bjects%()=0..,.P|
00002f40  5f 63 61 6e 62 65 25 28  29 3d 30 0d 15 36 0f 50  |_canbe%()=0..6.P|
00002f50  5f 74 61 6c 6b 25 28 29  3d 30 0d 15 40 0b 50 5f  |_talk%()=0..@.P_|
00002f60  6f 62 73 3d 30 0d 15 4a  0d 50 5f 63 61 6e 62 65  |obs=0..J.P_canbe|
00002f70  3d 30 0d 15 54 0c 50 5f  74 61 6c 6b 3d 30 0d 15  |=0..T.P_talk=0..|
00002f80  5e 20 63 75 72 6c 69 6e  65 24 3d a4 6e 6f 74 66  |^ curline$=.notf|
00002f90  69 72 73 74 28 63 75 72  6c 69 6e 65 24 29 0d 15  |irst(curline$)..|
00002fa0  68 1e 74 68 69 73 5f 50  25 3d a4 67 65 74 6e 65  |h.this_P%=.getne|
00002fb0  77 70 65 72 73 6f 6e 6c  61 62 65 6c 0d 15 72 0c  |wpersonlabel..r.|
00002fc0  65 6e 64 5f 50 25 3d a3  0d 15 7c 0c 75 73 65 6f  |end_P%=...|.useo|
00002fd0  6c 64 3d a3 0d 15 86 05  f5 0d 15 90 1e e7 20 75  |ld=........... u|
00002fe0  73 65 6f 6c 64 3d a3 20  8c 20 63 75 72 6c 69 6e  |seold=. . curlin|
00002ff0  65 24 3d a4 67 65 74 0d  15 9a 17 70 24 3d a4 66  |e$=.get....p$=.f|
00003000  69 72 73 74 28 63 75 72  6c 69 6e 65 24 29 0d 15  |irst(curline$)..|
00003010  a4 0c 75 73 65 6f 6c 64  3d a3 0d 15 ae 0b c8 8e  |..useold=.......|
00003020  20 70 24 20 ca 0d 15 b8  15 c9 20 22 74 65 78 74  | p$ ...... "text|
00003030  3a 22 3a f2 74 65 78 74  5f 50 0d 15 c2 15 c9 20  |:":.text_P..... |
00003040  22 6e 61 6d 65 3a 22 3a  f2 6e 61 6d 65 5f 50 0d  |"name:":.name_P.|
00003050  15 cc 28 c9 20 22 64 65  61 64 3a 22 2c 22 73 65  |..(. "dead:","se|
00003060  65 3a 22 2c 22 75 6e 73  65 65 3a 22 3a f2 64 65  |e:","unsee:":.de|
00003070  61 64 73 65 65 5f 50 0d  15 d6 1b c9 20 22 6f 62  |adsee_P..... "ob|
00003080  6a 65 63 74 73 3a 22 3a  f2 6f 62 6a 65 63 74 73  |jects:":.objects|
00003090  5f 50 0d 15 e0 17 c9 20  22 63 61 6e 62 65 3a 22  |_P..... "canbe:"|
000030a0  3a f2 63 61 6e 62 65 5f  50 0d 15 ea 15 c9 20 22  |:.canbe_P..... "|
000030b0  74 61 6c 6b 3a 22 3a f2  74 61 6c 6b 5f 50 0d 15  |talk:":.talk_P..|
000030c0  f4 17 c9 20 22 6d 6f 76  65 3a 22 3a f2 76 69 73  |... "move:":.vis|
000030d0  6d 6f 76 5f 50 0d 15 fe  19 c9 20 22 65 6e 65 72  |mov_P..... "ener|
000030e0  67 79 3a 22 3a f2 65 6e  65 72 67 79 5f 50 0d 16  |gy:":.energy_P..|
000030f0  08 12 c9 20 22 7d 22 3a  65 6e 64 5f 50 25 3d b9  |... "}":end_P%=.|
00003100  0d 16 12 2d 7f 20 f2 72  65 70 6f 72 74 28 22 55  |...-. .report("U|
00003110  6e 6b 6e 6f 77 6e 20 70  65 72 73 6f 6e 20 74 61  |nknown person ta|
00003120  67 3a 20 27 22 2b 70 24  2b 22 27 22 29 0d 16 1c  |g: '"+p$+"'")...|
00003130  05 cb 0d 16 26 0e fd 20  65 6e 64 5f 50 25 3d b9  |....&.. end_P%=.|
00003140  0d 16 30 36 f2 77 72 69  74 65 5f 50 20 3a 3a f4  |..06.write_P ::.|
00003150  2a 2a 2a 2a 2a 2a 2a 2a  72 65 6d 65 6d 62 65 72  |********remember|
00003160  20 74 6f 20 61 6c 73 6f  20 6f 75 74 70 75 74 20  | to also output |
00003170  6e 75 6d 62 65 72 0d 16  3a 05 e1 0d 16 44 04 0d  |number..:....D..|
00003180  16 4e 0d dd f2 77 72 69  74 65 5f 50 0d 16 58 38  |.N...write_P..X8|
00003190  f4 2a 2a 2a 2a 2a 46 49  52 53 54 20 43 48 45 43  |.*****FIRST CHEC|
000031a0  4b 20 41 4c 4c 20 54 48  45 20 4e 45 45 44 45 44  |K ALL THE NEEDED|
000031b0  20 4d 45 4d 42 45 52 53  20 41 52 45 20 50 52 45  | MEMBERS ARE PRE|
000031c0  53 41 4e 54 0d 16 62 3d  e7 20 50 5f 64 61 74 61  |SANT..b=. P_data|
000031d0  25 28 30 2c 30 29 3d 30  20 8c 20 f2 72 65 70 6f  |%(0,0)=0 . .repo|
000031e0  72 74 28 22 4e 6f 20 6e  61 6d 65 3a 20 70 72 65  |rt("No name: pre|
000031f0  73 61 6e 74 20 69 6e 20  70 65 72 73 6f 6e 2e 22  |sant in person."|
00003200  29 0d 16 6c 3d e7 20 50  5f 64 61 74 61 25 28 30  |)..l=. P_data%(0|
00003210  2c 31 29 3d 30 20 8c 20  f2 72 65 70 6f 72 74 28  |,1)=0 . .report(|
00003220  22 4e 6f 20 74 65 78 74  3a 20 70 72 65 73 61 6e  |"No text: presan|
00003230  74 20 69 6e 20 70 65 72  73 6f 6e 2e 22 29 0d 16  |t in person.")..|
00003240  76 04 0d 16 80 14 f1 23  70 65 6f 70 6c 65 2c 74  |v......#people,t|
00003250  68 69 73 5f 50 25 0d 16  8a 0c e3 20 49 25 3d 30  |his_P%..... I%=0|
00003260  b8 38 0d 16 94 1a f1 23  70 65 6f 70 6c 65 2c 50  |.8.....#people,P|
00003270  5f 64 61 74 61 25 28 30  2c 49 25 29 0d 16 9e 0b  |_data%(0,I%)....|
00003280  c8 8e 20 49 25 20 ca 0d  16 a8 0c c9 20 33 2c 34  |.. I% ...... 3,4|
00003290  2c 35 3a 0d 16 b2 1c 7f  20 f1 23 70 65 6f 70 6c  |,5:..... .#peopl|
000032a0  65 2c 50 5f 64 61 74 61  25 28 31 2c 49 25 29 0d  |e,P_data%(1,I%).|
000032b0  16 bc 05 cb 0d 16 c6 05  ed 0d 16 d0 0b 50 5f 6f  |.............P_o|
000032c0  62 73 3d 30 0d 16 da 05  f5 0d 16 e4 20 f1 23 70  |bs=0........ .#p|
000032d0  65 6f 70 6c 65 2c 50 5f  6f 62 6a 65 63 74 73 25  |eople,P_objects%|
000032e0  28 30 2c 50 5f 6f 62 73  29 0d 16 ee 20 f1 23 70  |(0,P_obs)... .#p|
000032f0  65 6f 70 6c 65 2c 50 5f  6f 62 6a 65 63 74 73 25  |eople,P_objects%|
00003300  28 31 2c 50 5f 6f 62 73  29 0d 16 f8 0c 50 5f 6f  |(1,P_obs)....P_o|
00003310  62 73 2b 3d 31 0d 17 02  39 fd 20 50 5f 6f 62 6a  |bs+=1...9. P_obj|
00003320  65 63 74 73 25 28 30 2c  50 5f 6f 62 73 2d 31 29  |ects%(0,P_obs-1)|
00003330  3d 30 20 80 20 50 5f 6f  62 6a 65 63 74 73 25 28  |=0 . P_objects%(|
00003340  31 2c 50 5f 6f 62 73 2d  31 29 20 3d 20 30 0d 17  |1,P_obs-1) = 0..|
00003350  0c 0d 50 5f 63 61 6e 62  65 3d 30 0d 17 16 05 f5  |..P_canbe=0.....|
00003360  0d 17 20 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |..  .#people,P_c|
00003370  61 6e 62 65 25 28 30 2c  50 5f 63 61 6e 62 65 29  |anbe%(0,P_canbe)|
00003380  0d 17 2a 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |..* .#people,P_c|
00003390  61 6e 62 65 25 28 31 2c  50 5f 63 61 6e 62 65 29  |anbe%(1,P_canbe)|
000033a0  0d 17 34 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |..4 .#people,P_c|
000033b0  61 6e 62 65 25 28 32 2c  50 5f 63 61 6e 62 65 29  |anbe%(2,P_canbe)|
000033c0  0d 17 3e 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |..> .#people,P_c|
000033d0  61 6e 62 65 25 28 33 2c  50 5f 63 61 6e 62 65 29  |anbe%(3,P_canbe)|
000033e0  0d 17 48 0e 50 5f 63 61  6e 62 65 2b 3d 31 0d 17  |..H.P_canbe+=1..|
000033f0  52 6f fd 20 50 5f 63 61  6e 62 65 25 28 30 2c 50  |Ro. P_canbe%(0,P|
00003400  5f 63 61 6e 62 65 2d 31  29 3d 30 20 80 20 50 5f  |_canbe-1)=0 . P_|
00003410  63 61 6e 62 65 25 28 31  2c 50 5f 63 61 6e 62 65  |canbe%(1,P_canbe|
00003420  2d 31 29 20 3d 20 30 20  80 20 50 5f 63 61 6e 62  |-1) = 0 . P_canb|
00003430  65 25 28 32 2c 50 5f 63  61 6e 62 65 2d 31 29 3d  |e%(2,P_canbe-1)=|
00003440  30 20 80 20 50 5f 63 61  6e 62 65 25 28 33 2c 50  |0 . P_canbe%(3,P|
00003450  5f 63 61 6e 62 65 2d 31  29 20 3d 20 30 0d 17 5c  |_canbe-1) = 0..\|
00003460  0c 50 5f 74 61 6c 6b 3d  30 0d 17 66 05 f5 0d 17  |.P_talk=0..f....|
00003470  70 1e f1 23 70 65 6f 70  6c 65 2c 50 5f 74 61 6c  |p..#people,P_tal|
00003480  6b 25 28 30 2c 50 5f 74  61 6c 6b 29 0d 17 7a 1e  |k%(0,P_talk)..z.|
00003490  f1 23 70 65 6f 70 6c 65  2c 50 5f 74 61 6c 6b 25  |.#people,P_talk%|
000034a0  28 31 2c 50 5f 74 61 6c  6b 29 0d 17 84 1e f1 23  |(1,P_talk).....#|
000034b0  70 65 6f 70 6c 65 2c 50  5f 74 61 6c 6b 25 28 32  |people,P_talk%(2|
000034c0  2c 50 5f 74 61 6c 6b 29  0d 17 8e 1e f1 23 70 65  |,P_talk).....#pe|
000034d0  6f 70 6c 65 2c 50 5f 74  61 6c 6b 25 28 33 2c 50  |ople,P_talk%(3,P|
000034e0  5f 74 61 6c 6b 29 0d 17  98 0d 50 5f 74 61 6c 6b  |_talk)....P_talk|
000034f0  2b 3d 31 0d 17 a2 67 fd  20 50 5f 74 61 6c 6b 25  |+=1...g. P_talk%|
00003500  28 30 2c 50 5f 74 61 6c  6b 2d 31 29 3d 30 20 80  |(0,P_talk-1)=0 .|
00003510  20 50 5f 74 61 6c 6b 25  28 31 2c 50 5f 74 61 6c  | P_talk%(1,P_tal|
00003520  6b 2d 31 29 20 3d 20 30  20 80 20 50 5f 74 61 6c  |k-1) = 0 . P_tal|
00003530  6b 25 28 32 2c 50 5f 74  61 6c 6b 2d 31 29 3d 30  |k%(2,P_talk-1)=0|
00003540  20 80 20 50 5f 74 61 6c  6b 25 28 33 2c 50 5f 74  | . P_talk%(3,P_t|
00003550  61 6c 6b 2d 31 29 20 3d  20 30 0d 17 ac 05 e1 0d  |alk-1) = 0......|
00003560  17 b6 04 0d 17 c0 0b dd  f2 50 5f 70 61 64 0d 17  |.........P_pad..|
00003570  ca 0f 50 5f 64 61 74 61  25 28 29 3d 30 0d 17 d4  |..P_data%()=0...|
00003580  13 50 5f 64 61 74 61 25  28 30 2c 35 29 3d 2d 31  |.P_data%(0,5)=-1|
00003590  0d 17 de 12 50 5f 6f 62  6a 65 63 74 73 25 28 29  |....P_objects%()|
000035a0  3d 30 0d 17 e8 10 50 5f  63 61 6e 62 65 25 28 29  |=0....P_canbe%()|
000035b0  3d 30 0d 17 f2 0f 50 5f  74 61 6c 6b 25 28 29 3d  |=0....P_talk%()=|
000035c0  30 0d 17 fc 0b 50 5f 6f  62 73 3d 30 0d 18 06 0d  |0....P_obs=0....|
000035d0  50 5f 63 61 6e 62 65 3d  30 0d 18 10 0c 50 5f 74  |P_canbe=0....P_t|
000035e0  61 6c 6b 3d 30 0d 18 1a  11 f1 23 70 65 6f 70 6c  |alk=0.....#peopl|
000035f0  65 2c a8 28 30 29 0d 18  24 0c e3 20 49 25 3d 30  |e,.(0)..$.. I%=0|
00003600  b8 38 0d 18 2e 1a f1 23  70 65 6f 70 6c 65 2c 50  |.8.....#people,P|
00003610  5f 64 61 74 61 25 28 30  2c 49 25 29 0d 18 38 0b  |_data%(0,I%)..8.|
00003620  c8 8e 20 49 25 20 ca 0d  18 42 0c c9 20 33 2c 34  |.. I% ...B.. 3,4|
00003630  2c 35 3a 0d 18 4c 1c 7f  20 f1 23 70 65 6f 70 6c  |,5:..L.. .#peopl|
00003640  65 2c 50 5f 64 61 74 61  25 28 31 2c 49 25 29 0d  |e,P_data%(1,I%).|
00003650  18 56 05 cb 0d 18 60 05  ed 0d 18 6a 0b 50 5f 6f  |.V....`....j.P_o|
00003660  62 73 3d 30 0d 18 74 05  f5 0d 18 7e 20 f1 23 70  |bs=0..t....~ .#p|
00003670  65 6f 70 6c 65 2c 50 5f  6f 62 6a 65 63 74 73 25  |eople,P_objects%|
00003680  28 30 2c 50 5f 6f 62 73  29 0d 18 88 20 f1 23 70  |(0,P_obs)... .#p|
00003690  65 6f 70 6c 65 2c 50 5f  6f 62 6a 65 63 74 73 25  |eople,P_objects%|
000036a0  28 31 2c 50 5f 6f 62 73  29 0d 18 92 0c 50 5f 6f  |(1,P_obs)....P_o|
000036b0  62 73 2b 3d 31 0d 18 9c  39 fd 20 50 5f 6f 62 6a  |bs+=1...9. P_obj|
000036c0  65 63 74 73 25 28 30 2c  50 5f 6f 62 73 2d 31 29  |ects%(0,P_obs-1)|
000036d0  3d 30 20 80 20 50 5f 6f  62 6a 65 63 74 73 25 28  |=0 . P_objects%(|
000036e0  31 2c 50 5f 6f 62 73 2d  31 29 20 3d 20 30 0d 18  |1,P_obs-1) = 0..|
000036f0  a6 0d 50 5f 63 61 6e 62  65 3d 30 0d 18 b0 05 f5  |..P_canbe=0.....|
00003700  0d 18 ba 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |... .#people,P_c|
00003710  61 6e 62 65 25 28 30 2c  50 5f 63 61 6e 62 65 29  |anbe%(0,P_canbe)|
00003720  0d 18 c4 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |... .#people,P_c|
00003730  61 6e 62 65 25 28 31 2c  50 5f 63 61 6e 62 65 29  |anbe%(1,P_canbe)|
00003740  0d 18 ce 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |... .#people,P_c|
00003750  61 6e 62 65 25 28 32 2c  50 5f 63 61 6e 62 65 29  |anbe%(2,P_canbe)|
00003760  0d 18 d8 20 f1 23 70 65  6f 70 6c 65 2c 50 5f 63  |... .#people,P_c|
00003770  61 6e 62 65 25 28 33 2c  50 5f 63 61 6e 62 65 29  |anbe%(3,P_canbe)|
00003780  0d 18 e2 0e 50 5f 63 61  6e 62 65 2b 3d 31 0d 18  |....P_canbe+=1..|
00003790  ec 6f fd 20 50 5f 63 61  6e 62 65 25 28 30 2c 50  |.o. P_canbe%(0,P|
000037a0  5f 63 61 6e 62 65 2d 31  29 3d 30 20 80 20 50 5f  |_canbe-1)=0 . P_|
000037b0  63 61 6e 62 65 25 28 31  2c 50 5f 63 61 6e 62 65  |canbe%(1,P_canbe|
000037c0  2d 31 29 20 3d 20 30 20  80 20 50 5f 63 61 6e 62  |-1) = 0 . P_canb|
000037d0  65 25 28 32 2c 50 5f 63  61 6e 62 65 2d 31 29 3d  |e%(2,P_canbe-1)=|
000037e0  30 20 80 20 50 5f 63 61  6e 62 65 25 28 33 2c 50  |0 . P_canbe%(3,P|
000037f0  5f 63 61 6e 62 65 2d 31  29 20 3d 20 30 0d 18 f6  |_canbe-1) = 0...|
00003800  0c 50 5f 74 61 6c 6b 3d  30 0d 19 00 05 f5 0d 19  |.P_talk=0.......|
00003810  0a 1e f1 23 70 65 6f 70  6c 65 2c 50 5f 74 61 6c  |...#people,P_tal|
00003820  6b 25 28 30 2c 50 5f 74  61 6c 6b 29 0d 19 14 1e  |k%(0,P_talk)....|
00003830  f1 23 70 65 6f 70 6c 65  2c 50 5f 74 61 6c 6b 25  |.#people,P_talk%|
00003840  28 31 2c 50 5f 74 61 6c  6b 29 0d 19 1e 1e f1 23  |(1,P_talk).....#|
00003850  70 65 6f 70 6c 65 2c 50  5f 74 61 6c 6b 25 28 32  |people,P_talk%(2|
00003860  2c 50 5f 74 61 6c 6b 29  0d 19 28 1e f1 23 70 65  |,P_talk)..(..#pe|
00003870  6f 70 6c 65 2c 50 5f 74  61 6c 6b 25 28 33 2c 50  |ople,P_talk%(3,P|
00003880  5f 74 61 6c 6b 29 0d 19  32 0d 50 5f 74 61 6c 6b  |_talk)..2.P_talk|
00003890  2b 3d 31 0d 19 3c 67 fd  20 50 5f 74 61 6c 6b 25  |+=1..<g. P_talk%|
000038a0  28 30 2c 50 5f 74 61 6c  6b 2d 31 29 3d 30 20 80  |(0,P_talk-1)=0 .|
000038b0  20 50 5f 74 61 6c 6b 25  28 31 2c 50 5f 74 61 6c  | P_talk%(1,P_tal|
000038c0  6b 2d 31 29 20 3d 20 30  20 80 20 50 5f 74 61 6c  |k-1) = 0 . P_tal|
000038d0  6b 25 28 32 2c 50 5f 74  61 6c 6b 2d 31 29 3d 30  |k%(2,P_talk-1)=0|
000038e0  20 80 20 50 5f 74 61 6c  6b 25 28 33 2c 50 5f 74  | . P_talk%(3,P_t|
000038f0  61 6c 6b 2d 31 29 20 3d  20 30 0d 19 46 05 e1 0d  |alk-1) = 0..F...|
00003900  19 50 04 0d 19 5a 0e dd  f2 76 69 73 6d 6f 76 5f  |.P...Z...vismov_|
00003910  50 0d 19 64 0b c8 8e 20  70 24 20 ca 0d 19 6e 14  |P..d... p$ ...n.|
00003920  c9 20 22 76 69 73 61 62  6c 65 3a 22 3a 64 3d 33  |. "visable:":d=3|
00003930  0d 19 78 11 c9 20 22 6d  6f 76 65 3a 22 3a 64 3d  |..x.. "move:":d=|
00003940  34 0d 19 82 05 cb 0d 19  8c 34 63 75 72 6c 69 6e  |4........4curlin|
00003950  65 24 3d a4 73 74 72 69  70 28 a4 73 74 72 69 70  |e$=.strip(.strip|
00003960  5f 65 6e 64 28 a4 6e 6f  74 66 69 72 73 74 28 63  |_end(.notfirst(c|
00003970  75 72 6c 69 6e 65 24 29  29 29 0d 19 96 07 74 3d  |urline$)))....t=|
00003980  30 0d 19 a0 11 c8 8e 20  63 75 72 6c 69 6e 65 24  |0...... curline$|
00003990  20 ca 0d 19 aa 14 c9 20  22 79 65 73 22 2c 22 79  | ...... "yes","y|
000039a0  22 3a 74 3d 2d 31 0d 19  b4 12 c9 20 22 6e 6f 22  |":t=-1..... "no"|
000039b0  2c 22 6e 22 3a 74 3d 30  0d 19 be 05 7f 0d 19 c8  |,"n":t=0........|
000039c0  33 f2 72 65 70 6f 72 74  28 22 55 6e 6b 6e 6f 77  |3.report("Unknow|
000039d0  6e 3a 20 27 22 2b 63 75  72 6c 69 6e 65 24 2b 22  |n: '"+curline$+"|
000039e0  27 20 69 6e 20 6f 72 20  6d 6f 76 65 3a 2e 22 29  |' in or move:.")|
000039f0  0d 19 d2 05 cb 0d 19 dc  12 50 5f 64 61 74 61 25  |.........P_data%|
00003a00  28 30 2c 64 29 3d 74 0d  19 e6 05 e1 0d 19 f0 04  |(0,d)=t.........|
00003a10  0d 19 fa 0e dd f2 65 6e  65 72 67 79 5f 50 0d 1a  |......energy_P..|
00003a20  04 34 63 75 72 6c 69 6e  65 24 3d a4 73 74 72 69  |.4curline$=.stri|
00003a30  70 28 a4 73 74 72 69 70  5f 65 6e 64 28 a4 6e 6f  |p(.strip_end(.no|
00003a40  74 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |tfirst(curline$)|
00003a50  29 29 0d 1a 0e 11 67 3d  bb 28 63 75 72 6c 69 6e  |))....g=.(curlin|
00003a60  65 24 29 0d 1a 18 3b e7  20 67 3d 30 20 8c 20 f2  |e$)...;. g=0 . .|
00003a70  72 65 70 6f 72 74 28 22  42 61 64 20 65 6e 65 72  |report("Bad ener|
00003a80  67 79 3a 20 76 61 6c 75  65 20 30 20 6f 72 20 6e  |gy: value 0 or n|
00003a90  6f 74 20 61 20 6e 75 6d  62 65 72 2e 22 29 0d 1a  |ot a number.")..|
00003aa0  22 12 50 5f 64 61 74 61  25 28 30 2c 35 29 3d 67  |".P_data%(0,5)=g|
00003ab0  0d 1a 2c 05 e1 0d 1a 36  04 0d 1a 40 0c dd f2 6e  |..,....6...@...n|
00003ac0  61 6d 65 5f 50 0d 1a 4a  20 63 75 72 6c 69 6e 65  |ame_P..J curline|
00003ad0  24 3d a4 6e 6f 74 66 69  72 73 74 28 63 75 72 6c  |$=.notfirst(curl|
00003ae0  69 6e 65 24 29 0d 1a 54  0f 73 3d a4 64 6f 73 74  |ine$)..T.s=.dost|
00003af0  72 69 6e 67 0d 1a 5e 14  50 5f 64 61 74 61 25 28  |ring..^.P_data%(|
00003b00  30 2c 30 29 3d 26 30 37  0d 1a 68 12 50 5f 64 61  |0,0)=&07..h.P_da|
00003b10  74 61 25 28 31 2c 30 29  3d 73 0d 1a 72 05 e1 0d  |ta%(1,0)=s..r...|
00003b20  1a 7c 04 0d 1a 86 38 dd  f2 74 65 78 74 5f 50 20  |.|....8..text_P |
00003b30  20 3a f4 20 61 20 62 6c  6f 63 6b 20 6f 66 20 73  | :. a block of s|
00003b40  74 72 69 6e 67 73 20 72  61 74 68 65 72 20 74 68  |trings rather th|
00003b50  61 6e 20 6a 75 73 74 20  6f 6e 65 0d 1a 90 20 63  |an just one... c|
00003b60  75 72 6c 69 6e 65 24 3d  a4 6e 6f 74 66 69 72 73  |urline$=.notfirs|
00003b70  74 28 63 75 72 6c 69 6e  65 24 29 0d 1a 9a 0f 73  |t(curline$)....s|
00003b80  3d a4 64 6f 73 74 72 69  6e 67 0d 1a a4 08 73 32  |=.dostring....s2|
00003b90  3d 73 0d 1a ae 0c 75 73  65 6f 6c 64 3d b9 0d 1a  |=s....useold=...|
00003ba0  b8 11 63 75 72 6c 69 6e  65 24 3d a4 67 65 74 0d  |..curline$=.get.|
00003bb0  1a c2 1b c8 95 20 c1 63  75 72 6c 69 6e 65 24 2c  |..... .curline$,|
00003bc0  31 2c 31 29 3d bd 28 33  34 29 0d 1a cc 10 73 32  |1,1)=.(34)....s2|
00003bd0  3d a4 64 6f 73 74 72 69  6e 67 0d 1a d6 11 63 75  |=.dostring....cu|
00003be0  72 6c 69 6e 65 24 3d a4  67 65 74 0d 1a e0 05 ce  |rline$=.get.....|
00003bf0  0d 1a ea 14 50 5f 64 61  74 61 25 28 30 2c 31 29  |....P_data%(0,1)|
00003c00  3d 26 30 37 0d 1a f4 12  50 5f 64 61 74 61 25 28  |=&07....P_data%(|
00003c10  31 2c 31 29 3d 73 0d 1a  fe 14 50 5f 64 61 74 61  |1,1)=s....P_data|
00003c20  25 28 30 2c 32 29 3d 26  30 37 0d 1b 08 13 50 5f  |%(0,2)=&07....P_|
00003c30  64 61 74 61 25 28 31 2c  32 29 3d 73 32 0d 1b 12  |data%(1,2)=s2...|
00003c40  05 e1 0d 1b 1c 04 0d 1b  26 0f dd f2 64 65 61 64  |........&...dead|
00003c50  73 65 65 5f 50 0d 1b 30  0b c8 8e 20 70 24 20 ca  |see_P..0... p$ .|
00003c60  0d 1b 3a 11 c9 20 22 64  65 61 64 3a 22 3a 64 3d  |..:.. "dead:":d=|
00003c70  36 0d 1b 44 10 c9 20 22  73 65 65 3a 22 3a 64 3d  |6..D.. "see:":d=|
00003c80  37 0d 1b 4e 12 c9 20 22  75 6e 73 65 65 3a 22 3a  |7..N.. "unsee:":|
00003c90  64 3d 38 0d 1b 58 05 cb  0d 1b 62 20 63 75 72 6c  |d=8..X....b curl|
00003ca0  69 6e 65 24 3d a4 6e 6f  74 66 69 72 73 74 28 63  |ine$=.notfirst(c|
00003cb0  75 72 6c 69 6e 65 24 29  0d 1b 6c 0d 79 3d a4 64  |urline$)..l.y=.d|
00003cc0  6f 63 6f 64 65 0d 1b 76  14 50 5f 64 61 74 61 25  |ocode..v.P_data%|
00003cd0  28 30 2c 64 29 3d 26 30  36 0d 1b 80 12 50 5f 64  |(0,d)=&06....P_d|
00003ce0  61 74 61 25 28 31 2c 64  29 3d 79 0d 1b 8a 05 e1  |ata%(1,d)=y.....|
00003cf0  0d 1b 94 04 0d 1b 9e 0f  dd f2 6f 62 6a 65 63 74  |..........object|
00003d00  73 5f 50 0d 1b a8 20 63  75 72 6c 69 6e 65 24 3d  |s_P... curline$=|
00003d10  a4 6e 6f 74 66 69 72 73  74 28 63 75 72 6c 69 6e  |.notfirst(curlin|
00003d20  65 24 29 0d 1b b2 21 c8  95 20 63 75 72 6c 69 6e  |e$)...!.. curlin|
00003d30  65 24 3c 3e 22 22 20 80  20 50 5f 6f 62 73 3c 6d  |e$<>"" . P_obs<m|
00003d40  61 78 5f 61 0d 1b bc 1e  74 65 6d 70 24 3d a4 63  |ax_a....temp$=.c|
00003d50  6f 6d 6d 61 5f 67 65 74  28 63 75 72 6c 69 6e 65  |omma_get(curline|
00003d60  24 29 0d 1b c6 22 63 75  72 6c 69 6e 65 24 3d a4  |$)..."curline$=.|
00003d70  63 6f 6d 6d 61 5f 72 65  73 74 28 63 75 72 6c 69  |comma_rest(curli|
00003d80  6e 65 24 29 0d 1b d0 11  6e 3d a4 6f 62 73 28 74  |ne$)....n=.obs(t|
00003d90  65 6d 70 24 29 0d 1b da  1b 50 5f 6f 62 6a 65 63  |emp$)....P_objec|
00003da0  74 73 25 28 30 2c 50 5f  6f 62 73 29 3d 26 30 32  |ts%(0,P_obs)=&02|
00003db0  0d 1b e4 19 50 5f 6f 62  6a 65 63 74 73 25 28 31  |....P_objects%(1|
00003dc0  2c 50 5f 6f 62 73 29 3d  6e 0d 1b ee 0c 50 5f 6f  |,P_obs)=n....P_o|
00003dd0  62 73 2b 3d 31 0d 1b f8  05 ce 0d 1c 02 3b e7 20  |bs+=1........;. |
00003de0  63 75 72 6c 69 6e 65 24  3c 3e 22 22 20 8c 20 f2  |curline$<>"" . .|
00003df0  72 65 70 6f 72 74 28 22  54 6f 6f 20 6d 61 6e 79  |report("Too many|
00003e00  20 6f 62 6a 65 63 74 73  20 69 6e 20 70 65 72 73  | objects in pers|
00003e10  6f 6e 2e 22 29 0d 1c 0c  05 e1 0d 1c 16 04 0d 1c  |on.")...........|
00003e20  20 0d dd f2 63 61 6e 62  65 5f 50 0d 1c 2a 5b e7  | ...canbe_P..*[.|
00003e30  20 c2 a4 73 74 72 69 70  5f 65 6e 64 28 63 75 72  | ..strip_end(cur|
00003e40  6c 69 6e 65 24 29 29 3c  3e 22 7b 22 20 8c 20 f2  |line$))<>"{" . .|
00003e50  72 65 70 6f 72 74 28 22  6c 61 73 74 20 63 68 61  |report("last cha|
00003e60  72 61 63 74 65 72 20 6f  6e 20 61 6e 20 63 61 6e  |racter on an can|
00003e70  62 65 3a 20 6c 69 6e 65  20 6d 75 73 74 20 62 65  |be: line must be|
00003e80  20 61 20 7b 22 29 0d 1c  34 11 63 75 72 6c 69 6e  | a {")..4.curlin|
00003e90  65 24 3d a4 67 65 74 0d  1c 3e 2c c8 95 20 a4 66  |e$=.get..>,.. .f|
00003ea0  69 72 73 74 28 63 75 72  6c 69 6e 65 24 29 3c 3e  |irst(curline$)<>|
00003eb0  22 7d 22 20 80 20 50 5f  63 61 6e 62 65 3c 6d 61  |"}" . P_canbe<ma|
00003ec0  78 5f 61 0d 1c 48 0f 6e  3d a4 64 6f 73 74 72 69  |x_a..H.n=.dostri|
00003ed0  6e 67 0d 1c 52 45 e7 20  c1 63 75 72 6c 69 6e 65  |ng..RE. .curline|
00003ee0  24 2c 31 2c 31 29 3c 3e  22 3a 22 20 8c 20 f2 72  |$,1,1)<>":" . .r|
00003ef0  65 70 6f 72 74 28 22 43  6f 6c 6f 6e 20 6e 65 65  |eport("Colon nee|
00003f00  64 65 64 20 61 66 74 65  72 20 76 65 72 62 20 73  |ded after verb s|
00003f10  74 72 69 6e 67 22 29 0d  1c 5c 19 63 75 72 6c 69  |tring")..\.curli|
00003f20  6e 65 24 3d c1 63 75 72  6c 69 6e 65 24 2c 32 29  |ne$=.curline$,2)|
00003f30  0d 1c 66 0d 79 3d a4 64  6f 63 6f 64 65 0d 1c 70  |..f.y=.docode..p|
00003f40  1b 50 5f 63 61 6e 62 65  25 28 30 2c 50 5f 63 61  |.P_canbe%(0,P_ca|
00003f50  6e 62 65 29 3d 26 30 37  0d 1c 7a 19 50 5f 63 61  |nbe)=&07..z.P_ca|
00003f60  6e 62 65 25 28 31 2c 50  5f 63 61 6e 62 65 29 3d  |nbe%(1,P_canbe)=|
00003f70  6e 0d 1c 84 1b 50 5f 63  61 6e 62 65 25 28 32 2c  |n....P_canbe%(2,|
00003f80  50 5f 63 61 6e 62 65 29  3d 26 30 36 0d 1c 8e 19  |P_canbe)=&06....|
00003f90  50 5f 63 61 6e 62 65 25  28 33 2c 50 5f 63 61 6e  |P_canbe%(3,P_can|
00003fa0  62 65 29 3d 79 0d 1c 98  0e 50 5f 63 61 6e 62 65  |be)=y....P_canbe|
00003fb0  2b 3d 31 0d 1c a2 11 63  75 72 6c 69 6e 65 24 3d  |+=1....curline$=|
00003fc0  a4 67 65 74 0d 1c ac 05  ce 0d 1c b6 3b e7 20 63  |.get........;. c|
00003fd0  75 72 6c 69 6e 65 24 3c  3e 22 7d 22 20 8c 20 f2  |urline$<>"}" . .|
00003fe0  72 65 70 6f 72 74 28 22  54 6f 6f 20 6d 61 6e 79  |report("Too many|
00003ff0  20 63 61 6e 62 65 73 20  69 6e 20 70 65 72 73 6f  | canbes in perso|
00004000  6e 2e 22 29 0d 1c c0 05  e1 0d 1c ca 04 0d 1c d4  |n.")............|
00004010  0c dd f2 74 61 6c 6b 5f  50 0d 1c de 5a e7 20 c2  |...talk_P...Z. .|
00004020  a4 73 74 72 69 70 5f 65  6e 64 28 63 75 72 6c 69  |.strip_end(curli|
00004030  6e 65 24 29 29 3c 3e 22  7b 22 20 8c 20 f2 72 65  |ne$))<>"{" . .re|
00004040  70 6f 72 74 28 22 6c 61  73 74 20 63 68 61 72 61  |port("last chara|
00004050  63 74 65 72 20 6f 6e 20  61 6e 20 74 61 6c 6b 3a  |cter on an talk:|
00004060  20 6c 69 6e 65 20 6d 75  73 74 20 62 65 20 61 20  | line must be a |
00004070  7b 22 29 0d 1c e8 11 63  75 72 6c 69 6e 65 24 3d  |{")....curline$=|
00004080  a4 67 65 74 0d 1c f2 2b  c8 95 20 a4 66 69 72 73  |.get...+.. .firs|
00004090  74 28 63 75 72 6c 69 6e  65 24 29 3c 3e 22 7d 22  |t(curline$)<>"}"|
000040a0  20 80 20 50 5f 74 61 6c  6b 3c 6d 61 78 5f 61 0d  | . P_talk<max_a.|
000040b0  1c fc 0f 6e 3d a4 64 6f  73 74 72 69 6e 67 0d 1d  |...n=.dostring..|
000040c0  06 48 e7 20 c1 63 75 72  6c 69 6e 65 24 2c 31 2c  |.H. .curline$,1,|
000040d0  31 29 3c 3e 22 3a 22 20  8c 20 f2 72 65 70 6f 72  |1)<>":" . .repor|
000040e0  74 28 22 43 6f 6c 6f 6e  20 6e 65 65 64 65 64 20  |t("Colon needed |
000040f0  61 66 74 65 72 20 6b 65  79 77 6f 72 64 20 73 74  |after keyword st|
00004100  72 69 6e 67 22 29 0d 1d  10 19 63 75 72 6c 69 6e  |ring")....curlin|
00004110  65 24 3d c1 63 75 72 6c  69 6e 65 24 2c 32 29 0d  |e$=.curline$,2).|
00004120  1d 1a 0d 79 3d a4 64 6f  63 6f 64 65 0d 1d 24 19  |...y=.docode..$.|
00004130  50 5f 74 61 6c 6b 25 28  30 2c 50 5f 74 61 6c 6b  |P_talk%(0,P_talk|
00004140  29 3d 26 30 37 0d 1d 2e  17 50 5f 74 61 6c 6b 25  |)=&07....P_talk%|
00004150  28 31 2c 50 5f 74 61 6c  6b 29 3d 6e 0d 1d 38 19  |(1,P_talk)=n..8.|
00004160  50 5f 74 61 6c 6b 25 28  32 2c 50 5f 74 61 6c 6b  |P_talk%(2,P_talk|
00004170  29 3d 26 30 36 0d 1d 42  17 50 5f 74 61 6c 6b 25  |)=&06..B.P_talk%|
00004180  28 33 2c 50 5f 74 61 6c  6b 29 3d 79 0d 1d 4c 0d  |(3,P_talk)=y..L.|
00004190  50 5f 74 61 6c 6b 2b 3d  31 0d 1d 56 11 63 75 72  |P_talk+=1..V.cur|
000041a0  6c 69 6e 65 24 3d a4 67  65 74 0d 1d 60 05 ce 0d  |line$=.get..`...|
000041b0  1d 6a 3a e7 20 63 75 72  6c 69 6e 65 24 3c 3e 22  |.j:. curline$<>"|
000041c0  7d 22 20 8c 20 f2 72 65  70 6f 72 74 28 22 54 6f  |}" . .report("To|
000041d0  6f 20 6d 61 6e 79 20 74  61 6c 6b 73 20 69 6e 20  |o many talks in |
000041e0  70 65 72 73 6f 6e 2e 22  29 0d 1d 74 05 e1 0d 1d  |person.")..t....|
000041f0  7e 04 0d 1d 88 1e f4 2a  2a 2a 2a 2a 2a 2a 2a 2a  |~......*********|
00004200  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 52 4f 4f 4d 53  |***********ROOMS|
00004210  0d 1d 92 04 0d 1d 9c 0a  dd f2 72 6f 6f 6d 0d 1d  |..........room..|
00004220  a6 0f 52 5f 64 61 74 61  25 28 29 3d 30 0d 1d b0  |..R_data%()=0...|
00004230  12 52 5f 6f 62 6a 65 63  74 73 25 28 29 3d 30 0d  |.R_objects%()=0.|
00004240  1d ba 11 52 5f 70 65 6f  70 6c 65 25 28 29 3d 30  |...R_people%()=0|
00004250  0d 1d c4 11 52 5f 61 63  74 69 6f 6e 25 28 29 3d  |....R_action%()=|
00004260  30 0d 1d ce 0b 52 5f 6f  62 73 3d 30 0d 1d d8 0e  |0....R_obs=0....|
00004270  52 5f 70 65 72 73 6f 6e  3d 30 0d 1d e2 0e 52 5f  |R_person=0....R_|
00004280  61 63 74 69 6f 6e 3d 30  0d 1d ec 20 63 75 72 6c  |action=0... curl|
00004290  69 6e 65 24 3d a4 6e 6f  74 66 69 72 73 74 28 63  |ine$=.notfirst(c|
000042a0  75 72 6c 69 6e 65 24 29  0d 1d f6 1c 74 68 69 73  |urline$)....this|
000042b0  5f 52 25 3d a4 67 65 74  6e 65 77 72 6f 6f 6d 6c  |_R%=.getnewrooml|
000042c0  61 62 65 6c 0d 1e 00 30  e7 20 a7 63 75 72 6c 69  |abel...0. .curli|
000042d0  6e 65 24 2c 22 73 74 61  72 74 22 29 3c 3e 30 20  |ne$,"start")<>0 |
000042e0  8c 20 73 74 61 72 74 72  6f 6f 6d 25 3d 74 68 69  |. startroom%=thi|
000042f0  73 5f 52 25 0d 1e 0a 0c  65 6e 64 5f 52 25 3d a3  |s_R%....end_R%=.|
00004300  0d 1e 14 0c 75 73 65 6f  6c 64 3d a3 0d 1e 1e 05  |....useold=.....|
00004310  f5 0d 1e 28 1f e7 20 75  73 65 6f 6c 64 3d a3 20  |...(.. useold=. |
00004320  8c 20 20 63 75 72 6c 69  6e 65 24 3d a4 67 65 74  |.  curline$=.get|
00004330  0d 1e 32 17 70 24 3d a4  66 69 72 73 74 28 63 75  |..2.p$=.first(cu|
00004340  72 6c 69 6e 65 24 29 0d  1e 3c 0c 75 73 65 6f 6c  |rline$)..<.useol|
00004350  64 3d a3 0d 1e 46 0b c8  8e 20 70 24 20 ca 0d 1e  |d=...F... p$ ...|
00004360  50 15 c9 20 22 74 65 78  74 3a 22 3a f2 74 65 78  |P.. "text:":.tex|
00004370  74 5f 52 0d 1e 5a 15 c9  20 22 6e 61 6d 65 3a 22  |t_R..Z.. "name:"|
00004380  3a f2 6e 61 6d 65 5f 52  0d 1e 64 82 c9 20 22 65  |:.name_R..d.. "e|
00004390  61 73 74 3a 22 2c 22 77  65 73 74 3a 22 2c 22 73  |ast:","west:","s|
000043a0  6f 75 74 68 3a 22 2c 22  6e 6f 72 74 68 3a 22 2c  |outh:","north:",|
000043b0  22 75 70 3a 22 2c 22 64  6f 77 6e 3a 22 2c 22 73  |"up:","down:","s|
000043c0  6f 75 74 68 65 61 73 74  3a 22 2c 22 73 6f 75 74  |outheast:","sout|
000043d0  68 77 65 73 74 3a 22 2c  22 6e 6f 72 74 68 65 61  |hwest:","northea|
000043e0  73 74 3a 22 2c 22 6e 6f  72 74 68 77 65 73 74 3a  |st:","northwest:|
000043f0  22 2c 22 65 6e 74 65 72  3a 22 2c 22 6c 65 61 76  |","enter:","leav|
00004400  65 3a 22 3a f2 64 69 72  5f 52 0d 1e 6e 1b c9 20  |e:":.dir_R..n.. |
00004410  22 6f 62 6a 65 63 74 73  3a 22 3a f2 6f 62 6a 65  |"objects:":.obje|
00004420  63 74 73 5f 52 0d 1e 78  19 c9 20 22 70 65 6f 70  |cts_R..x.. "peop|
00004430  6c 65 3a 22 3a f2 70 65  6f 70 6c 65 5f 52 0d 1e  |le:":.people_R..|
00004440  82 1b c9 20 22 61 63 74  69 6f 6e 73 3a 22 3a f2  |... "actions:":.|
00004450  61 63 74 69 6f 6e 73 5f  52 0d 1e 8c 12 c9 20 22  |actions_R..... "|
00004460  7d 22 3a 65 6e 64 5f 52  25 3d b9 0d 1e 96 2b 7f  |}":end_R%=....+.|
00004470  20 f2 72 65 70 6f 72 74  28 22 55 6e 6b 6e 6f 77  | .report("Unknow|
00004480  6e 20 72 6f 6f 6d 20 74  61 67 3a 20 27 22 2b 70  |n room tag: '"+p|
00004490  24 2b 22 27 22 29 0d 1e  a0 05 cb 0d 1e aa 0e fd  |$+"'")..........|
000044a0  20 65 6e 64 5f 52 25 3d  b9 0d 1e b4 04 0d 1e be  | end_R%=........|
000044b0  36 f2 77 72 69 74 65 5f  52 20 3a 3a f4 2a 2a 2a  |6.write_R ::.***|
000044c0  2a 2a 2a 2a 2a 72 65 6d  65 6d 62 65 72 20 74 6f  |*****remember to|
000044d0  20 61 6c 73 6f 20 6f 75  74 70 75 74 20 6e 75 6d  | also output num|
000044e0  62 65 72 0d 1e c8 05 e1  0d 1e d2 04 0d 1e dc 0d  |ber.............|
000044f0  dd f2 77 72 69 74 65 5f  52 0d 1e e6 38 f4 2a 2a  |..write_R...8.**|
00004500  2a 2a 2a 46 49 52 53 54  20 43 48 45 43 4b 20 41  |***FIRST CHECK A|
00004510  4c 4c 20 54 48 45 20 4e  45 45 44 45 44 20 4d 45  |LL THE NEEDED ME|
00004520  4d 42 45 52 53 20 41 52  45 20 50 52 45 53 41 4e  |MBERS ARE PRESAN|
00004530  54 0d 1e f0 3b e7 20 52  5f 64 61 74 61 25 28 30  |T...;. R_data%(0|
00004540  2c 30 29 3d 30 20 8c 20  f2 72 65 70 6f 72 74 28  |,0)=0 . .report(|
00004550  22 4e 6f 20 6e 61 6d 65  3a 20 70 72 65 73 61 6e  |"No name: presan|
00004560  74 20 69 6e 20 72 6f 6f  6d 2e 22 29 0d 1e fa 3b  |t in room.")...;|
00004570  e7 20 52 5f 64 61 74 61  25 28 30 2c 31 29 3d 30  |. R_data%(0,1)=0|
00004580  20 8c 20 f2 72 65 70 6f  72 74 28 22 4e 6f 20 74  | . .report("No t|
00004590  65 78 74 3a 20 70 72 65  73 61 6e 74 20 69 6e 20  |ext: presant in |
000045a0  72 6f 6f 6d 2e 22 29 0d  1f 04 12 f1 23 72 6f 6f  |room.").....#roo|
000045b0  6d 2c 74 68 69 73 5f 52  25 0d 1f 0e 0d e3 20 49  |m,this_R%..... I|
000045c0  25 3d 30 b8 31 34 0d 1f  18 18 f1 23 72 6f 6f 6d  |%=0.14.....#room|
000045d0  2c 52 5f 64 61 74 61 25  28 30 2c 49 25 29 0d 1f  |,R_data%(0,I%)..|
000045e0  22 18 f1 23 72 6f 6f 6d  2c 52 5f 64 61 74 61 25  |"..#room,R_data%|
000045f0  28 31 2c 49 25 29 0d 1f  2c 05 ed 0d 1f 36 0b 52  |(1,I%)..,....6.R|
00004600  5f 6f 62 73 3d 30 0d 1f  40 05 f5 0d 1f 4a 1e f1  |_obs=0..@....J..|
00004610  23 72 6f 6f 6d 2c 52 5f  6f 62 6a 65 63 74 73 25  |#room,R_objects%|
00004620  28 30 2c 52 5f 6f 62 73  29 0d 1f 54 1e f1 23 72  |(0,R_obs)..T..#r|
00004630  6f 6f 6d 2c 52 5f 6f 62  6a 65 63 74 73 25 28 31  |oom,R_objects%(1|
00004640  2c 52 5f 6f 62 73 29 0d  1f 5e 0c 52 5f 6f 62 73  |,R_obs)..^.R_obs|
00004650  2b 3d 31 0d 1f 68 39 fd  20 52 5f 6f 62 6a 65 63  |+=1..h9. R_objec|
00004660  74 73 25 28 30 2c 52 5f  6f 62 73 2d 31 29 3d 30  |ts%(0,R_obs-1)=0|
00004670  20 80 20 52 5f 6f 62 6a  65 63 74 73 25 28 31 2c  | . R_objects%(1,|
00004680  52 5f 6f 62 73 2d 31 29  20 3d 20 30 0d 1f 72 0e  |R_obs-1) = 0..r.|
00004690  52 5f 70 65 72 73 6f 6e  3d 30 0d 1f 7c 05 f5 0d  |R_person=0..|...|
000046a0  1f 86 20 f1 23 72 6f 6f  6d 2c 52 5f 70 65 6f 70  |.. .#room,R_peop|
000046b0  6c 65 25 28 30 2c 52 5f  70 65 72 73 6f 6e 29 0d  |le%(0,R_person).|
000046c0  1f 90 20 f1 23 72 6f 6f  6d 2c 52 5f 70 65 6f 70  |.. .#room,R_peop|
000046d0  6c 65 25 28 31 2c 52 5f  70 65 72 73 6f 6e 29 0d  |le%(1,R_person).|
000046e0  1f 9a 0f 52 5f 70 65 72  73 6f 6e 2b 3d 31 0d 1f  |...R_person+=1..|
000046f0  a4 3d fd 20 52 5f 70 65  6f 70 6c 65 25 28 30 2c  |.=. R_people%(0,|
00004700  52 5f 70 65 72 73 6f 6e  2d 31 29 3d 30 20 80 20  |R_person-1)=0 . |
00004710  52 5f 70 65 6f 70 6c 65  25 28 31 2c 52 5f 70 65  |R_people%(1,R_pe|
00004720  72 73 6f 6e 2d 31 29 20  3d 20 30 0d 1f ae 0e 52  |rson-1) = 0....R|
00004730  5f 61 63 74 69 6f 6e 3d  30 0d 1f b8 05 f5 0d 1f  |_action=0.......|
00004740  c2 20 f1 23 72 6f 6f 6d  2c 52 5f 61 63 74 69 6f  |. .#room,R_actio|
00004750  6e 25 28 30 2c 52 5f 61  63 74 69 6f 6e 29 0d 1f  |n%(0,R_action)..|
00004760  cc 20 f1 23 72 6f 6f 6d  2c 52 5f 61 63 74 69 6f  |. .#room,R_actio|
00004770  6e 25 28 31 2c 52 5f 61  63 74 69 6f 6e 29 0d 1f  |n%(1,R_action)..|
00004780  d6 20 f1 23 72 6f 6f 6d  2c 52 5f 61 63 74 69 6f  |. .#room,R_actio|
00004790  6e 25 28 32 2c 52 5f 61  63 74 69 6f 6e 29 0d 1f  |n%(2,R_action)..|
000047a0  e0 20 f1 23 72 6f 6f 6d  2c 52 5f 61 63 74 69 6f  |. .#room,R_actio|
000047b0  6e 25 28 33 2c 52 5f 61  63 74 69 6f 6e 29 0d 1f  |n%(3,R_action)..|
000047c0  ea 0f 52 5f 61 63 74 69  6f 6e 2b 3d 31 0d 1f f4  |..R_action+=1...|
000047d0  77 fd 20 52 5f 61 63 74  69 6f 6e 25 28 30 2c 52  |w. R_action%(0,R|
000047e0  5f 61 63 74 69 6f 6e 2d  31 29 3d 30 20 80 20 52  |_action-1)=0 . R|
000047f0  5f 61 63 74 69 6f 6e 25  28 31 2c 52 5f 61 63 74  |_action%(1,R_act|
00004800  69 6f 6e 2d 31 29 20 3d  20 30 20 80 20 52 5f 61  |ion-1) = 0 . R_a|
00004810  63 74 69 6f 6e 25 28 32  2c 52 5f 61 63 74 69 6f  |ction%(2,R_actio|
00004820  6e 2d 31 29 3d 30 20 80  20 52 5f 61 63 74 69 6f  |n-1)=0 . R_actio|
00004830  6e 25 28 33 2c 52 5f 61  63 74 69 6f 6e 2d 31 29  |n%(3,R_action-1)|
00004840  20 3d 20 30 0d 1f fe 05  e1 0d 20 08 04 0d 20 12  | = 0...... ... .|
00004850  04 0d 20 1c 0f dd f2 6f  62 6a 65 63 74 73 5f 52  |.. ....objects_R|
00004860  0d 20 26 20 63 75 72 6c  69 6e 65 24 3d a4 6e 6f  |. & curline$=.no|
00004870  74 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |tfirst(curline$)|
00004880  0d 20 30 21 c8 95 20 63  75 72 6c 69 6e 65 24 3c  |. 0!.. curline$<|
00004890  3e 22 22 20 80 20 52 5f  6f 62 73 3c 6d 61 78 5f  |>"" . R_obs<max_|
000048a0  61 0d 20 3a 1e 74 65 6d  70 24 3d a4 63 6f 6d 6d  |a. :.temp$=.comm|
000048b0  61 5f 67 65 74 28 63 75  72 6c 69 6e 65 24 29 0d  |a_get(curline$).|
000048c0  20 44 22 63 75 72 6c 69  6e 65 24 3d a4 63 6f 6d  | D"curline$=.com|
000048d0  6d 61 5f 72 65 73 74 28  63 75 72 6c 69 6e 65 24  |ma_rest(curline$|
000048e0  29 0d 20 4e 11 6e 3d a4  6f 62 73 28 74 65 6d 70  |). N.n=.obs(temp|
000048f0  24 29 0d 20 58 1b 52 5f  6f 62 6a 65 63 74 73 25  |$). X.R_objects%|
00004900  28 30 2c 52 5f 6f 62 73  29 3d 26 30 32 0d 20 62  |(0,R_obs)=&02. b|
00004910  19 52 5f 6f 62 6a 65 63  74 73 25 28 31 2c 52 5f  |.R_objects%(1,R_|
00004920  6f 62 73 29 3d 6e 0d 20  6c 0c 52 5f 6f 62 73 2b  |obs)=n. l.R_obs+|
00004930  3d 31 0d 20 76 04 0d 20  80 05 ce 0d 20 8a 39 e7  |=1. v.. .... .9.|
00004940  20 63 75 72 6c 69 6e 65  24 3c 3e 22 22 20 8c 20  | curline$<>"" . |
00004950  f2 72 65 70 6f 72 74 28  22 54 6f 6f 20 6d 61 6e  |.report("Too man|
00004960  79 20 6f 62 6a 65 63 74  73 20 69 6e 20 72 6f 6f  |y objects in roo|
00004970  6d 2e 22 29 0d 20 94 05  e1 0d 20 9e 04 0d 20 a8  |m."). .... ... .|
00004980  0f dd f2 61 63 74 69 6f  6e 73 5f 52 0d 20 b2 5c  |...actions_R. .\|
00004990  e7 20 c2 a4 73 74 72 69  70 5f 65 6e 64 28 63 75  |. ..strip_end(cu|
000049a0  72 6c 69 6e 65 24 29 29  3c 3e 22 7b 22 20 8c 20  |rline$))<>"{" . |
000049b0  f2 72 65 70 6f 72 74 28  22 6c 61 73 74 20 63 68  |.report("last ch|
000049c0  61 72 61 63 74 65 72 20  6f 6e 20 61 6e 20 61 63  |aracter on an ac|
000049d0  74 69 6f 6e 3a 20 6c 69  6e 65 20 6d 75 73 74 20  |tion: line must |
000049e0  62 65 20 61 20 7b 22 29  0d 20 bc 11 63 75 72 6c  |be a {"). ..curl|
000049f0  69 6e 65 24 3d a4 67 65  74 0d 20 c6 2d c8 95 20  |ine$=.get. .-.. |
00004a00  a4 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |.first(curline$)|
00004a10  3c 3e 22 7d 22 20 80 20  52 5f 61 63 74 69 6f 6e  |<>"}" . R_action|
00004a20  3c 6d 61 78 5f 61 0d 20  d0 0f 6e 3d a4 64 6f 73  |<max_a. ..n=.dos|
00004a30  74 72 69 6e 67 0d 20 da  45 e7 20 c1 63 75 72 6c  |tring. .E. .curl|
00004a40  69 6e 65 24 2c 31 2c 31  29 3c 3e 22 3a 22 20 8c  |ine$,1,1)<>":" .|
00004a50  20 f2 72 65 70 6f 72 74  28 22 43 6f 6c 6f 6e 20  | .report("Colon |
00004a60  6e 65 65 64 65 64 20 61  66 74 65 72 20 76 65 72  |needed after ver|
00004a70  62 20 73 74 72 69 6e 67  22 29 0d 20 e4 19 63 75  |b string"). ..cu|
00004a80  72 6c 69 6e 65 24 3d c1  63 75 72 6c 69 6e 65 24  |rline$=.curline$|
00004a90  2c 32 29 0d 20 ee 0d 79  3d a4 64 6f 63 6f 64 65  |,2). ..y=.docode|
00004aa0  0d 20 f8 1d 52 5f 61 63  74 69 6f 6e 25 28 30 2c  |. ..R_action%(0,|
00004ab0  52 5f 61 63 74 69 6f 6e  29 3d 26 30 37 0d 21 02  |R_action)=&07.!.|
00004ac0  1b 52 5f 61 63 74 69 6f  6e 25 28 31 2c 52 5f 61  |.R_action%(1,R_a|
00004ad0  63 74 69 6f 6e 29 3d 6e  0d 21 0c 1d 52 5f 61 63  |ction)=n.!..R_ac|
00004ae0  74 69 6f 6e 25 28 32 2c  52 5f 61 63 74 69 6f 6e  |tion%(2,R_action|
00004af0  29 3d 26 30 36 0d 21 16  1b 52 5f 61 63 74 69 6f  |)=&06.!..R_actio|
00004b00  6e 25 28 33 2c 52 5f 61  63 74 69 6f 6e 29 3d 79  |n%(3,R_action)=y|
00004b10  0d 21 20 0f 52 5f 61 63  74 69 6f 6e 2b 3d 31 0d  |.! .R_action+=1.|
00004b20  21 2a 11 63 75 72 6c 69  6e 65 24 3d a4 67 65 74  |!*.curline$=.get|
00004b30  0d 21 34 05 ce 0d 21 3e  3b e7 20 63 75 72 6c 69  |.!4...!>;. curli|
00004b40  6e 65 24 3c 3e 22 7d 22  20 8c 20 f2 72 65 70 6f  |ne$<>"}" . .repo|
00004b50  72 74 28 22 54 6f 6f 20  6d 61 6e 79 20 61 63 74  |rt("Too many act|
00004b60  69 6f 6e 73 73 20 69 6e  20 72 6f 6f 6d 2e 22 29  |ionss in room.")|
00004b70  0d 21 48 05 e1 0d 21 52  04 0d 21 5c 0e dd f2 70  |.!H...!R..!\...p|
00004b80  65 6f 70 6c 65 5f 52 0d  21 66 20 63 75 72 6c 69  |eople_R.!f curli|
00004b90  6e 65 24 3d a4 6e 6f 74  66 69 72 73 74 28 63 75  |ne$=.notfirst(cu|
00004ba0  72 6c 69 6e 65 24 29 0d  21 70 24 c8 95 20 63 75  |rline$).!p$.. cu|
00004bb0  72 6c 69 6e 65 24 3c 3e  22 22 20 80 20 52 5f 70  |rline$<>"" . R_p|
00004bc0  65 72 73 6f 6e 3c 6d 61  78 5f 61 0d 21 7a 1e 74  |erson<max_a.!z.t|
00004bd0  65 6d 70 24 3d a4 63 6f  6d 6d 61 5f 67 65 74 28  |emp$=.comma_get(|
00004be0  63 75 72 6c 69 6e 65 24  29 0d 21 84 22 63 75 72  |curline$).!."cur|
00004bf0  6c 69 6e 65 24 3d a4 63  6f 6d 6d 61 5f 72 65 73  |line$=.comma_res|
00004c00  74 28 63 75 72 6c 69 6e  65 24 29 0d 21 8e 14 6e  |t(curline$).!..n|
00004c10  3d a4 70 65 72 73 6f 6e  28 74 65 6d 70 24 29 0d  |=.person(temp$).|
00004c20  21 98 1d 52 5f 70 65 6f  70 6c 65 25 28 30 2c 52  |!..R_people%(0,R|
00004c30  5f 70 65 72 73 6f 6e 29  3d 26 30 33 0d 21 a2 1b  |_person)=&03.!..|
00004c40  52 5f 70 65 6f 70 6c 65  25 28 31 2c 52 5f 70 65  |R_people%(1,R_pe|
00004c50  72 73 6f 6e 29 3d 6e 0d  21 ac 4d e7 20 6e 3d 30  |rson)=n.!.M. n=0|
00004c60  20 8c 20 f2 72 65 70 6f  72 74 28 22 59 6f 75 20  | . .report("You |
00004c70  63 61 6e 6e 6f 74 20 68  61 76 65 20 74 68 65 20  |cannot have the |
00004c80  70 6c 61 79 65 72 20 69  6e 20 61 20 72 6f 6f 6d  |player in a room|
00004c90  20 7b 20 70 65 6f 70 6c  65 3a 20 7d 20 6c 69 73  | { people: } lis|
00004ca0  74 2e 22 29 0d 21 b6 0f  52 5f 70 65 72 73 6f 6e  |t.").!..R_person|
00004cb0  2b 3d 31 0d 21 c0 05 ce  0d 21 ca 38 e7 20 63 75  |+=1.!....!.8. cu|
00004cc0  72 6c 69 6e 65 24 3c 3e  22 22 20 8c 20 f2 72 65  |rline$<>"" . .re|
00004cd0  70 6f 72 74 28 22 54 6f  6f 20 6d 61 6e 79 20 70  |port("Too many p|
00004ce0  65 6f 70 6c 65 20 69 6e  20 72 6f 6f 6d 2e 22 29  |eople in room.")|
00004cf0  0d 21 d4 05 e1 0d 21 de  04 0d 21 e8 0c dd f2 6e  |.!....!...!....n|
00004d00  61 6d 65 5f 52 0d 21 f2  20 63 75 72 6c 69 6e 65  |ame_R.!. curline|
00004d10  24 3d a4 6e 6f 74 66 69  72 73 74 28 63 75 72 6c  |$=.notfirst(curl|
00004d20  69 6e 65 24 29 0d 21 fc  0f 73 3d a4 64 6f 73 74  |ine$).!..s=.dost|
00004d30  72 69 6e 67 0d 22 06 14  52 5f 64 61 74 61 25 28  |ring."..R_data%(|
00004d40  30 2c 30 29 3d 26 30 37  0d 22 10 12 52 5f 64 61  |0,0)=&07."..R_da|
00004d50  74 61 25 28 31 2c 30 29  3d 73 0d 22 1a 05 e1 0d  |ta%(1,0)=s."....|
00004d60  22 24 04 0d 22 2e 38 dd  f2 74 65 78 74 5f 52 20  |"$..".8..text_R |
00004d70  20 3a f4 20 61 20 62 6c  6f 63 6b 20 6f 66 20 73  | :. a block of s|
00004d80  74 72 69 6e 67 73 20 72  61 74 68 65 72 20 74 68  |trings rather th|
00004d90  61 6e 20 6a 75 73 74 20  6f 6e 65 0d 22 38 20 63  |an just one."8 c|
00004da0  75 72 6c 69 6e 65 24 3d  a4 6e 6f 74 66 69 72 73  |urline$=.notfirs|
00004db0  74 28 63 75 72 6c 69 6e  65 24 29 0d 22 42 0f 73  |t(curline$)."B.s|
00004dc0  3d a4 64 6f 73 74 72 69  6e 67 0d 22 4c 08 73 32  |=.dostring."L.s2|
00004dd0  3d 73 0d 22 56 0c 75 73  65 6f 6c 64 3d b9 0d 22  |=s."V.useold=.."|
00004de0  60 11 63 75 72 6c 69 6e  65 24 3d a4 67 65 74 0d  |`.curline$=.get.|
00004df0  22 6a 1b c8 95 20 c1 63  75 72 6c 69 6e 65 24 2c  |"j... .curline$,|
00004e00  31 2c 31 29 3d bd 28 33  34 29 0d 22 74 10 73 32  |1,1)=.(34)."t.s2|
00004e10  3d a4 64 6f 73 74 72 69  6e 67 0d 22 7e 11 63 75  |=.dostring."~.cu|
00004e20  72 6c 69 6e 65 24 3d a4  67 65 74 0d 22 88 05 ce  |rline$=.get."...|
00004e30  0d 22 92 14 52 5f 64 61  74 61 25 28 30 2c 31 29  |."..R_data%(0,1)|
00004e40  3d 26 30 37 0d 22 9c 12  52 5f 64 61 74 61 25 28  |=&07."..R_data%(|
00004e50  31 2c 31 29 3d 73 0d 22  a6 14 52 5f 64 61 74 61  |1,1)=s."..R_data|
00004e60  25 28 30 2c 32 29 3d 26  30 37 0d 22 b0 13 52 5f  |%(0,2)=&07."..R_|
00004e70  64 61 74 61 25 28 31 2c  32 29 3d 73 32 0d 22 ba  |data%(1,2)=s2.".|
00004e80  05 e1 0d 22 c4 04 0d 22  ce 0b dd f2 64 69 72 5f  |..."..."....dir_|
00004e90  52 0d 22 d8 0b c8 8e 20  70 24 20 ca 0d 22 e2 11  |R.".... p$ .."..|
00004ea0  c9 20 22 65 61 73 74 3a  22 3a 64 3d 33 0d 22 ec  |. "east:":d=3.".|
00004eb0  11 c9 20 22 77 65 73 74  3a 22 3a 64 3d 34 0d 22  |.. "west:":d=4."|
00004ec0  f6 12 c9 20 22 73 6f 75  74 68 3a 22 3a 64 3d 35  |... "south:":d=5|
00004ed0  0d 23 00 12 c9 20 22 6e  6f 72 74 68 3a 22 3a 64  |.#... "north:":d|
00004ee0  3d 36 0d 23 0a 0f c9 20  22 75 70 3a 22 3a 64 3d  |=6.#... "up:":d=|
00004ef0  37 0d 23 14 11 c9 20 22  64 6f 77 6e 3a 22 3a 64  |7.#... "down:":d|
00004f00  3d 38 0d 23 1e 16 c9 20  22 73 6f 75 74 68 65 61  |=8.#... "southea|
00004f10  73 74 3a 22 3a 64 3d 39  0d 23 28 17 c9 20 22 73  |st:":d=9.#(.. "s|
00004f20  6f 75 74 68 77 65 73 74  3a 22 3a 64 3d 31 30 0d  |outhwest:":d=10.|
00004f30  23 32 17 c9 20 22 6e 6f  72 74 68 65 61 73 74 3a  |#2.. "northeast:|
00004f40  22 3a 64 3d 31 31 0d 23  3c 17 c9 20 22 6e 6f 72  |":d=11.#<.. "nor|
00004f50  74 68 77 65 73 74 3a 22  3a 64 3d 31 32 0d 23 46  |thwest:":d=12.#F|
00004f60  13 c9 20 22 65 6e 74 65  72 3a 22 3a 64 3d 31 33  |.. "enter:":d=13|
00004f70  0d 23 50 13 c9 20 22 6c  65 61 76 65 3a 22 3a 64  |.#P.. "leave:":d|
00004f80  3d 31 34 0d 23 5a 05 cb  0d 23 64 20 63 75 72 6c  |=14.#Z...#d curl|
00004f90  69 6e 65 24 3d a4 6e 6f  74 66 69 72 73 74 28 63  |ine$=.notfirst(c|
00004fa0  75 72 6c 69 6e 65 24 29  0d 23 6e 0d 79 3d a4 64  |urline$).#n.y=.d|
00004fb0  6f 63 6f 64 65 0d 23 78  14 52 5f 64 61 74 61 25  |ocode.#x.R_data%|
00004fc0  28 30 2c 64 29 3d 26 30  36 0d 23 82 12 52 5f 64  |(0,d)=&06.#..R_d|
00004fd0  61 74 61 25 28 31 2c 64  29 3d 79 0d 23 8c 05 e1  |ata%(1,d)=y.#...|
00004fe0  0d 23 96 04 0d 23 a0 04  0d 23 aa 32 f4 2a 2a 2a  |.#...#...#.2.***|
00004ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00005010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 23 b4 32 f4 20  |**********.#.2. |
00005020  6c 61 62 65 6c 73 2c 20  73 74 72 69 6e 67 73 2c  |labels, strings,|
00005030  20 63 6f 64 65 2c 20 65  74 63 20 2d 20 6e 6f 74  | code, etc - not|
00005040  20 77 72 69 74 65 6e 20  79 65 74 21 0d 23 be 32  | writen yet!.#.2|
00005050  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00005060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00005070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 23  |**************.#|
00005080  c8 13 f4 20 67 65 6e 65  72 61 6c 20 6e 6f 74 65  |... general note|
00005090  73 0d 23 d2 13 f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |s.#... =========|
000050a0  3d 3d 3d 3d 0d 23 dc 5f  f4 20 61 6c 6c 20 6c 61  |====.#._. all la|
000050b0  62 65 6c 73 20 6d 75 73  74 20 62 65 20 63 65 72  |bels must be cer|
000050c0  74 69 66 69 65 64 20 75  6e 69 71 75 65 2c 20 73  |tified unique, s|
000050d0  6f 20 63 68 65 63 6b 73  20 6e 65 65 64 20 74 6f  |o checks need to|
000050e0  20 62 65 20 64 6f 6e 65  20 6f 66 20 41 4c 4c 20  | be done of ALL |
000050f0  74 68 65 20 73 6f 72 74  73 20 6f 66 20 6c 61 62  |the sorts of lab|
00005100  65 6c 2c 0d 23 e6 62 f4  20 76 65 72 61 62 6c 65  |el,.#.b. verable|
00005110  73 20 65 74 63 20 77 68  65 6e 20 61 20 6e 65 77  |s etc when a new|
00005120  20 6c 61 62 65 6c 20 69  73 20 64 65 63 6c 61 65  | label is declae|
00005130  64 2e 20 41 6c 73 6f 20  61 74 20 74 68 65 20 65  |d. Also at the e|
00005140  6e 64 20 50 52 4f 43 74  61 62 6c 65 73 63 6c 65  |nd PROCtablescle|
00005150  61 72 75 70 20 69 73 20  63 61 6c 6c 65 64 20 73  |arup is called s|
00005160  6f 20 61 6c 6c 0d 23 f0  63 f4 20 74 68 65 20 72  |o all.#.c. the r|
00005170  65 73 74 20 6f 66 20 74  68 65 20 64 61 74 61 20  |est of the data |
00005180  63 61 6e 20 62 65 20 77  72 69 74 65 6e 20 61 6e  |can be writen an|
00005190  64 20 61 6c 6c 20 75 73  65 64 20 6c 61 62 65 6c  |d all used label|
000051a0  73 20 63 61 6e 20 62 65  20 63 68 65 63 6b 65 64  |s can be checked|
000051b0  20 74 6f 20 68 61 76 65  20 62 65 65 6e 20 64 65  | to have been de|
000051c0  63 61 6c 65 72 65 64 2e  0d 23 fa 04 0d 24 04 13  |calered..#...$..|
000051d0  dd f2 74 61 62 6c 65 73  63 6c 65 61 72 75 70 0d  |..tablesclearup.|
000051e0  24 0e 58 f4 20 63 68 65  63 6b 20 74 68 61 74 20  |$.X. check that |
000051f0  65 76 65 72 79 20 6c 61  62 65 6c 20 74 68 61 74  |every label that|
00005200  20 68 61 73 20 62 65 65  6e 20 75 73 65 64 20 68  | has been used h|
00005210  61 73 20 62 65 65 6e 20  64 65 63 6c 61 72 65 64  |as been declared|
00005220  2c 20 61 6e 79 20 64 61  74 61 20 6c 65 66 74 20  |, any data left |
00005230  77 72 69 74 65 6e 2e 0d  24 18 10 e7 20 52 5f 70  |writen..$... R_p|
00005240  74 72 25 3e 30 20 8c 0d  24 22 13 e3 20 49 25 3d  |tr%>0 ..$".. I%=|
00005250  30 b8 52 5f 70 74 72 25  2d 31 0d 24 2c 53 e7 20  |0.R_ptr%-1.$,S. |
00005260  52 5f 66 6c 61 67 25 28  49 25 29 3d a3 20 8c f2  |R_flag%(I%)=. ..|
00005270  72 65 70 6f 72 74 28 22  52 6f 6f 6d 20 4c 61 62  |report("Room Lab|
00005280  65 6c 3a 20 22 2b 52 5f  6c 61 62 65 6c 24 28 49  |el: "+R_label$(I|
00005290  25 29 2b 22 20 75 73 65  64 20 62 75 74 20 6e 6f  |%)+" used but no|
000052a0  74 20 64 65 63 6c 61 72  65 64 2e 22 29 0d 24 36  |t declared.").$6|
000052b0  05 ed 0d 24 40 05 cd 0d  24 4a 10 e7 20 4f 5f 70  |...$@...$J.. O_p|
000052c0  74 72 25 3e 30 20 8c 0d  24 54 13 e3 20 49 25 3d  |tr%>0 ..$T.. I%=|
000052d0  30 b8 4f 5f 70 74 72 25  2d 31 0d 24 5e 55 e7 20  |0.O_ptr%-1.$^U. |
000052e0  4f 5f 66 6c 61 67 25 28  49 25 29 3d a3 20 8c f2  |O_flag%(I%)=. ..|
000052f0  72 65 70 6f 72 74 28 22  4f 62 6a 65 63 74 20 4c  |report("Object L|
00005300  61 62 65 6c 3a 20 22 2b  4f 5f 6c 61 62 65 6c 24  |abel: "+O_label$|
00005310  28 49 25 29 2b 22 20 75  73 65 64 20 62 75 74 20  |(I%)+" used but |
00005320  6e 6f 74 20 64 65 63 6c  61 72 65 64 2e 22 29 0d  |not declared.").|
00005330  24 68 05 ed 0d 24 72 05  cd 0d 24 7c 10 e7 20 56  |$h...$r...$|.. V|
00005340  5f 70 74 72 25 3e 30 20  8c 0d 24 86 13 e3 20 49  |_ptr%>0 ..$... I|
00005350  25 3d 30 b8 56 5f 70 74  72 25 2d 31 0d 24 90 51  |%=0.V_ptr%-1.$.Q|
00005360  e7 20 56 5f 66 6c 61 67  25 28 49 25 29 3d a3 20  |. V_flag%(I%)=. |
00005370  8c f2 72 65 70 6f 72 74  28 22 56 61 72 69 61 62  |..report("Variab|
00005380  6c 65 3a 20 22 2b 56 5f  6c 61 62 65 6c 24 28 49  |le: "+V_label$(I|
00005390  25 29 2b 22 20 75 73 65  64 20 62 75 74 20 6e 6f  |%)+" used but no|
000053a0  74 20 64 65 63 6c 61 72  65 64 2e 22 29 0d 24 9a  |t declared.").$.|
000053b0  05 ed 0d 24 a4 05 cd 0d  24 ae 10 e7 20 50 5f 70  |...$....$... P_p|
000053c0  74 72 25 3e 30 20 8c 0d  24 b8 13 e3 20 49 25 3d  |tr%>0 ..$... I%=|
000053d0  30 b8 50 5f 70 74 72 25  2d 31 0d 24 c2 55 e7 20  |0.P_ptr%-1.$.U. |
000053e0  50 5f 66 6c 61 67 25 28  49 25 29 3d a3 20 8c f2  |P_flag%(I%)=. ..|
000053f0  72 65 70 6f 72 74 28 22  50 65 72 73 6f 6e 20 4c  |report("Person L|
00005400  61 62 65 6c 3a 20 22 2b  50 5f 6c 61 62 65 6c 24  |abel: "+P_label$|
00005410  28 49 25 29 2b 22 20 75  73 65 64 20 62 75 74 20  |(I%)+" used but |
00005420  6e 6f 74 20 64 65 63 6c  61 72 65 64 2e 22 29 0d  |not declared.").|
00005430  24 cc 05 ed 0d 24 d6 05  cd 0d 24 e0 3d f4 20 77  |$....$....$.=. w|
00005440  72 69 74 65 20 74 68 65  20 6e 75 6d 62 65 72 20  |rite the number |
00005450  6f 66 20 72 6f 6f 6d 73  2c 20 6f 62 6a 65 63 74  |of rooms, object|
00005460  73 20 61 6e 64 20 70 65  6f 70 6c 65 20 74 6f 20  |s and people to |
00005470  66 69 6c 65 73 2e 0d 24  ea 0c cf 23 72 6f 6f 6d  |files..$...#room|
00005480  3d 30 0d 24 f4 14 f1 23  72 6f 6f 6d 2c a8 28 52  |=0.$...#room,.(R|
00005490  5f 70 74 72 25 29 0d 24  fe 0b cf 23 6f 62 6a 3d  |_ptr%).$...#obj=|
000054a0  30 0d 25 08 13 f1 23 6f  62 6a 2c a8 28 4f 5f 70  |0.%...#obj,.(O_p|
000054b0  74 72 25 29 0d 25 12 0e  cf 23 70 65 6f 70 6c 65  |tr%).%...#people|
000054c0  3d 30 0d 25 1c 16 f1 23  70 65 6f 70 6c 65 2c a8  |=0.%...#people,.|
000054d0  28 50 5f 70 74 72 25 29  0d 25 26 05 e1 0d 25 30  |(P_ptr%).%&...%0|
000054e0  04 0d 25 3a 15 dd a4 67  65 74 6e 65 77 72 6f 6f  |..%:...getnewroo|
000054f0  6d 6c 61 62 65 6c 0d 25  44 3e f4 20 67 65 74 73  |mlabel.%D>. gets|
00005500  20 74 68 65 20 6e 61 6d  65 20 6f 66 20 74 68 65  | the name of the|
00005510  20 72 6f 6f 6d 20 61 6e  64 20 64 65 6c 65 74 65  | room and delete|
00005520  73 20 74 68 69 73 20 66  72 6f 6d 20 63 75 72 6c  |s this from curl|
00005530  69 6e 65 24 0d 25 4e 1c  f4 20 72 65 74 75 72 6e  |ine$.%N.. return|
00005540  73 20 74 68 65 20 72 6f  6f 6d 6e 75 6d 62 65 72  |s the roomnumber|
00005550  0d 25 58 17 72 24 3d a4  66 69 72 73 74 28 63 75  |.%X.r$=.first(cu|
00005560  72 6c 69 6e 65 24 29 0d  25 62 2b f2 64 69 73 70  |rline$).%b+.disp|
00005570  6c 61 79 5f 73 70 65 63  69 61 6c 28 22 44 6f 69  |lay_special("Doi|
00005580  6e 67 20 72 6f 6f 6d 3a  20 22 2b 72 24 2b 22 2e  |ng room: "+r$+".|
00005590  22 29 0d 25 6c 28 63 75  72 6c 69 6e 65 24 3d a4  |").%l(curline$=.|
000055a0  73 74 72 69 70 28 a4 6e  6f 74 66 69 72 73 74 28  |strip(.notfirst(|
000055b0  63 75 72 6c 69 6e 65 24  29 29 0d 25 76 10 e7 20  |curline$)).%v.. |
000055c0  52 5f 70 74 72 25 3e 30  20 8c 0d 25 80 13 e3 20  |R_ptr%>0 ..%... |
000055d0  49 25 3d 30 b8 52 5f 70  74 72 25 2d 31 0d 25 8a  |I%=0.R_ptr%-1.%.|
000055e0  17 e7 20 52 5f 6c 61 62  65 6c 24 28 49 25 29 3d  |.. R_label$(I%)=|
000055f0  72 24 20 8c 0d 25 94 15  e7 20 52 5f 66 6c 61 67  |r$ ..%... R_flag|
00005600  25 28 49 25 29 3d b9 20  8c 0d 25 9e 2d 20 f2 72  |%(I%)=. ..%.- .r|
00005610  65 70 6f 72 74 28 22 44  75 70 6c 69 63 61 74 65  |eport("Duplicate|
00005620  20 72 6f 6f 6d 20 6c 61  62 65 6c 3a 20 22 2b 72  | room label: "+r|
00005630  24 29 3a 3d 49 25 0d 25  a8 05 cc 0d 25 b2 12 20  |$):=I%.%....%.. |
00005640  52 5f 66 6c 61 67 25 28  49 25 29 3d b9 0d 25 bc  |R_flag%(I%)=..%.|
00005650  08 20 3d 49 25 0d 25 c6  05 cd 0d 25 d0 05 cd 0d  |. =I%.%....%....|
00005660  25 da 05 ed 0d 25 e4 05  cd 0d 25 ee 14 e7 20 52  |%....%....%... R|
00005670  5f 70 74 72 25 3d 6d 61  78 5f 62 20 8c 0d 25 f8  |_ptr%=max_b ..%.|
00005680  1e f2 72 65 70 6f 72 74  28 22 54 6f 6f 20 6d 61  |..report("Too ma|
00005690  6e 79 20 72 6f 6f 6d 73  2e 22 29 0d 26 02 06 3d  |ny rooms.").&..=|
000056a0  30 0d 26 0c 05 cd 0d 26  16 17 52 5f 6c 61 62 65  |0.&....&..R_labe|
000056b0  6c 24 28 52 5f 70 74 72  25 29 3d 72 24 0d 26 20  |l$(R_ptr%)=r$.& |
000056c0  15 52 5f 66 6c 61 67 25  28 52 5f 70 74 72 25 29  |.R_flag%(R_ptr%)|
000056d0  3d b9 0d 26 2a 0d 52 5f  70 74 72 25 2b 3d 31 0d  |=..&*.R_ptr%+=1.|
000056e0  26 34 0d 3d 52 5f 70 74  72 25 2d 31 0d 26 3e 04  |&4.=R_ptr%-1.&>.|
000056f0  0d 26 48 17 dd a4 67 65  74 6e 65 77 6f 62 6a 65  |.&H...getnewobje|
00005700  63 74 6c 61 62 65 6c 0d  26 52 40 f4 20 67 65 74  |ctlabel.&R@. get|
00005710  73 20 74 68 65 20 6e 61  6d 65 20 6f 66 20 74 68  |s the name of th|
00005720  65 20 6f 62 6a 65 63 74  20 61 6e 64 20 64 65 6c  |e object and del|
00005730  65 74 65 73 20 74 68 69  73 20 66 72 6f 6d 20 63  |etes this from c|
00005740  75 72 6c 69 6e 65 24 0d  26 5c 1e f4 20 72 65 74  |urline$.&\.. ret|
00005750  75 72 6e 73 20 74 68 65  20 6f 62 6a 65 63 74 6e  |urns the objectn|
00005760  75 6d 62 65 72 0d 26 66  17 6f 24 3d a4 66 69 72  |umber.&f.o$=.fir|
00005770  73 74 28 63 75 72 6c 69  6e 65 24 29 0d 26 70 2d  |st(curline$).&p-|
00005780  f2 64 69 73 70 6c 61 79  5f 73 70 65 63 69 61 6c  |.display_special|
00005790  28 22 44 6f 69 6e 67 20  6f 62 6a 65 63 74 3a 20  |("Doing object: |
000057a0  22 2b 6f 24 2b 22 2e 22  29 0d 26 7a 28 63 75 72  |"+o$+".").&z(cur|
000057b0  6c 69 6e 65 24 3d a4 73  74 72 69 70 28 a4 6e 6f  |line$=.strip(.no|
000057c0  74 66 69 72 73 74 28 63  75 72 6c 69 6e 65 24 29  |tfirst(curline$)|
000057d0  29 0d 26 84 10 e7 20 4f  5f 70 74 72 25 3e 30 20  |).&... O_ptr%>0 |
000057e0  8c 0d 26 8e 13 e3 20 49  25 3d 30 b8 4f 5f 70 74  |..&... I%=0.O_pt|
000057f0  72 25 2d 31 0d 26 98 17  e7 20 4f 5f 6c 61 62 65  |r%-1.&... O_labe|
00005800  6c 24 28 49 25 29 3d 6f  24 20 8c 0d 26 a2 15 e7  |l$(I%)=o$ ..&...|
00005810  20 4f 5f 66 6c 61 67 25  28 49 25 29 3d b9 20 8c  | O_flag%(I%)=. .|
00005820  0d 26 ac 2f 20 f2 72 65  70 6f 72 74 28 22 44 75  |.&./ .report("Du|
00005830  70 6c 69 63 61 74 65 20  6f 62 6a 65 63 74 20 6c  |plicate object l|
00005840  61 62 65 6c 3a 20 22 2b  6f 24 29 3a 3d 49 25 0d  |abel: "+o$):=I%.|
00005850  26 b6 05 cc 0d 26 c0 12  20 4f 5f 66 6c 61 67 25  |&....&.. O_flag%|
00005860  28 49 25 29 3d b9 0d 26  ca 08 20 3d 49 25 0d 26  |(I%)=..&.. =I%.&|
00005870  d4 05 cd 0d 26 de 05 cd  0d 26 e8 05 ed 0d 26 f2  |....&....&....&.|
00005880  05 cd 0d 26 fc 14 e7 20  4f 5f 70 74 72 25 3d 6d  |...&... O_ptr%=m|
00005890  61 78 5f 62 20 8c 0d 27  06 20 f2 72 65 70 6f 72  |ax_b ..'. .repor|
000058a0  74 28 22 54 6f 6f 20 6d  61 6e 79 20 6f 62 6a 65  |t("Too many obje|
000058b0  63 74 73 2e 22 29 0d 27  10 06 3d 30 0d 27 1a 05  |cts.").'..=0.'..|
000058c0  cd 0d 27 24 17 4f 5f 6c  61 62 65 6c 24 28 4f 5f  |..'$.O_label$(O_|
000058d0  70 74 72 25 29 3d 6f 24  0d 27 2e 15 4f 5f 66 6c  |ptr%)=o$.'..O_fl|
000058e0  61 67 25 28 4f 5f 70 74  72 25 29 3d b9 0d 27 38  |ag%(O_ptr%)=..'8|
000058f0  0d 4f 5f 70 74 72 25 2b  3d 31 0d 27 42 0d 3d 4f  |.O_ptr%+=1.'B.=O|
00005900  5f 70 74 72 25 2d 31 0d  27 4c 04 0d 27 56 17 dd  |_ptr%-1.'L..'V..|
00005910  a4 67 65 74 6e 65 77 70  65 72 73 6f 6e 6c 61 62  |.getnewpersonlab|
00005920  65 6c 0d 27 60 40 f4 20  67 65 74 73 20 74 68 65  |el.'`@. gets the|
00005930  20 6e 61 6d 65 20 6f 66  20 74 68 65 20 70 65 72  | name of the per|
00005940  73 6f 6e 20 61 6e 64 20  64 65 6c 65 74 65 73 20  |son and deletes |
00005950  74 68 69 73 20 66 72 6f  6d 20 63 75 72 6c 69 6e  |this from curlin|
00005960  65 24 0d 27 6a 1e f4 20  72 65 74 75 72 6e 73 20  |e$.'j.. returns |
00005970  74 68 65 20 70 65 72 73  6f 6e 6e 75 6d 62 65 72  |the personnumber|
00005980  0d 27 74 1a f4 20 30 20  69 73 20 75 73 65 64 20  |.'t.. 0 is used |
00005990  66 6f 72 20 70 6c 61 79  65 72 0d 27 7e 17 70 24  |for player.'~.p$|
000059a0  3d a4 66 69 72 73 74 28  63 75 72 6c 69 6e 65 24  |=.first(curline$|
000059b0  29 0d 27 88 2d f2 64 69  73 70 6c 61 79 5f 73 70  |).'.-.display_sp|
000059c0  65 63 69 61 6c 28 22 44  6f 69 6e 67 20 70 65 72  |ecial("Doing per|
000059d0  73 6f 6e 3a 20 22 2b 70  24 2b 22 2e 22 29 0d 27  |son: "+p$+".").'|
000059e0  92 28 63 75 72 6c 69 6e  65 24 3d a4 73 74 72 69  |.(curline$=.stri|
000059f0  70 28 a4 6e 6f 74 66 69  72 73 74 28 63 75 72 6c  |p(.notfirst(curl|
00005a00  69 6e 65 24 29 29 0d 27  9c 10 e7 20 50 5f 70 74  |ine$)).'... P_pt|
00005a10  72 25 3e 30 20 8c 0d 27  a6 13 e3 20 49 25 3d 30  |r%>0 ..'... I%=0|
00005a20  b8 50 5f 70 74 72 25 2d  31 0d 27 b0 17 e7 20 50  |.P_ptr%-1.'... P|
00005a30  5f 6c 61 62 65 6c 24 28  49 25 29 3d 70 24 20 8c  |_label$(I%)=p$ .|
00005a40  0d 27 ba 15 e7 20 50 5f  66 6c 61 67 25 28 49 25  |.'... P_flag%(I%|
00005a50  29 3d b9 20 8c 0d 27 c4  2f 20 f2 72 65 70 6f 72  |)=. ..'./ .repor|
00005a60  74 28 22 44 75 70 6c 69  63 61 74 65 20 70 65 72  |t("Duplicate per|
00005a70  73 6f 6e 20 6c 61 62 65  6c 3a 20 22 2b 70 24 29  |son label: "+p$)|
00005a80  3a 3d 49 25 0d 27 ce 05  cc 0d 27 d8 12 20 50 5f  |:=I%.'....'.. P_|
00005a90  66 6c 61 67 25 28 49 25  29 3d b9 0d 27 e2 08 20  |flag%(I%)=..'.. |
00005aa0  3d 49 25 0d 27 ec 05 cd  0d 27 f6 05 cd 0d 28 00  |=I%.'....'....(.|
00005ab0  05 ed 0d 28 0a 05 cd 0d  28 14 14 e7 20 50 5f 70  |...(....(... P_p|
00005ac0  74 72 25 3d 6d 61 78 5f  62 20 8c 0d 28 1e 1f f2  |tr%=max_b ..(...|
00005ad0  72 65 70 6f 72 74 28 22  54 6f 6f 20 6d 61 6e 79  |report("Too many|
00005ae0  20 70 65 6f 70 6c 65 2e  22 29 0d 28 28 06 3d 30  | people.").((.=0|
00005af0  0d 28 32 05 cd 0d 28 3c  17 50 5f 6c 61 62 65 6c  |.(2...(<.P_label|
00005b00  24 28 50 5f 70 74 72 25  29 3d 70 24 0d 28 46 15  |$(P_ptr%)=p$.(F.|
00005b10  50 5f 66 6c 61 67 25 28  50 5f 70 74 72 25 29 3d  |P_flag%(P_ptr%)=|
00005b20  b9 0d 28 50 0d 50 5f 70  74 72 25 2b 3d 31 0d 28  |..(P.P_ptr%+=1.(|
00005b30  5a 0d 3d 50 5f 70 74 72  25 2d 31 0d 28 64 04 0d  |Z.=P_ptr%-1.(d..|
00005b40  28 6e 19 dd a4 67 65 74  6e 65 77 76 61 72 69 61  |(n...getnewvaria|
00005b50  62 6c 65 6c 61 62 6c 65  0d 28 78 42 f4 20 67 65  |blelable.(xB. ge|
00005b60  74 73 20 74 68 65 20 6e  61 6d 65 20 6f 66 20 74  |ts the name of t|
00005b70  68 65 20 76 61 72 69 61  62 6c 65 20 61 6e 64 20  |he variable and |
00005b80  64 65 6c 65 74 65 73 20  74 68 69 73 20 66 72 6f  |deletes this fro|
00005b90  6d 20 63 75 72 6c 69 6e  65 24 0d 28 82 20 f4 20  |m curline$.(. . |
00005ba0  72 65 74 75 72 6e 73 20  74 68 65 20 76 61 72 69  |returns the vari|
00005bb0  61 62 6c 65 6e 75 6d 62  65 72 0d 28 8c 1a 76 24  |ablenumber.(..v$|
00005bc0  3d a4 66 69 72 73 74 5f  65 71 28 63 75 72 6c 69  |=.first_eq(curli|
00005bd0  6e 65 24 29 0d 28 96 2f  f2 64 69 73 70 6c 61 79  |ne$).(./.display|
00005be0  5f 73 70 65 63 69 61 6c  28 22 44 6f 69 6e 67 20  |_special("Doing |
00005bf0  76 61 72 69 61 62 6c 65  3a 20 22 2b 76 24 2b 22  |variable: "+v$+"|
00005c00  2e 22 29 0d 28 a0 2a 63  75 72 6c 69 6e 65 24 3d  |.").(.*curline$=|
00005c10  a4 73 74 72 69 70 28 a4  6e 6f 74 66 69 72 73 74  |.strip(.notfirst|
00005c20  65 71 28 63 75 72 6c 69  6e 65 24 29 29 0d 28 aa  |eq(curline$)).(.|
00005c30  10 e7 20 56 5f 70 74 72  25 3e 30 20 8c 0d 28 b4  |.. V_ptr%>0 ..(.|
00005c40  13 e3 20 49 25 3d 30 b8  56 5f 70 74 72 25 2d 31  |.. I%=0.V_ptr%-1|
00005c50  0d 28 be 17 e7 20 56 5f  6c 61 62 65 6c 24 28 49  |.(... V_label$(I|
00005c60  25 29 3d 76 24 20 8c 0d  28 c8 15 e7 20 56 5f 66  |%)=v$ ..(... V_f|
00005c70  6c 61 67 25 28 49 25 29  3d b9 20 8c 0d 28 d2 31  |lag%(I%)=. ..(.1|
00005c80  20 f2 72 65 70 6f 72 74  28 22 44 75 70 6c 69 63  | .report("Duplic|
00005c90  61 74 65 20 76 61 72 69  61 62 6c 65 20 6c 61 62  |ate variable lab|
00005ca0  65 6c 3a 20 22 2b 76 24  29 3a 3d 49 25 0d 28 dc  |el: "+v$):=I%.(.|
00005cb0  05 cc 0d 28 e6 12 20 56  5f 66 6c 61 67 25 28 49  |...(.. V_flag%(I|
00005cc0  25 29 3d b9 0d 28 f0 08  20 3d 49 25 0d 28 fa 05  |%)=..(.. =I%.(..|
00005cd0  cd 0d 29 04 05 cd 0d 29  0e 05 ed 0d 29 18 05 cd  |..)....)....)...|
00005ce0  0d 29 22 14 e7 20 56 5f  70 74 72 25 3d 6d 61 78  |.)".. V_ptr%=max|
00005cf0  5f 62 20 8c 0d 29 2c 22  f2 72 65 70 6f 72 74 28  |_b ..),".report(|
00005d00  22 54 6f 6f 20 6d 61 6e  79 20 76 61 72 69 61 62  |"Too many variab|
00005d10  6c 65 73 2e 22 29 0d 29  36 06 3d 30 0d 29 40 05  |les.").)6.=0.)@.|
00005d20  cd 0d 29 4a 17 56 5f 6c  61 62 65 6c 24 28 56 5f  |..)J.V_label$(V_|
00005d30  70 74 72 25 29 3d 76 24  0d 29 54 15 56 5f 66 6c  |ptr%)=v$.)T.V_fl|
00005d40  61 67 25 28 56 5f 70 74  72 25 29 3d b9 0d 29 5e  |ag%(V_ptr%)=..)^|
00005d50  0d 56 5f 70 74 72 25 2b  3d 31 0d 29 68 0d 3d 56  |.V_ptr%+=1.)h.=V|
00005d60  5f 70 74 72 25 2d 31 0d  29 72 04 0d 29 7c 0e dd  |_ptr%-1.)r..)|..|
00005d70  a4 64 6f 73 74 72 69 6e  67 0d 29 86 4f f4 20 67  |.dostring.).O. g|
00005d80  65 74 73 20 74 68 65 20  73 74 72 69 6e 67 20 61  |ets the string a|
00005d90  6e 64 20 6f 75 74 70 75  74 73 20 69 74 20 74 6f  |nd outputs it to|
00005da0  20 74 68 65 20 66 69 6c  65 20 61 6e 64 20 64 65  | the file and de|
00005db0  6c 65 74 65 73 20 74 68  69 73 20 66 72 6f 6d 20  |letes this from |
00005dc0  63 75 72 6c 69 6e 65 24  0d 29 90 26 f4 20 72 65  |curline$.).&. re|
00005dd0  74 75 72 6e 73 20 74 68  65 20 6e 75 6d 62 65 72  |turns the number|
00005de0  20 6f 66 20 74 68 65 20  73 74 72 69 6e 67 0d 29  | of the string.)|
00005df0  9a 1d 63 75 72 6c 69 6e  65 24 3d a4 73 74 72 69  |..curline$=.stri|
00005e00  70 28 63 75 72 6c 69 6e  65 24 29 0d 29 a4 49 e7  |p(curline$).).I.|
00005e10  20 c1 63 75 72 6c 69 6e  65 24 2c 31 2c 31 29 3c  | .curline$,1,1)<|
00005e20  3e bd 28 33 34 29 20 8c  20 f2 72 65 70 6f 72 74  |>.(34) . .report|
00005e30  28 22 4e 6f 20 22 2b bd  28 33 34 29 2b 22 20 61  |("No "+.(34)+" a|
00005e40  74 20 73 74 61 72 74 20  6f 66 20 73 74 72 69 6e  |t start of strin|
00005e50  67 2e 22 29 0d 29 ae 0b  6f 75 74 24 3d 22 22 0d  |g.").)..out$="".|
00005e60  29 b8 19 63 75 72 6c 69  6e 65 24 3d c1 63 75 72  |)..curline$=.cur|
00005e70  6c 69 6e 65 24 2c 32 29  0d 29 c2 59 20 20 20 20  |line$,2).).Y    |
00005e80  f4 20 2a 2f 2a 2f 2a 20  59 65 73 20 74 68 69 73  |. */*/* Yes this|
00005e90  20 69 73 20 61 20 76 65  72 79 20 69 6e 65 66 66  | is a very ineff|
00005ea0  69 63 69 61 6e 74 20 77  61 79 20 74 6f 20 64 6f  |iciant way to do|
00005eb0  20 74 68 69 73 20 62 75  74 20 69 74 20 69 73 20  | this but it is |
00005ec0  65 61 73 79 65 72 20 74  6f 20 65 78 74 65 6e 64  |easyer to extend|
00005ed0  2e 0d 29 cc 2c c8 95 20  c1 63 75 72 6c 69 6e 65  |..).,.. .curline|
00005ee0  24 2c 31 2c 31 29 3c 3e  bd 28 33 34 29 20 80 20  |$,1,1)<>.(34) . |
00005ef0  a9 28 63 75 72 6c 69 6e  65 24 29 3e 30 0d 29 d6  |.(curline$)>0.).|
00005f00  18 6f 75 74 24 2b 3d c1  63 75 72 6c 69 6e 65 24  |.out$+=.curline$|
00005f10  2c 31 2c 31 29 0d 29 e0  19 63 75 72 6c 69 6e 65  |,1,1).)..curline|
00005f20  24 3d c1 63 75 72 6c 69  6e 65 24 2c 32 29 0d 29  |$=.curline$,2).)|
00005f30  ea 05 ce 0d 29 f4 15 e7  20 a9 28 63 75 72 6c 69  |....)... .(curli|
00005f40  6e 65 24 29 3e 30 20 8c  0d 29 fe 19 63 75 72 6c  |ne$)>0 ..)..curl|
00005f50  69 6e 65 24 3d c1 63 75  72 6c 69 6e 65 24 2c 32  |ine$=.curline$,2|
00005f60  29 0d 2a 08 05 cc 0d 2a  12 33 f2 72 65 70 6f 72  |).*....*.3.repor|
00005f70  74 28 22 4e 6f 20 22 2b  bd 28 33 34 29 2b 22 20  |t("No "+.(34)+" |
00005f80  61 74 20 74 68 65 20 65  6e 64 20 6f 66 20 61 20  |at the end of a |
00005f90  73 74 72 69 6e 67 2e 22  29 0d 2a 1c 05 cd 0d 2a  |string.").*....*|
00005fa0  26 12 73 74 72 69 6e 67  5f 70 74 72 25 2b 3d 31  |&.string_ptr%+=1|
00005fb0  0d 2a 30 11 d5 23 73 74  72 69 6e 67 2c 6f 75 74  |.*0..#string,out|
00005fc0  24 0d 2a 3a 12 3d 73 74  72 69 6e 67 5f 70 74 72  |$.*:.=string_ptr|
00005fd0  25 2d 31 0d 2a 44 04 0d  2a 4e 0c dd a4 64 6f 63  |%-1.*D..*N...doc|
00005fe0  6f 64 65 0d 2a 58 62 f4  20 72 65 61 64 20 69 6e  |ode.*Xb. read in|
00005ff0  70 75 74 20 66 72 6f 6d  20 63 75 72 6c 69 6e 65  |put from curline|
00006000  24 20 61 6e 64 20 74 68  65 20 74 65 6d 70 66 69  |$ and the tempfi|
00006010  6c 65 20 75 6e 74 69 6c  20 74 68 65 20 65 6e 64  |le until the end|
00006020  20 6f 66 20 74 68 65 20  63 6f 64 65 20 62 6c 6f  | of the code blo|
00006030  63 6b 20 69 73 20 66 6f  75 6e 64 20 28 27 7d 27  |ck is found ('}'|
00006040  29 20 61 6e 64 0d 2a 62  3d f4 20 6c 65 61 76 65  |) and.*b=. leave|
00006050  73 20 63 75 72 6c 69 6e  65 24 20 61 6e 64 20 74  |s curline$ and t|
00006060  68 65 20 66 69 6c 65 20  70 6f 69 6e 74 65 72 20  |he file pointer |
00006070  61 74 20 74 68 65 20 6e  65 78 74 20 6c 65 74 74  |at the next lett|
00006080  65 72 0d 2a 6c 46 f4 20  49 66 20 69 74 20 69 73  |er.*lF. If it is|
00006090  20 61 20 6f 6e 65 20 6c  69 6e 65 20 63 6f 64 65  | a one line code|
000060a0  20 28 77 69 74 68 6f 75  74 20 7b 20 61 6e 64 20  | (without { and |
000060b0  7d 29 20 69 74 20 6a 75  73 74 20 75 73 65 73 20  |}) it just uses |
000060c0  63 75 72 6c 69 6e 65 24  0d 2a 76 54 f4 20 73 74  |curline$.*vT. st|
000060d0  6f 72 65 73 20 74 68 65  20 74 6f 6b 65 6e 69 73  |ores the tokenis|
000060e0  65 64 20 63 6f 64 65 20  69 6e 20 74 68 65 20 63  |ed code in the c|
000060f0  6f 64 65 20 66 69 6c 65  20 61 6e 64 20 72 65 74  |ode file and ret|
00006100  75 72 6e 73 20 74 68 65  20 6e 75 6d 62 65 72 20  |urns the number |
00006110  6f 66 20 74 68 65 20 63  6f 64 65 2e 0d 2a 80 2b  |of the code..*.+|
00006120  67 24 3d a4 73 74 72 69  70 28 a4 73 74 72 69 70  |g$=.strip(.strip|
00006130  5f 65 6e 64 28 a4 66 69  72 73 74 28 63 75 72 6c  |_end(.first(curl|
00006140  69 6e 65 24 29 29 29 0d  2a 8a 0e e7 20 67 24 3d  |ine$))).*... g$=|
00006150  22 7b 22 20 8c 0d 2a 94  17 f4 20 6d 6f 72 65 74  |"{" ..*... moret|
00006160  68 61 6e 20 6f 6e 65 20  6c 69 6e 65 0d 2a 9e 33  |han one line.*.3|
00006170  e7 20 a4 73 74 72 69 70  28 a4 73 74 72 69 70 5f  |. .strip(.strip_|
00006180  65 6e 64 28 a4 6e 6f 74  66 69 72 73 74 28 63 75  |end(.notfirst(cu|
00006190  72 6c 69 6e 65 24 29 29  29 3c 3e 22 22 20 8c 0d  |rline$)))<>"" ..|
000061a0  2a a8 37 f2 72 65 70 6f  72 74 28 22 49 6e 20 63  |*.7.report("In c|
000061b0  6f 64 65 20 7b 20 73 68  6f 75 6c 64 20 62 65 20  |ode { should be |
000061c0  66 6f 6c 6f 77 65 64 20  62 79 20 61 20 72 65 74  |folowed by a ret|
000061d0  75 72 6e 2e 22 29 0d 2a  b2 05 cd 0d 2a bc 11 63  |urn.").*....*..c|
000061e0  75 72 6c 69 6e 65 24 3d  a4 67 65 74 0d 2a c6 30  |urline$=.get.*.0|
000061f0  c8 95 20 a4 73 74 72 69  70 28 a4 73 74 72 69 70  |.. .strip(.strip|
00006200  5f 65 6e 64 28 a4 66 69  72 73 74 28 63 75 72 6c  |_end(.first(curl|
00006210  69 6e 65 24 29 29 29 3c  3e 22 7d 22 0d 2a d0 10  |ine$)))<>"}".*..|
00006220  f2 63 6f 64 65 5f 64 6f  6c 69 6e 65 0d 2a da 11  |.code_doline.*..|
00006230  63 75 72 6c 69 6e 65 24  3d a4 67 65 74 0d 2a e4  |curline$=.get.*.|
00006240  05 ce 0d 2a ee 05 cc 0d  2a f8 10 f2 63 6f 64 65  |...*....*...code|
00006250  5f 64 6f 6c 69 6e 65 0d  2b 02 05 cd 0d 2b 0c 0e  |_doline.+....+..|
00006260  f2 74 65 72 6d 5f 63 6f  64 65 0d 2b 16 10 63 6f  |.term_code.+..co|
00006270  64 65 5f 70 74 72 25 2b  3d 31 0d 2b 20 10 3d 63  |de_ptr%+=1.+ .=c|
00006280  6f 64 65 5f 70 74 72 25  2d 31 0d 2b 2a 04 0d 2b  |ode_ptr%-1.+*..+|
00006290  34 14 dd a4 64 6f 63 6f  64 65 5f 73 70 65 63 69  |4...docode_speci|
000062a0  61 6c 0d 2b 3e 62 f4 20  72 65 61 64 20 69 6e 70  |al.+>b. read inp|
000062b0  75 74 20 66 72 6f 6d 20  63 75 72 6c 69 6e 65 24  |ut from curline$|
000062c0  20 61 6e 64 20 74 68 65  20 74 65 6d 70 66 69 6c  | and the tempfil|
000062d0  65 20 75 6e 74 69 6c 20  74 68 65 20 65 6e 64 20  |e until the end |
000062e0  6f 66 20 74 68 65 20 63  6f 64 65 20 62 6c 6f 63  |of the code bloc|
000062f0  6b 20 69 73 20 66 6f 75  6e 64 20 28 27 7d 27 29  |k is found ('}')|
00006300  20 61 6e 64 0d 2b 48 3d  f4 20 6c 65 61 76 65 73  | and.+H=. leaves|
00006310  20 63 75 72 6c 69 6e 65  24 20 61 6e 64 20 74 68  | curline$ and th|
00006320  65 20 66 69 6c 65 20 70  6f 69 6e 74 65 72 20 61  |e file pointer a|
00006330  74 20 74 68 65 20 6e 65  78 74 20 6c 65 74 74 65  |t the next lette|
00006340  72 0d 2b 52 46 f4 20 49  66 20 69 74 20 69 73 20  |r.+RF. If it is |
00006350  61 20 6f 6e 65 20 6c 69  6e 65 20 63 6f 64 65 20  |a one line code |
00006360  28 77 69 74 68 6f 75 74  20 7b 20 61 6e 64 20 7d  |(without { and }|
00006370  29 20 69 74 20 6a 75 73  74 20 75 73 65 73 20 63  |) it just uses c|
00006380  75 72 6c 69 6e 65 24 0d  2b 5c 54 f4 20 73 74 6f  |urline$.+\T. sto|
00006390  72 65 73 20 74 68 65 20  74 6f 6b 65 6e 69 73 65  |res the tokenise|
000063a0  64 20 63 6f 64 65 20 69  6e 20 74 68 65 20 63 6f  |d code in the co|
000063b0  64 65 20 66 69 6c 65 20  61 6e 64 20 72 65 74 75  |de file and retu|
000063c0  72 6e 73 20 74 68 65 20  6e 75 6d 62 65 72 20 6f  |rns the number o|
000063d0  66 20 74 68 65 20 63 6f  64 65 2e 0d 2b 66 2b 67  |f the code..+f+g|
000063e0  24 3d a4 73 74 72 69 70  28 a4 73 74 72 69 70 5f  |$=.strip(.strip_|
000063f0  65 6e 64 28 a4 66 69 72  73 74 28 63 75 72 6c 69  |end(.first(curli|
00006400  6e 65 24 29 29 29 0d 2b  70 0e e7 20 67 24 3d 22  |ne$))).+p.. g$="|
00006410  7b 22 20 8c 0d 2b 7a 17  f4 20 6d 6f 72 65 74 68  |{" ..+z.. moreth|
00006420  61 6e 20 6f 6e 65 20 6c  69 6e 65 0d 2b 84 33 e7  |an one line.+.3.|
00006430  20 a4 73 74 72 69 70 28  a4 73 74 72 69 70 5f 65  | .strip(.strip_e|
00006440  6e 64 28 a4 6e 6f 74 66  69 72 73 74 28 63 75 72  |nd(.notfirst(cur|
00006450  6c 69 6e 65 24 29 29 29  3c 3e 22 22 20 8c 0d 2b  |line$)))<>"" ..+|
00006460  8e 37 f2 72 65 70 6f 72  74 28 22 49 6e 20 63 6f  |.7.report("In co|
00006470  64 65 20 7b 20 73 68 6f  75 6c 64 20 62 65 20 66  |de { should be f|
00006480  6f 6c 6f 77 65 64 20 62  79 20 61 20 72 65 74 75  |olowed by a retu|
00006490  72 6e 2e 22 29 0d 2b 98  05 cd 0d 2b a2 11 63 75  |rn.").+....+..cu|
000064a0  72 6c 69 6e 65 24 3d a4  67 65 74 0d 2b ac 30 c8  |rline$=.get.+.0.|
000064b0  95 20 a4 73 74 72 69 70  28 a4 73 74 72 69 70 5f  |. .strip(.strip_|
000064c0  65 6e 64 28 a4 66 69 72  73 74 28 63 75 72 6c 69  |end(.first(curli|
000064d0  6e 65 24 29 29 29 3c 3e  22 7d 22 0d 2b b6 10 f2  |ne$)))<>"}".+...|
000064e0  63 6f 64 65 5f 64 6f 6c  69 6e 65 0d 2b c0 11 63  |code_doline.+..c|
000064f0  75 72 6c 69 6e 65 24 3d  a4 67 65 74 0d 2b ca 05  |urline$=.get.+..|
00006500  ce 0d 2b d4 05 cc 0d 2b  de 10 f2 63 6f 64 65 5f  |..+....+...code_|
00006510  64 6f 6c 69 6e 65 0d 2b  e8 05 cd 0d 2b f2 16 f2  |doline.+....+...|
00006520  74 65 72 6d 5f 63 6f 64  65 5f 73 70 65 63 69 61  |term_code_specia|
00006530  6c 0d 2b fc 0e 3d 63 6f  64 65 5f 70 74 72 25 0d  |l.+..=code_ptr%.|
00006540  2c 06 04 0d 2c 10 04 0d  2c 1a 11 dd f2 63 6f 64  |,...,...,....cod|
00006550  65 5f 64 6f 6c 69 6e 65  0d 2c 24 2c f4 20 2a 2a  |e_doline.,$,. **|
00006560  2a 2a 2a 2a 2a 2a 4f 4e  4c 59 20 43 41 4c 4c 45  |******ONLY CALLE|
00006570  44 20 42 59 20 46 4e 64  6f 63 6f 64 65 2a 2a 2a  |D BY FNdocode***|
00006580  2a 2a 2a 2a 0d 2c 2e 23  69 6e 73 24 3d a4 62 72  |****.,.#ins$=.br|
00006590  61 63 6b 65 74 6c 65 66  74 5f 67 65 74 28 63 75  |acketleft_get(cu|
000065a0  72 6c 69 6e 65 24 29 0d  2c 38 25 61 72 67 73 24  |rline$).,8%args$|
000065b0  3d a4 62 72 61 63 6b 65  74 6c 65 66 74 5f 72 65  |=.bracketleft_re|
000065c0  73 74 28 63 75 72 6c 69  6e 65 24 29 0d 2c 42 0d  |st(curline$).,B.|
000065d0  c8 8e 20 69 6e 73 24 20  ca 0d 2c 4c 20 c9 20 22  |.. ins$ ..,L . "|
000065e0  70 72 69 6e 74 22 3a 69  6e 73 25 3d 31 3a f2 63  |print":ins%=1:.c|
000065f0  6f 64 65 5f 70 72 69 6e  74 0d 2c 56 1e c9 20 22  |ode_print.,V.. "|
00006600  67 6f 74 6f 22 3a 69 6e  73 25 3d 32 3a f2 63 6f  |goto":ins%=2:.co|
00006610  64 65 5f 67 6f 74 6f 0d  2c 60 1e c9 20 22 67 69  |de_goto.,`.. "gi|
00006620  76 65 22 3a 69 6e 73 25  3d 33 3a f2 63 6f 64 65  |ve":ins%=3:.code|
00006630  5f 67 69 76 65 0d 2c 6a  21 c9 20 22 50 5f 6d 6f  |_give.,j!. "P_mo|
00006640  76 65 22 3a 69 6e 73 25  3d 34 3a f2 63 6f 64 65  |ve":ins%=4:.code|
00006650  5f 50 6d 6f 76 65 0d 2c  74 21 c9 20 22 4f 5f 6d  |_Pmove.,t!. "O_m|
00006660  6f 76 65 22 3a 69 6e 73  25 3d 34 3a f2 63 6f 64  |ove":ins%=4:.cod|
00006670  65 5f 4f 6d 6f 76 65 0d  2c 7e 1c c9 20 22 65 6e  |e_Omove.,~.. "en|
00006680  64 22 3a 69 6e 73 25 3d  35 3a f2 63 6f 64 65 5f  |d":ins%=5:.code_|
00006690  65 6e 64 0d 2c 88 1f c9  20 22 73 65 74 22 3a 69  |end.,... "set":i|
000066a0  6e 73 25 3d 37 3a f2 63  6f 64 65 5f 63 68 61 6e  |ns%=7:.code_chan|
000066b0  67 65 0d 2c 92 22 c9 20  22 63 68 61 6e 67 65 22  |ge.,.". "change"|
000066c0  3a 69 6e 73 25 3d 38 3a  f2 63 6f 64 65 5f 63 68  |:ins%=8:.code_ch|
000066d0  61 6e 67 65 0d 2c 9c 1a  c9 20 22 69 66 22 3a 69  |ange.,... "if":i|
000066e0  6e 73 25 3d 39 3a f2 63  6f 64 65 5f 69 66 0d 2c  |ns%=9:.code_if.,|
000066f0  a6 30 7f 20 f2 72 65 70  6f 72 74 28 22 42 61 64  |.0. .report("Bad|
00006700  20 66 75 6e 63 74 69 6f  6e 20 69 6e 20 63 6f 64  | function in cod|
00006710  65 3a 20 22 2b 69 6e 73  24 2b 22 2e 22 29 0d 2c  |e: "+ins$+".").,|
00006720  b0 05 cb 0d 2c ba 05 e1  0d 2c c4 04 0d 2c ce 23  |....,....,...,.#|
00006730  f4 20 73 69 6c 6c 79 20  63 6f 64 65 20 72 65 6d  |. silly code rem|
00006740  6f 76 65 64 20 66 72 6f  6d 20 61 62 6f 76 65 0d  |oved from above.|
00006750  2c d8 27 c9 20 22 50 5f  76 69 73 69 62 6c 65 22  |,.'. "P_visible"|
00006760  3a 69 6e 73 25 3d 36 3a  f2 63 6f 64 65 5f 50 76  |:ins%=6:.code_Pv|
00006770  69 73 61 62 6c 65 0d 2c  e2 27 c9 20 22 4f 5f 76  |isable.,.'. "O_v|
00006780  69 73 69 62 6c 65 22 3a  69 6e 73 25 3d 36 3a f2  |isible":ins%=6:.|
00006790  63 6f 64 65 5f 4f 76 69  73 61 62 6c 65 0d 2c ec  |code_Ovisable.,.|
000067a0  29 c9 20 22 50 5f 69 6e  76 69 73 69 62 6c 65 22  |). "P_invisible"|
000067b0  3a 69 6e 73 25 3d 37 3a  f2 63 6f 64 65 5f 50 76  |:ins%=7:.code_Pv|
000067c0  69 73 61 62 6c 65 0d 2c  f6 29 c9 20 22 4f 5f 69  |isable.,.). "O_i|
000067d0  6e 76 69 73 69 62 6c 65  22 3a 69 6e 73 25 3d 37  |nvisible":ins%=7|
000067e0  3a f2 63 6f 64 65 5f 4f  76 69 73 61 62 6c 65 0d  |:.code_Ovisable.|
000067f0  2d 00 0f f4 20 63 6f 64  65 20 65 6e 64 73 0d 2d  |-... code ends.-|
00006800  0a 04 0d 2d 14 0f dd f2  63 6f 64 65 5f 67 6f 74  |...-....code_got|
00006810  6f 0d 2d 1e 26 73 25 3d  a4 72 6f 6f 6d 28 a4 62  |o.-.&s%=.room(.b|
00006820  72 61 63 6b 65 74 72 69  67 68 74 5f 67 65 74 28  |racketright_get(|
00006830  61 72 67 73 24 29 29 0d  2d 28 08 70 25 3d 31 0d  |args$)).-(.p%=1.|
00006840  2d 32 0f f1 23 63 6f 64  65 2c 69 6e 73 25 0d 2d  |-2..#code,ins%.-|
00006850  3c 0d f1 23 63 6f 64 65  2c 70 25 0d 2d 46 0d f1  |<..#code,p%.-F..|
00006860  23 63 6f 64 65 2c 73 25  0d 2d 50 05 e1 0d 2d 5a  |#code,s%.-P...-Z|
00006870  04 0d 2d 64 0e dd f2 63  6f 64 65 5f 65 6e 64 0d  |..-d...code_end.|
00006880  2d 6e 0f f1 23 63 6f 64  65 2c 69 6e 73 25 0d 2d  |-n..#code,ins%.-|
00006890  78 05 e1 0d 2d 82 04 0d  2d 8c 11 dd f2 63 6f 64  |x...-...-....cod|
000068a0  65 5f 63 68 61 6e 67 65  0d 2d 96 23 73 25 3d a4  |e_change.-.#s%=.|
000068b0  76 61 72 69 61 62 6c 65  28 a4 63 6f 6d 6d 61 5f  |variable(.comma_|
000068c0  67 65 74 28 61 72 67 73  24 29 29 0d 2d a0 40 72  |get(args$)).-.@r|
000068d0  24 3d a4 73 74 72 69 70  28 a4 73 74 72 69 70 5f  |$=.strip(.strip_|
000068e0  65 6e 64 28 a4 62 72 61  63 6b 65 74 72 69 67 68  |end(.bracketrigh|
000068f0  74 5f 67 65 74 28 a4 63  6f 6d 6d 61 5f 72 65 73  |t_get(.comma_res|
00006900  74 28 61 72 67 73 24 29  29 29 29 0d 2d aa 10 e3  |t(args$)))).-...|
00006910  20 49 25 3d 31 b8 a9 28  72 24 29 0d 2d b4 12 c8  | I%=1..(r$).-...|
00006920  8e 20 c1 72 24 2c 49 25  2c 31 29 20 ca 0d 2d be  |. .r$,I%,1) ..-.|
00006930  49 c9 20 22 2b 22 2c 22  2d 22 3a e7 20 49 25 3c  |I. "+","-":. I%<|
00006940  3e 31 20 8c 20 f2 72 65  70 6f 72 74 28 22 69 6e  |>1 . .report("in|
00006950  74 20 61 73 20 69 6e 74  20 61 72 67 75 6d 65 6e  |t as int argumen|
00006960  74 20 69 6e 20 63 68 61  6e 67 65 28 29 2f 73 65  |t in change()/se|
00006970  74 28 29 2e 22 29 0d 2d  c8 2e c9 20 22 30 22 2c  |t().").-... "0",|
00006980  22 31 22 2c 22 32 22 2c  22 33 22 2c 22 34 22 2c  |"1","2","3","4",|
00006990  22 35 22 2c 22 36 22 2c  22 37 22 2c 22 38 22 2c  |"5","6","7","8",|
000069a0  22 39 22 3a 0d 2d d2 37  7f 20 f2 72 65 70 6f 72  |"9":.-.7. .repor|
000069b0  74 28 22 69 6e 74 20 61  73 20 69 6e 74 20 61 72  |t("int as int ar|
000069c0  67 75 6d 65 6e 74 20 69  6e 20 63 68 61 6e 67 65  |gument in change|
000069d0  28 29 2f 73 65 74 28 29  2e 22 29 0d 2d dc 05 cb  |()/set().").-...|
000069e0  0d 2d e6 0c 69 25 3d bb  28 72 24 29 0d 2d f0 08  |.-..i%=.(r$).-..|
000069f0  70 25 3d 35 0d 2d fa 09  70 32 25 3d 34 0d 2e 04  |p%=5.-..p2%=4...|
00006a00  0f f1 23 63 6f 64 65 2c  69 6e 73 25 0d 2e 0e 0d  |..#code,ins%....|
00006a10  f1 23 63 6f 64 65 2c 70  25 0d 2e 18 0d f1 23 63  |.#code,p%.....#c|
00006a20  6f 64 65 2c 73 25 0d 2e  22 0e f1 23 63 6f 64 65  |ode,s%.."..#code|
00006a30  2c 70 32 25 0d 2e 2c 0d  f1 23 63 6f 64 65 2c 69  |,p2%..,..#code,i|
00006a40  25 0d 2e 36 05 e1 0d 2e  40 04 0d 2e 4a 0f dd f2  |%..6....@...J...|
00006a50  63 6f 64 65 5f 67 69 76  65 0d 2e 54 21 73 25 3d  |code_give..T!s%=|
00006a60  a4 70 65 72 73 6f 6e 28  a4 63 6f 6d 6d 61 5f 67  |.person(.comma_g|
00006a70  65 74 28 61 72 67 73 24  29 29 0d 2e 5e 40 72 24  |et(args$))..^@r$|
00006a80  3d a4 73 74 72 69 70 28  a4 73 74 72 69 70 5f 65  |=.strip(.strip_e|
00006a90  6e 64 28 a4 62 72 61 63  6b 65 74 72 69 67 68 74  |nd(.bracketright|
00006aa0  5f 67 65 74 28 a4 63 6f  6d 6d 61 5f 72 65 73 74  |_get(.comma_rest|
00006ab0  28 61 72 67 73 24 29 29  29 29 0d 2e 68 0f 69 25  |(args$))))..h.i%|
00006ac0  3d a4 6f 62 73 28 72 24  29 0d 2e 72 08 70 25 3d  |=.obs(r$)..r.p%=|
00006ad0  33 0d 2e 7c 09 70 32 25  3d 32 0d 2e 86 0f f1 23  |3..|.p2%=2.....#|
00006ae0  63 6f 64 65 2c 69 6e 73  25 0d 2e 90 0d f1 23 63  |code,ins%.....#c|
00006af0  6f 64 65 2c 70 25 0d 2e  9a 0d f1 23 63 6f 64 65  |ode,p%.....#code|
00006b00  2c 73 25 0d 2e a4 0e f1  23 63 6f 64 65 2c 70 32  |,s%.....#code,p2|
00006b10  25 0d 2e ae 0d f1 23 63  6f 64 65 2c 69 25 0d 2e  |%.....#code,i%..|
00006b20  b8 05 e1 0d 2e c2 04 0d  2e cc 10 dd f2 63 6f 64  |.............cod|
00006b30  65 5f 4f 6d 6f 76 65 0d  2e d6 1e 73 25 3d a4 6f  |e_Omove....s%=.o|
00006b40  62 73 28 a4 63 6f 6d 6d  61 5f 67 65 74 28 61 72  |bs(.comma_get(ar|
00006b50  67 73 24 29 29 0d 2e e0  40 72 24 3d a4 73 74 72  |gs$))...@r$=.str|
00006b60  69 70 28 a4 73 74 72 69  70 5f 65 6e 64 28 a4 62  |ip(.strip_end(.b|
00006b70  72 61 63 6b 65 74 72 69  67 68 74 5f 67 65 74 28  |racketright_get(|
00006b80  a4 63 6f 6d 6d 61 5f 72  65 73 74 28 61 72 67 73  |.comma_rest(args|
00006b90  24 29 29 29 29 0d 2e ea  10 69 25 3d a4 72 6f 6f  |$))))....i%=.roo|
00006ba0  6d 28 72 24 29 0d 2e f4  08 70 25 3d 32 0d 2e fe  |m(r$)....p%=2...|
00006bb0  09 70 32 25 3d 31 0d 2f  08 0f f1 23 63 6f 64 65  |.p2%=1./...#code|
00006bc0  2c 69 6e 73 25 0d 2f 12  0d f1 23 63 6f 64 65 2c  |,ins%./...#code,|
00006bd0  70 25 0d 2f 1c 0d f1 23  63 6f 64 65 2c 73 25 0d  |p%./...#code,s%.|
00006be0  2f 26 0e f1 23 63 6f 64  65 2c 70 32 25 0d 2f 30  |/&..#code,p2%./0|
00006bf0  0d f1 23 63 6f 64 65 2c  69 25 0d 2f 3a 05 e1 0d  |..#code,i%./:...|
00006c00  2f 44 04 0d 2f 4e 10 dd  f2 63 6f 64 65 5f 50 6d  |/D../N...code_Pm|
00006c10  6f 76 65 0d 2f 58 21 73  25 3d a4 70 65 72 73 6f  |ove./X!s%=.perso|
00006c20  6e 28 a4 63 6f 6d 6d 61  5f 67 65 74 28 61 72 67  |n(.comma_get(arg|
00006c30  73 24 29 29 0d 2f 62 40  72 24 3d a4 73 74 72 69  |s$))./b@r$=.stri|
00006c40  70 28 a4 73 74 72 69 70  5f 65 6e 64 28 a4 62 72  |p(.strip_end(.br|
00006c50  61 63 6b 65 74 72 69 67  68 74 5f 67 65 74 28 a4  |acketright_get(.|
00006c60  63 6f 6d 6d 61 5f 72 65  73 74 28 61 72 67 73 24  |comma_rest(args$|
00006c70  29 29 29 29 0d 2f 6c 10  69 25 3d a4 72 6f 6f 6d  |))))./l.i%=.room|
00006c80  28 72 24 29 0d 2f 76 08  70 25 3d 33 0d 2f 80 09  |(r$)./v.p%=3./..|
00006c90  70 32 25 3d 31 0d 2f 8a  0f f1 23 63 6f 64 65 2c  |p2%=1./...#code,|
00006ca0  69 6e 73 25 0d 2f 94 0d  f1 23 63 6f 64 65 2c 70  |ins%./...#code,p|
00006cb0  25 0d 2f 9e 0d f1 23 63  6f 64 65 2c 73 25 0d 2f  |%./...#code,s%./|
00006cc0  a8 0e f1 23 63 6f 64 65  2c 70 32 25 0d 2f b2 0d  |...#code,p2%./..|
00006cd0  f1 23 63 6f 64 65 2c 69  25 0d 2f bc 05 e1 0d 2f  |.#code,i%./..../|
00006ce0  c6 04 0d 2f d0 10 dd f2  63 6f 64 65 5f 69 66 6f  |.../....code_ifo|
00006cf0  6c 64 0d 2f da 23 73 25  3d a4 76 61 72 69 61 62  |ld./.#s%=.variab|
00006d00  6c 65 28 a4 63 6f 6d 6d  61 5f 67 65 74 28 61 72  |le(.comma_get(ar|
00006d10  67 73 24 29 29 0d 2f e4  29 63 75 72 6c 69 6e 65  |gs$))./.)curline|
00006d20  24 3d a4 73 74 72 69 70  28 28 a4 63 6f 6d 6d 61  |$=.strip((.comma|
00006d30  5f 72 65 73 74 28 61 72  67 73 24 29 29 29 0d 2f  |_rest(args$)))./|
00006d40  ee 10 69 25 3d a4 64 6f  73 74 72 69 6e 67 0d 2f  |..i%=.dostring./|
00006d50  f8 08 70 25 3d 35 0d 30  02 09 70 32 25 3d 37 0d  |..p%=5.0..p2%=7.|
00006d60  30 0c 0f f1 23 63 6f 64  65 2c 69 6e 73 25 0d 30  |0...#code,ins%.0|
00006d70  16 0d f1 23 63 6f 64 65  2c 70 25 0d 30 20 0d f1  |...#code,p%.0 ..|
00006d80  23 63 6f 64 65 2c 73 25  0d 30 2a 0e f1 23 63 6f  |#code,s%.0*..#co|
00006d90  64 65 2c 70 32 25 0d 30  34 0d f1 23 63 6f 64 65  |de,p2%.04..#code|
00006da0  2c 69 25 0d 30 3e 2e 63  75 72 6c 69 6e 65 24 3d  |,i%.0>.curline$=|
00006db0  a4 73 74 72 69 70 28 a4  62 72 61 63 6b 65 74 72  |.strip(.bracketr|
00006dc0  69 67 68 74 5f 72 65 73  74 28 61 72 67 73 24 29  |ight_rest(args$)|
00006dd0  29 0d 30 48 16 72 25 3d  a4 64 6f 63 6f 64 65 5f  |).0H.r%=.docode_|
00006de0  73 70 65 63 69 61 6c 0d  30 52 05 e1 0d 30 5c 04  |special.0R...0\.|
00006df0  0d 30 66 0d dd f2 63 6f  64 65 5f 69 66 0d 30 70  |.0f...code_if.0p|
00006e00  28 73 25 3d a4 76 61 72  69 61 62 6c 65 28 a4 73  |(s%=.variable(.s|
00006e10  70 65 63 69 61 6c 5f 69  66 5f 67 65 74 28 61 72  |pecial_if_get(ar|
00006e20  67 73 24 29 29 0d 30 7a  2e 63 75 72 6c 69 6e 65  |gs$)).0z.curline|
00006e30  24 3d a4 73 74 72 69 70  28 28 a4 73 70 65 63 69  |$=.strip((.speci|
00006e40  61 6c 5f 69 66 5f 72 65  73 74 28 61 72 67 73 24  |al_if_rest(args$|
00006e50  29 29 29 0d 30 84 09 6f  70 3d 2d 31 0d 30 8e 17  |))).0..op=-1.0..|
00006e60  c8 8e 20 c1 63 75 72 6c  69 6e 65 24 2c 31 2c 31  |.. .curline$,1,1|
00006e70  29 20 ca 0d 30 98 2c c9  20 22 3d 22 3a 6f 70 3d  |) ..0.,. "=":op=|
00006e80  30 3a 63 75 72 6c 69 6e  65 24 3d a4 73 74 72 69  |0:curline$=.stri|
00006e90  70 28 c1 63 75 72 6c 69  6e 65 24 2c 32 29 29 0d  |p(.curline$,2)).|
00006ea0  30 a2 1d c9 20 22 3c 22  3a c8 8e 20 c1 63 75 72  |0... "<":.. .cur|
00006eb0  6c 69 6e 65 24 2c 32 2c  31 29 20 ca 0d 30 ac 2c  |line$,2,1) ..0.,|
00006ec0  c9 20 22 3e 22 3a 6f 70  3d 31 3a 63 75 72 6c 69  |. ">":op=1:curli|
00006ed0  6e 65 24 3d a4 73 74 72  69 70 28 c1 63 75 72 6c  |ne$=.strip(.curl|
00006ee0  69 6e 65 24 2c 33 29 29  0d 30 b6 28 7f 20 6f 70  |ine$,3)).0.(. op|
00006ef0  3d 32 3a 63 75 72 6c 69  6e 65 24 3d a4 73 74 72  |=2:curline$=.str|
00006f00  69 70 28 c1 63 75 72 6c  69 6e 65 24 2c 32 29 29  |ip(.curline$,2))|
00006f10  0d 30 c0 05 cb 0d 30 ca  2c c9 20 22 3e 22 3a 6f  |.0....0.,. ">":o|
00006f20  70 3d 33 3a 63 75 72 6c  69 6e 65 24 3d a4 73 74  |p=3:curline$=.st|
00006f30  72 69 70 28 c1 63 75 72  6c 69 6e 65 24 2c 32 29  |rip(.curline$,2)|
00006f40  29 0d 30 d4 05 cb 0d 30  de 30 e7 20 6f 70 3d 2d  |).0....0.0. op=-|
00006f50  31 20 8c 20 f2 72 65 70  6f 72 74 28 22 42 61 64  |1 . .report("Bad|
00006f60  20 63 6f 6e 64 69 74 69  6f 6e 61 6c 20 4f 70 22  | conditional Op"|
00006f70  29 3a 6f 70 3d 30 0d 30  e8 10 69 25 3d a4 64 6f  |):op=0.0..i%=.do|
00006f80  73 74 72 69 6e 67 0d 30  f2 08 70 25 3d 35 0d 30  |string.0..p%=5.0|
00006f90  fc 09 70 32 25 3d 37 0d  31 06 0a 6f 70 25 3d 6f  |..p2%=7.1..op%=o|
00006fa0  70 0d 31 10 0a 6f 70 70  25 3d 34 0d 31 1a 0f f1  |p.1..opp%=4.1...|
00006fb0  23 63 6f 64 65 2c 69 6e  73 25 0d 31 24 0d f1 23  |#code,ins%.1$..#|
00006fc0  63 6f 64 65 2c 70 25 0d  31 2e 0d f1 23 63 6f 64  |code,p%.1...#cod|
00006fd0  65 2c 73 25 0d 31 38 0f  f1 23 63 6f 64 65 2c 6f  |e,s%.18..#code,o|
00006fe0  70 70 25 0d 31 42 0e f1  23 63 6f 64 65 2c 6f 70  |pp%.1B..#code,op|
00006ff0  25 0d 31 4c 0e f1 23 63  6f 64 65 2c 70 32 25 0d  |%.1L..#code,p2%.|
00007000  31 56 0d f1 23 63 6f 64  65 2c 69 25 0d 31 60 2e  |1V..#code,i%.1`.|
00007010  63 75 72 6c 69 6e 65 24  3d a4 73 74 72 69 70 28  |curline$=.strip(|
00007020  a4 62 72 61 63 6b 65 74  72 69 67 68 74 5f 72 65  |.bracketright_re|
00007030  73 74 28 61 72 67 73 24  29 29 0d 31 6a 16 72 25  |st(args$)).1j.r%|
00007040  3d a4 64 6f 63 6f 64 65  5f 73 70 65 63 69 61 6c  |=.docode_special|
00007050  0d 31 74 05 e1 0d 31 7e  04 0d 31 88 04 0d 31 92  |.1t...1~..1...1.|
00007060  13 dd f2 63 6f 64 65 5f  4f 76 69 73 61 62 6c 65  |...code_Ovisable|
00007070  0d 31 9c 25 73 25 3d a4  6f 62 73 28 a4 62 72 61  |.1.%s%=.obs(.bra|
00007080  63 6b 65 74 72 69 67 68  74 5f 67 65 74 28 61 72  |cketright_get(ar|
00007090  67 73 24 29 29 0d 31 a6  08 70 25 3d 32 0d 31 b0  |gs$)).1..p%=2.1.|
000070a0  0f f1 23 63 6f 64 65 2c  69 6e 73 25 0d 31 ba 0d  |..#code,ins%.1..|
000070b0  f1 23 63 6f 64 65 2c 70  25 0d 31 c4 0d f1 23 63  |.#code,p%.1...#c|
000070c0  6f 64 65 2c 73 25 0d 31  ce 05 e1 0d 31 d8 04 0d  |ode,s%.1....1...|
000070d0  31 e2 13 dd f2 63 6f 64  65 5f 50 76 69 73 61 62  |1....code_Pvisab|
000070e0  6c 65 0d 31 ec 28 73 25  3d a4 70 65 72 73 6f 6e  |le.1.(s%=.person|
000070f0  28 a4 62 72 61 63 6b 65  74 72 69 67 68 74 5f 67  |(.bracketright_g|
00007100  65 74 28 61 72 67 73 24  29 29 0d 31 f6 08 70 25  |et(args$)).1..p%|
00007110  3d 33 0d 32 00 0f f1 23  63 6f 64 65 2c 69 6e 73  |=3.2...#code,ins|
00007120  25 0d 32 0a 0d f1 23 63  6f 64 65 2c 70 25 0d 32  |%.2...#code,p%.2|
00007130  14 0d f1 23 63 6f 64 65  2c 73 25 0d 32 1e 05 e1  |...#code,s%.2...|
00007140  0d 32 28 04 0d 32 32 10  dd f2 63 6f 64 65 5f 70  |.2(..22...code_p|
00007150  72 69 6e 74 0d 32 3c 19  e7 20 c1 61 72 67 73 24  |rint.2<.. .args$|
00007160  2c 31 2c 31 29 3d bd 28  33 34 29 20 8c 0d 32 46  |,1,1)=.(34) ..2F|
00007170  12 63 75 72 6c 69 6e 65  24 3d 61 72 67 73 24 0d  |.curline$=args$.|
00007180  32 50 10 73 25 3d a4 64  6f 73 74 72 69 6e 67 0d  |2P.s%=.dostring.|
00007190  32 5a 08 70 25 3d 37 0d  32 64 05 cc 0d 32 6e 2a  |2Z.p%=7.2d...2n*|
000071a0  73 25 3d a4 76 61 72 69  61 62 6c 65 28 a4 62 72  |s%=.variable(.br|
000071b0  61 63 6b 65 74 72 69 67  68 74 5f 67 65 74 28 61  |acketright_get(a|
000071c0  72 67 73 24 29 29 0d 32  78 08 70 25 3d 35 0d 32  |rgs$)).2x.p%=5.2|
000071d0  82 05 cd 0d 32 8c 0f f1  23 63 6f 64 65 2c 69 6e  |....2...#code,in|
000071e0  73 25 0d 32 96 0d f1 23  63 6f 64 65 2c 70 25 0d  |s%.2...#code,p%.|
000071f0  32 a0 0d f1 23 63 6f 64  65 2c 73 25 0d 32 aa 05  |2...#code,s%.2..|
00007200  e1 0d 32 b4 04 0d 32 be  0f dd f2 74 65 72 6d 5f  |..2...2....term_|
00007210  63 6f 64 65 0d 32 c8 2c  f4 20 2a 2a 2a 2a 2a 2a  |code.2.,. ******|
00007220  2a 2a 4f 4e 4c 59 20 43  41 4c 4c 45 44 20 42 59  |**ONLY CALLED BY|
00007230  20 46 4e 64 6f 63 6f 64  65 2a 2a 2a 2a 2a 2a 2a  | FNdocode*******|
00007240  0d 32 d2 0f f1 23 63 6f  64 65 2c a8 28 30 29 0d  |.2...#code,.(0).|
00007250  32 dc 05 e1 0d 32 e6 04  0d 32 f0 17 dd f2 74 65  |2....2...2....te|
00007260  72 6d 5f 63 6f 64 65 5f  73 70 65 63 69 61 6c 0d  |rm_code_special.|
00007270  32 fa 2c f4 20 2a 2a 2a  2a 2a 2a 2a 2a 4f 4e 4c  |2.,. ********ONL|
00007280  59 20 43 41 4c 4c 45 44  20 42 59 20 46 4e 64 6f  |Y CALLED BY FNdo|
00007290  63 6f 64 65 2a 2a 2a 2a  2a 2a 2a 0d 33 04 10 f1  |code*******.3...|
000072a0  23 63 6f 64 65 2c a8 28  31 30 29 0d 33 0e 05 e1  |#code,.(10).3...|
000072b0  0d 33 18 04 0d 33 22 0d  dd a4 6f 62 73 28 6f 24  |.3...3"...obs(o$|
000072c0  29 0d 33 2c 49 f4 20 72  65 74 75 72 6e 73 20 74  |).3,I. returns t|
000072d0  68 65 20 6e 75 6d 62 65  72 20 6f 66 20 6f 62 6a  |he number of obj|
000072e0  65 63 74 2c 20 65 76 65  6e 20 69 66 20 69 74 20  |ect, even if it |
000072f0  68 61 73 20 6e 6f 74 20  62 65 65 6e 20 64 65 63  |has not been dec|
00007300  6c 61 72 65 64 20 79 65  74 2e 0d 33 36 10 e7 20  |lared yet..36.. |
00007310  4f 5f 70 74 72 25 3e 30  20 8c 0d 33 40 13 e3 20  |O_ptr%>0 ..3@.. |
00007320  49 25 3d 30 b8 4f 5f 70  74 72 25 2d 31 0d 33 4a  |I%=0.O_ptr%-1.3J|
00007330  1b e7 20 4f 5f 6c 61 62  65 6c 24 28 49 25 29 3d  |.. O_label$(I%)=|
00007340  6f 24 20 8c 20 3d 49 25  0d 33 54 05 ed 0d 33 5e  |o$ . =I%.3T...3^|
00007350  05 cd 0d 33 68 14 e7 20  4f 5f 70 74 72 25 3d 6d  |...3h.. O_ptr%=m|
00007360  61 78 5f 62 20 8c 0d 33  72 20 f2 72 65 70 6f 72  |ax_b ..3r .repor|
00007370  74 28 22 54 6f 6f 20 6d  61 6e 79 20 6f 62 6a 65  |t("Too many obje|
00007380  63 74 73 2e 22 29 0d 33  7c 06 3d 30 0d 33 86 05  |cts.").3|.=0.3..|
00007390  cd 0d 33 90 17 4f 5f 6c  61 62 65 6c 24 28 4f 5f  |..3..O_label$(O_|
000073a0  70 74 72 25 29 3d 6f 24  0d 33 9a 15 4f 5f 66 6c  |ptr%)=o$.3..O_fl|
000073b0  61 67 25 28 4f 5f 70 74  72 25 29 3d a3 0d 33 a4  |ag%(O_ptr%)=..3.|
000073c0  0d 4f 5f 70 74 72 25 2b  3d 31 0d 33 ae 0d 3d 4f  |.O_ptr%+=1.3..=O|
000073d0  5f 70 74 72 25 2d 31 0d  33 b8 04 0d 33 c2 10 dd  |_ptr%-1.3...3...|
000073e0  a4 70 65 72 73 6f 6e 28  70 24 29 0d 33 cc 49 f4  |.person(p$).3.I.|
000073f0  20 72 65 74 75 72 6e 73  20 74 68 65 20 6e 75 6d  | returns the num|
00007400  62 65 72 20 6f 66 20 70  65 72 73 6f 6e 2c 20 65  |ber of person, e|
00007410  76 65 6e 20 69 66 20 69  74 20 68 61 73 20 6e 6f  |ven if it has no|
00007420  74 20 62 65 65 6e 20 64  65 63 6c 61 72 65 64 20  |t been declared |
00007430  79 65 74 2e 0d 33 d6 21  f4 20 30 20 66 6f 72 20  |yet..3.!. 0 for |
00007440  70 6c 61 79 65 72 20 6c  61 62 65 6c 3d 27 70 6c  |player label='pl|
00007450  61 79 65 72 27 0d 33 e0  10 e7 20 50 5f 70 74 72  |ayer'.3... P_ptr|
00007460  25 3e 30 20 8c 0d 33 ea  13 e3 20 49 25 3d 30 b8  |%>0 ..3... I%=0.|
00007470  50 5f 70 74 72 25 2d 31  0d 33 f4 1b e7 20 50 5f  |P_ptr%-1.3... P_|
00007480  6c 61 62 65 6c 24 28 49  25 29 3d 70 24 20 8c 20  |label$(I%)=p$ . |
00007490  3d 49 25 0d 33 fe 05 ed  0d 34 08 05 cd 0d 34 12  |=I%.3....4....4.|
000074a0  14 e7 20 50 5f 70 74 72  25 3d 6d 61 78 5f 62 20  |.. P_ptr%=max_b |
000074b0  8c 0d 34 1c 1f f2 72 65  70 6f 72 74 28 22 54 6f  |..4...report("To|
000074c0  6f 20 6d 61 6e 79 20 70  65 6f 70 6c 65 2e 22 29  |o many people.")|
000074d0  0d 34 26 06 3d 30 0d 34  30 05 cd 0d 34 3a 17 50  |.4&.=0.40...4:.P|
000074e0  5f 6c 61 62 65 6c 24 28  50 5f 70 74 72 25 29 3d  |_label$(P_ptr%)=|
000074f0  70 24 0d 34 44 15 50 5f  66 6c 61 67 25 28 50 5f  |p$.4D.P_flag%(P_|
00007500  70 74 72 25 29 3d a3 0d  34 4e 0d 50 5f 70 74 72  |ptr%)=..4N.P_ptr|
00007510  25 2b 3d 31 0d 34 58 0d  3d 50 5f 70 74 72 25 2d  |%+=1.4X.=P_ptr%-|
00007520  31 0d 34 62 04 0d 34 6c  12 dd a4 76 61 72 69 61  |1.4b..4l...varia|
00007530  62 6c 65 28 76 24 29 0d  34 76 4b f4 20 72 65 74  |ble(v$).4vK. ret|
00007540  75 72 6e 73 20 74 68 65  20 6e 75 6d 62 65 72 20  |urns the number |
00007550  6f 66 20 76 61 72 69 61  62 6c 65 2c 20 65 76 65  |of variable, eve|
00007560  6e 20 69 66 20 69 74 20  68 61 73 20 6e 6f 74 20  |n if it has not |
00007570  62 65 65 6e 20 64 65 63  6c 61 72 65 64 20 79 65  |been declared ye|
00007580  74 2e 0d 34 80 10 e7 20  56 5f 70 74 72 25 3e 30  |t..4... V_ptr%>0|
00007590  20 8c 0d 34 8a 13 e3 20  49 25 3d 30 b8 56 5f 70  | ..4... I%=0.V_p|
000075a0  74 72 25 2d 31 0d 34 94  1b e7 20 56 5f 6c 61 62  |tr%-1.4... V_lab|
000075b0  65 6c 24 28 49 25 29 3d  76 24 20 8c 20 3d 49 25  |el$(I%)=v$ . =I%|
000075c0  0d 34 9e 05 ed 0d 34 a8  05 cd 0d 34 b2 14 e7 20  |.4....4....4... |
000075d0  56 5f 70 74 72 25 3d 6d  61 78 5f 62 20 8c 0d 34  |V_ptr%=max_b ..4|
000075e0  bc 22 f2 72 65 70 6f 72  74 28 22 54 6f 6f 20 6d  |.".report("Too m|
000075f0  61 6e 79 20 76 61 72 69  61 62 6c 65 73 2e 22 29  |any variables.")|
00007600  0d 34 c6 06 3d 30 0d 34  d0 05 cd 0d 34 da 17 56  |.4..=0.4....4..V|
00007610  5f 6c 61 62 65 6c 24 28  56 5f 70 74 72 25 29 3d  |_label$(V_ptr%)=|
00007620  76 24 0d 34 e4 15 56 5f  66 6c 61 67 25 28 56 5f  |v$.4..V_flag%(V_|
00007630  70 74 72 25 29 3d a3 0d  34 ee 0d 56 5f 70 74 72  |ptr%)=..4..V_ptr|
00007640  25 2b 3d 31 0d 34 f8 0d  3d 56 5f 70 74 72 25 2d  |%+=1.4..=V_ptr%-|
00007650  31 0d 35 02 04 0d 35 0c  0e dd a4 72 6f 6f 6d 28  |1.5...5....room(|
00007660  72 24 29 0d 35 16 47 f4  20 72 65 74 75 72 6e 73  |r$).5.G. returns|
00007670  20 74 68 65 20 6e 75 6d  62 65 72 20 6f 66 20 72  | the number of r|
00007680  6f 6f 6d 2c 20 65 76 65  6e 20 69 66 20 69 74 20  |oom, even if it |
00007690  68 61 73 20 6e 6f 74 20  62 65 65 6e 20 64 65 63  |has not been dec|
000076a0  6c 61 72 65 64 20 79 65  74 2e 0d 35 20 10 e7 20  |lared yet..5 .. |
000076b0  52 5f 70 74 72 25 3e 30  20 8c 0d 35 2a 13 e3 20  |R_ptr%>0 ..5*.. |
000076c0  49 25 3d 30 b8 52 5f 70  74 72 25 2d 31 0d 35 34  |I%=0.R_ptr%-1.54|
000076d0  1b e7 20 52 5f 6c 61 62  65 6c 24 28 49 25 29 3d  |.. R_label$(I%)=|
000076e0  72 24 20 8c 20 3d 49 25  0d 35 3e 05 ed 0d 35 48  |r$ . =I%.5>...5H|
000076f0  05 cd 0d 35 52 14 e7 20  52 5f 70 74 72 25 3d 6d  |...5R.. R_ptr%=m|
00007700  61 78 5f 62 20 8c 0d 35  5c 1e f2 72 65 70 6f 72  |ax_b ..5\..repor|
00007710  74 28 22 54 6f 6f 20 6d  61 6e 79 20 72 6f 6f 6d  |t("Too many room|
00007720  73 2e 22 29 0d 35 66 06  3d 30 0d 35 70 05 cd 0d  |s.").5f.=0.5p...|
00007730  35 7a 17 52 5f 6c 61 62  65 6c 24 28 52 5f 70 74  |5z.R_label$(R_pt|
00007740  72 25 29 3d 72 24 0d 35  84 15 52 5f 66 6c 61 67  |r%)=r$.5..R_flag|
00007750  25 28 52 5f 70 74 72 25  29 3d a3 0d 35 8e 0d 52  |%(R_ptr%)=..5..R|
00007760  5f 70 74 72 25 2b 3d 31  0d 35 98 0d 3d 52 5f 70  |_ptr%+=1.5..=R_p|
00007770  74 72 25 2d 31 0d 35 a2  04 0d 35 ac 0e dd f2 71  |tr%-1.5...5....q|
00007780  75 69 74 5f 6e 6f 77 0d  35 b6 08 ee 85 20 e0 0d  |uit_now.5.... ..|
00007790  35 c0 10 e7 20 4f 3c 3e  30 20 8c 20 d9 23 4f 0d  |5... O<>0 . .#O.|
000077a0  35 ca 07 4f 3d 30 0d 35  d4 10 e7 20 51 3c 3e 30  |5..O=0.5... Q<>0|
000077b0  20 8c 20 d9 23 51 0d 35  de 07 51 3d 30 0d 35 e8  | . .#Q.5..Q=0.5.|
000077c0  10 e7 20 50 3c 3e 30 20  8c 20 d9 23 50 0d 35 f2  |.. P<>0 . .#P.5.|
000077d0  07 50 3d 30 0d 35 fc 14  e7 20 76 61 72 3c 3e 30  |.P=0.5... var<>0|
000077e0  20 8c 20 d9 23 76 61 72  0d 36 06 09 76 61 72 3d  | . .#var.6..var=|
000077f0  30 0d 36 10 16 e7 20 72  6f 6f 6d 3c 3e 30 20 8c  |0.6... room<>0 .|
00007800  20 d9 23 72 6f 6f 6d 0d  36 1a 0a 72 6f 6f 6d 3d  | .#room.6..room=|
00007810  30 0d 36 24 14 e7 20 6f  62 6a 3c 3e 30 20 8c 20  |0.6$.. obj<>0 . |
00007820  d9 23 6f 62 6a 0d 36 2e  09 6f 62 6a 3d 30 0d 36  |.#obj.6..obj=0.6|
00007830  38 1a e7 20 70 65 6f 70  6c 65 3c 3e 30 20 8c 20  |8.. people<>0 . |
00007840  d9 23 70 65 6f 70 6c 65  0d 36 42 0c 70 65 6f 70  |.#people.6B.peop|
00007850  6c 65 3d 30 0d 36 4c 16  e7 20 70 6c 61 79 3c 3e  |le=0.6L.. play<>|
00007860  30 20 8c 20 d9 23 70 6c  61 79 0d 36 56 0a 70 6c  |0 . .#play.6V.pl|
00007870  61 79 3d 30 0d 36 60 16  e7 20 63 6f 64 65 3c 3e  |ay=0.6`.. code<>|
00007880  30 20 8c 20 d9 23 63 6f  64 65 0d 36 6a 0a 63 6f  |0 . .#code.6j.co|
00007890  64 65 3d 30 0d 36 74 1a  e7 20 73 74 72 69 6e 67  |de=0.6t.. string|
000078a0  3c 3e 30 20 8c 20 d9 23  73 74 72 69 6e 67 0d 36  |<>0 . .#string.6|
000078b0  7e 0c 73 74 72 69 6e 67  3d 30 0d 36 88 05 e0 0d  |~.string=0.6....|
000078c0  ff                                                |.|
000078c1