� OMNIPOLY
�<>&E00 � �0:�loc
�
(!� (c) Copyright Richard Smith
2� Aug 31 1983
<�
F��DPE
P��N%(8),A$(30),NAM$(9),LO%(40),N$(2),OPOS(2),NPOS(2),MO(2),IJ(2),GJ(2),PR(4),PR2(3),PR$(3),P$(5),H(3),CH%(52,1),CHP(1),JC(1):NJ=1:DO=0:�I%=0�4:P$(I%)=�I%:�:P$(5)="H":A$=�100," "):B$=A$:N$=A$:*FX4,1
ZXA=�(-�):�I%=1�� �10:A=�(1):�:LE$="ABCDEFGHIJKLMNOPRSTUVWXYZ`346789":OK$=LE$+" Q1250"
d�K%=0�1:�I%=1�26
n3  J%=�(26)*2-1:�CH%(J%,K%)=0CH%(J%,K%)=I%��Dn@
x  �:CH%(�(26)*2,K%)=1:�
���5:�19,1,2;0;19,2,6;0;29,640;512;23;8202;0;0;0;5:�129:�0:��dFL:�I%=0�9:�NAM$(I%):�:�BOARD:Y%=�(2):A$=N$(Y%)+" STARTS":Y=320:�TEXT
���T@E
�	�WAIT
��X%=Y%:Z%=OPOS(X%):MO(X%)=�MO(X%):�AT(Z%):�MONEY:�WARN:��TZN:�I%=1�8:�A$:�-336,-32*(I%+1):A$=�I%+" "+A$:�PRINT(A$):�:�-160,-320:�PRINT("ENTER CHOICE")
��WAIT:B=�A$:�B<1�B>8��tj@
�/�B �t~@,�txA,�dBA,�d`A,�d~A,�DDB,�TBC,�DRC
��MO(X%)=-1��D\C
��Z%=41��tDC�IJ(X%)=0
�.D1=�(6):D2=�(6):�D1<>D2 Y%=3-X%:DO=0:�df@
�Y%=X%:DO=DO+1
�	�ROLL
�	�WAIT
�NPOS(X%)=Z%:�NPOS

�A<>18�A<>11�MONEY

'�A=17Z%=41:�dp@��A<>18�A<>11�MONEY

�A=10�COMCHEST:�DpC

"�A=12�CHANCE:�DpC

,��T@E

6�A=9�A=15�A=16�A=19��tV@

@'�A=11MO(X%)=MO(X%)-200:�MONEY:�tV@

J'�A=18MO(X%)=MO(X%)-100:�MONEY:�tV@

T�GETDA(Z%):�D,A$,A

^�N%��D|A

h?�-336,-96:�PRINT("DO YOU WANT TO BUY IT"):�GET:�A$="N"��t`@

r>MO(X%)=MO(X%)-A:LO%(Z%)=LO%(Z%)�16*X%:�TITLEDEED(Z%):�tV@

|"�LO%(Z%)�16*X%�LO%(Z%)�64��tV@

��-64,-96:�PRINT("RENT")

�*�D=13�UTRENT:�tnA��D=14�STNRENT:�tnA

��I%=0�K%:�A:�

��K%=0�ALL(D):�B A=A*2

�DA$="`"+�A:Y=-160:�TEXT:MO(3-X%)=MO(3-X%)+A:MO(X%)=MO(X%)-A:�tV@

��HIGH:�t`@

�5�ASK:�A%=1�40:�GETDA(A%):�A:�W=0��dLA��A<>W ��dVA

�=  �LO%(A%)�(X%*16)�PROP(A%,1):�A$="T"�TITLEDEED(A%):�WAIT

�
  �:�t`@

�5�ASK:�I%=1�40:�GETDA(I%):�A:�A>8�A<>13�A<>14��dtA

�  �W=0�W=A �PROP(I%,0)

�
  �:�t`@

�(�CLS:�GETPROP:�CLS:�CHECK1:�ER ��tV@
�CHECK3:� ER � �tV@
��CHECK2:A$="WHAT IS THE AGREED/SELLING PRICE":Y=224:�TEXT:�INPUTN:LO%(A)=LO%(A)�207�16*(3-X%):MO(X%)=MO(X%)+B:MO(3-X%)=MO(3-X%)-B
�(LO%(A)�64)=0��TzB
&k�CLS:X%=3-X%:A$=N$(X%)+"/DO YOU WANT TO LIFT/THE MORTGAGE NOW":Y=320:�TEXT:�GET:�A$="Y"�CLS:FL%=0:�DHC
0m�GETDA(A):�B,A$,B:A$="YOU STILL HAVE TO PAY/INTEREST OF `"+�(B*.05):MO(X%)=MO(X%)-B*.05:Y=192:�TEXT:�WAIT
:�TITLEDEED(A):�WAIT:�t`@
DT�I%=1�3:H(I%)=0:�:�CLS:A$="DO YOU WANT TO SELL/BUILDINGS":Y=320:�TEXT:�GET:B$=A$
N��CLS:�GETCOL(8):�CLS:�ALL(A):�B<>X%A$="YOU DO NOT HAVE THE/ENTIRE GROUP/OR PART OF THE GROUP/IS MORTGAGED":Y=320:�TEXT:�tV@�A$="EXISTING BUILDINGS/AND PROPERTY NAME":Y=320:�TEXT
X�G%=0:PR(3)=-1:J%=0:�I%=1�40:�GETDA(I%):�W:�W=A B=LO%(I%)�7:J%=J%+1:PR(J%)=B:PR2(J%)=I%:�A$,R%,R%,R%,R%,R%,R%,R%,R%:�SPACES(1):�NORTH:PR$(J%)=N$:�Q%,256-32*J%:�PRINT(P$(PR(J%))+" "+N$)
b
�:��DFE
l:�B$="Y"��t^B�A$="HOUSES COST `"+�R%+" EACH":Y=96:�TEXT
v;A$="HOW MANY HOUSES DO/YOU WANT TO BUILD ON":Y=32:�TEXT
��I%=1�J%
�M  �GETHOUSES:H(I%)=B:�PR(I%)+B>5�-128,-192:�PRINT("TOO MANY"):�WAIT:�tJB
�	�dFB
�4R%=-R%/2:A$="HOUSES ARE WORTH `"+�-R%:Y=96:�TEXT
�<A$="HOW MANY HOUSES DO/YOU WANT REMOVED FROM":Y=32:�TEXT
��I%=1�J%
�K�GETHOUSES:H(I%)=B:�PR(I%)-B<0�-128,-192:�PRINT("TOO MANY"):�WAIT:�t|B
��
�3L%=5:H%=0:�I%=1�J%:A=PR(I%)+�R%*H(I%):�A<L%L%=A
�
�A>H%H%=A
��:�H%-L%>1A$="BUILDINGS ARE NOT/DISTRIBUTED EVENLY":Y=-192:�TEXT:�WAIT:�0,1:�HBAR(-320,-64,-256):�0,0:�R%+2�trB,�T@@,�t@B
�^�I%=1�J%:LO%(PR2(I%))=LO%(PR2(I%))�248�(PR(I%)+�R%*H(I%)):MO(X%)=MO(X%)-R%*H(I%):�:��T@E
�	�t`@
IFL%=1:�CLS:A$="DO YOU WANT TO LIFT/A MORTGAGE":Y=320:�TEXT:�GET:B$=A$
)�GETPROP:�CLS:�CHECK1:�ER �WAIT:�TLC
�B$="Y"��T~C
 �CHECK2:� ER �WAIT:�TLC
*�CHECK3:� ER �WAIT:�TLC
4RLO%(A)=LO%(A)�64:�GETDA(A):�B,A$,B:MO(X%)=MO(X%)+B/2:�TITLEDEED(A):�WAIT:�TLC
>�CHECK4:� ER �WAIT:�TLC
H_LO%(A)=LO%(A)�191:�GETDA(A):�B,A$,B:MO(X%)=MO(X%)-.55*B:�TITLEDEED(A):�WAIT:�FL%��TLC��t`@
Rb�CLS:A$="ARE YOU SURE YOU/WANT TO END/ /YOU WILL LOSE/IF YOU DO":Y=320:�TEXT:�GET:�A$="N"��t`@
\C�CLS:A$=N$(3-X%)+"/ /IS THE WINNER":Y=320:�TEXT:�WAIT:�7:*FX4,0
f�
p�MV ��dp@���T@E
z�WAIT:�AT(Z%):�MONEY:�tV@
��DO=0:IJ(X%)=IJ(X%)+1:�0,1:�HBAR(352,-64,-356):�0,0:N$="YOU ARE IN JAIL":�CENTRE:�X,-64:�PRINT(N$):��TdN:A=3:B=2:�GJ(X%)A=5:B=3
�U�I%=1�A:�A$:�-320,-32*(I%+3):�PRINT(A$):�:�-160,-32*(I%+4):�PRINT("ENTER CHOICE")
� �WAIT:A=�(A$):�A<1�A>B ��tXC
��A �tlC,�d@C,�drC
�MO(X%)=MO(X%)-50
�,Y%=3-X%:IJ(X%)=0:OPOS(X%)=11:Z%=11:�dR@
�1D1=�(6):D2=�(6):�ROLL:�D1=D2 Y%=X%:DO=1:�d^C
�MY%=3-X%:�IJ(X%)=3A$="YOU MUST PAY `50":Y=192:�TEXT:MO(X%)=MO(X%)-50:�dhC
�	�tV@
�	Y%=X%
�*OPOS(X%)=11:Z%=11+D1+D2:IJ(X%)=0:�dp@
�EGJ(X%)=GJ(X%)-1:�JC(0)=X%J%=0�J%=1:JC(J%)=0:I%=CHP(J%):�I%=0I%=52
�CH%(I%,J%)=1
	�tvC
5��GETPROP:�GETCOL(10):�CLS:W=A:�A=9W=14��A=10W=13
vJ%=0:�I%=1�40:�GETDA(I%):�A:�W=A � A$:�SPACES(1):�NORTH:J%=J%+1:N$=�J%+" "+N$:�-320,352-J%*32:�PRINT(N$):PR(J%)=I%
$,�:�-320,288-32*J%:�PRINT("ENTER CHOICE")
.�WAIT:A=�A$:�A<1�A>J%��TnD
8
A=PR(A):�
BW��CHECK1:ER=0:�(LO%(A)�48)/16<>X%A$="YOU DO NOT OWN THIS/PROPERTY":Y=320:�TEXT:ER=1
L�
VL��CHECK2:ER=0:�LO%(A)�64A$="THIS PROPERTY IS/MORTGAGED":Y=320:�TEXT:ER=1
`�
jQ��CHECK3:ER=0:�LO%(A)�7A$="THERE ARE BUILDINGS/ON THIS SITE":Y=320:�TEXT:ER=1
t�
~T��CHECK4:ER=0:�(LO%(A)�64)=0A$="THIS PROPERTY IS/NOT MORTGAGED":Y=320:�TEXT:ER=1
��
�)��INPUTN:X=-96:Y=128:�TYPE("`"):X=-64
�F�X,Y:�INPUT:B=�B$:�B$<>�B � B>9999 ��0,1:�X,Y:�TYPE(B$):�0,0:�t\D
��
�"��INPUTTEXT:�-160,224:�INPUT:�
���INPUT:B$=""
��WAIT:�A$<>13��dXD
��B$=""��dDD��
�P�A$=127��B$>0�0,1:�0,-32,0:�PRINT(�B$,1)):B$=�B$,�B$-1):�0,0:�0,-32,0:�dDD
��OK$,A$)=0��B$=10��dDD
�B$=B$+A$:�PRINT(A$):�dDD
�e��GETHOUSES:�0,1:�HBAR(320,-64,-256):�0,0:N$=PR$(I%):�CENTRE:�X,-64:�PRINT(N$):X=-32:Y=-128:�t\D
�=17��t`@

�6:�:�" in line ";�:*FX 4,0
�
�<>17��TJE
(�UNHIGH:��T@E
2	�t`@
<�=17��dz@��TJE
F�=17��dPB��TJE
P�=17� ��TJE
Zh��BOARD:�0,1:�SBAR(512,512):�0,2:�SBAR(480,480):�0,1:�SBAR(360,360):�0,0:�BOX(480,480):�BOX(360,360)
dP�Y=-360�360�80:�-480,Y:�-360,Y:�Y,480:�Y,360:�480,Y:�360,Y:�Y,-480:�Y,-360:�
n;�I%=1�40:�GETDA(I%):�A:�LOC(I%):�A<9�SMBOX(I%)��NAM(I%)
x��:GA=0:�X%=1�2:MO(X%)=1500:�CLS:A$="WHAT IS THE NAME OF/PLAYER "+�X%:Y=320:�TEXT:�INPUTTEXT:N$(X%)=B$:OPOS(X%)=40:Z%=1:�NPOS:�:GA=1:�
�3��SBAR(X,Y)�X,Y:�X,-Y:�85,-X,-Y:�-X,Y:�85,X,Y:�
�,��BOX(X,Y)�X,Y:�X,-Y:�-X,-Y:�-X,Y:�X,Y:�
�@��LOC(I%)S=(I%-1)�10*80-360:�(I%-1)�10+1�t`E,�tjE,�ttE,�t~E
�X=-S:Y=-360:�
�X=-360:Y=S:�
�X=S:Y=360:�
�X=360:Y=-S:�
�/��SMBOX(I%)�(I%-1)�10+1�dRE,�d\E,�dfE,�dpE
�<�X+8,Y-4:�X+72,Y-4:�85,X+72,Y-40:�X+8,Y-40:�85,X+8,Y-4:�
�<�X-8,Y-4:�X-8,Y-76:�85,X-40,Y-76:�X-40,Y-4:�85,X+8,Y-4:�
�<�X-8,Y+4:�X-72,Y+4:�85,X-72,Y+40:�X-8,Y+40:�85,X-8,Y+4:�
�<�X+8,Y+4:�X+8,Y+76:�85,X+40,Y+76:�X+40,Y+4:�85,X+8,Y+4:�
�$��NAM(I%)B$=NAM$(A-9):�LBOX(0):�
G��LBOX(M%):�I%=11��TvF��I%=31��D@F��(I%-1)�10+1�TNF,�TXF,�TbF,�TlF
 �X+8,Y-16-M%*32:�PRINT(B$):�
E�X-48-32*M%,Y-12:�PRINT(�B$,1)):�X-48-32*M%,Y-44:�PRINT(�B$,1)):�
"!�X-72,Y+40+32*M%:�PRINT(B$):�
,E�X+16+32*M%,Y+68:�PRINT(�B$,1)):�X+16+32*M%,Y+36:�PRINT(�B$,1)):�
6!�X-72,Y-16-32*M%:�PRINT(B$):�
@!�X+12,Y+40+32*M%:�PRINT(B$):�
Ju��GETCOL(N%)�CLS:��dPL:�I%=0�N%-1:�C$:�-320,320-I%*32:�PRINT(�I%+" "+C$):�:�-320,256-I%*32:�PRINT("ENTER CHOICE")
T!�WAIT:A=�A$:�A=0�A$<>"0"�A=-1
^%�A<0�A>N%-1��DTF�A=A+1:�GETLCOL:�
h#��HIGH:�GETCOL(8):�C=0�C=6C=C+8
r��T^E
|C�19,3,C;0;:�0,3:�I%=1�40:�GETDA(I%):�B:�B=A �LOC(I%):�SMBOX(I%)
��:�WAIT:�UNHIGH:�
�A��UNHIGH:�0,0:�I%=1�40:�GETDA(I%):�B:�A=B �LOC(I%):�SMBOX(I%)
�
�:��T@E
��
���GETDA(I%)�(2850+10*I%):�
�6��TITLEDEED(I%)�GETDA(I%):�A:�A>8�A<>13�A<>14��TzG
��LO%(I%)�64��TfG
�&�TDFRAME:�A=13�A=14�Q%=Q%-64:�THG
�4�-160,272:�PRINT("TITLE DEED"):�SPACES(1):�NORTH
�H�CENTRE:�X,208:�PRINT(N$):�0,0:�I%=0�7:�N%(I%):�:N%(8)=N%(0)/2:��ddL
�9X=-288:Y=112:�TYPE("RENT"):�I%=1�8:Y=Y-32:�I%>6Y=Y-32
�s�A$:�TYPE(A$):�Q%,Y:�PRINT("`"+�N%(I%)):�I%=7Y=Y-32:�TYPE("COST HOTEL  `"+�N%(7)):Y=Y-32:�TYPE("PLUS 4 HOUSES")
��:�TzG
_�SPACES(1):�CENTRE:�X,240+24*(A-13):�PRINT(N$):�A=14�-112,216:�PRINT("STATION"):��dnL���dxL
)X=-228:Y=96:�I%=1�12:�A$:�A$=""A$=" "
�TYPE(A$):Y=Y-32:�:�TzG
&�C=A:�CLS:�0,3:�A$,A:�SPACES(1):�19,3,1;0;:�SBAR(320,320):�0,0:�BOX(320,320):�Y=-1�1�2:�-288,288*Y:�288,288*Y:�288,96*Y:�-288,96*Y:�-288,228*Y:�:�-144,208:�C=14N$=N$+" STN"
0t�PRINT("MORTGAGED"):�NORTH:A$=N$+"/ /"+"MORTGAGED FOR `"+�(A/2):Y=48:�TEXT:Y=-132:X=-256:��TBM:�I%=1�4:�N$:�PR:�
:Q%=96:�
D&��GETLCOL:�I%:��dZL:�I%=1�A:�C:�:�
N$��TDFRAME:�CLS:�A<9�GETLCOL �C=7
X^�19,3,C;0;:�0,2-(A>12):�SBAR(320,320):�0,0:�BOX(320,320):�A<13�A<>2�0,3:�HBAR(304,304,144)
b�0,0:�HBOX(304,304,144)
l1�GETDA(I%):�A,A$:�131:�A=1�A=8�2:�0,2��0:�0,0
v�
�A��SPACES(I%):B=�A$,"/",I%):�B=0N$=A$�N$=�A$,B-1)+" "+�A$,B+1)
�A$=N$:�
�%��CENTRE:X=-288+32*((18-�N$)/2):�
�B��NORTH:�N$="NORTHUMBER LAND AVENUE"N$="NORTHUMBERLAND AVENUE"
��
�#��CHANCE:N$="CHANCE":CH=1:�dFG
�(��COMCHEST:N$="COMMUNITY CHEST":CH=0
�cMV=0:�WAIT:�CLS:�19,3,5,5-2*CH;0;:�0,3:�SBAR(320,192):�0,0:�BOX(320,192):Y=128:A$=N$:�TEXT:Y=32
�s�CH%(CHP(CH)+2,CH)A=27:CH%(CHP(CH)+2,CH)=0:JC(CH)=X%�A=CH%(CHP(CH)+1,CH):CHP(CH)=CHP(CH)+2:�CHP(CH)=52CHP(CH)=0
��(3330+10*A):�A$,A1%,A2%
�!�TEXT:�A1%MO(X%)=MO(X%)+A1%:�
�+�A2%=0��TBH�MV=1:�A2%=-3Z%=OPOS(X%)+3:�
�Z%=A2%:�
�A=27��TjH
+B%=0:�I%=1�40:�(LO%(I%)�48)/16<>X%��T`H
+J%=LO%(I%)�7:�J%<5B%=B%+J%*40�B%=B%+115
 ;�:A$="TOTAL COST `"+�B%:Y=-224:�TEXT:MO(X%)=MO(X%)-B%:�
*GJ(X%)=GJ(X%)+1:�JC(CH)=X%
4�
>)��PR:�CENTRE:�X,Y:Y=Y-32:�PRINT(N$):�
H6��HBAR(X,Y,Y1)�X,Y:�X,Y1:�85,-X,Y1:�-X,Y:�85,X,Y:�
R0��HBOX(X,Y,Y1)�X,Y:�X,Y1:�-X,Y1:�-X,Y:�X,Y:�
\��TEXT:I%=0
fL�SPACES(I%+1):�B=0N$=�A$,I%+1):�PR:� �N$=�A$,I%+1,B-I%-1):I%=B:�PR:�DfH
pk��AT(L%)�CLS:K%=0:�0,2:�HBAR(320,320,64):�0,0:�HBOX(320,320,64):Y=256:�GETDA(L%):�A:�A<9�A=13�A=14��d^H
z?�A-8�tDH,�tNH,�tXH,�tbH,�T@@,�T@@,�tlH,�tvH,�d@H,�dJH,�dTH
�A$="GO":�d|H
�A$="COMMUNITY/CHEST":�d|H
�"A$="INCOME/TAX/PAY `200":�d|H
�A$="CHANCE":�d|H
�!A$="JAIL/JUST/VISITING":�d|H
�A$="FREE/PARKING":�d|H
�A$="GO TO/JAIL":�d|H
�!A$="SUPER/TAX/PAY `100":�d|H
�A$="IN/JAIL":�d|H
�Y�A<9�GETLCOL:�19,3,C;0;:�0,3:�HBAR(312,316,224):�0,0:�-320,224:�320,224:Y=192:�HOUSES
�.�GETDA(L%):�J%,A$,J%:�A=14A$=A$+"/STATION"
��TEXT:A$="`"+�J%
�6�TEXT:�A<9�A=13�A=14N%=(LO%(L%)�63)/16:�SALE �N%=4
	�
	A��HOUSES:K%=LO%(L%)�7:�K%=0� ��K%=5A$="HOTEL"�A$=�K%+" HOUSE"
	�K%<5�K%>1A$=A$+"S"
	$�A=1�A=8�0,2��0,0
	./�SPACES(1):�CENTRE:�X,288:�PRINT(N$):�0,0:�
	84��SALE2:�N%=0N$="FOR SALE"�N$="OWNED BY "+N$(N%)
	B�
	L,��SALE:�SALE2:�CENTRE:�X,52:�PRINT(N$):�
	VT��NPOS:�CLS:B$=�N$(X%),2):N%=OPOS(X%):G%=Z%:�G%=41G%=11:NJ=0:DO=0:�D1=D2 Y%=3-X%
	` �Z%=41�N%<32�N%>11ST=-1�ST=1
	j�N%=G%��t\I
	t)�:PG=0:K%=N%:N%=N%+ST:�N%=41N%=1:PG=1
	~Z�0,2:I%=K%:�LOC(I%):�LBOX(X%):�0,0:I%=N%:�1,-7,50,1:�LOC(I%):�LBOX(X%):�PG �GA �NJ �PG
	�*FX15,1
	�A=�25:�N%=G%
	�OPOS(X%)=Z%
	��GA �AT(Z%)
	�
NJ=1:�
	����PG:�19,3,7;0;:�0,3:�HBAR(320,320,192):�0,0:�HBOX(320,320,192):A$="COLLECT `200 SALARY/AS YOU PASS GO":Y=288:�TEXT:MO(X%)=MO(X%)+200:�WAIT:�
	�Y��MONEY:N$=N$(X%):�CENTRE:Y=0:�TYPE(N$):N$="`"+�(�(MO(X%))):�MO(X%)=-1N$="MINUS "+N$
	�0N$=N$+"  "+�GJ(X%):�CENTRE:Y=-32:�TYPE(N$):�
	�	��GET
	��WAIT:�A$<>"Y"�A$<>"N"��dbI
	��
	���TYPE(Z$)�X,Y:�TJJ
��PRINT(Z$)

��E%=1��Z$:�0,-32,0:F%=�(�Z$,E%,1)):�F%=49F%=73��F%=50F%=90��F%=53F%=83��F%=48F%=79��F%=81F%=86:�23,244,7,5,5,5,7,2,3,0��F%=86�23,244,5,5,5,5,5,2,2,0
$�F%=32�" ";��(223+�LE$,�(F%)));
�:�
(��WAIT:*FX15,1
2�1,-7,125,1:A$=�:�
<$��CLS:�0,1:�SBAR(352,356):�0,0:�
F���WARN:�(MO(X%))=-1A$="YOU ARE IN DEBT/ /YOU MUST PAY THIS/BEFORE ROLLING DICE":Y=-96:�TEXT:�WAIT:�0,1:�HBAR(320,-96,-224):�0,0
P�
Z0��PROP(I%,J%)�CLS:�A$:�A=14�A$=A$+"/STATION"
dK%=LO%(I%)�7:�A>8��tBJ
nO�K%=0A$=A$+"/ /NO BUILDINGS"��K%=5A$=A$+"/ /HOTEL"�A$=A$+"/ /"+�K%+" HOUSE"
x�K%<5�K%>1A$=A$+"S"
�#�LO%(I%)�64A$=A$+"/ /MORTGAGED"
�d�J%A$=A$+"/ /PRESS T FOR/TITLE DEED/ELSE ANY OTHER KEY"�N%=(LO%(I%)�48)/16:�SALE2:A$=A$+"/ /"+N$
�Y=320:�TEXT:�WAIT:�
�S��ASK:�CLS:A$="DO YOU WANT JUST/ONE GROUP LISTED":Y=320:�TEXT:�GET:�A$="N"W=0:�
�&�GETCOL(10):W=A:�W=9W=14��W=10W=13
��
�H��ALL(J%)B=-1:�I%=1�40:�GETDA(I%):�C:�C<>J%��d\J�B%=(LO%(I%)�112)/16
��B=-1B=B%��B<>B%B=0
�
�B<>B%B=0
��:�
�=��STNRENT:J%=-1:�I%=6�36�10:�(LO%(I%)�112)/16=3-X%J%=J%+1
��:A=2^J%*25:�
�=��UTRENT:J%=-1:�I%=13�29�16:�(LO%(I%)�112)/16=3-X%J%=J%+1
�:A=(4+6*J%)*(D1+D2):�
���ROLL:�CLS:A$="YOU HAVE ROLLED/ /"+�D1+" AND "+�D2:�DO=3A$=A$+"/ /YOU HAVE THROWN/THREE DOUBLES/ /GO TO JAIL":Z%=41:NJ=0:Y%=3-X%:DO=0��IJ(X%)=0Z%=Z%+D1+D2:�Z%>40Z%=Z%-40
Y=320:�TEXT:��T|E
"�
,�9
6-�1,OLD KENT/ROAD,60,2,10,30,90,160,250,50
@�10
J1�1,WHITECHAPEL/ROAD,60,4,20,60,180,320,450,50
T�11
^�14,KINGS CROSS,200
h1�2,ANGEL/ISLINGTON,100,6,30,90,270,400,550,50
r�12
|-�2,EUSTON/ROAD,100,6,30,90,270,400,550,50
�3�2,PENTONVILLE/ROAD,120,8,40,100,300,450,600,50
��15
�.�3,PALL MALL,140,10,50,150,450,625,750,100
��13,ELECTRIC/COMPANY,150
�.�3,WHITEHALL,140,10,50,150,450,625,750,100
�;�3,NORTHUMBER/LAND AVENUE,160,12,60,180,500,700,900,100
��14,MARYLEBONE,200
�/�4,BOW STREET,180,14,70,200,550,750,950,100
��10
�7�4,MARLBOROUGH/STREET,180,14,70,200,550,750,950,100
�1�4,VINE STREET,200,16,80,220,600,800,1000,100
��16
�,�5,STRAND,220,18,90,250,700,875,1050,150
�12
2�5,FLEET STREET,220,18,90,250,700,875,1050,150
7�5,TRAFALGAR/SQUARE,240,20,100,300,750,925,1100,150
&�14,FENCHURCH ST,200
07�6,LEICESTER/SQUARE,260,22,110,330,800,975,1150,150
:6�6,COVENTRY/STREET,260,22,110,330,800,975,1150,150
D�13,WATER/WORKS,150
N2�6,PICCADILLY,280,22,120,360,850,1025,1200,150
X�17
b5�7,REGENT/STREET,300,26,130,390,900,1100,1275,200
l5�7,OXFORD/STREET,300,26,130,390,900,1100,1275,200
v�10
�4�7,BOND STREET,320,28,150,450,1000,1200,1400,200
��14,LIVERPOOL ST,200
��12
�2�8,PARK LANE,350,35,175,500,1100,1300,1500,200
��18
�0�8,MAYFAIR,400,50,200,600,1400,1700,2000,200
��19
�"�GO,CC,IT,CH,UT,SN,JA,FP,GJ,ST
�F�BLACK,CYAN,MAGENTA,WHITE,RED,YELLOW,GREEN,BLUE,STATIONS,UTILITIES
��0,6,5,7,1,3,2,4,0,0
�K�SITE ONLY,1 HOUSE,2 HOUSES,3 HOUSES,4 HOUSES,HOTEL,COST HOUSE,MORTGAGE
�p�" BRITISH RAIL",,RENT        `25,,  2 STATIONS  `50,,  3 STATIONS `100,,  4 STATIONS `200,,,MORTGAGE   `100
���IF ONE UTILITY,OWNED RENT IS 4,TIMES THAT SHOWN,ON DICE,,IF ALL UTILITIES,OWNED RENT IS 10,TIMES THAT ON,DICE,,,MORTGAGE     `75

>�CARD MUST BE,TURNED THIS SIDE,UP IF PROPERTY,IS MORTGAGED

�SPEEDING FINE `15,-15,0

�DOCTORS FEE/PAY `50,-50,0

 �PAY HOSPTIAL `100,-100,0

*I�YOU ARE ASSESSED/FOR STREET REPAIRS/`40 PER HOUSE/`115 PER HOTEL,0,0

4'�BANK PAYS YOU/DIVIDEND OF `50,50,0

>(�FROM SALE OF STOCK/YOU GET `50,50,0

H�YOU INHERIT `100,100,0

R'�INCOME TAX REFUND/COLLECT `20,20,0

\'�ANNUITY MATURES/COLLECT `100,100,0

f2�YOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0

pA�ADVANCE TO/TRAFALGAR SQUARE/IF YOU PASS GO/COLLECT `200,0,25

z:�ADVANCE TO/PALL MALL/IF YOU PASS GO/COLLECT `200,0,12

��ADVANCE TO MAYFAIR,0,40

��ADVANCE 3 SPACES,0,-3

�%�PAY INTEREST ON/A LOAN/`50,-50,0

�K�TAKE A TRIP TO/MARYLEBONE STATION/AND IF YOU PASS GO/COLLECT `200,0,16

��ADVANCE TO GO,0,1

�#�DRUNK IN CHARGE/FINE `20,-20,0

�)�PAY YOUR INSURANCE/PREMIUM `50,-50,0

�#�PAY SCHOOL FEES/OF `150,-150,0

�2�YOUR BUILDING LOAN/MATURES/RECEIVE `150,150,0

�<�YOU HAVE WON A/CROSSWORD/COMPETITION/COLLECT `100,100,0

�1�BANK ERROR IN YOUR/FAVOUR/COLLECT `200,200,0

�C�YOU HAVE WON/SECOND PRIZE IN A/BEAUTY CONTEST/COLLECT `10,10,0

�7�RECEIVE INTEREST/ON 7PC PREFERENCE/SHARES/`25,25,0
M�GO TO JAIL/MOVE DIRECTLY TO/JAIL/DO NOT PASS GO/DO NOT COLLECT `200,0,41
B�GET OUT OF JAIL/FREE/ /THIS CARD MAY BE/KEPT UNTIL NEEDED,0,0
��ROLL DICE,SHOW COLOUR GROUP,LIST OWNED PROPERTY,LIST ALL PROPERTY,SELL PROPERTY,BUY OR SELL HOUSES,MORTAGE PROPERTY,END GAME
$X�1 PAY `50,2 ROLL DICE AND HOPE,"  FOR DOUBLES",3 USE A GET OUT OF," JAIL FREE CARD"
.:
8	��loc
BR*KEY 0 *TAPE|MFORI%=0 TO TOP STEP4:I%!&E00=I%!&1D00:NEXT:PAGE=&E00|MOLD|MRUN|M
L*FX138,0,128
V�
�

00000000  0d 00 0a 0e f4 20 4f 4d  4e 49 50 4f 4c 59 0d 00  |..... OMNIPOLY..|
00000010  14 16 e7 90 3c 3e 26 45  30 30 20 8c 20 fb 30 3a  |....<>&E00 . .0:|
00000020  f2 6c 6f 63 0d 00 1e 05  f4 0d 00 28 21 f4 20 28  |.loc.......(!. (|
00000030  63 29 20 43 6f 70 79 72  69 67 68 74 20 52 69 63  |c) Copyright Ric|
00000040  68 61 72 64 20 53 6d 69  74 68 0d 00 32 11 f4 20  |hard Smith..2.. |
00000050  41 75 67 20 33 31 20 31  39 38 33 0d 00 3c 05 f4  |Aug 31 1983..<..|
00000060  0d 00 46 0b ee 85 e5 8d  44 50 45 0d 00 50 c8 de  |..F.....DPE..P..|
00000070  4e 25 28 38 29 2c 41 24  28 33 30 29 2c 4e 41 4d  |N%(8),A$(30),NAM|
00000080  24 28 39 29 2c 4c 4f 25  28 34 30 29 2c 4e 24 28  |$(9),LO%(40),N$(|
00000090  32 29 2c 4f 50 4f 53 28  32 29 2c 4e 50 4f 53 28  |2),OPOS(2),NPOS(|
000000a0  32 29 2c 4d 4f 28 32 29  2c 49 4a 28 32 29 2c 47  |2),MO(2),IJ(2),G|
000000b0  4a 28 32 29 2c 50 52 28  34 29 2c 50 52 32 28 33  |J(2),PR(4),PR2(3|
000000c0  29 2c 50 52 24 28 33 29  2c 50 24 28 35 29 2c 48  |),PR$(3),P$(5),H|
000000d0  28 33 29 2c 43 48 25 28  35 32 2c 31 29 2c 43 48  |(3),CH%(52,1),CH|
000000e0  50 28 31 29 2c 4a 43 28  31 29 3a 4e 4a 3d 31 3a  |P(1),JC(1):NJ=1:|
000000f0  44 4f 3d 30 3a e3 49 25  3d 30 b8 34 3a 50 24 28  |DO=0:.I%=0.4:P$(|
00000100  49 25 29 3d c3 49 25 3a  ed 3a 50 24 28 35 29 3d  |I%)=.I%:.:P$(5)=|
00000110  22 48 22 3a 41 24 3d c4  31 30 30 2c 22 20 22 29  |"H":A$=.100," ")|
00000120  3a 42 24 3d 41 24 3a 4e  24 3d 41 24 3a 2a 46 58  |:B$=A$:N$=A$:*FX|
00000130  34 2c 31 0d 00 5a 58 41  3d b3 28 2d 91 29 3a e3  |4,1..ZXA=.(-.):.|
00000140  49 25 3d 31 b8 91 20 83  31 30 3a 41 3d b3 28 31  |I%=1.. .10:A=.(1|
00000150  29 3a ed 3a 4c 45 24 3d  22 41 42 43 44 45 46 47  |):.:LE$="ABCDEFG|
00000160  48 49 4a 4b 4c 4d 4e 4f  50 52 53 54 55 56 57 58  |HIJKLMNOPRSTUVWX|
00000170  59 5a 60 33 34 36 37 38  39 22 3a 4f 4b 24 3d 4c  |YZ`346789":OK$=L|
00000180  45 24 2b 22 20 51 31 32  35 30 22 0d 00 64 14 e3  |E$+" Q1250"..d..|
00000190  4b 25 3d 30 b8 31 3a e3  49 25 3d 31 b8 32 36 0d  |K%=0.1:.I%=1.26.|
000001a0  00 6e 33 20 20 4a 25 3d  b3 28 32 36 29 2a 32 2d  |.n3  J%=.(26)*2-|
000001b0  31 3a e7 43 48 25 28 4a  25 2c 4b 25 29 3d 30 43  |1:.CH%(J%,K%)=0C|
000001c0  48 25 28 4a 25 2c 4b 25  29 3d 49 25 8b e5 8d 44  |H%(J%,K%)=I%...D|
000001d0  6e 40 0d 00 78 1b 20 20  ed 3a 43 48 25 28 b3 28  |n@..x.  .:CH%(.(|
000001e0  32 36 29 2a 32 2c 4b 25  29 3d 31 3a ed 0d 00 82  |26)*2,K%)=1:....|
000001f0  85 eb 35 3a ef 31 39 2c  31 2c 32 3b 30 3b 31 39  |..5:.19,1,2;0;19|
00000200  2c 32 2c 36 3b 30 3b 32  39 2c 36 34 30 3b 35 31  |,2,6;0;29,640;51|
00000210  32 3b 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |2;23;8202;0;0;0;|
00000220  35 3a fb 31 32 39 3a fb  30 3a f7 8d 64 46 4c 3a  |5:.129:.0:..dFL:|
00000230  e3 49 25 3d 30 b8 39 3a  f3 4e 41 4d 24 28 49 25  |.I%=0.9:.NAM$(I%|
00000240  29 3a ed 3a f2 42 4f 41  52 44 3a 59 25 3d b3 28  |):.:.BOARD:Y%=.(|
00000250  32 29 3a 41 24 3d 4e 24  28 59 25 29 2b 22 20 53  |2):A$=N$(Y%)+" S|
00000260  54 41 52 54 53 22 3a 59  3d 33 32 30 3a f2 54 45  |TARTS":Y=320:.TE|
00000270  58 54 0d 00 8c 0b ee 85  e5 8d 54 40 45 0d 00 96  |XT........T@E...|
00000280  09 f2 57 41 49 54 0d 00  a0 99 58 25 3d 59 25 3a  |..WAIT....X%=Y%:|
00000290  5a 25 3d 4f 50 4f 53 28  58 25 29 3a 4d 4f 28 58  |Z%=OPOS(X%):MO(X|
000002a0  25 29 3d a8 4d 4f 28 58  25 29 3a f2 41 54 28 5a  |%)=.MO(X%):.AT(Z|
000002b0  25 29 3a f2 4d 4f 4e 45  59 3a f2 57 41 52 4e 3a  |%):.MONEY:.WARN:|
000002c0  f7 8d 54 5a 4e 3a e3 49  25 3d 31 b8 38 3a f3 41  |..TZN:.I%=1.8:.A|
000002d0  24 3a ec 2d 33 33 36 2c  2d 33 32 2a 28 49 25 2b  |$:.-336,-32*(I%+|
000002e0  31 29 3a 41 24 3d c3 49  25 2b 22 20 22 2b 41 24  |1):A$=.I%+" "+A$|
000002f0  3a f2 50 52 49 4e 54 28  41 24 29 3a ed 3a ec 2d  |:.PRINT(A$):.:.-|
00000300  31 36 30 2c 2d 33 32 30  3a f2 50 52 49 4e 54 28  |160,-320:.PRINT(|
00000310  22 45 4e 54 45 52 20 43  48 4f 49 43 45 22 29 0d  |"ENTER CHOICE").|
00000320  00 aa 1d f2 57 41 49 54  3a 42 3d bb 41 24 3a e7  |....WAIT:B=.A$:.|
00000330  42 3c 31 84 42 3e 38 8c  8d 74 6a 40 0d 00 b4 2f  |B<1.B>8..tj@.../|
00000340  ee 42 20 e5 8d 74 7e 40  2c 8d 74 78 41 2c 8d 64  |.B ..t~@,.txA,.d|
00000350  42 41 2c 8d 64 60 41 2c  8d 64 7e 41 2c 8d 44 44  |BA,.d`A,.d~A,.DD|
00000360  42 2c 8d 54 42 43 2c 8d  44 52 43 0d 00 be 14 e7  |B,.TBC,.DRC.....|
00000370  b4 4d 4f 28 58 25 29 3d  2d 31 8c 8d 44 5c 43 0d  |.MO(X%)=-1..D\C.|
00000380  00 c8 18 e7 5a 25 3d 34  31 8c 8d 74 44 43 8b 49  |....Z%=41..tDC.I|
00000390  4a 28 58 25 29 3d 30 0d  00 d2 2e 44 31 3d b3 28  |J(X%)=0....D1=.(|
000003a0  36 29 3a 44 32 3d b3 28  36 29 3a e7 44 31 3c 3e  |6):D2=.(6):.D1<>|
000003b0  44 32 20 59 25 3d 33 2d  58 25 3a 44 4f 3d 30 3a  |D2 Y%=3-X%:DO=0:|
000003c0  e5 8d 64 66 40 0d 00 dc  11 59 25 3d 58 25 3a 44  |..df@....Y%=X%:D|
000003d0  4f 3d 44 4f 2b 31 0d 00  e6 09 f2 52 4f 4c 4c 0d  |O=DO+1.....ROLL.|
000003e0  00 f0 09 f2 57 41 49 54  0d 00 fa 15 4e 50 4f 53  |....WAIT....NPOS|
000003f0  28 58 25 29 3d 5a 25 3a  f2 4e 50 4f 53 0d 01 04  |(X%)=Z%:.NPOS...|
00000400  16 e7 41 3c 3e 31 38 80  41 3c 3e 31 31 f2 4d 4f  |..A<>18.A<>11.MO|
00000410  4e 45 59 0d 01 0e 27 e7  41 3d 31 37 5a 25 3d 34  |NEY...'.A=17Z%=4|
00000420  31 3a e5 8d 64 70 40 8b  e7 41 3c 3e 31 38 80 41  |1:..dp@..A<>18.A|
00000430  3c 3e 31 31 f2 4d 4f 4e  45 59 0d 01 18 18 e7 41  |<>11.MONEY.....A|
00000440  3d 31 30 f2 43 4f 4d 43  48 45 53 54 3a e5 8d 44  |=10.COMCHEST:..D|
00000450  70 43 0d 01 22 16 e7 41  3d 31 32 f2 43 48 41 4e  |pC.."..A=12.CHAN|
00000460  43 45 3a e5 8d 44 70 43  0d 01 2c 0b ee 85 e5 8d  |CE:..DpC..,.....|
00000470  54 40 45 0d 01 36 1c e7  41 3d 39 84 41 3d 31 35  |T@E..6..A=9.A=15|
00000480  84 41 3d 31 36 84 41 3d  31 39 8c 8d 74 56 40 0d  |.A=16.A=19..tV@.|
00000490  01 40 27 e7 41 3d 31 31  4d 4f 28 58 25 29 3d 4d  |.@'.A=11MO(X%)=M|
000004a0  4f 28 58 25 29 2d 32 30  30 3a f2 4d 4f 4e 45 59  |O(X%)-200:.MONEY|
000004b0  3a e5 8d 74 56 40 0d 01  4a 27 e7 41 3d 31 38 4d  |:..tV@..J'.A=18M|
000004c0  4f 28 58 25 29 3d 4d 4f  28 58 25 29 2d 31 30 30  |O(X%)=MO(X%)-100|
000004d0  3a f2 4d 4f 4e 45 59 3a  e5 8d 74 56 40 0d 01 54  |:.MONEY:..tV@..T|
000004e0  16 f2 47 45 54 44 41 28  5a 25 29 3a f3 44 2c 41  |..GETDA(Z%):.D,A|
000004f0  24 2c 41 0d 01 5e 0c e7  4e 25 8c 8d 44 7c 41 0d  |$,A..^..N%..D|A.|
00000500  01 68 3f ec 2d 33 33 36  2c 2d 39 36 3a f2 50 52  |.h?.-336,-96:.PR|
00000510  49 4e 54 28 22 44 4f 20  59 4f 55 20 57 41 4e 54  |INT("DO YOU WANT|
00000520  20 54 4f 20 42 55 59 20  49 54 22 29 3a f2 47 45  | TO BUY IT"):.GE|
00000530  54 3a e7 41 24 3d 22 4e  22 8c 8d 74 60 40 0d 01  |T:.A$="N"..t`@..|
00000540  72 3e 4d 4f 28 58 25 29  3d 4d 4f 28 58 25 29 2d  |r>MO(X%)=MO(X%)-|
00000550  41 3a 4c 4f 25 28 5a 25  29 3d 4c 4f 25 28 5a 25  |A:LO%(Z%)=LO%(Z%|
00000560  29 84 31 36 2a 58 25 3a  f2 54 49 54 4c 45 44 45  |).16*X%:.TITLEDE|
00000570  45 44 28 5a 25 29 3a e5  8d 74 56 40 0d 01 7c 22  |ED(Z%):..tV@..|"|
00000580  e7 4c 4f 25 28 5a 25 29  80 31 36 2a 58 25 84 4c  |.LO%(Z%).16*X%.L|
00000590  4f 25 28 5a 25 29 80 36  34 8c 8d 74 56 40 0d 01  |O%(Z%).64..tV@..|
000005a0  86 1b ec 2d 36 34 2c 2d  39 36 3a f2 50 52 49 4e  |...-64,-96:.PRIN|
000005b0  54 28 22 52 45 4e 54 22  29 0d 01 90 2a e7 44 3d  |T("RENT")...*.D=|
000005c0  31 33 f2 55 54 52 45 4e  54 3a e5 8d 74 6e 41 8b  |13.UTRENT:..tnA.|
000005d0  e7 44 3d 31 34 f2 53 54  4e 52 45 4e 54 3a e5 8d  |.D=14.STNRENT:..|
000005e0  74 6e 41 0d 01 9a 11 e3  49 25 3d 30 b8 4b 25 3a  |tnA.....I%=0.K%:|
000005f0  f3 41 3a ed 0d 01 a4 19  e7 4b 25 3d 30 f2 41 4c  |.A:......K%=0.AL|
00000600  4c 28 44 29 3a e7 42 20  41 3d 41 2a 32 0d 01 ae  |L(D):.B A=A*2...|
00000610  44 41 24 3d 22 60 22 2b  c3 41 3a 59 3d 2d 31 36  |DA$="`"+.A:Y=-16|
00000620  30 3a f2 54 45 58 54 3a  4d 4f 28 33 2d 58 25 29  |0:.TEXT:MO(3-X%)|
00000630  3d 4d 4f 28 33 2d 58 25  29 2b 41 3a 4d 4f 28 58  |=MO(3-X%)+A:MO(X|
00000640  25 29 3d 4d 4f 28 58 25  29 2d 41 3a e5 8d 74 56  |%)=MO(X%)-A:..tV|
00000650  40 0d 01 b8 0f f2 48 49  47 48 3a e5 8d 74 60 40  |@.....HIGH:..t`@|
00000660  0d 01 c2 35 f2 41 53 4b  3a e3 41 25 3d 31 b8 34  |...5.ASK:.A%=1.4|
00000670  30 3a f2 47 45 54 44 41  28 41 25 29 3a f3 41 3a  |0:.GETDA(A%):.A:|
00000680  e7 57 3d 30 8c 8d 64 4c  41 8b e7 41 3c 3e 57 20  |.W=0..dLA..A<>W |
00000690  8c 8d 64 56 41 0d 01 cc  3d 20 20 e7 4c 4f 25 28  |..dVA...=  .LO%(|
000006a0  41 25 29 80 28 58 25 2a  31 36 29 f2 50 52 4f 50  |A%).(X%*16).PROP|
000006b0  28 41 25 2c 31 29 3a e7  41 24 3d 22 54 22 f2 54  |(A%,1):.A$="T".T|
000006c0  49 54 4c 45 44 45 45 44  28 41 25 29 3a f2 57 41  |ITLEDEED(A%):.WA|
000006d0  49 54 0d 01 d6 0d 20 20  ed 3a e5 8d 74 60 40 0d  |IT....  .:..t`@.|
000006e0  01 e0 35 f2 41 53 4b 3a  e3 49 25 3d 31 b8 34 30  |..5.ASK:.I%=1.40|
000006f0  3a f2 47 45 54 44 41 28  49 25 29 3a f3 41 3a e7  |:.GETDA(I%):.A:.|
00000700  41 3e 38 80 41 3c 3e 31  33 80 41 3c 3e 31 34 8c  |A>8.A<>13.A<>14.|
00000710  8d 64 74 41 0d 01 ea 1a  20 20 e7 57 3d 30 84 57  |.dtA....  .W=0.W|
00000720  3d 41 20 f2 50 52 4f 50  28 49 25 2c 30 29 0d 01  |=A .PROP(I%,0)..|
00000730  f4 0d 20 20 ed 3a e5 8d  74 60 40 0d 01 fe 28 f2  |..  .:..t`@...(.|
00000740  43 4c 53 3a f2 47 45 54  50 52 4f 50 3a f2 43 4c  |CLS:.GETPROP:.CL|
00000750  53 3a f2 43 48 45 43 4b  31 3a e7 45 52 20 8c 8d  |S:.CHECK1:.ER ..|
00000760  74 56 40 0d 02 08 17 f2  43 48 45 43 4b 33 3a e7  |tV@.....CHECK3:.|
00000770  20 45 52 20 8c 20 8d 74  56 40 0d 02 12 85 f2 43  | ER . .tV@.....C|
00000780  48 45 43 4b 32 3a 41 24  3d 22 57 48 41 54 20 49  |HECK2:A$="WHAT I|
00000790  53 20 54 48 45 20 41 47  52 45 45 44 2f 53 45 4c  |S THE AGREED/SEL|
000007a0  4c 49 4e 47 20 50 52 49  43 45 22 3a 59 3d 32 32  |LING PRICE":Y=22|
000007b0  34 3a f2 54 45 58 54 3a  f2 49 4e 50 55 54 4e 3a  |4:.TEXT:.INPUTN:|
000007c0  4c 4f 25 28 41 29 3d 4c  4f 25 28 41 29 80 32 30  |LO%(A)=LO%(A).20|
000007d0  37 84 31 36 2a 28 33 2d  58 25 29 3a 4d 4f 28 58  |7.16*(3-X%):MO(X|
000007e0  25 29 3d 4d 4f 28 58 25  29 2b 42 3a 4d 4f 28 33  |%)=MO(X%)+B:MO(3|
000007f0  2d 58 25 29 3d 4d 4f 28  33 2d 58 25 29 2d 42 0d  |-X%)=MO(3-X%)-B.|
00000800  02 1c 17 e7 28 4c 4f 25  28 41 29 80 36 34 29 3d  |....(LO%(A).64)=|
00000810  30 8c 8d 54 7a 42 0d 02  26 6b f2 43 4c 53 3a 58  |0..TzB..&k.CLS:X|
00000820  25 3d 33 2d 58 25 3a 41  24 3d 4e 24 28 58 25 29  |%=3-X%:A$=N$(X%)|
00000830  2b 22 2f 44 4f 20 59 4f  55 20 57 41 4e 54 20 54  |+"/DO YOU WANT T|
00000840  4f 20 4c 49 46 54 2f 54  48 45 20 4d 4f 52 54 47  |O LIFT/THE MORTG|
00000850  41 47 45 20 4e 4f 57 22  3a 59 3d 33 32 30 3a f2  |AGE NOW":Y=320:.|
00000860  54 45 58 54 3a f2 47 45  54 3a e7 41 24 3d 22 59  |TEXT:.GET:.A$="Y|
00000870  22 f2 43 4c 53 3a 46 4c  25 3d 30 3a e5 8d 44 48  |".CLS:FL%=0:..DH|
00000880  43 0d 02 30 6d f2 47 45  54 44 41 28 41 29 3a f3  |C..0m.GETDA(A):.|
00000890  42 2c 41 24 2c 42 3a 41  24 3d 22 59 4f 55 20 53  |B,A$,B:A$="YOU S|
000008a0  54 49 4c 4c 20 48 41 56  45 20 54 4f 20 50 41 59  |TILL HAVE TO PAY|
000008b0  2f 49 4e 54 45 52 45 53  54 20 4f 46 20 60 22 2b  |/INTEREST OF `"+|
000008c0  c3 28 42 2a 2e 30 35 29  3a 4d 4f 28 58 25 29 3d  |.(B*.05):MO(X%)=|
000008d0  4d 4f 28 58 25 29 2d 42  2a 2e 30 35 3a 59 3d 31  |MO(X%)-B*.05:Y=1|
000008e0  39 32 3a f2 54 45 58 54  3a f2 57 41 49 54 0d 02  |92:.TEXT:.WAIT..|
000008f0  3a 1d f2 54 49 54 4c 45  44 45 45 44 28 41 29 3a  |:..TITLEDEED(A):|
00000900  f2 57 41 49 54 3a e5 8d  74 60 40 0d 02 44 54 e3  |.WAIT:..t`@..DT.|
00000910  49 25 3d 31 b8 33 3a 48  28 49 25 29 3d 30 3a ed  |I%=1.3:H(I%)=0:.|
00000920  3a f2 43 4c 53 3a 41 24  3d 22 44 4f 20 59 4f 55  |:.CLS:A$="DO YOU|
00000930  20 57 41 4e 54 20 54 4f  20 53 45 4c 4c 2f 42 55  | WANT TO SELL/BU|
00000940  49 4c 44 49 4e 47 53 22  3a 59 3d 33 32 30 3a f2  |ILDINGS":Y=320:.|
00000950  54 45 58 54 3a f2 47 45  54 3a 42 24 3d 41 24 0d  |TEXT:.GET:B$=A$.|
00000960  02 4e b6 f2 43 4c 53 3a  f2 47 45 54 43 4f 4c 28  |.N..CLS:.GETCOL(|
00000970  38 29 3a f2 43 4c 53 3a  f2 41 4c 4c 28 41 29 3a  |8):.CLS:.ALL(A):|
00000980  e7 42 3c 3e 58 25 41 24  3d 22 59 4f 55 20 44 4f  |.B<>X%A$="YOU DO|
00000990  20 4e 4f 54 20 48 41 56  45 20 54 48 45 2f 45 4e  | NOT HAVE THE/EN|
000009a0  54 49 52 45 20 47 52 4f  55 50 2f 4f 52 20 50 41  |TIRE GROUP/OR PA|
000009b0  52 54 20 4f 46 20 54 48  45 20 47 52 4f 55 50 2f  |RT OF THE GROUP/|
000009c0  49 53 20 4d 4f 52 54 47  41 47 45 44 22 3a 59 3d  |IS MORTGAGED":Y=|
000009d0  33 32 30 3a f2 54 45 58  54 3a e5 8d 74 56 40 8b  |320:.TEXT:..tV@.|
000009e0  41 24 3d 22 45 58 49 53  54 49 4e 47 20 42 55 49  |A$="EXISTING BUI|
000009f0  4c 44 49 4e 47 53 2f 41  4e 44 20 50 52 4f 50 45  |LDINGS/AND PROPE|
00000a00  52 54 59 20 4e 41 4d 45  22 3a 59 3d 33 32 30 3a  |RTY NAME":Y=320:|
00000a10  f2 54 45 58 54 0d 02 58  bb 47 25 3d 30 3a 50 52  |.TEXT..X.G%=0:PR|
00000a20  28 33 29 3d 2d 31 3a 4a  25 3d 30 3a e3 49 25 3d  |(3)=-1:J%=0:.I%=|
00000a30  31 b8 34 30 3a f2 47 45  54 44 41 28 49 25 29 3a  |1.40:.GETDA(I%):|
00000a40  f3 57 3a e7 57 3d 41 20  42 3d 4c 4f 25 28 49 25  |.W:.W=A B=LO%(I%|
00000a50  29 80 37 3a 4a 25 3d 4a  25 2b 31 3a 50 52 28 4a  |).7:J%=J%+1:PR(J|
00000a60  25 29 3d 42 3a 50 52 32  28 4a 25 29 3d 49 25 3a  |%)=B:PR2(J%)=I%:|
00000a70  f3 41 24 2c 52 25 2c 52  25 2c 52 25 2c 52 25 2c  |.A$,R%,R%,R%,R%,|
00000a80  52 25 2c 52 25 2c 52 25  2c 52 25 3a f2 53 50 41  |R%,R%,R%,R%:.SPA|
00000a90  43 45 53 28 31 29 3a f2  4e 4f 52 54 48 3a 50 52  |CES(1):.NORTH:PR|
00000aa0  24 28 4a 25 29 3d 4e 24  3a ec 51 25 2c 32 35 36  |$(J%)=N$:.Q%,256|
00000ab0  2d 33 32 2a 4a 25 3a f2  50 52 49 4e 54 28 50 24  |-32*J%:.PRINT(P$|
00000ac0  28 50 52 28 4a 25 29 29  2b 22 20 22 2b 4e 24 29  |(PR(J%))+" "+N$)|
00000ad0  0d 02 62 0d ed 3a ee 85  e5 8d 44 46 45 0d 02 6c  |..b..:....DFE..l|
00000ae0  3a e7 42 24 3d 22 59 22  8c 8d 74 5e 42 8b 41 24  |:.B$="Y"..t^B.A$|
00000af0  3d 22 48 4f 55 53 45 53  20 43 4f 53 54 20 60 22  |="HOUSES COST `"|
00000b00  2b c3 52 25 2b 22 20 45  41 43 48 22 3a 59 3d 39  |+.R%+" EACH":Y=9|
00000b10  36 3a f2 54 45 58 54 0d  02 76 3b 41 24 3d 22 48  |6:.TEXT..v;A$="H|
00000b20  4f 57 20 4d 41 4e 59 20  48 4f 55 53 45 53 20 44  |OW MANY HOUSES D|
00000b30  4f 2f 59 4f 55 20 57 41  4e 54 20 54 4f 20 42 55  |O/YOU WANT TO BU|
00000b40  49 4c 44 20 4f 4e 22 3a  59 3d 33 32 3a f2 54 45  |ILD ON":Y=32:.TE|
00000b50  58 54 0d 02 80 0c e3 49  25 3d 31 b8 4a 25 0d 02  |XT.....I%=1.J%..|
00000b60  8a 4d 20 20 f2 47 45 54  48 4f 55 53 45 53 3a 48  |.M  .GETHOUSES:H|
00000b70  28 49 25 29 3d 42 3a e7  50 52 28 49 25 29 2b 42  |(I%)=B:.PR(I%)+B|
00000b80  3e 35 ec 2d 31 32 38 2c  2d 31 39 32 3a f2 50 52  |>5.-128,-192:.PR|
00000b90  49 4e 54 28 22 54 4f 4f  20 4d 41 4e 59 22 29 3a  |INT("TOO MANY"):|
00000ba0  f2 57 41 49 54 3a e5 8d  74 4a 42 0d 02 94 09 e5  |.WAIT:..tJB.....|
00000bb0  8d 64 46 42 0d 02 9e 34  52 25 3d 2d 52 25 2f 32  |.dFB...4R%=-R%/2|
00000bc0  3a 41 24 3d 22 48 4f 55  53 45 53 20 41 52 45 20  |:A$="HOUSES ARE |
00000bd0  57 4f 52 54 48 20 60 22  2b c3 2d 52 25 3a 59 3d  |WORTH `"+.-R%:Y=|
00000be0  39 36 3a f2 54 45 58 54  0d 02 a8 3c 41 24 3d 22  |96:.TEXT...<A$="|
00000bf0  48 4f 57 20 4d 41 4e 59  20 48 4f 55 53 45 53 20  |HOW MANY HOUSES |
00000c00  44 4f 2f 59 4f 55 20 57  41 4e 54 20 52 45 4d 4f  |DO/YOU WANT REMO|
00000c10  56 45 44 20 46 52 4f 4d  22 3a 59 3d 33 32 3a f2  |VED FROM":Y=32:.|
00000c20  54 45 58 54 0d 02 b2 0c  e3 49 25 3d 31 b8 4a 25  |TEXT.....I%=1.J%|
00000c30  0d 02 bc 4b f2 47 45 54  48 4f 55 53 45 53 3a 48  |...K.GETHOUSES:H|
00000c40  28 49 25 29 3d 42 3a e7  50 52 28 49 25 29 2d 42  |(I%)=B:.PR(I%)-B|
00000c50  3c 30 ec 2d 31 32 38 2c  2d 31 39 32 3a f2 50 52  |<0.-128,-192:.PR|
00000c60  49 4e 54 28 22 54 4f 4f  20 4d 41 4e 59 22 29 3a  |INT("TOO MANY"):|
00000c70  f2 57 41 49 54 3a e5 8d  74 7c 42 0d 02 c6 05 ed  |.WAIT:..t|B.....|
00000c80  0d 02 d0 33 4c 25 3d 35  3a 48 25 3d 30 3a e3 49  |...3L%=5:H%=0:.I|
00000c90  25 3d 31 b8 4a 25 3a 41  3d 50 52 28 49 25 29 2b  |%=1.J%:A=PR(I%)+|
00000ca0  b4 52 25 2a 48 28 49 25  29 3a e7 41 3c 4c 25 4c  |.R%*H(I%):.A<L%L|
00000cb0  25 3d 41 0d 02 da 0d e7  41 3e 48 25 48 25 3d 41  |%=A.....A>H%H%=A|
00000cc0  0d 02 e4 7f ed 3a e7 48  25 2d 4c 25 3e 31 41 24  |.....:.H%-L%>1A$|
00000cd0  3d 22 42 55 49 4c 44 49  4e 47 53 20 41 52 45 20  |="BUILDINGS ARE |
00000ce0  4e 4f 54 2f 44 49 53 54  52 49 42 55 54 45 44 20  |NOT/DISTRIBUTED |
00000cf0  45 56 45 4e 4c 59 22 3a  59 3d 2d 31 39 32 3a f2  |EVENLY":Y=-192:.|
00000d00  54 45 58 54 3a f2 57 41  49 54 3a e6 30 2c 31 3a  |TEXT:.WAIT:.0,1:|
00000d10  f2 48 42 41 52 28 2d 33  32 30 2c 2d 36 34 2c 2d  |.HBAR(-320,-64,-|
00000d20  32 35 36 29 3a e6 30 2c  30 3a ee b4 52 25 2b 32  |256):.0,0:..R%+2|
00000d30  e5 8d 74 72 42 2c 8d 54  40 40 2c 8d 74 40 42 0d  |..trB,.T@@,.t@B.|
00000d40  02 ee 5e e3 49 25 3d 31  b8 4a 25 3a 4c 4f 25 28  |..^.I%=1.J%:LO%(|
00000d50  50 52 32 28 49 25 29 29  3d 4c 4f 25 28 50 52 32  |PR2(I%))=LO%(PR2|
00000d60  28 49 25 29 29 80 32 34  38 84 28 50 52 28 49 25  |(I%)).248.(PR(I%|
00000d70  29 2b b4 52 25 2a 48 28  49 25 29 29 3a 4d 4f 28  |)+.R%*H(I%)):MO(|
00000d80  58 25 29 3d 4d 4f 28 58  25 29 2d 52 25 2a 48 28  |X%)=MO(X%)-R%*H(|
00000d90  49 25 29 3a ed 3a ee 85  e5 8d 54 40 45 0d 02 f8  |I%):.:....T@E...|
00000da0  09 e5 8d 74 60 40 0d 03  02 49 46 4c 25 3d 31 3a  |...t`@...IFL%=1:|
00000db0  f2 43 4c 53 3a 41 24 3d  22 44 4f 20 59 4f 55 20  |.CLS:A$="DO YOU |
00000dc0  57 41 4e 54 20 54 4f 20  4c 49 46 54 2f 41 20 4d  |WANT TO LIFT/A M|
00000dd0  4f 52 54 47 41 47 45 22  3a 59 3d 33 32 30 3a f2  |ORTGAGE":Y=320:.|
00000de0  54 45 58 54 3a f2 47 45  54 3a 42 24 3d 41 24 0d  |TEXT:.GET:B$=A$.|
00000df0  03 0c 29 f2 47 45 54 50  52 4f 50 3a f2 43 4c 53  |..).GETPROP:.CLS|
00000e00  3a f2 43 48 45 43 4b 31  3a e7 45 52 20 f2 57 41  |:.CHECK1:.ER .WA|
00000e10  49 54 3a e5 8d 54 4c 43  0d 03 16 10 e7 42 24 3d  |IT:..TLC.....B$=|
00000e20  22 59 22 8c 8d 54 7e 43  0d 03 20 1c f2 43 48 45  |"Y"..T~C.. ..CHE|
00000e30  43 4b 32 3a e7 20 45 52  20 f2 57 41 49 54 3a e5  |CK2:. ER .WAIT:.|
00000e40  8d 54 4c 43 0d 03 2a 1c  f2 43 48 45 43 4b 33 3a  |.TLC..*..CHECK3:|
00000e50  e7 20 45 52 20 f2 57 41  49 54 3a e5 8d 54 4c 43  |. ER .WAIT:..TLC|
00000e60  0d 03 34 52 4c 4f 25 28  41 29 3d 4c 4f 25 28 41  |..4RLO%(A)=LO%(A|
00000e70  29 84 36 34 3a f2 47 45  54 44 41 28 41 29 3a f3  |).64:.GETDA(A):.|
00000e80  42 2c 41 24 2c 42 3a 4d  4f 28 58 25 29 3d 4d 4f  |B,A$,B:MO(X%)=MO|
00000e90  28 58 25 29 2b 42 2f 32  3a f2 54 49 54 4c 45 44  |(X%)+B/2:.TITLED|
00000ea0  45 45 44 28 41 29 3a f2  57 41 49 54 3a e5 8d 54  |EED(A):.WAIT:..T|
00000eb0  4c 43 0d 03 3e 1c f2 43  48 45 43 4b 34 3a e7 20  |LC..>..CHECK4:. |
00000ec0  45 52 20 f2 57 41 49 54  3a e5 8d 54 4c 43 0d 03  |ER .WAIT:..TLC..|
00000ed0  48 5f 4c 4f 25 28 41 29  3d 4c 4f 25 28 41 29 80  |H_LO%(A)=LO%(A).|
00000ee0  31 39 31 3a f2 47 45 54  44 41 28 41 29 3a f3 42  |191:.GETDA(A):.B|
00000ef0  2c 41 24 2c 42 3a 4d 4f  28 58 25 29 3d 4d 4f 28  |,A$,B:MO(X%)=MO(|
00000f00  58 25 29 2d 2e 35 35 2a  42 3a f2 54 49 54 4c 45  |X%)-.55*B:.TITLE|
00000f10  44 45 45 44 28 41 29 3a  f2 57 41 49 54 3a e7 46  |DEED(A):.WAIT:.F|
00000f20  4c 25 8c 8d 54 4c 43 8b  e5 8d 74 60 40 0d 03 52  |L%..TLC...t`@..R|
00000f30  62 f2 43 4c 53 3a 41 24  3d 22 41 52 45 20 59 4f  |b.CLS:A$="ARE YO|
00000f40  55 20 53 55 52 45 20 59  4f 55 2f 57 41 4e 54 20  |U SURE YOU/WANT |
00000f50  54 4f 20 45 4e 44 2f 20  2f 59 4f 55 20 57 49 4c  |TO END/ /YOU WIL|
00000f60  4c 20 4c 4f 53 45 2f 49  46 20 59 4f 55 20 44 4f  |L LOSE/IF YOU DO|
00000f70  22 3a 59 3d 33 32 30 3a  f2 54 45 58 54 3a f2 47  |":Y=320:.TEXT:.G|
00000f80  45 54 3a e7 41 24 3d 22  4e 22 8c 8d 74 60 40 0d  |ET:.A$="N"..t`@.|
00000f90  03 5c 43 f2 43 4c 53 3a  41 24 3d 4e 24 28 33 2d  |.\C.CLS:A$=N$(3-|
00000fa0  58 25 29 2b 22 2f 20 2f  49 53 20 54 48 45 20 57  |X%)+"/ /IS THE W|
00000fb0  49 4e 4e 45 52 22 3a 59  3d 33 32 30 3a f2 54 45  |INNER":Y=320:.TE|
00000fc0  58 54 3a f2 57 41 49 54  3a eb 37 3a 2a 46 58 34  |XT:.WAIT:.7:*FX4|
00000fd0  2c 30 0d 03 66 05 e0 0d  03 70 15 e7 4d 56 20 8c  |,0..f....p..MV .|
00000fe0  8d 64 70 40 8b ee 85 e5  8d 54 40 45 0d 03 7a 1e  |.dp@.....T@E..z.|
00000ff0  f2 57 41 49 54 3a f2 41  54 28 5a 25 29 3a f2 4d  |.WAIT:.AT(Z%):.M|
00001000  4f 4e 45 59 3a e5 8d 74  56 40 0d 03 84 82 44 4f  |ONEY:..tV@....DO|
00001010  3d 30 3a 49 4a 28 58 25  29 3d 49 4a 28 58 25 29  |=0:IJ(X%)=IJ(X%)|
00001020  2b 31 3a e6 30 2c 31 3a  f2 48 42 41 52 28 33 35  |+1:.0,1:.HBAR(35|
00001030  32 2c 2d 36 34 2c 2d 33  35 36 29 3a e6 30 2c 30  |2,-64,-356):.0,0|
00001040  3a 4e 24 3d 22 59 4f 55  20 41 52 45 20 49 4e 20  |:N$="YOU ARE IN |
00001050  4a 41 49 4c 22 3a f2 43  45 4e 54 52 45 3a ec 58  |JAIL":.CENTRE:.X|
00001060  2c 2d 36 34 3a f2 50 52  49 4e 54 28 4e 24 29 3a  |,-64:.PRINT(N$):|
00001070  f7 8d 54 64 4e 3a 41 3d  33 3a 42 3d 32 3a e7 47  |..TdN:A=3:B=2:.G|
00001080  4a 28 58 25 29 41 3d 35  3a 42 3d 33 0d 03 8e 55  |J(X%)A=5:B=3...U|
00001090  e3 49 25 3d 31 b8 41 3a  f3 41 24 3a ec 2d 33 32  |.I%=1.A:.A$:.-32|
000010a0  30 2c 2d 33 32 2a 28 49  25 2b 33 29 3a f2 50 52  |0,-32*(I%+3):.PR|
000010b0  49 4e 54 28 41 24 29 3a  ed 3a ec 2d 31 36 30 2c  |INT(A$):.:.-160,|
000010c0  2d 33 32 2a 28 49 25 2b  34 29 3a f2 50 52 49 4e  |-32*(I%+4):.PRIN|
000010d0  54 28 22 45 4e 54 45 52  20 43 48 4f 49 43 45 22  |T("ENTER CHOICE"|
000010e0  29 0d 03 98 20 f2 57 41  49 54 3a 41 3d bb 28 41  |)... .WAIT:A=.(A|
000010f0  24 29 3a e7 41 3c 31 84  41 3e 42 20 8c 8d 74 58  |$):.A<1.A>B ..tX|
00001100  43 0d 03 a2 16 ee 41 20  e5 8d 74 6c 43 2c 8d 64  |C.....A ..tlC,.d|
00001110  40 43 2c 8d 64 72 43 0d  03 ac 14 4d 4f 28 58 25  |@C,.drC....MO(X%|
00001120  29 3d 4d 4f 28 58 25 29  2d 35 30 0d 03 b6 2c 59  |)=MO(X%)-50...,Y|
00001130  25 3d 33 2d 58 25 3a 49  4a 28 58 25 29 3d 30 3a  |%=3-X%:IJ(X%)=0:|
00001140  4f 50 4f 53 28 58 25 29  3d 31 31 3a 5a 25 3d 31  |OPOS(X%)=11:Z%=1|
00001150  31 3a e5 8d 64 52 40 0d  03 c0 31 44 31 3d b3 28  |1:..dR@...1D1=.(|
00001160  36 29 3a 44 32 3d b3 28  36 29 3a f2 52 4f 4c 4c  |6):D2=.(6):.ROLL|
00001170  3a e7 44 31 3d 44 32 20  59 25 3d 58 25 3a 44 4f  |:.D1=D2 Y%=X%:DO|
00001180  3d 31 3a e5 8d 64 5e 43  0d 03 ca 4d 59 25 3d 33  |=1:..d^C...MY%=3|
00001190  2d 58 25 3a e7 49 4a 28  58 25 29 3d 33 41 24 3d  |-X%:.IJ(X%)=3A$=|
000011a0  22 59 4f 55 20 4d 55 53  54 20 50 41 59 20 60 35  |"YOU MUST PAY `5|
000011b0  30 22 3a 59 3d 31 39 32  3a f2 54 45 58 54 3a 4d  |0":Y=192:.TEXT:M|
000011c0  4f 28 58 25 29 3d 4d 4f  28 58 25 29 2d 35 30 3a  |O(X%)=MO(X%)-50:|
000011d0  e5 8d 64 68 43 0d 03 d4  09 e5 8d 74 56 40 0d 03  |..dhC......tV@..|
000011e0  de 09 59 25 3d 58 25 0d  03 e8 2a 4f 50 4f 53 28  |..Y%=X%...*OPOS(|
000011f0  58 25 29 3d 31 31 3a 5a  25 3d 31 31 2b 44 31 2b  |X%)=11:Z%=11+D1+|
00001200  44 32 3a 49 4a 28 58 25  29 3d 30 3a e5 8d 64 70  |D2:IJ(X%)=0:..dp|
00001210  40 0d 03 f2 45 47 4a 28  58 25 29 3d 47 4a 28 58  |@...EGJ(X%)=GJ(X|
00001220  25 29 2d 31 3a e7 4a 43  28 30 29 3d 58 25 4a 25  |%)-1:.JC(0)=X%J%|
00001230  3d 30 8b 4a 25 3d 31 3a  4a 43 28 4a 25 29 3d 30  |=0.J%=1:JC(J%)=0|
00001240  3a 49 25 3d 43 48 50 28  4a 25 29 3a e7 49 25 3d  |:I%=CHP(J%):.I%=|
00001250  30 49 25 3d 35 32 0d 03  fc 10 43 48 25 28 49 25  |0I%=52....CH%(I%|
00001260  2c 4a 25 29 3d 31 0d 04  06 09 e5 8d 74 76 43 0d  |,J%)=1......tvC.|
00001270  04 10 35 dd f2 47 45 54  50 52 4f 50 3a f2 47 45  |..5..GETPROP:.GE|
00001280  54 43 4f 4c 28 31 30 29  3a f2 43 4c 53 3a 57 3d  |TCOL(10):.CLS:W=|
00001290  41 3a e7 41 3d 39 57 3d  31 34 8b e7 41 3d 31 30  |A:.A=9W=14..A=10|
000012a0  57 3d 31 33 0d 04 1a 76  4a 25 3d 30 3a e3 49 25  |W=13...vJ%=0:.I%|
000012b0  3d 31 b8 34 30 3a f2 47  45 54 44 41 28 49 25 29  |=1.40:.GETDA(I%)|
000012c0  3a f3 41 3a e7 57 3d 41  20 f3 20 41 24 3a f2 53  |:.A:.W=A . A$:.S|
000012d0  50 41 43 45 53 28 31 29  3a f2 4e 4f 52 54 48 3a  |PACES(1):.NORTH:|
000012e0  4a 25 3d 4a 25 2b 31 3a  4e 24 3d c3 4a 25 2b 22  |J%=J%+1:N$=.J%+"|
000012f0  20 22 2b 4e 24 3a ec 2d  33 32 30 2c 33 35 32 2d  | "+N$:.-320,352-|
00001300  4a 25 2a 33 32 3a f2 50  52 49 4e 54 28 4e 24 29  |J%*32:.PRINT(N$)|
00001310  3a 50 52 28 4a 25 29 3d  49 25 0d 04 24 2c ed 3a  |:PR(J%)=I%..$,.:|
00001320  ec 2d 33 32 30 2c 32 38  38 2d 33 32 2a 4a 25 3a  |.-320,288-32*J%:|
00001330  f2 50 52 49 4e 54 28 22  45 4e 54 45 52 20 43 48  |.PRINT("ENTER CH|
00001340  4f 49 43 45 22 29 0d 04  2e 1e f2 57 41 49 54 3a  |OICE").....WAIT:|
00001350  41 3d bb 41 24 3a e7 41  3c 31 84 41 3e 4a 25 8c  |A=.A$:.A<1.A>J%.|
00001360  8d 54 6e 44 0d 04 38 0d  41 3d 50 52 28 41 29 3a  |.TnD..8.A=PR(A):|
00001370  e1 0d 04 42 57 dd f2 43  48 45 43 4b 31 3a 45 52  |...BW..CHECK1:ER|
00001380  3d 30 3a e7 28 4c 4f 25  28 41 29 80 34 38 29 2f  |=0:.(LO%(A).48)/|
00001390  31 36 3c 3e 58 25 41 24  3d 22 59 4f 55 20 44 4f  |16<>X%A$="YOU DO|
000013a0  20 4e 4f 54 20 4f 57 4e  20 54 48 49 53 2f 50 52  | NOT OWN THIS/PR|
000013b0  4f 50 45 52 54 59 22 3a  59 3d 33 32 30 3a f2 54  |OPERTY":Y=320:.T|
000013c0  45 58 54 3a 45 52 3d 31  0d 04 4c 05 e1 0d 04 56  |EXT:ER=1..L....V|
000013d0  4c dd f2 43 48 45 43 4b  32 3a 45 52 3d 30 3a e7  |L..CHECK2:ER=0:.|
000013e0  4c 4f 25 28 41 29 80 36  34 41 24 3d 22 54 48 49  |LO%(A).64A$="THI|
000013f0  53 20 50 52 4f 50 45 52  54 59 20 49 53 2f 4d 4f  |S PROPERTY IS/MO|
00001400  52 54 47 41 47 45 44 22  3a 59 3d 33 32 30 3a f2  |RTGAGED":Y=320:.|
00001410  54 45 58 54 3a 45 52 3d  31 0d 04 60 05 e1 0d 04  |TEXT:ER=1..`....|
00001420  6a 51 dd f2 43 48 45 43  4b 33 3a 45 52 3d 30 3a  |jQ..CHECK3:ER=0:|
00001430  e7 4c 4f 25 28 41 29 80  37 41 24 3d 22 54 48 45  |.LO%(A).7A$="THE|
00001440  52 45 20 41 52 45 20 42  55 49 4c 44 49 4e 47 53  |RE ARE BUILDINGS|
00001450  2f 4f 4e 20 54 48 49 53  20 53 49 54 45 22 3a 59  |/ON THIS SITE":Y|
00001460  3d 33 32 30 3a f2 54 45  58 54 3a 45 52 3d 31 0d  |=320:.TEXT:ER=1.|
00001470  04 74 05 e1 0d 04 7e 54  dd f2 43 48 45 43 4b 34  |.t....~T..CHECK4|
00001480  3a 45 52 3d 30 3a e7 28  4c 4f 25 28 41 29 80 36  |:ER=0:.(LO%(A).6|
00001490  34 29 3d 30 41 24 3d 22  54 48 49 53 20 50 52 4f  |4)=0A$="THIS PRO|
000014a0  50 45 52 54 59 20 49 53  2f 4e 4f 54 20 4d 4f 52  |PERTY IS/NOT MOR|
000014b0  54 47 41 47 45 44 22 3a  59 3d 33 32 30 3a f2 54  |TGAGED":Y=320:.T|
000014c0  45 58 54 3a 45 52 3d 31  0d 04 88 05 e1 0d 04 92  |EXT:ER=1........|
000014d0  29 dd f2 49 4e 50 55 54  4e 3a 58 3d 2d 39 36 3a  |)..INPUTN:X=-96:|
000014e0  59 3d 31 32 38 3a f2 54  59 50 45 28 22 60 22 29  |Y=128:.TYPE("`")|
000014f0  3a 58 3d 2d 36 34 0d 04  9c 46 ec 58 2c 59 3a f2  |:X=-64...F.X,Y:.|
00001500  49 4e 50 55 54 3a 42 3d  bb 42 24 3a e7 42 24 3c  |INPUT:B=.B$:.B$<|
00001510  3e c3 42 20 84 20 42 3e  39 39 39 39 20 8c e6 30  |>.B . B>9999 ..0|
00001520  2c 31 3a ec 58 2c 59 3a  f2 54 59 50 45 28 42 24  |,1:.X,Y:.TYPE(B$|
00001530  29 3a e6 30 2c 30 3a e5  8d 74 5c 44 0d 04 a6 05  |):.0,0:..t\D....|
00001540  e1 0d 04 b0 22 dd f2 49  4e 50 55 54 54 45 58 54  |...."..INPUTTEXT|
00001550  3a ec 2d 31 36 30 2c 32  32 34 3a f2 49 4e 50 55  |:.-160,224:.INPU|
00001560  54 3a e1 0d 04 ba 11 dd  f2 49 4e 50 55 54 3a 42  |T:.......INPUT:B|
00001570  24 3d 22 22 0d 04 c4 17  f2 57 41 49 54 3a e7 97  |$="".....WAIT:..|
00001580  41 24 3c 3e 31 33 8c 8d  64 58 44 0d 04 ce 11 e7  |A$<>13..dXD.....|
00001590  42 24 3d 22 22 8c 8d 64  44 44 8b e1 0d 04 d8 50  |B$=""..dDD.....P|
000015a0  e7 97 41 24 3d 31 32 37  80 a9 42 24 3e 30 e6 30  |..A$=127..B$>0.0|
000015b0  2c 31 3a f0 30 2c 2d 33  32 2c 30 3a f2 50 52 49  |,1:.0,-32,0:.PRI|
000015c0  4e 54 28 c2 42 24 2c 31  29 29 3a 42 24 3d c0 42  |NT(.B$,1)):B$=.B|
000015d0  24 2c a9 42 24 2d 31 29  3a e6 30 2c 30 3a f0 30  |$,.B$-1):.0,0:.0|
000015e0  2c 2d 33 32 2c 30 3a e5  8d 64 44 44 0d 04 e2 1b  |,-32,0:..dDD....|
000015f0  e7 a7 4f 4b 24 2c 41 24  29 3d 30 84 a9 42 24 3d  |..OK$,A$)=0..B$=|
00001600  31 30 8c 8d 64 44 44 0d  04 ec 1d 42 24 3d 42 24  |10..dDD....B$=B$|
00001610  2b 41 24 3a f2 50 52 49  4e 54 28 41 24 29 3a e5  |+A$:.PRINT(A$):.|
00001620  8d 64 44 44 0d 04 f6 65  dd f2 47 45 54 48 4f 55  |.dDD...e..GETHOU|
00001630  53 45 53 3a e6 30 2c 31  3a f2 48 42 41 52 28 33  |SES:.0,1:.HBAR(3|
00001640  32 30 2c 2d 36 34 2c 2d  32 35 36 29 3a e6 30 2c  |20,-64,-256):.0,|
00001650  30 3a 4e 24 3d 50 52 24  28 49 25 29 3a f2 43 45  |0:N$=PR$(I%):.CE|
00001660  4e 54 52 45 3a ec 58 2c  2d 36 34 3a f2 50 52 49  |NTRE:.X,-64:.PRI|
00001670  4e 54 28 4e 24 29 3a 58  3d 2d 33 32 3a 59 3d 2d  |NT(N$):X=-32:Y=-|
00001680  31 32 38 3a e5 8d 74 5c  44 0d 05 00 0e e7 9f 3d  |128:..t\D......=|
00001690  31 37 8c 8d 74 60 40 0d  05 0a 1f eb 36 3a f6 3a  |17..t`@.....6:.:|
000016a0  f1 22 20 69 6e 20 6c 69  6e 65 20 22 3b 9e 3a 2a  |." in line ";.:*|
000016b0  46 58 20 34 2c 30 0d 05  14 05 e0 0d 05 1e 0f e7  |FX 4,0..........|
000016c0  9f 3c 3e 31 37 8c 8d 54  4a 45 0d 05 28 13 f2 55  |.<>17..TJE..(..U|
000016d0  4e 48 49 47 48 3a ee 85  e5 8d 54 40 45 0d 05 32  |NHIGH:....T@E..2|
000016e0  09 e5 8d 74 60 40 0d 05  3c 14 e7 9f 3d 31 37 8c  |...t`@..<...=17.|
000016f0  8d 64 7a 40 8b e5 8d 54  4a 45 0d 05 46 14 e7 9f  |.dz@...TJE..F...|
00001700  3d 31 37 8c 8d 64 50 42  8b e5 8d 54 4a 45 0d 05  |=17..dPB...TJE..|
00001710  50 11 e7 9f 3d 31 37 f9  20 8b e5 8d 54 4a 45 0d  |P...=17. ...TJE.|
00001720  05 5a 68 dd f2 42 4f 41  52 44 3a e6 30 2c 31 3a  |.Zh..BOARD:.0,1:|
00001730  f2 53 42 41 52 28 35 31  32 2c 35 31 32 29 3a e6  |.SBAR(512,512):.|
00001740  30 2c 32 3a f2 53 42 41  52 28 34 38 30 2c 34 38  |0,2:.SBAR(480,48|
00001750  30 29 3a e6 30 2c 31 3a  f2 53 42 41 52 28 33 36  |0):.0,1:.SBAR(36|
00001760  30 2c 33 36 30 29 3a e6  30 2c 30 3a f2 42 4f 58  |0,360):.0,0:.BOX|
00001770  28 34 38 30 2c 34 38 30  29 3a f2 42 4f 58 28 33  |(480,480):.BOX(3|
00001780  36 30 2c 33 36 30 29 0d  05 64 50 e3 59 3d 2d 33  |60,360)..dP.Y=-3|
00001790  36 30 b8 33 36 30 88 38  30 3a ec 2d 34 38 30 2c  |60.360.80:.-480,|
000017a0  59 3a df 2d 33 36 30 2c  59 3a ec 59 2c 34 38 30  |Y:.-360,Y:.Y,480|
000017b0  3a df 59 2c 33 36 30 3a  ec 34 38 30 2c 59 3a df  |:.Y,360:.480,Y:.|
000017c0  33 36 30 2c 59 3a ec 59  2c 2d 34 38 30 3a df 59  |360,Y:.Y,-480:.Y|
000017d0  2c 2d 33 36 30 3a ed 0d  05 6e 3b e3 49 25 3d 31  |,-360:...n;.I%=1|
000017e0  b8 34 30 3a f2 47 45 54  44 41 28 49 25 29 3a f3  |.40:.GETDA(I%):.|
000017f0  41 3a f2 4c 4f 43 28 49  25 29 3a e7 41 3c 39 f2  |A:.LOC(I%):.A<9.|
00001800  53 4d 42 4f 58 28 49 25  29 8b f2 4e 41 4d 28 49  |SMBOX(I%)..NAM(I|
00001810  25 29 0d 05 78 89 ed 3a  47 41 3d 30 3a e3 58 25  |%)..x..:GA=0:.X%|
00001820  3d 31 b8 32 3a 4d 4f 28  58 25 29 3d 31 35 30 30  |=1.2:MO(X%)=1500|
00001830  3a f2 43 4c 53 3a 41 24  3d 22 57 48 41 54 20 49  |:.CLS:A$="WHAT I|
00001840  53 20 54 48 45 20 4e 41  4d 45 20 4f 46 2f 50 4c  |S THE NAME OF/PL|
00001850  41 59 45 52 20 22 2b c3  58 25 3a 59 3d 33 32 30  |AYER "+.X%:Y=320|
00001860  3a f2 54 45 58 54 3a f2  49 4e 50 55 54 54 45 58  |:.TEXT:.INPUTTEX|
00001870  54 3a 4e 24 28 58 25 29  3d 42 24 3a 4f 50 4f 53  |T:N$(X%)=B$:OPOS|
00001880  28 58 25 29 3d 34 30 3a  5a 25 3d 31 3a f2 4e 50  |(X%)=40:Z%=1:.NP|
00001890  4f 53 3a ed 3a 47 41 3d  31 3a e1 0d 05 82 33 dd  |OS:.:GA=1:....3.|
000018a0  f2 53 42 41 52 28 58 2c  59 29 ec 58 2c 59 3a ec  |.SBAR(X,Y).X,Y:.|
000018b0  58 2c 2d 59 3a f0 38 35  2c 2d 58 2c 2d 59 3a ec  |X,-Y:.85,-X,-Y:.|
000018c0  2d 58 2c 59 3a f0 38 35  2c 58 2c 59 3a e1 0d 05  |-X,Y:.85,X,Y:...|
000018d0  8c 2c dd f2 42 4f 58 28  58 2c 59 29 ec 58 2c 59  |.,..BOX(X,Y).X,Y|
000018e0  3a df 58 2c 2d 59 3a df  2d 58 2c 2d 59 3a df 2d  |:.X,-Y:.-X,-Y:.-|
000018f0  58 2c 59 3a df 58 2c 59  3a e1 0d 05 96 40 dd f2  |X,Y:.X,Y:....@..|
00001900  4c 4f 43 28 49 25 29 53  3d 28 49 25 2d 31 29 83  |LOC(I%)S=(I%-1).|
00001910  31 30 2a 38 30 2d 33 36  30 3a ee 28 49 25 2d 31  |10*80-360:.(I%-1|
00001920  29 81 31 30 2b 31 e5 8d  74 60 45 2c 8d 74 6a 45  |).10+1..t`E,.tjE|
00001930  2c 8d 74 74 45 2c 8d 74  7e 45 0d 05 a0 11 58 3d  |,.ttE,.t~E....X=|
00001940  2d 53 3a 59 3d 2d 33 36  30 3a e1 0d 05 aa 10 58  |-S:Y=-360:.....X|
00001950  3d 2d 33 36 30 3a 59 3d  53 3a e1 0d 05 b4 0f 58  |=-360:Y=S:.....X|
00001960  3d 53 3a 59 3d 33 36 30  3a e1 0d 05 be 10 58 3d  |=S:Y=360:.....X=|
00001970  33 36 30 3a 59 3d 2d 53  3a e1 0d 05 c8 2f dd f2  |360:Y=-S:..../..|
00001980  53 4d 42 4f 58 28 49 25  29 ee 28 49 25 2d 31 29  |SMBOX(I%).(I%-1)|
00001990  81 31 30 2b 31 e5 8d 64  52 45 2c 8d 64 5c 45 2c  |.10+1..dRE,.d\E,|
000019a0  8d 64 66 45 2c 8d 64 70  45 0d 05 d2 3c ec 58 2b  |.dfE,.dpE...<.X+|
000019b0  38 2c 59 2d 34 3a ec 58  2b 37 32 2c 59 2d 34 3a  |8,Y-4:.X+72,Y-4:|
000019c0  f0 38 35 2c 58 2b 37 32  2c 59 2d 34 30 3a ec 58  |.85,X+72,Y-40:.X|
000019d0  2b 38 2c 59 2d 34 30 3a  f0 38 35 2c 58 2b 38 2c  |+8,Y-40:.85,X+8,|
000019e0  59 2d 34 3a e1 0d 05 dc  3c ec 58 2d 38 2c 59 2d  |Y-4:....<.X-8,Y-|
000019f0  34 3a ec 58 2d 38 2c 59  2d 37 36 3a f0 38 35 2c  |4:.X-8,Y-76:.85,|
00001a00  58 2d 34 30 2c 59 2d 37  36 3a ec 58 2d 34 30 2c  |X-40,Y-76:.X-40,|
00001a10  59 2d 34 3a f0 38 35 2c  58 2b 38 2c 59 2d 34 3a  |Y-4:.85,X+8,Y-4:|
00001a20  e1 0d 05 e6 3c ec 58 2d  38 2c 59 2b 34 3a ec 58  |....<.X-8,Y+4:.X|
00001a30  2d 37 32 2c 59 2b 34 3a  f0 38 35 2c 58 2d 37 32  |-72,Y+4:.85,X-72|
00001a40  2c 59 2b 34 30 3a ec 58  2d 38 2c 59 2b 34 30 3a  |,Y+40:.X-8,Y+40:|
00001a50  f0 38 35 2c 58 2d 38 2c  59 2b 34 3a e1 0d 05 f0  |.85,X-8,Y+4:....|
00001a60  3c ec 58 2b 38 2c 59 2b  34 3a ec 58 2b 38 2c 59  |<.X+8,Y+4:.X+8,Y|
00001a70  2b 37 36 3a f0 38 35 2c  58 2b 34 30 2c 59 2b 37  |+76:.85,X+40,Y+7|
00001a80  36 3a ec 58 2b 34 30 2c  59 2b 34 3a f0 38 35 2c  |6:.X+40,Y+4:.85,|
00001a90  58 2b 38 2c 59 2b 34 3a  e1 0d 05 fa 24 dd f2 4e  |X+8,Y+4:....$..N|
00001aa0  41 4d 28 49 25 29 42 24  3d 4e 41 4d 24 28 41 2d  |AM(I%)B$=NAM$(A-|
00001ab0  39 29 3a f2 4c 42 4f 58  28 30 29 3a e1 0d 06 04  |9):.LBOX(0):....|
00001ac0  47 dd f2 4c 42 4f 58 28  4d 25 29 3a e7 49 25 3d  |G..LBOX(M%):.I%=|
00001ad0  31 31 8c 8d 54 76 46 8b  e7 49 25 3d 33 31 8c 8d  |11..TvF..I%=31..|
00001ae0  44 40 46 8b ee 28 49 25  2d 31 29 81 31 30 2b 31  |D@F..(I%-1).10+1|
00001af0  e5 8d 54 4e 46 2c 8d 54  58 46 2c 8d 54 62 46 2c  |..TNF,.TXF,.TbF,|
00001b00  8d 54 6c 46 0d 06 0e 20  ec 58 2b 38 2c 59 2d 31  |.TlF... .X+8,Y-1|
00001b10  36 2d 4d 25 2a 33 32 3a  f2 50 52 49 4e 54 28 42  |6-M%*32:.PRINT(B|
00001b20  24 29 3a e1 0d 06 18 45  ec 58 2d 34 38 2d 33 32  |$):....E.X-48-32|
00001b30  2a 4d 25 2c 59 2d 31 32  3a f2 50 52 49 4e 54 28  |*M%,Y-12:.PRINT(|
00001b40  c0 42 24 2c 31 29 29 3a  ec 58 2d 34 38 2d 33 32  |.B$,1)):.X-48-32|
00001b50  2a 4d 25 2c 59 2d 34 34  3a f2 50 52 49 4e 54 28  |*M%,Y-44:.PRINT(|
00001b60  c2 42 24 2c 31 29 29 3a  e1 0d 06 22 21 ec 58 2d  |.B$,1)):..."!.X-|
00001b70  37 32 2c 59 2b 34 30 2b  33 32 2a 4d 25 3a f2 50  |72,Y+40+32*M%:.P|
00001b80  52 49 4e 54 28 42 24 29  3a e1 0d 06 2c 45 ec 58  |RINT(B$):...,E.X|
00001b90  2b 31 36 2b 33 32 2a 4d  25 2c 59 2b 36 38 3a f2  |+16+32*M%,Y+68:.|
00001ba0  50 52 49 4e 54 28 c0 42  24 2c 31 29 29 3a ec 58  |PRINT(.B$,1)):.X|
00001bb0  2b 31 36 2b 33 32 2a 4d  25 2c 59 2b 33 36 3a f2  |+16+32*M%,Y+36:.|
00001bc0  50 52 49 4e 54 28 c2 42  24 2c 31 29 29 3a e1 0d  |PRINT(.B$,1)):..|
00001bd0  06 36 21 ec 58 2d 37 32  2c 59 2d 31 36 2d 33 32  |.6!.X-72,Y-16-32|
00001be0  2a 4d 25 3a f2 50 52 49  4e 54 28 42 24 29 3a e1  |*M%:.PRINT(B$):.|
00001bf0  0d 06 40 21 ec 58 2b 31  32 2c 59 2b 34 30 2b 33  |..@!.X+12,Y+40+3|
00001c00  32 2a 4d 25 3a f2 50 52  49 4e 54 28 42 24 29 3a  |2*M%:.PRINT(B$):|
00001c10  e1 0d 06 4a 75 dd f2 47  45 54 43 4f 4c 28 4e 25  |...Ju..GETCOL(N%|
00001c20  29 f2 43 4c 53 3a f7 8d  64 50 4c 3a e3 49 25 3d  |).CLS:..dPL:.I%=|
00001c30  30 b8 4e 25 2d 31 3a f3  43 24 3a ec 2d 33 32 30  |0.N%-1:.C$:.-320|
00001c40  2c 33 32 30 2d 49 25 2a  33 32 3a f2 50 52 49 4e  |,320-I%*32:.PRIN|
00001c50  54 28 c3 49 25 2b 22 20  22 2b 43 24 29 3a ed 3a  |T(.I%+" "+C$):.:|
00001c60  ec 2d 33 32 30 2c 32 35  36 2d 49 25 2a 33 32 3a  |.-320,256-I%*32:|
00001c70  f2 50 52 49 4e 54 28 22  45 4e 54 45 52 20 43 48  |.PRINT("ENTER CH|
00001c80  4f 49 43 45 22 29 0d 06  54 21 f2 57 41 49 54 3a  |OICE")..T!.WAIT:|
00001c90  41 3d bb 41 24 3a e7 41  3d 30 80 41 24 3c 3e 22  |A=.A$:.A=0.A$<>"|
00001ca0  30 22 8c 41 3d 2d 31 0d  06 5e 25 e7 41 3c 30 84  |0".A=-1..^%.A<0.|
00001cb0  41 3e 4e 25 2d 31 8c 8d  44 54 46 8b 41 3d 41 2b  |A>N%-1..DTF.A=A+|
00001cc0  31 3a f2 47 45 54 4c 43  4f 4c 3a e1 0d 06 68 23  |1:.GETLCOL:...h#|
00001cd0  dd f2 48 49 47 48 3a f2  47 45 54 43 4f 4c 28 38  |..HIGH:.GETCOL(8|
00001ce0  29 3a e7 43 3d 30 84 43  3d 36 43 3d 43 2b 38 0d  |):.C=0.C=6C=C+8.|
00001cf0  06 72 0b ee 85 e5 8d 54  5e 45 0d 06 7c 43 ef 31  |.r.....T^E..|C.1|
00001d00  39 2c 33 2c 43 3b 30 3b  3a e6 30 2c 33 3a e3 49  |9,3,C;0;:.0,3:.I|
00001d10  25 3d 31 b8 34 30 3a f2  47 45 54 44 41 28 49 25  |%=1.40:.GETDA(I%|
00001d20  29 3a f3 42 3a e7 42 3d  41 20 f2 4c 4f 43 28 49  |):.B:.B=A .LOC(I|
00001d30  25 29 3a f2 53 4d 42 4f  58 28 49 25 29 0d 06 86  |%):.SMBOX(I%)...|
00001d40  15 ed 3a f2 57 41 49 54  3a f2 55 4e 48 49 47 48  |..:.WAIT:.UNHIGH|
00001d50  3a e1 0d 06 90 41 dd f2  55 4e 48 49 47 48 3a e6  |:....A..UNHIGH:.|
00001d60  30 2c 30 3a e3 49 25 3d  31 b8 34 30 3a f2 47 45  |0,0:.I%=1.40:.GE|
00001d70  54 44 41 28 49 25 29 3a  f3 42 3a e7 41 3d 42 20  |TDA(I%):.B:.A=B |
00001d80  f2 4c 4f 43 28 49 25 29  3a f2 53 4d 42 4f 58 28  |.LOC(I%):.SMBOX(|
00001d90  49 25 29 0d 06 9a 0d ed  3a ee 85 e5 8d 54 40 45  |I%).....:....T@E|
00001da0  0d 06 a4 05 e1 0d 06 ae  1e dd f2 47 45 54 44 41  |...........GETDA|
00001db0  28 49 25 29 f7 28 32 38  35 30 2b 31 30 2a 49 25  |(I%).(2850+10*I%|
00001dc0  29 3a e1 0d 06 b8 36 dd  f2 54 49 54 4c 45 44 45  |):....6..TITLEDE|
00001dd0  45 44 28 49 25 29 f2 47  45 54 44 41 28 49 25 29  |ED(I%).GETDA(I%)|
00001de0  3a f3 41 3a e7 41 3e 38  80 41 3c 3e 31 33 80 41  |:.A:.A>8.A<>13.A|
00001df0  3c 3e 31 34 8c 8d 54 7a  47 0d 06 c2 14 e7 4c 4f  |<>14..TzG.....LO|
00001e00  25 28 49 25 29 80 36 34  8c 8d 54 66 47 0d 06 cc  |%(I%).64..TfG...|
00001e10  26 f2 54 44 46 52 41 4d  45 3a e7 41 3d 31 33 84  |&.TDFRAME:.A=13.|
00001e20  41 3d 31 34 8c 51 25 3d  51 25 2d 36 34 3a e5 8d  |A=14.Q%=Q%-64:..|
00001e30  54 48 47 0d 06 d6 34 ec  2d 31 36 30 2c 32 37 32  |THG...4.-160,272|
00001e40  3a f2 50 52 49 4e 54 28  22 54 49 54 4c 45 20 44  |:.PRINT("TITLE D|
00001e50  45 45 44 22 29 3a f2 53  50 41 43 45 53 28 31 29  |EED"):.SPACES(1)|
00001e60  3a f2 4e 4f 52 54 48 0d  06 e0 48 f2 43 45 4e 54  |:.NORTH...H.CENT|
00001e70  52 45 3a ec 58 2c 32 30  38 3a f2 50 52 49 4e 54  |RE:.X,208:.PRINT|
00001e80  28 4e 24 29 3a e6 30 2c  30 3a e3 49 25 3d 30 b8  |(N$):.0,0:.I%=0.|
00001e90  37 3a f3 4e 25 28 49 25  29 3a ed 3a 4e 25 28 38  |7:.N%(I%):.:N%(8|
00001ea0  29 3d 4e 25 28 30 29 2f  32 3a f7 8d 64 64 4c 0d  |)=N%(0)/2:..ddL.|
00001eb0  06 ea 39 58 3d 2d 32 38  38 3a 59 3d 31 31 32 3a  |..9X=-288:Y=112:|
00001ec0  f2 54 59 50 45 28 22 52  45 4e 54 22 29 3a e3 49  |.TYPE("RENT"):.I|
00001ed0  25 3d 31 b8 38 3a 59 3d  59 2d 33 32 3a e7 49 25  |%=1.8:Y=Y-32:.I%|
00001ee0  3e 36 59 3d 59 2d 33 32  0d 06 f4 73 f3 41 24 3a  |>6Y=Y-32...s.A$:|
00001ef0  f2 54 59 50 45 28 41 24  29 3a ec 51 25 2c 59 3a  |.TYPE(A$):.Q%,Y:|
00001f00  f2 50 52 49 4e 54 28 22  60 22 2b c3 4e 25 28 49  |.PRINT("`"+.N%(I|
00001f10  25 29 29 3a e7 49 25 3d  37 59 3d 59 2d 33 32 3a  |%)):.I%=7Y=Y-32:|
00001f20  f2 54 59 50 45 28 22 43  4f 53 54 20 48 4f 54 45  |.TYPE("COST HOTE|
00001f30  4c 20 20 60 22 2b c3 4e  25 28 37 29 29 3a 59 3d  |L  `"+.N%(7)):Y=|
00001f40  59 2d 33 32 3a f2 54 59  50 45 28 22 50 4c 55 53  |Y-32:.TYPE("PLUS|
00001f50  20 34 20 48 4f 55 53 45  53 22 29 0d 06 fe 0b ed  | 4 HOUSES").....|
00001f60  3a e5 8d 54 7a 47 0d 07  08 5f f2 53 50 41 43 45  |:..TzG..._.SPACE|
00001f70  53 28 31 29 3a f2 43 45  4e 54 52 45 3a ec 58 2c  |S(1):.CENTRE:.X,|
00001f80  32 34 30 2b 32 34 2a 28  41 2d 31 33 29 3a f2 50  |240+24*(A-13):.P|
00001f90  52 49 4e 54 28 4e 24 29  3a e7 41 3d 31 34 ec 2d  |RINT(N$):.A=14.-|
00001fa0  31 31 32 2c 32 31 36 3a  f2 50 52 49 4e 54 28 22  |112,216:.PRINT("|
00001fb0  53 54 41 54 49 4f 4e 22  29 3a f7 8d 64 6e 4c 8b  |STATION"):..dnL.|
00001fc0  f7 8d 64 78 4c 0d 07 12  29 58 3d 2d 32 32 38 3a  |..dxL...)X=-228:|
00001fd0  59 3d 39 36 3a e3 49 25  3d 31 b8 31 32 3a f3 41  |Y=96:.I%=1.12:.A|
00001fe0  24 3a e7 41 24 3d 22 22  41 24 3d 22 20 22 0d 07  |$:.A$=""A$=" "..|
00001ff0  1c 1c f2 54 59 50 45 28  41 24 29 3a 59 3d 59 2d  |...TYPE(A$):Y=Y-|
00002000  33 32 3a ed 3a e5 8d 54  7a 47 0d 07 26 af 43 3d  |32:.:..TzG..&.C=|
00002010  41 3a f2 43 4c 53 3a e6  30 2c 33 3a f3 41 24 2c  |A:.CLS:.0,3:.A$,|
00002020  41 3a f2 53 50 41 43 45  53 28 31 29 3a ef 31 39  |A:.SPACES(1):.19|
00002030  2c 33 2c 31 3b 30 3b 3a  f2 53 42 41 52 28 33 32  |,3,1;0;:.SBAR(32|
00002040  30 2c 33 32 30 29 3a e6  30 2c 30 3a f2 42 4f 58  |0,320):.0,0:.BOX|
00002050  28 33 32 30 2c 33 32 30  29 3a e3 59 3d 2d 31 b8  |(320,320):.Y=-1.|
00002060  31 88 32 3a ec 2d 32 38  38 2c 32 38 38 2a 59 3a  |1.2:.-288,288*Y:|
00002070  df 32 38 38 2c 32 38 38  2a 59 3a df 32 38 38 2c  |.288,288*Y:.288,|
00002080  39 36 2a 59 3a df 2d 32  38 38 2c 39 36 2a 59 3a  |96*Y:.-288,96*Y:|
00002090  df 2d 32 38 38 2c 32 32  38 2a 59 3a ed 3a ec 2d  |.-288,228*Y:.:.-|
000020a0  31 34 34 2c 32 30 38 3a  e7 43 3d 31 34 4e 24 3d  |144,208:.C=14N$=|
000020b0  4e 24 2b 22 20 53 54 4e  22 0d 07 30 74 f2 50 52  |N$+" STN"..0t.PR|
000020c0  49 4e 54 28 22 4d 4f 52  54 47 41 47 45 44 22 29  |INT("MORTGAGED")|
000020d0  3a f2 4e 4f 52 54 48 3a  41 24 3d 4e 24 2b 22 2f  |:.NORTH:A$=N$+"/|
000020e0  20 2f 22 2b 22 4d 4f 52  54 47 41 47 45 44 20 46  | /"+"MORTGAGED F|
000020f0  4f 52 20 60 22 2b c3 28  41 2f 32 29 3a 59 3d 34  |OR `"+.(A/2):Y=4|
00002100  38 3a f2 54 45 58 54 3a  59 3d 2d 31 33 32 3a 58  |8:.TEXT:Y=-132:X|
00002110  3d 2d 32 35 36 3a f7 8d  54 42 4d 3a e3 49 25 3d  |=-256:..TBM:.I%=|
00002120  31 b8 34 3a f3 4e 24 3a  f2 50 52 3a ed 0d 07 3a  |1.4:.N$:.PR:...:|
00002130  0b 51 25 3d 39 36 3a e1  0d 07 44 26 dd f2 47 45  |.Q%=96:...D&..GE|
00002140  54 4c 43 4f 4c 3a ea 49  25 3a f7 8d 64 5a 4c 3a  |TLCOL:.I%:..dZL:|
00002150  e3 49 25 3d 31 b8 41 3a  f3 43 3a ed 3a e1 0d 07  |.I%=1.A:.C:.:...|
00002160  4e 24 dd f2 54 44 46 52  41 4d 45 3a f2 43 4c 53  |N$..TDFRAME:.CLS|
00002170  3a e7 41 3c 39 f2 47 45  54 4c 43 4f 4c 20 8b 43  |:.A<9.GETLCOL .C|
00002180  3d 37 0d 07 58 5e ef 31  39 2c 33 2c 43 3b 30 3b  |=7..X^.19,3,C;0;|
00002190  3a e6 30 2c 32 2d 28 41  3e 31 32 29 3a f2 53 42  |:.0,2-(A>12):.SB|
000021a0  41 52 28 33 32 30 2c 33  32 30 29 3a e6 30 2c 30  |AR(320,320):.0,0|
000021b0  3a f2 42 4f 58 28 33 32  30 2c 33 32 30 29 3a e7  |:.BOX(320,320):.|
000021c0  41 3c 31 33 80 41 3c 3e  32 e6 30 2c 33 3a f2 48  |A<13.A<>2.0,3:.H|
000021d0  42 41 52 28 33 30 34 2c  33 30 34 2c 31 34 34 29  |BAR(304,304,144)|
000021e0  0d 07 62 1b e6 30 2c 30  3a f2 48 42 4f 58 28 33  |..b..0,0:.HBOX(3|
000021f0  30 34 2c 33 30 34 2c 31  34 34 29 0d 07 6c 31 f2  |04,304,144)..l1.|
00002200  47 45 54 44 41 28 49 25  29 3a f3 41 2c 41 24 3a  |GETDA(I%):.A,A$:|
00002210  fb 31 33 31 3a e7 41 3d  31 84 41 3d 38 fb 32 3a  |.131:.A=1.A=8.2:|
00002220  e6 30 2c 32 8b fb 30 3a  e6 30 2c 30 0d 07 76 05  |.0,2..0:.0,0..v.|
00002230  e1 0d 07 80 41 dd f2 53  50 41 43 45 53 28 49 25  |....A..SPACES(I%|
00002240  29 3a 42 3d a7 41 24 2c  22 2f 22 2c 49 25 29 3a  |):B=.A$,"/",I%):|
00002250  e7 42 3d 30 4e 24 3d 41  24 8b 4e 24 3d c0 41 24  |.B=0N$=A$.N$=.A$|
00002260  2c 42 2d 31 29 2b 22 20  22 2b c1 41 24 2c 42 2b  |,B-1)+" "+.A$,B+|
00002270  31 29 0d 07 8a 0b 41 24  3d 4e 24 3a e1 0d 07 94  |1)....A$=N$:....|
00002280  25 dd f2 43 45 4e 54 52  45 3a 58 3d 2d 32 38 38  |%..CENTRE:X=-288|
00002290  2b 33 32 2a 28 28 31 38  2d a9 4e 24 29 2f 32 29  |+32*((18-.N$)/2)|
000022a0  3a e1 0d 07 9e 42 dd f2  4e 4f 52 54 48 3a e7 4e  |:....B..NORTH:.N|
000022b0  24 3d 22 4e 4f 52 54 48  55 4d 42 45 52 20 4c 41  |$="NORTHUMBER LA|
000022c0  4e 44 20 41 56 45 4e 55  45 22 4e 24 3d 22 4e 4f  |ND AVENUE"N$="NO|
000022d0  52 54 48 55 4d 42 45 52  4c 41 4e 44 20 41 56 45  |RTHUMBERLAND AVE|
000022e0  4e 55 45 22 0d 07 a8 05  e1 0d 07 b2 23 dd f2 43  |NUE"........#..C|
000022f0  48 41 4e 43 45 3a 4e 24  3d 22 43 48 41 4e 43 45  |HANCE:N$="CHANCE|
00002300  22 3a 43 48 3d 31 3a e5  8d 64 46 47 0d 07 bc 28  |":CH=1:..dFG...(|
00002310  dd f2 43 4f 4d 43 48 45  53 54 3a 4e 24 3d 22 43  |..COMCHEST:N$="C|
00002320  4f 4d 4d 55 4e 49 54 59  20 43 48 45 53 54 22 3a  |OMMUNITY CHEST":|
00002330  43 48 3d 30 0d 07 c6 63  4d 56 3d 30 3a f2 57 41  |CH=0...cMV=0:.WA|
00002340  49 54 3a f2 43 4c 53 3a  ef 31 39 2c 33 2c 35 2c  |IT:.CLS:.19,3,5,|
00002350  35 2d 32 2a 43 48 3b 30  3b 3a e6 30 2c 33 3a f2  |5-2*CH;0;:.0,3:.|
00002360  53 42 41 52 28 33 32 30  2c 31 39 32 29 3a e6 30  |SBAR(320,192):.0|
00002370  2c 30 3a f2 42 4f 58 28  33 32 30 2c 31 39 32 29  |,0:.BOX(320,192)|
00002380  3a 59 3d 31 32 38 3a 41  24 3d 4e 24 3a f2 54 45  |:Y=128:A$=N$:.TE|
00002390  58 54 3a 59 3d 33 32 0d  07 d0 73 e7 43 48 25 28  |XT:Y=32...s.CH%(|
000023a0  43 48 50 28 43 48 29 2b  32 2c 43 48 29 41 3d 32  |CHP(CH)+2,CH)A=2|
000023b0  37 3a 43 48 25 28 43 48  50 28 43 48 29 2b 32 2c  |7:CH%(CHP(CH)+2,|
000023c0  43 48 29 3d 30 3a 4a 43  28 43 48 29 3d 58 25 8b  |CH)=0:JC(CH)=X%.|
000023d0  41 3d 43 48 25 28 43 48  50 28 43 48 29 2b 31 2c  |A=CH%(CHP(CH)+1,|
000023e0  43 48 29 3a 43 48 50 28  43 48 29 3d 43 48 50 28  |CH):CHP(CH)=CHP(|
000023f0  43 48 29 2b 32 3a e7 43  48 50 28 43 48 29 3d 35  |CH)+2:.CHP(CH)=5|
00002400  32 43 48 50 28 43 48 29  3d 30 0d 07 da 1c f7 28  |2CHP(CH)=0.....(|
00002410  33 33 33 30 2b 31 30 2a  41 29 3a f3 41 24 2c 41  |3330+10*A):.A$,A|
00002420  31 25 2c 41 32 25 0d 07  e4 21 f2 54 45 58 54 3a  |1%,A2%...!.TEXT:|
00002430  e7 41 31 25 4d 4f 28 58  25 29 3d 4d 4f 28 58 25  |.A1%MO(X%)=MO(X%|
00002440  29 2b 41 31 25 3a e1 0d  07 ee 2b e7 41 32 25 3d  |)+A1%:....+.A2%=|
00002450  30 8c 8d 54 42 48 8b 4d  56 3d 31 3a e7 41 32 25  |0..TBH.MV=1:.A2%|
00002460  3d 2d 33 5a 25 3d 4f 50  4f 53 28 58 25 29 2b 33  |=-3Z%=OPOS(X%)+3|
00002470  3a e1 0d 07 f8 0c 5a 25  3d 41 32 25 3a e1 0d 08  |:.....Z%=A2%:...|
00002480  02 0e e7 41 3d 32 37 8c  8d 54 6a 48 0d 08 0c 2b  |...A=27..TjH...+|
00002490  42 25 3d 30 3a e3 49 25  3d 31 b8 34 30 3a e7 28  |B%=0:.I%=1.40:.(|
000024a0  4c 4f 25 28 49 25 29 80  34 38 29 2f 31 36 3c 3e  |LO%(I%).48)/16<>|
000024b0  58 25 8c 8d 54 60 48 0d  08 16 2b 4a 25 3d 4c 4f  |X%..T`H...+J%=LO|
000024c0  25 28 49 25 29 80 37 3a  e7 4a 25 3c 35 42 25 3d  |%(I%).7:.J%<5B%=|
000024d0  42 25 2b 4a 25 2a 34 30  8b 42 25 3d 42 25 2b 31  |B%+J%*40.B%=B%+1|
000024e0  31 35 0d 08 20 3b ed 3a  41 24 3d 22 54 4f 54 41  |15.. ;.:A$="TOTA|
000024f0  4c 20 43 4f 53 54 20 60  22 2b c3 42 25 3a 59 3d  |L COST `"+.B%:Y=|
00002500  2d 32 32 34 3a f2 54 45  58 54 3a 4d 4f 28 58 25  |-224:.TEXT:MO(X%|
00002510  29 3d 4d 4f 28 58 25 29  2d 42 25 3a e1 0d 08 2a  |)=MO(X%)-B%:...*|
00002520  1e 47 4a 28 58 25 29 3d  47 4a 28 58 25 29 2b 31  |.GJ(X%)=GJ(X%)+1|
00002530  3a e7 4a 43 28 43 48 29  3d 58 25 0d 08 34 05 e1  |:.JC(CH)=X%..4..|
00002540  0d 08 3e 29 dd f2 50 52  3a f2 43 45 4e 54 52 45  |..>)..PR:.CENTRE|
00002550  3a ec 58 2c 59 3a 59 3d  59 2d 33 32 3a f2 50 52  |:.X,Y:Y=Y-32:.PR|
00002560  49 4e 54 28 4e 24 29 3a  e1 0d 08 48 36 dd f2 48  |INT(N$):...H6..H|
00002570  42 41 52 28 58 2c 59 2c  59 31 29 ec 58 2c 59 3a  |BAR(X,Y,Y1).X,Y:|
00002580  ec 58 2c 59 31 3a f0 38  35 2c 2d 58 2c 59 31 3a  |.X,Y1:.85,-X,Y1:|
00002590  ec 2d 58 2c 59 3a f0 38  35 2c 58 2c 59 3a e1 0d  |.-X,Y:.85,X,Y:..|
000025a0  08 52 30 dd f2 48 42 4f  58 28 58 2c 59 2c 59 31  |.R0..HBOX(X,Y,Y1|
000025b0  29 ec 58 2c 59 3a df 58  2c 59 31 3a df 2d 58 2c  |).X,Y:.X,Y1:.-X,|
000025c0  59 31 3a df 2d 58 2c 59  3a df 58 2c 59 3a e1 0d  |Y1:.-X,Y:.X,Y:..|
000025d0  08 5c 0f dd f2 54 45 58  54 3a 49 25 3d 30 0d 08  |.\...TEXT:I%=0..|
000025e0  66 4c f2 53 50 41 43 45  53 28 49 25 2b 31 29 3a  |fL.SPACES(I%+1):|
000025f0  e7 42 3d 30 4e 24 3d c1  41 24 2c 49 25 2b 31 29  |.B=0N$=.A$,I%+1)|
00002600  3a f2 50 52 3a e1 20 8b  4e 24 3d c1 41 24 2c 49  |:.PR:. .N$=.A$,I|
00002610  25 2b 31 2c 42 2d 49 25  2d 31 29 3a 49 25 3d 42  |%+1,B-I%-1):I%=B|
00002620  3a f2 50 52 3a e5 8d 44  66 48 0d 08 70 6b dd f2  |:.PR:..DfH..pk..|
00002630  41 54 28 4c 25 29 f2 43  4c 53 3a 4b 25 3d 30 3a  |AT(L%).CLS:K%=0:|
00002640  e6 30 2c 32 3a f2 48 42  41 52 28 33 32 30 2c 33  |.0,2:.HBAR(320,3|
00002650  32 30 2c 36 34 29 3a e6  30 2c 30 3a f2 48 42 4f  |20,64):.0,0:.HBO|
00002660  58 28 33 32 30 2c 33 32  30 2c 36 34 29 3a 59 3d  |X(320,320,64):Y=|
00002670  32 35 36 3a f2 47 45 54  44 41 28 4c 25 29 3a f3  |256:.GETDA(L%):.|
00002680  41 3a e7 41 3c 39 84 41  3d 31 33 84 41 3d 31 34  |A:.A<9.A=13.A=14|
00002690  8c 8d 64 5e 48 0d 08 7a  3f ee 41 2d 38 e5 8d 74  |..d^H..z?.A-8..t|
000026a0  44 48 2c 8d 74 4e 48 2c  8d 74 58 48 2c 8d 74 62  |DH,.tNH,.tXH,.tb|
000026b0  48 2c 8d 54 40 40 2c 8d  54 40 40 2c 8d 74 6c 48  |H,.T@@,.T@@,.tlH|
000026c0  2c 8d 74 76 48 2c 8d 64  40 48 2c 8d 64 4a 48 2c  |,.tvH,.d@H,.dJH,|
000026d0  8d 64 54 48 0d 08 84 11  41 24 3d 22 47 4f 22 3a  |.dTH....A$="GO":|
000026e0  e5 8d 64 7c 48 0d 08 8e  1e 41 24 3d 22 43 4f 4d  |..d|H....A$="COM|
000026f0  4d 55 4e 49 54 59 2f 43  48 45 53 54 22 3a e5 8d  |MUNITY/CHEST":..|
00002700  64 7c 48 0d 08 98 22 41  24 3d 22 49 4e 43 4f 4d  |d|H..."A$="INCOM|
00002710  45 2f 54 41 58 2f 50 41  59 20 60 32 30 30 22 3a  |E/TAX/PAY `200":|
00002720  e5 8d 64 7c 48 0d 08 a2  15 41 24 3d 22 43 48 41  |..d|H....A$="CHA|
00002730  4e 43 45 22 3a e5 8d 64  7c 48 0d 08 ac 21 41 24  |NCE":..d|H...!A$|
00002740  3d 22 4a 41 49 4c 2f 4a  55 53 54 2f 56 49 53 49  |="JAIL/JUST/VISI|
00002750  54 49 4e 47 22 3a e5 8d  64 7c 48 0d 08 b6 1b 41  |TING":..d|H....A|
00002760  24 3d 22 46 52 45 45 2f  50 41 52 4b 49 4e 47 22  |$="FREE/PARKING"|
00002770  3a e5 8d 64 7c 48 0d 08  c0 19 41 24 3d 22 47 4f  |:..d|H....A$="GO|
00002780  20 54 4f 2f 4a 41 49 4c  22 3a e5 8d 64 7c 48 0d  | TO/JAIL":..d|H.|
00002790  08 ca 21 41 24 3d 22 53  55 50 45 52 2f 54 41 58  |..!A$="SUPER/TAX|
000027a0  2f 50 41 59 20 60 31 30  30 22 3a e5 8d 64 7c 48  |/PAY `100":..d|H|
000027b0  0d 08 d4 16 41 24 3d 22  49 4e 2f 4a 41 49 4c 22  |....A$="IN/JAIL"|
000027c0  3a e5 8d 64 7c 48 0d 08  de 59 e7 41 3c 39 f2 47  |:..d|H...Y.A<9.G|
000027d0  45 54 4c 43 4f 4c 3a ef  31 39 2c 33 2c 43 3b 30  |ETLCOL:.19,3,C;0|
000027e0  3b 3a e6 30 2c 33 3a f2  48 42 41 52 28 33 31 32  |;:.0,3:.HBAR(312|
000027f0  2c 33 31 36 2c 32 32 34  29 3a e6 30 2c 30 3a ec  |,316,224):.0,0:.|
00002800  2d 33 32 30 2c 32 32 34  3a df 33 32 30 2c 32 32  |-320,224:.320,22|
00002810  34 3a 59 3d 31 39 32 3a  f2 48 4f 55 53 45 53 0d  |4:Y=192:.HOUSES.|
00002820  08 e8 2e f2 47 45 54 44  41 28 4c 25 29 3a f3 4a  |....GETDA(L%):.J|
00002830  25 2c 41 24 2c 4a 25 3a  e7 41 3d 31 34 41 24 3d  |%,A$,J%:.A=14A$=|
00002840  41 24 2b 22 2f 53 54 41  54 49 4f 4e 22 0d 08 f2  |A$+"/STATION"...|
00002850  14 f2 54 45 58 54 3a 41  24 3d 22 60 22 2b c3 4a  |..TEXT:A$="`"+.J|
00002860  25 0d 08 fc 36 f2 54 45  58 54 3a e7 41 3c 39 84  |%...6.TEXT:.A<9.|
00002870  41 3d 31 33 84 41 3d 31  34 4e 25 3d 28 4c 4f 25  |A=13.A=14N%=(LO%|
00002880  28 4c 25 29 80 36 33 29  2f 31 36 3a f2 53 41 4c  |(L%).63)/16:.SAL|
00002890  45 20 8b 4e 25 3d 34 0d  09 06 05 e1 0d 09 10 41  |E .N%=4........A|
000028a0  dd f2 48 4f 55 53 45 53  3a 4b 25 3d 4c 4f 25 28  |..HOUSES:K%=LO%(|
000028b0  4c 25 29 80 37 3a e7 4b  25 3d 30 e1 20 8b e7 4b  |L%).7:.K%=0. ..K|
000028c0  25 3d 35 41 24 3d 22 48  4f 54 45 4c 22 8b 41 24  |%=5A$="HOTEL".A$|
000028d0  3d c3 4b 25 2b 22 20 48  4f 55 53 45 22 0d 09 1a  |=.K%+" HOUSE"...|
000028e0  17 e7 4b 25 3c 35 80 4b  25 3e 31 41 24 3d 41 24  |..K%<5.K%>1A$=A$|
000028f0  2b 22 53 22 0d 09 24 15  e7 41 3d 31 84 41 3d 38  |+"S"..$..A=1.A=8|
00002900  e6 30 2c 32 8b e6 30 2c  30 0d 09 2e 2f f2 53 50  |.0,2..0,0.../.SP|
00002910  41 43 45 53 28 31 29 3a  f2 43 45 4e 54 52 45 3a  |ACES(1):.CENTRE:|
00002920  ec 58 2c 32 38 38 3a f2  50 52 49 4e 54 28 4e 24  |.X,288:.PRINT(N$|
00002930  29 3a e6 30 2c 30 3a e1  0d 09 38 34 dd f2 53 41  |):.0,0:...84..SA|
00002940  4c 45 32 3a e7 4e 25 3d  30 4e 24 3d 22 46 4f 52  |LE2:.N%=0N$="FOR|
00002950  20 53 41 4c 45 22 8b 4e  24 3d 22 4f 57 4e 45 44  | SALE".N$="OWNED|
00002960  20 42 59 20 22 2b 4e 24  28 4e 25 29 0d 09 42 05  | BY "+N$(N%)..B.|
00002970  e1 0d 09 4c 2c dd f2 53  41 4c 45 3a f2 53 41 4c  |...L,..SALE:.SAL|
00002980  45 32 3a f2 43 45 4e 54  52 45 3a ec 58 2c 35 32  |E2:.CENTRE:.X,52|
00002990  3a f2 50 52 49 4e 54 28  4e 24 29 3a e1 0d 09 56  |:.PRINT(N$):...V|
000029a0  54 dd f2 4e 50 4f 53 3a  f2 43 4c 53 3a 42 24 3d  |T..NPOS:.CLS:B$=|
000029b0  c0 4e 24 28 58 25 29 2c  32 29 3a 4e 25 3d 4f 50  |.N$(X%),2):N%=OP|
000029c0  4f 53 28 58 25 29 3a 47  25 3d 5a 25 3a e7 47 25  |OS(X%):G%=Z%:.G%|
000029d0  3d 34 31 47 25 3d 31 31  3a 4e 4a 3d 30 3a 44 4f  |=41G%=11:NJ=0:DO|
000029e0  3d 30 3a e7 44 31 3d 44  32 20 59 25 3d 33 2d 58  |=0:.D1=D2 Y%=3-X|
000029f0  25 0d 09 60 20 e7 5a 25  3d 34 31 80 4e 25 3c 33  |%..` .Z%=41.N%<3|
00002a00  32 80 4e 25 3e 31 31 53  54 3d 2d 31 8b 53 54 3d  |2.N%>11ST=-1.ST=|
00002a10  31 0d 09 6a 0f e7 4e 25  3d 47 25 8c 8d 74 5c 49  |1..j..N%=G%..t\I|
00002a20  0d 09 74 29 f5 3a 50 47  3d 30 3a 4b 25 3d 4e 25  |..t).:PG=0:K%=N%|
00002a30  3a 4e 25 3d 4e 25 2b 53  54 3a e7 4e 25 3d 34 31  |:N%=N%+ST:.N%=41|
00002a40  4e 25 3d 31 3a 50 47 3d  31 0d 09 7e 5a e6 30 2c  |N%=1:PG=1..~Z.0,|
00002a50  32 3a 49 25 3d 4b 25 3a  f2 4c 4f 43 28 49 25 29  |2:I%=K%:.LOC(I%)|
00002a60  3a f2 4c 42 4f 58 28 58  25 29 3a e6 30 2c 30 3a  |:.LBOX(X%):.0,0:|
00002a70  49 25 3d 4e 25 3a d4 31  2c 2d 37 2c 35 30 2c 31  |I%=N%:.1,-7,50,1|
00002a80  3a f2 4c 4f 43 28 49 25  29 3a f2 4c 42 4f 58 28  |:.LOC(I%):.LBOX(|
00002a90  58 25 29 3a e7 50 47 20  80 47 41 20 80 4e 4a 20  |X%):.PG .GA .NJ |
00002aa0  f2 50 47 0d 09 88 0b 2a  46 58 31 35 2c 31 0d 09  |.PG....*FX15,1..|
00002ab0  92 10 41 3d a6 32 35 3a  fd 4e 25 3d 47 25 0d 09  |..A=.25:.N%=G%..|
00002ac0  9c 0f 4f 50 4f 53 28 58  25 29 3d 5a 25 0d 09 a6  |..OPOS(X%)=Z%...|
00002ad0  0f e7 47 41 20 f2 41 54  28 5a 25 29 0d 09 b0 0a  |..GA .AT(Z%)....|
00002ae0  4e 4a 3d 31 3a e1 0d 09  ba 91 dd f2 50 47 3a ef  |NJ=1:.......PG:.|
00002af0  31 39 2c 33 2c 37 3b 30  3b 3a e6 30 2c 33 3a f2  |19,3,7;0;:.0,3:.|
00002b00  48 42 41 52 28 33 32 30  2c 33 32 30 2c 31 39 32  |HBAR(320,320,192|
00002b10  29 3a e6 30 2c 30 3a f2  48 42 4f 58 28 33 32 30  |):.0,0:.HBOX(320|
00002b20  2c 33 32 30 2c 31 39 32  29 3a 41 24 3d 22 43 4f  |,320,192):A$="CO|
00002b30  4c 4c 45 43 54 20 60 32  30 30 20 53 41 4c 41 52  |LLECT `200 SALAR|
00002b40  59 2f 41 53 20 59 4f 55  20 50 41 53 53 20 47 4f  |Y/AS YOU PASS GO|
00002b50  22 3a 59 3d 32 38 38 3a  f2 54 45 58 54 3a 4d 4f  |":Y=288:.TEXT:MO|
00002b60  28 58 25 29 3d 4d 4f 28  58 25 29 2b 32 30 30 3a  |(X%)=MO(X%)+200:|
00002b70  f2 57 41 49 54 3a e1 0d  09 c4 59 dd f2 4d 4f 4e  |.WAIT:....Y..MON|
00002b80  45 59 3a 4e 24 3d 4e 24  28 58 25 29 3a f2 43 45  |EY:N$=N$(X%):.CE|
00002b90  4e 54 52 45 3a 59 3d 30  3a f2 54 59 50 45 28 4e  |NTRE:Y=0:.TYPE(N|
00002ba0  24 29 3a 4e 24 3d 22 60  22 2b c3 28 94 28 4d 4f  |$):N$="`"+.(.(MO|
00002bb0  28 58 25 29 29 29 3a e7  b4 4d 4f 28 58 25 29 3d  |(X%))):..MO(X%)=|
00002bc0  2d 31 4e 24 3d 22 4d 49  4e 55 53 20 22 2b 4e 24  |-1N$="MINUS "+N$|
00002bd0  0d 09 ce 30 4e 24 3d 4e  24 2b 22 20 20 22 2b c3  |...0N$=N$+"  "+.|
00002be0  47 4a 28 58 25 29 3a f2  43 45 4e 54 52 45 3a 59  |GJ(X%):.CENTRE:Y|
00002bf0  3d 2d 33 32 3a f2 54 59  50 45 28 4e 24 29 3a e1  |=-32:.TYPE(N$):.|
00002c00  0d 09 d8 09 dd f2 47 45  54 0d 09 e2 1f f2 57 41  |......GET.....WA|
00002c10  49 54 3a e7 41 24 3c 3e  22 59 22 80 41 24 3c 3e  |IT:.A$<>"Y".A$<>|
00002c20  22 4e 22 8c 8d 64 62 49  0d 09 ec 05 e1 0d 09 f6  |"N"..dbI........|
00002c30  18 dd f2 54 59 50 45 28  5a 24 29 ec 58 2c 59 3a  |...TYPE(Z$).X,Y:|
00002c40  e5 8d 54 4a 4a 0d 0a 00  0f dd f2 50 52 49 4e 54  |..TJJ......PRINT|
00002c50  28 5a 24 29 0d 0a 0a 98  e3 45 25 3d 31 b8 a9 5a  |(Z$).....E%=1..Z|
00002c60  24 3a f0 30 2c 2d 33 32  2c 30 3a 46 25 3d 97 28  |$:.0,-32,0:F%=.(|
00002c70  c1 5a 24 2c 45 25 2c 31  29 29 3a e7 46 25 3d 34  |.Z$,E%,1)):.F%=4|
00002c80  39 46 25 3d 37 33 8b e7  46 25 3d 35 30 46 25 3d  |9F%=73..F%=50F%=|
00002c90  39 30 8b e7 46 25 3d 35  33 46 25 3d 38 33 8b e7  |90..F%=53F%=83..|
00002ca0  46 25 3d 34 38 46 25 3d  37 39 8b e7 46 25 3d 38  |F%=48F%=79..F%=8|
00002cb0  31 46 25 3d 38 36 3a ef  32 33 2c 32 34 34 2c 37  |1F%=86:.23,244,7|
00002cc0  2c 35 2c 35 2c 35 2c 37  2c 32 2c 33 2c 30 8b e7  |,5,5,5,7,2,3,0..|
00002cd0  46 25 3d 38 36 ef 32 33  2c 32 34 34 2c 35 2c 35  |F%=86.23,244,5,5|
00002ce0  2c 35 2c 35 2c 35 2c 32  2c 32 2c 30 0d 0a 14 24  |,5,5,5,2,2,0...$|
00002cf0  e7 46 25 3d 33 32 f1 22  20 22 3b 8b f1 bd 28 32  |.F%=32." ";...(2|
00002d00  32 33 2b a7 4c 45 24 2c  bd 28 46 25 29 29 29 3b  |23+.LE$,.(F%)));|
00002d10  0d 0a 1e 07 ed 3a e1 0d  0a 28 12 dd f2 57 41 49  |.....:...(...WAI|
00002d20  54 3a 2a 46 58 31 35 2c  31 0d 0a 32 16 d4 31 2c  |T:*FX15,1..2..1,|
00002d30  2d 37 2c 31 32 35 2c 31  3a 41 24 3d be 3a e1 0d  |-7,125,1:A$=.:..|
00002d40  0a 3c 24 dd f2 43 4c 53  3a e6 30 2c 31 3a f2 53  |.<$..CLS:.0,1:.S|
00002d50  42 41 52 28 33 35 32 2c  33 35 36 29 3a e6 30 2c  |BAR(352,356):.0,|
00002d60  30 3a e1 0d 0a 46 84 dd  f2 57 41 52 4e 3a e7 b4  |0:...F...WARN:..|
00002d70  28 4d 4f 28 58 25 29 29  3d 2d 31 41 24 3d 22 59  |(MO(X%))=-1A$="Y|
00002d80  4f 55 20 41 52 45 20 49  4e 20 44 45 42 54 2f 20  |OU ARE IN DEBT/ |
00002d90  2f 59 4f 55 20 4d 55 53  54 20 50 41 59 20 54 48  |/YOU MUST PAY TH|
00002da0  49 53 2f 42 45 46 4f 52  45 20 52 4f 4c 4c 49 4e  |IS/BEFORE ROLLIN|
00002db0  47 20 44 49 43 45 22 3a  59 3d 2d 39 36 3a f2 54  |G DICE":Y=-96:.T|
00002dc0  45 58 54 3a f2 57 41 49  54 3a e6 30 2c 31 3a f2  |EXT:.WAIT:.0,1:.|
00002dd0  48 42 41 52 28 33 32 30  2c 2d 39 36 2c 2d 32 32  |HBAR(320,-96,-22|
00002de0  34 29 3a e6 30 2c 30 0d  0a 50 05 e1 0d 0a 5a 30  |4):.0,0..P....Z0|
00002df0  dd f2 50 52 4f 50 28 49  25 2c 4a 25 29 f2 43 4c  |..PROP(I%,J%).CL|
00002e00  53 3a f3 41 24 3a e7 41  3d 31 34 8c 41 24 3d 41  |S:.A$:.A=14.A$=A|
00002e10  24 2b 22 2f 53 54 41 54  49 4f 4e 22 0d 0a 64 1a  |$+"/STATION"..d.|
00002e20  4b 25 3d 4c 4f 25 28 49  25 29 80 37 3a e7 41 3e  |K%=LO%(I%).7:.A>|
00002e30  38 8c 8d 74 42 4a 0d 0a  6e 4f e7 4b 25 3d 30 41  |8..tBJ..nO.K%=0A|
00002e40  24 3d 41 24 2b 22 2f 20  2f 4e 4f 20 42 55 49 4c  |$=A$+"/ /NO BUIL|
00002e50  44 49 4e 47 53 22 8b e7  4b 25 3d 35 41 24 3d 41  |DINGS"..K%=5A$=A|
00002e60  24 2b 22 2f 20 2f 48 4f  54 45 4c 22 8b 41 24 3d  |$+"/ /HOTEL".A$=|
00002e70  41 24 2b 22 2f 20 2f 22  2b c3 4b 25 2b 22 20 48  |A$+"/ /"+.K%+" H|
00002e80  4f 55 53 45 22 0d 0a 78  17 e7 4b 25 3c 35 80 4b  |OUSE"..x..K%<5.K|
00002e90  25 3e 31 41 24 3d 41 24  2b 22 53 22 0d 0a 82 23  |%>1A$=A$+"S"...#|
00002ea0  e7 4c 4f 25 28 49 25 29  80 36 34 41 24 3d 41 24  |.LO%(I%).64A$=A$|
00002eb0  2b 22 2f 20 2f 4d 4f 52  54 47 41 47 45 44 22 0d  |+"/ /MORTGAGED".|
00002ec0  0a 8c 64 e7 4a 25 41 24  3d 41 24 2b 22 2f 20 2f  |..d.J%A$=A$+"/ /|
00002ed0  50 52 45 53 53 20 54 20  46 4f 52 2f 54 49 54 4c  |PRESS T FOR/TITL|
00002ee0  45 20 44 45 45 44 2f 45  4c 53 45 20 41 4e 59 20  |E DEED/ELSE ANY |
00002ef0  4f 54 48 45 52 20 4b 45  59 22 8b 4e 25 3d 28 4c  |OTHER KEY".N%=(L|
00002f00  4f 25 28 49 25 29 80 34  38 29 2f 31 36 3a f2 53  |O%(I%).48)/16:.S|
00002f10  41 4c 45 32 3a 41 24 3d  41 24 2b 22 2f 20 2f 22  |ALE2:A$=A$+"/ /"|
00002f20  2b 4e 24 0d 0a 96 17 59  3d 33 32 30 3a f2 54 45  |+N$....Y=320:.TE|
00002f30  58 54 3a f2 57 41 49 54  3a e1 0d 0a a0 53 dd f2  |XT:.WAIT:....S..|
00002f40  41 53 4b 3a f2 43 4c 53  3a 41 24 3d 22 44 4f 20  |ASK:.CLS:A$="DO |
00002f50  59 4f 55 20 57 41 4e 54  20 4a 55 53 54 2f 4f 4e  |YOU WANT JUST/ON|
00002f60  45 20 47 52 4f 55 50 20  4c 49 53 54 45 44 22 3a  |E GROUP LISTED":|
00002f70  59 3d 33 32 30 3a f2 54  45 58 54 3a f2 47 45 54  |Y=320:.TEXT:.GET|
00002f80  3a e7 41 24 3d 22 4e 22  57 3d 30 3a e1 0d 0a aa  |:.A$="N"W=0:....|
00002f90  26 f2 47 45 54 43 4f 4c  28 31 30 29 3a 57 3d 41  |&.GETCOL(10):W=A|
00002fa0  3a e7 57 3d 39 57 3d 31  34 8b e7 57 3d 31 30 57  |:.W=9W=14..W=10W|
00002fb0  3d 31 33 0d 0a b4 05 e1  0d 0a be 48 dd f2 41 4c  |=13........H..AL|
00002fc0  4c 28 4a 25 29 42 3d 2d  31 3a e3 49 25 3d 31 b8  |L(J%)B=-1:.I%=1.|
00002fd0  34 30 3a f2 47 45 54 44  41 28 49 25 29 3a f3 43  |40:.GETDA(I%):.C|
00002fe0  3a e7 43 3c 3e 4a 25 8c  8d 64 5c 4a 8b 42 25 3d  |:.C<>J%..d\J.B%=|
00002ff0  28 4c 4f 25 28 49 25 29  80 31 31 32 29 2f 31 36  |(LO%(I%).112)/16|
00003000  0d 0a c8 17 e7 42 3d 2d  31 42 3d 42 25 8b e7 42  |.....B=-1B=B%..B|
00003010  3c 3e 42 25 42 3d 30 0d  0a d2 0d e7 42 3c 3e 42  |<>B%B=0.....B<>B|
00003020  25 42 3d 30 0d 0a dc 07  ed 3a e1 0d 0a e6 3d dd  |%B=0.....:....=.|
00003030  f2 53 54 4e 52 45 4e 54  3a 4a 25 3d 2d 31 3a e3  |.STNRENT:J%=-1:.|
00003040  49 25 3d 36 b8 33 36 88  31 30 3a e7 28 4c 4f 25  |I%=6.36.10:.(LO%|
00003050  28 49 25 29 80 31 31 32  29 2f 31 36 3d 33 2d 58  |(I%).112)/16=3-X|
00003060  25 4a 25 3d 4a 25 2b 31  0d 0a f0 11 ed 3a 41 3d  |%J%=J%+1.....:A=|
00003070  32 5e 4a 25 2a 32 35 3a  e1 0d 0a fa 3d dd f2 55  |2^J%*25:....=..U|
00003080  54 52 45 4e 54 3a 4a 25  3d 2d 31 3a e3 49 25 3d  |TRENT:J%=-1:.I%=|
00003090  31 33 b8 32 39 88 31 36  3a e7 28 4c 4f 25 28 49  |13.29.16:.(LO%(I|
000030a0  25 29 80 31 31 32 29 2f  31 36 3d 33 2d 58 25 4a  |%).112)/16=3-X%J|
000030b0  25 3d 4a 25 2b 31 0d 0b  04 1a ed 3a 41 3d 28 34  |%=J%+1.....:A=(4|
000030c0  2b 36 2a 4a 25 29 2a 28  44 31 2b 44 32 29 3a e1  |+6*J%)*(D1+D2):.|
000030d0  0d 0b 0e ae dd f2 52 4f  4c 4c 3a f2 43 4c 53 3a  |......ROLL:.CLS:|
000030e0  41 24 3d 22 59 4f 55 20  48 41 56 45 20 52 4f 4c  |A$="YOU HAVE ROL|
000030f0  4c 45 44 2f 20 2f 22 2b  c3 44 31 2b 22 20 41 4e  |LED/ /"+.D1+" AN|
00003100  44 20 22 2b c3 44 32 3a  e7 44 4f 3d 33 41 24 3d  |D "+.D2:.DO=3A$=|
00003110  41 24 2b 22 2f 20 2f 59  4f 55 20 48 41 56 45 20  |A$+"/ /YOU HAVE |
00003120  54 48 52 4f 57 4e 2f 54  48 52 45 45 20 44 4f 55  |THROWN/THREE DOU|
00003130  42 4c 45 53 2f 20 2f 47  4f 20 54 4f 20 4a 41 49  |BLES/ /GO TO JAI|
00003140  4c 22 3a 5a 25 3d 34 31  3a 4e 4a 3d 30 3a 59 25  |L":Z%=41:NJ=0:Y%|
00003150  3d 33 2d 58 25 3a 44 4f  3d 30 8b e7 49 4a 28 58  |=3-X%:DO=0..IJ(X|
00003160  25 29 3d 30 5a 25 3d 5a  25 2b 44 31 2b 44 32 3a  |%)=0Z%=Z%+D1+D2:|
00003170  e7 5a 25 3e 34 30 5a 25  3d 5a 25 2d 34 30 0d 0b  |.Z%>40Z%=Z%-40..|
00003180  18 17 59 3d 33 32 30 3a  f2 54 45 58 54 3a ee 85  |..Y=320:.TEXT:..|
00003190  e5 8d 54 7c 45 0d 0b 22  05 e1 0d 0b 2c 06 dc 39  |..T|E.."....,..9|
000031a0  0d 0b 36 2d dc 31 2c 4f  4c 44 20 4b 45 4e 54 2f  |..6-.1,OLD KENT/|
000031b0  52 4f 41 44 2c 36 30 2c  32 2c 31 30 2c 33 30 2c  |ROAD,60,2,10,30,|
000031c0  39 30 2c 31 36 30 2c 32  35 30 2c 35 30 0d 0b 40  |90,160,250,50..@|
000031d0  07 dc 31 30 0d 0b 4a 31  dc 31 2c 57 48 49 54 45  |..10..J1.1,WHITE|
000031e0  43 48 41 50 45 4c 2f 52  4f 41 44 2c 36 30 2c 34  |CHAPEL/ROAD,60,4|
000031f0  2c 32 30 2c 36 30 2c 31  38 30 2c 33 32 30 2c 34  |,20,60,180,320,4|
00003200  35 30 2c 35 30 0d 0b 54  07 dc 31 31 0d 0b 5e 17  |50,50..T..11..^.|
00003210  dc 31 34 2c 4b 49 4e 47  53 20 43 52 4f 53 53 2c  |.14,KINGS CROSS,|
00003220  32 30 30 0d 0b 68 31 dc  32 2c 41 4e 47 45 4c 2f  |200..h1.2,ANGEL/|
00003230  49 53 4c 49 4e 47 54 4f  4e 2c 31 30 30 2c 36 2c  |ISLINGTON,100,6,|
00003240  33 30 2c 39 30 2c 32 37  30 2c 34 30 30 2c 35 35  |30,90,270,400,55|
00003250  30 2c 35 30 0d 0b 72 07  dc 31 32 0d 0b 7c 2d dc  |0,50..r..12..|-.|
00003260  32 2c 45 55 53 54 4f 4e  2f 52 4f 41 44 2c 31 30  |2,EUSTON/ROAD,10|
00003270  30 2c 36 2c 33 30 2c 39  30 2c 32 37 30 2c 34 30  |0,6,30,90,270,40|
00003280  30 2c 35 35 30 2c 35 30  0d 0b 86 33 dc 32 2c 50  |0,550,50...3.2,P|
00003290  45 4e 54 4f 4e 56 49 4c  4c 45 2f 52 4f 41 44 2c  |ENTONVILLE/ROAD,|
000032a0  31 32 30 2c 38 2c 34 30  2c 31 30 30 2c 33 30 30  |120,8,40,100,300|
000032b0  2c 34 35 30 2c 36 30 30  2c 35 30 0d 0b 90 07 dc  |,450,600,50.....|
000032c0  31 35 0d 0b 9a 2e dc 33  2c 50 41 4c 4c 20 4d 41  |15.....3,PALL MA|
000032d0  4c 4c 2c 31 34 30 2c 31  30 2c 35 30 2c 31 35 30  |LL,140,10,50,150|
000032e0  2c 34 35 30 2c 36 32 35  2c 37 35 30 2c 31 30 30  |,450,625,750,100|
000032f0  0d 0b a4 1c dc 31 33 2c  45 4c 45 43 54 52 49 43  |.....13,ELECTRIC|
00003300  2f 43 4f 4d 50 41 4e 59  2c 31 35 30 0d 0b ae 2e  |/COMPANY,150....|
00003310  dc 33 2c 57 48 49 54 45  48 41 4c 4c 2c 31 34 30  |.3,WHITEHALL,140|
00003320  2c 31 30 2c 35 30 2c 31  35 30 2c 34 35 30 2c 36  |,10,50,150,450,6|
00003330  32 35 2c 37 35 30 2c 31  30 30 0d 0b b8 3b dc 33  |25,750,100...;.3|
00003340  2c 4e 4f 52 54 48 55 4d  42 45 52 2f 4c 41 4e 44  |,NORTHUMBER/LAND|
00003350  20 41 56 45 4e 55 45 2c  31 36 30 2c 31 32 2c 36  | AVENUE,160,12,6|
00003360  30 2c 31 38 30 2c 35 30  30 2c 37 30 30 2c 39 30  |0,180,500,700,90|
00003370  30 2c 31 30 30 0d 0b c2  16 dc 31 34 2c 4d 41 52  |0,100.....14,MAR|
00003380  59 4c 45 42 4f 4e 45 2c  32 30 30 0d 0b cc 2f dc  |YLEBONE,200.../.|
00003390  34 2c 42 4f 57 20 53 54  52 45 45 54 2c 31 38 30  |4,BOW STREET,180|
000033a0  2c 31 34 2c 37 30 2c 32  30 30 2c 35 35 30 2c 37  |,14,70,200,550,7|
000033b0  35 30 2c 39 35 30 2c 31  30 30 0d 0b d6 07 dc 31  |50,950,100.....1|
000033c0  30 0d 0b e0 37 dc 34 2c  4d 41 52 4c 42 4f 52 4f  |0...7.4,MARLBORO|
000033d0  55 47 48 2f 53 54 52 45  45 54 2c 31 38 30 2c 31  |UGH/STREET,180,1|
000033e0  34 2c 37 30 2c 32 30 30  2c 35 35 30 2c 37 35 30  |4,70,200,550,750|
000033f0  2c 39 35 30 2c 31 30 30  0d 0b ea 31 dc 34 2c 56  |,950,100...1.4,V|
00003400  49 4e 45 20 53 54 52 45  45 54 2c 32 30 30 2c 31  |INE STREET,200,1|
00003410  36 2c 38 30 2c 32 32 30  2c 36 30 30 2c 38 30 30  |6,80,220,600,800|
00003420  2c 31 30 30 30 2c 31 30  30 0d 0b f4 07 dc 31 36  |,1000,100.....16|
00003430  0d 0b fe 2c dc 35 2c 53  54 52 41 4e 44 2c 32 32  |...,.5,STRAND,22|
00003440  30 2c 31 38 2c 39 30 2c  32 35 30 2c 37 30 30 2c  |0,18,90,250,700,|
00003450  38 37 35 2c 31 30 35 30  2c 31 35 30 0d 0c 08 07  |875,1050,150....|
00003460  dc 31 32 0d 0c 12 32 dc  35 2c 46 4c 45 45 54 20  |.12...2.5,FLEET |
00003470  53 54 52 45 45 54 2c 32  32 30 2c 31 38 2c 39 30  |STREET,220,18,90|
00003480  2c 32 35 30 2c 37 30 30  2c 38 37 35 2c 31 30 35  |,250,700,875,105|
00003490  30 2c 31 35 30 0d 0c 1c  37 dc 35 2c 54 52 41 46  |0,150...7.5,TRAF|
000034a0  41 4c 47 41 52 2f 53 51  55 41 52 45 2c 32 34 30  |ALGAR/SQUARE,240|
000034b0  2c 32 30 2c 31 30 30 2c  33 30 30 2c 37 35 30 2c  |,20,100,300,750,|
000034c0  39 32 35 2c 31 31 30 30  2c 31 35 30 0d 0c 26 18  |925,1100,150..&.|
000034d0  dc 31 34 2c 46 45 4e 43  48 55 52 43 48 20 53 54  |.14,FENCHURCH ST|
000034e0  2c 32 30 30 0d 0c 30 37  dc 36 2c 4c 45 49 43 45  |,200..07.6,LEICE|
000034f0  53 54 45 52 2f 53 51 55  41 52 45 2c 32 36 30 2c  |STER/SQUARE,260,|
00003500  32 32 2c 31 31 30 2c 33  33 30 2c 38 30 30 2c 39  |22,110,330,800,9|
00003510  37 35 2c 31 31 35 30 2c  31 35 30 0d 0c 3a 36 dc  |75,1150,150..:6.|
00003520  36 2c 43 4f 56 45 4e 54  52 59 2f 53 54 52 45 45  |6,COVENTRY/STREE|
00003530  54 2c 32 36 30 2c 32 32  2c 31 31 30 2c 33 33 30  |T,260,22,110,330|
00003540  2c 38 30 30 2c 39 37 35  2c 31 31 35 30 2c 31 35  |,800,975,1150,15|
00003550  30 0d 0c 44 17 dc 31 33  2c 57 41 54 45 52 2f 57  |0..D..13,WATER/W|
00003560  4f 52 4b 53 2c 31 35 30  0d 0c 4e 32 dc 36 2c 50  |ORKS,150..N2.6,P|
00003570  49 43 43 41 44 49 4c 4c  59 2c 32 38 30 2c 32 32  |ICCADILLY,280,22|
00003580  2c 31 32 30 2c 33 36 30  2c 38 35 30 2c 31 30 32  |,120,360,850,102|
00003590  35 2c 31 32 30 30 2c 31  35 30 0d 0c 58 07 dc 31  |5,1200,150..X..1|
000035a0  37 0d 0c 62 35 dc 37 2c  52 45 47 45 4e 54 2f 53  |7..b5.7,REGENT/S|
000035b0  54 52 45 45 54 2c 33 30  30 2c 32 36 2c 31 33 30  |TREET,300,26,130|
000035c0  2c 33 39 30 2c 39 30 30  2c 31 31 30 30 2c 31 32  |,390,900,1100,12|
000035d0  37 35 2c 32 30 30 0d 0c  6c 35 dc 37 2c 4f 58 46  |75,200..l5.7,OXF|
000035e0  4f 52 44 2f 53 54 52 45  45 54 2c 33 30 30 2c 32  |ORD/STREET,300,2|
000035f0  36 2c 31 33 30 2c 33 39  30 2c 39 30 30 2c 31 31  |6,130,390,900,11|
00003600  30 30 2c 31 32 37 35 2c  32 30 30 0d 0c 76 07 dc  |00,1275,200..v..|
00003610  31 30 0d 0c 80 34 dc 37  2c 42 4f 4e 44 20 53 54  |10...4.7,BOND ST|
00003620  52 45 45 54 2c 33 32 30  2c 32 38 2c 31 35 30 2c  |REET,320,28,150,|
00003630  34 35 30 2c 31 30 30 30  2c 31 32 30 30 2c 31 34  |450,1000,1200,14|
00003640  30 30 2c 32 30 30 0d 0c  8a 18 dc 31 34 2c 4c 49  |00,200.....14,LI|
00003650  56 45 52 50 4f 4f 4c 20  53 54 2c 32 30 30 0d 0c  |VERPOOL ST,200..|
00003660  94 07 dc 31 32 0d 0c 9e  32 dc 38 2c 50 41 52 4b  |...12...2.8,PARK|
00003670  20 4c 41 4e 45 2c 33 35  30 2c 33 35 2c 31 37 35  | LANE,350,35,175|
00003680  2c 35 30 30 2c 31 31 30  30 2c 31 33 30 30 2c 31  |,500,1100,1300,1|
00003690  35 30 30 2c 32 30 30 0d  0c a8 07 dc 31 38 0d 0c  |500,200.....18..|
000036a0  b2 30 dc 38 2c 4d 41 59  46 41 49 52 2c 34 30 30  |.0.8,MAYFAIR,400|
000036b0  2c 35 30 2c 32 30 30 2c  36 30 30 2c 31 34 30 30  |,50,200,600,1400|
000036c0  2c 31 37 30 30 2c 32 30  30 30 2c 32 30 30 0d 0c  |,1700,2000,200..|
000036d0  bc 07 dc 31 39 0d 0c c6  22 dc 47 4f 2c 43 43 2c  |...19...".GO,CC,|
000036e0  49 54 2c 43 48 2c 55 54  2c 53 4e 2c 4a 41 2c 46  |IT,CH,UT,SN,JA,F|
000036f0  50 2c 47 4a 2c 53 54 0d  0c d0 46 dc 42 4c 41 43  |P,GJ,ST...F.BLAC|
00003700  4b 2c 43 59 41 4e 2c 4d  41 47 45 4e 54 41 2c 57  |K,CYAN,MAGENTA,W|
00003710  48 49 54 45 2c 52 45 44  2c 59 45 4c 4c 4f 57 2c  |HITE,RED,YELLOW,|
00003720  47 52 45 45 4e 2c 42 4c  55 45 2c 53 54 41 54 49  |GREEN,BLUE,STATI|
00003730  4f 4e 53 2c 55 54 49 4c  49 54 49 45 53 0d 0c da  |ONS,UTILITIES...|
00003740  18 dc 30 2c 36 2c 35 2c  37 2c 31 2c 33 2c 32 2c  |..0,6,5,7,1,3,2,|
00003750  34 2c 30 2c 30 0d 0c e4  4b dc 53 49 54 45 20 4f  |4,0,0...K.SITE O|
00003760  4e 4c 59 2c 31 20 48 4f  55 53 45 2c 32 20 48 4f  |NLY,1 HOUSE,2 HO|
00003770  55 53 45 53 2c 33 20 48  4f 55 53 45 53 2c 34 20  |USES,3 HOUSES,4 |
00003780  48 4f 55 53 45 53 2c 48  4f 54 45 4c 2c 43 4f 53  |HOUSES,HOTEL,COS|
00003790  54 20 48 4f 55 53 45 2c  4d 4f 52 54 47 41 47 45  |T HOUSE,MORTGAGE|
000037a0  0d 0c ee 70 dc 22 20 42  52 49 54 49 53 48 20 52  |...p." BRITISH R|
000037b0  41 49 4c 22 2c 2c 52 45  4e 54 20 20 20 20 20 20  |AIL",,RENT      |
000037c0  20 20 60 32 35 2c 2c 20  20 32 20 53 54 41 54 49  |  `25,,  2 STATI|
000037d0  4f 4e 53 20 20 60 35 30  2c 2c 20 20 33 20 53 54  |ONS  `50,,  3 ST|
000037e0  41 54 49 4f 4e 53 20 60  31 30 30 2c 2c 20 20 34  |ATIONS `100,,  4|
000037f0  20 53 54 41 54 49 4f 4e  53 20 60 32 30 30 2c 2c  | STATIONS `200,,|
00003800  2c 4d 4f 52 54 47 41 47  45 20 20 20 60 31 30 30  |,MORTGAGE   `100|
00003810  0d 0c f8 85 dc 49 46 20  4f 4e 45 20 55 54 49 4c  |.....IF ONE UTIL|
00003820  49 54 59 2c 4f 57 4e 45  44 20 52 45 4e 54 20 49  |ITY,OWNED RENT I|
00003830  53 20 34 2c 54 49 4d 45  53 20 54 48 41 54 20 53  |S 4,TIMES THAT S|
00003840  48 4f 57 4e 2c 4f 4e 20  44 49 43 45 2c 2c 49 46  |HOWN,ON DICE,,IF|
00003850  20 41 4c 4c 20 55 54 49  4c 49 54 49 45 53 2c 4f  | ALL UTILITIES,O|
00003860  57 4e 45 44 20 52 45 4e  54 20 49 53 20 31 30 2c  |WNED RENT IS 10,|
00003870  54 49 4d 45 53 20 54 48  41 54 20 4f 4e 2c 44 49  |TIMES THAT ON,DI|
00003880  43 45 2c 2c 2c 4d 4f 52  54 47 41 47 45 20 20 20  |CE,,,MORTGAGE   |
00003890  20 20 60 37 35 0d 0d 02  3e dc 43 41 52 44 20 4d  |  `75...>.CARD M|
000038a0  55 53 54 20 42 45 2c 54  55 52 4e 45 44 20 54 48  |UST BE,TURNED TH|
000038b0  49 53 20 53 49 44 45 2c  55 50 20 49 46 20 50 52  |IS SIDE,UP IF PR|
000038c0  4f 50 45 52 54 59 2c 49  53 20 4d 4f 52 54 47 41  |OPERTY,IS MORTGA|
000038d0  47 45 44 0d 0d 0c 1c dc  53 50 45 45 44 49 4e 47  |GED.....SPEEDING|
000038e0  20 46 49 4e 45 20 60 31  35 2c 2d 31 35 2c 30 0d  | FINE `15,-15,0.|
000038f0  0d 16 1e dc 44 4f 43 54  4f 52 53 20 46 45 45 2f  |....DOCTORS FEE/|
00003900  50 41 59 20 60 35 30 2c  2d 35 30 2c 30 0d 0d 20  |PAY `50,-50,0.. |
00003910  1d dc 50 41 59 20 48 4f  53 50 54 49 41 4c 20 60  |..PAY HOSPTIAL `|
00003920  31 30 30 2c 2d 31 30 30  2c 30 0d 0d 2a 49 dc 59  |100,-100,0..*I.Y|
00003930  4f 55 20 41 52 45 20 41  53 53 45 53 53 45 44 2f  |OU ARE ASSESSED/|
00003940  46 4f 52 20 53 54 52 45  45 54 20 52 45 50 41 49  |FOR STREET REPAI|
00003950  52 53 2f 60 34 30 20 50  45 52 20 48 4f 55 53 45  |RS/`40 PER HOUSE|
00003960  2f 60 31 31 35 20 50 45  52 20 48 4f 54 45 4c 2c  |/`115 PER HOTEL,|
00003970  30 2c 30 0d 0d 34 27 dc  42 41 4e 4b 20 50 41 59  |0,0..4'.BANK PAY|
00003980  53 20 59 4f 55 2f 44 49  56 49 44 45 4e 44 20 4f  |S YOU/DIVIDEND O|
00003990  46 20 60 35 30 2c 35 30  2c 30 0d 0d 3e 28 dc 46  |F `50,50,0..>(.F|
000039a0  52 4f 4d 20 53 41 4c 45  20 4f 46 20 53 54 4f 43  |ROM SALE OF STOC|
000039b0  4b 2f 59 4f 55 20 47 45  54 20 60 35 30 2c 35 30  |K/YOU GET `50,50|
000039c0  2c 30 0d 0d 48 1b dc 59  4f 55 20 49 4e 48 45 52  |,0..H..YOU INHER|
000039d0  49 54 20 60 31 30 30 2c  31 30 30 2c 30 0d 0d 52  |IT `100,100,0..R|
000039e0  27 dc 49 4e 43 4f 4d 45  20 54 41 58 20 52 45 46  |'.INCOME TAX REF|
000039f0  55 4e 44 2f 43 4f 4c 4c  45 43 54 20 60 32 30 2c  |UND/COLLECT `20,|
00003a00  32 30 2c 30 0d 0d 5c 27  dc 41 4e 4e 55 49 54 59  |20,0..\'.ANNUITY|
00003a10  20 4d 41 54 55 52 45 53  2f 43 4f 4c 4c 45 43 54  | MATURES/COLLECT|
00003a20  20 60 31 30 30 2c 31 30  30 2c 30 0d 0d 66 32 dc  | `100,100,0..f2.|
00003a30  59 4f 55 52 20 42 55 49  4c 44 49 4e 47 20 4c 4f  |YOUR BUILDING LO|
00003a40  41 4e 2f 4d 41 54 55 52  45 53 2f 52 45 43 45 49  |AN/MATURES/RECEI|
00003a50  56 45 20 60 31 35 30 2c  31 35 30 2c 30 0d 0d 70  |VE `150,150,0..p|
00003a60  41 dc 41 44 56 41 4e 43  45 20 54 4f 2f 54 52 41  |A.ADVANCE TO/TRA|
00003a70  46 41 4c 47 41 52 20 53  51 55 41 52 45 2f 49 46  |FALGAR SQUARE/IF|
00003a80  20 59 4f 55 20 50 41 53  53 20 47 4f 2f 43 4f 4c  | YOU PASS GO/COL|
00003a90  4c 45 43 54 20 60 32 30  30 2c 30 2c 32 35 0d 0d  |LECT `200,0,25..|
00003aa0  7a 3a dc 41 44 56 41 4e  43 45 20 54 4f 2f 50 41  |z:.ADVANCE TO/PA|
00003ab0  4c 4c 20 4d 41 4c 4c 2f  49 46 20 59 4f 55 20 50  |LL MALL/IF YOU P|
00003ac0  41 53 53 20 47 4f 2f 43  4f 4c 4c 45 43 54 20 60  |ASS GO/COLLECT `|
00003ad0  32 30 30 2c 30 2c 31 32  0d 0d 84 1c dc 41 44 56  |200,0,12.....ADV|
00003ae0  41 4e 43 45 20 54 4f 20  4d 41 59 46 41 49 52 2c  |ANCE TO MAYFAIR,|
00003af0  30 2c 34 30 0d 0d 8e 1a  dc 41 44 56 41 4e 43 45  |0,40.....ADVANCE|
00003b00  20 33 20 53 50 41 43 45  53 2c 30 2c 2d 33 0d 0d  | 3 SPACES,0,-3..|
00003b10  98 25 dc 50 41 59 20 49  4e 54 45 52 45 53 54 20  |.%.PAY INTEREST |
00003b20  4f 4e 2f 41 20 4c 4f 41  4e 2f 60 35 30 2c 2d 35  |ON/A LOAN/`50,-5|
00003b30  30 2c 30 0d 0d a2 4b dc  54 41 4b 45 20 41 20 54  |0,0...K.TAKE A T|
00003b40  52 49 50 20 54 4f 2f 4d  41 52 59 4c 45 42 4f 4e  |RIP TO/MARYLEBON|
00003b50  45 20 53 54 41 54 49 4f  4e 2f 41 4e 44 20 49 46  |E STATION/AND IF|
00003b60  20 59 4f 55 20 50 41 53  53 20 47 4f 2f 43 4f 4c  | YOU PASS GO/COL|
00003b70  4c 45 43 54 20 60 32 30  30 2c 30 2c 31 36 0d 0d  |LECT `200,0,16..|
00003b80  ac 16 dc 41 44 56 41 4e  43 45 20 54 4f 20 47 4f  |...ADVANCE TO GO|
00003b90  2c 30 2c 31 0d 0d b6 23  dc 44 52 55 4e 4b 20 49  |,0,1...#.DRUNK I|
00003ba0  4e 20 43 48 41 52 47 45  2f 46 49 4e 45 20 60 32  |N CHARGE/FINE `2|
00003bb0  30 2c 2d 32 30 2c 30 0d  0d c0 29 dc 50 41 59 20  |0,-20,0...).PAY |
00003bc0  59 4f 55 52 20 49 4e 53  55 52 41 4e 43 45 2f 50  |YOUR INSURANCE/P|
00003bd0  52 45 4d 49 55 4d 20 60  35 30 2c 2d 35 30 2c 30  |REMIUM `50,-50,0|
00003be0  0d 0d ca 23 dc 50 41 59  20 53 43 48 4f 4f 4c 20  |...#.PAY SCHOOL |
00003bf0  46 45 45 53 2f 4f 46 20  60 31 35 30 2c 2d 31 35  |FEES/OF `150,-15|
00003c00  30 2c 30 0d 0d d4 32 dc  59 4f 55 52 20 42 55 49  |0,0...2.YOUR BUI|
00003c10  4c 44 49 4e 47 20 4c 4f  41 4e 2f 4d 41 54 55 52  |LDING LOAN/MATUR|
00003c20  45 53 2f 52 45 43 45 49  56 45 20 60 31 35 30 2c  |ES/RECEIVE `150,|
00003c30  31 35 30 2c 30 0d 0d de  3c dc 59 4f 55 20 48 41  |150,0...<.YOU HA|
00003c40  56 45 20 57 4f 4e 20 41  2f 43 52 4f 53 53 57 4f  |VE WON A/CROSSWO|
00003c50  52 44 2f 43 4f 4d 50 45  54 49 54 49 4f 4e 2f 43  |RD/COMPETITION/C|
00003c60  4f 4c 4c 45 43 54 20 60  31 30 30 2c 31 30 30 2c  |OLLECT `100,100,|
00003c70  30 0d 0d e8 31 dc 42 41  4e 4b 20 45 52 52 4f 52  |0...1.BANK ERROR|
00003c80  20 49 4e 20 59 4f 55 52  2f 46 41 56 4f 55 52 2f  | IN YOUR/FAVOUR/|
00003c90  43 4f 4c 4c 45 43 54 20  60 32 30 30 2c 32 30 30  |COLLECT `200,200|
00003ca0  2c 30 0d 0d f2 43 dc 59  4f 55 20 48 41 56 45 20  |,0...C.YOU HAVE |
00003cb0  57 4f 4e 2f 53 45 43 4f  4e 44 20 50 52 49 5a 45  |WON/SECOND PRIZE|
00003cc0  20 49 4e 20 41 2f 42 45  41 55 54 59 20 43 4f 4e  | IN A/BEAUTY CON|
00003cd0  54 45 53 54 2f 43 4f 4c  4c 45 43 54 20 60 31 30  |TEST/COLLECT `10|
00003ce0  2c 31 30 2c 30 0d 0d fc  37 dc 52 45 43 45 49 56  |,10,0...7.RECEIV|
00003cf0  45 20 49 4e 54 45 52 45  53 54 2f 4f 4e 20 37 50  |E INTEREST/ON 7P|
00003d00  43 20 50 52 45 46 45 52  45 4e 43 45 2f 53 48 41  |C PREFERENCE/SHA|
00003d10  52 45 53 2f 60 32 35 2c  32 35 2c 30 0d 0e 06 4d  |RES/`25,25,0...M|
00003d20  dc 47 4f 20 54 4f 20 4a  41 49 4c 2f 4d 4f 56 45  |.GO TO JAIL/MOVE|
00003d30  20 44 49 52 45 43 54 4c  59 20 54 4f 2f 4a 41 49  | DIRECTLY TO/JAI|
00003d40  4c 2f 44 4f 20 4e 4f 54  20 50 41 53 53 20 47 4f  |L/DO NOT PASS GO|
00003d50  2f 44 4f 20 4e 4f 54 20  43 4f 4c 4c 45 43 54 20  |/DO NOT COLLECT |
00003d60  60 32 30 30 2c 30 2c 34  31 0d 0e 10 42 dc 47 45  |`200,0,41...B.GE|
00003d70  54 20 4f 55 54 20 4f 46  20 4a 41 49 4c 2f 46 52  |T OUT OF JAIL/FR|
00003d80  45 45 2f 20 2f 54 48 49  53 20 43 41 52 44 20 4d  |EE/ /THIS CARD M|
00003d90  41 59 20 42 45 2f 4b 45  50 54 20 55 4e 54 49 4c  |AY BE/KEPT UNTIL|
00003da0  20 4e 45 45 44 45 44 2c  30 2c 30 0d 0e 1a 81 dc  | NEEDED,0,0.....|
00003db0  52 4f 4c 4c 20 44 49 43  45 2c 53 48 4f 57 20 43  |ROLL DICE,SHOW C|
00003dc0  4f 4c 4f 55 52 20 47 52  4f 55 50 2c 4c 49 53 54  |OLOUR GROUP,LIST|
00003dd0  20 4f 57 4e 45 44 20 50  52 4f 50 45 52 54 59 2c  | OWNED PROPERTY,|
00003de0  4c 49 53 54 20 41 4c 4c  20 50 52 4f 50 45 52 54  |LIST ALL PROPERT|
00003df0  59 2c 53 45 4c 4c 20 50  52 4f 50 45 52 54 59 2c  |Y,SELL PROPERTY,|
00003e00  42 55 59 20 4f 52 20 53  45 4c 4c 20 48 4f 55 53  |BUY OR SELL HOUS|
00003e10  45 53 2c 4d 4f 52 54 41  47 45 20 50 52 4f 50 45  |ES,MORTAGE PROPE|
00003e20  52 54 59 2c 45 4e 44 20  47 41 4d 45 0d 0e 24 58  |RTY,END GAME..$X|
00003e30  dc 31 20 50 41 59 20 60  35 30 2c 32 20 52 4f 4c  |.1 PAY `50,2 ROL|
00003e40  4c 20 44 49 43 45 20 41  4e 44 20 48 4f 50 45 2c  |L DICE AND HOPE,|
00003e50  22 20 20 46 4f 52 20 44  4f 55 42 4c 45 53 22 2c  |"  FOR DOUBLES",|
00003e60  33 20 55 53 45 20 41 20  47 45 54 20 4f 55 54 20  |3 USE A GET OUT |
00003e70  4f 46 2c 22 20 4a 41 49  4c 20 46 52 45 45 20 43  |OF," JAIL FREE C|
00003e80  41 52 44 22 0d 0e 2e 05  3a 0d 0e 38 09 dd f2 6c  |ARD"....:..8...l|
00003e90  6f 63 0d 0e 42 52 2a 4b  45 59 20 30 20 2a 54 41  |oc..BR*KEY 0 *TA|
00003ea0  50 45 7c 4d 46 4f 52 49  25 3d 30 20 54 4f 20 54  |PE|MFORI%=0 TO T|
00003eb0  4f 50 20 53 54 45 50 34  3a 49 25 21 26 45 30 30  |OP STEP4:I%!&E00|
00003ec0  3d 49 25 21 26 31 44 30  30 3a 4e 45 58 54 3a 50  |=I%!&1D00:NEXT:P|
00003ed0  41 47 45 3d 26 45 30 30  7c 4d 4f 4c 44 7c 4d 52  |AGE=&E00|MOLD|MR|
00003ee0  55 4e 7c 4d 0d 0e 4c 10  2a 46 58 31 33 38 2c 30  |UN|M..L.*FX138,0|
00003ef0  2c 31 32 38 0d 0e 56 05  e0 0d ff                 |,128..V....|
00003efb