MONOPOLI vP?x57579 "" What do you think you are doing in my "AUTOMONOPOLI" program!!!!!!!!!!  2:2::7 a$(288 ) (7,0;a$ 2r2,13 ;"";3,13 ;"";4,14;"";5,13 ;"" <"9 ,10 ;"AUTOMONOPOLI" F11 ,15;"By" P$13 ,9 ;"J. H. Woodhead" Z818,3;" AUTOMATA U.K. Ltd. 1983." i2:2 n"" x18,0; "" #  Graphics XP %Ј ?~~A@ @@@`@U̦x   *5O|?kL dg*$|`?`@| ؐ >iMONOPOLI h $` |2DB|| x881"B~JHD ^^~^^8x @<8D RR 8 BD (< R ꈈ@ @ B$BBFDD @@B@@@ BDD Bbb  BD (D b R@ <<< 8x B8 < ~< a   <<<@xD~B|<B~B~<<<<<|B>BDBBBBB@B@@bBB@b"(@FFB@BBBB(BB~BB||||R@B|Rx|JJB<BBB~BBB~B@B@@JNB@J RRB~|BBBBBB$@B@@FB$@F BbbBBBDZB<<BB~|~~B<>~B~><<<<<BB$>Bxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxppppppppppppppppxxxxxxxxxxxxxxxxxxx{{{{xxxxxxxxxxxxxxxxxxxxxxxxxx{{{{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx{xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxrpppppppppppprpppppppppppprppppprpppppppppppprpppppppppppprppppprpppppppppppprpppppppppppprppppprrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr<<<<<<<<<<< !G>C&-%=&G} o {o= y >=!!"\!XX>!GG˽=[!@>'2H\>@!>2H\>.'&))T])"!7?R"> *K\KK!K= MQ ?v>> *K\$">!O0+&------------------------------+=’ѴSI 6![oo&)))#~#~#~#~#~#~> OI!>=2Ev>  pff""ǃ<<<<99??À~t~UIMXMONOPOLI m~#mEo~I()=-480 *Y=1:O=0:ZX=O:END=O:OWN=O C$(5,6) (jC$(Y)=" ":C$(2)=" ":C$(3)=" ":C$(4)=" ":C$(5)=" " 2+23658j\,8:236099\,30 PO:7: Z"4,10 ;"AUTOMONOPOLI" dY:Y:4:Y 9 :7 END |7,O;"2 to 5 people can play MONOPOLI.If you want the computer to joinin, type in the name ZX and giveit a counter." 5A=Y5:0'24;A;")";C$(A);" ":A 911 ,2;"HOW MANY PLAYERS";Y;"?";:" 2 to 5" (p=I():P<2P>5180 P$(P,16) #11 ,2;p;" Players.",, A=YP &12 +A,O;"WHAT IS YOUR NAME? " A" No more than 9 letters,please.",P$(A):P$(A,Y)=" "205 3P$(A,3)="ZX "ZX=OP$(A)="Spectrum":ZX=A :12 +A,O;P$(A,9 )," "'"NOW CHOOSE A COUNTER" c=I() C5220 C$(C,Y)=" "220 cP$(A,10 )=P$(A,Y)+C$(C):12 +A,10 ;C$(C);O;10 +2*C,24;P$(A,Y) C$(C)="":A )V(P):U(P):C$(6,3,3) J$="0000000000"(P):K$=J$   )A=Y6:B=Y3:C$(A,B):B:A m" "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," "," " "%A=YP:V(A)=1500:K$(A)=Y:A ,13 ,37%,73I,97a,109m,133,157,169,193,217,229,253,277,289!,3139,325E,349],373u,385,409,445,469,145,337Q,61=,181,301-,421 6? 13 +P,O;"Press enter to start":13 3106 BANK=9140# CLS=9080x# TOP=9100# IN=9450$ PAUSE=9250"$ lH$=" " vY$="Y or N" X$="0000000000" CC=(*14+Y) CH=(*14+Y) SITE=Y SET=O 64645 R=(*P+Y)P 0#1;Y,O;Y;9 ;P$(R);" can start.",  2009 R=YP  CLS:TOP 8#1;Y,0;Y;9 ;P$(R);"'s TURN TO GO",  DOUBLE=O BANK J$(R)<"0"5500| ZX=R2020 021,O;"Press your initial to throw dice" ="X"7000X =p$(R,Y)2020 ="Z"9980&  2015 MOVE=K$(R)-SITE SITE=SITE+MOVE MOVE2085% MOVEO2500 *TOP 4 6010z >:SITE=11 D1=D2ƯA$(9 ,R+6)>O2630F \4SITE=11 ƯA$(9 ,R+6)>O5000 fjDOUBLE>2D1=O:19,O;"This is the third time you have thrown a double.",:PAUSE:4130" p 9000(# zSITE=SITE+MOVE /SITE>40(SITE=SITE-40(:9200#  K$(R)=SITE CLS 4000+A$(9 ,Y) CLS 3A$(9 ,6+R)=(A$(9 ,6+R)-Y) F17,O;" If you want to get out of jail, you must pay `50", WA$(9 ,R+6)=O19,O;Y;"YOU HAVE TO GET OUT THIS TIME",:2600( 'J$(R)="0""DO YOU WANT TO PAY UP? "; KJ$(R)>"0""YOU HAVE A GET OUT FREE CARD.","DO YOU WANT TO USE IT? "; Y$ ZX=R8100 ="Y"2600( "N"2580  (%J$(R)="0"V(R)=V(R)-502:BANK 2J$(R)>"0"J$(R)=(J$(R)-Y) <V(R)+U(R)O1;A;:")";P$(A,10 );"`";V(A) :A ?17,O;"This is FOR SALE to the highest bidder. Press the number of the player making the highest offer or ""0"" if there are no bidders." IZX8040h:8070 SA=I() T)A=40(ZXR7000X:3155S X A=OA=ZX ]A=ZX3290 bAP3155S l&21,O;"INPUT THE HIGHEST BID", %9 ;(P$(A,10 ));" `";S$ IN V(A) 4990~  3000 OWN=A$(9 ) LOWN=717,O;" THIS BELONGS TO THE BANK ":5000 I6;17,O;"THIS PROPERTY BELONGS TO ";P$(OWN,10 ), OWN=R5000 #RENT=A$(4,69 ) <RENT=O" BUT IT HAS BEEN MORTGAGED. ":5000 $A$(9 ,4)O4020  9300T$ 9SET=ORENT=RENT*2:19,O;"It's a full set" lS$=4RENT=(D1+D2)*(10 -6*SET):5,O;5;10 -6*SET;" X dice=";rent 'S$=YRENT=A$(9 ,10 -SET) D18,O;"You will have to pay `";RENT:ZX=R18,O;" I" -A=O8:ץ/4,2*-1:A $V(OWN)=V(OWN)+RENT:V(R)=V(R)-RENT  V(R)15)  9165# $9650%+10 *CH:44000 TOP  1 43,Y;Y;"COMMUNITY";4,3;"CHEST"  CC=CC+Y-15*(CC>15)  9165# 9500%+10 *CC 0V(R)O5000 1PAUSE 25V(R)+U(R)+502*J$(R)O6900:44000 : 9400$ ?H:2,Y;p$(R),,:" You must find `";V(R)'" to pay your debts."'' Dv"Your total mortgage values plus your money in the bank is less than your debts. You must drop out of the game.",, IL=O5:PAUSE:L NV(R)=O:U(R)=O:J$(R)="!" XEND=Y bA=YP:END=END+(J$(A)="!"):A lEND=P5600 vs:7,o;" All ";p$(R,10 );:"'s property has been repossessed by the bank, and is up for auction."''' {HO=O S=12 48012 HA$(9 ,S-11 )=Ra$(9 ,s-11 )=7:9350$ S "The other players can buy fromthe bank any of ";p$(r,10 );"'s propertyby pressing ""A"", followed by thenumber of the site required.",, PAUSE  7031w ~ TOP:CLS BANK +21,O;"Press any key to continue.", RD2=D118,O;"YOU HAVE THROWN A DOUBLE,","YOU GET ANOTHER GO",:2010 "ZX=R8130 6Y:O @="X"7000X J V(R)OS=156:6175 MA$(9 ,337Q)=ZXưA$(4,342V)>OS=348\:6175 LVAL=10000' 300,:C=Y28 yB:A$(9 ,B)=ZXVAL=A$(4,B+5B+8):VAL>OVALX=(S-36$)S+36$12 :X>4806170 eA$(9 ,X-10 )=A$(9 ,S-10 )A$(9 ,X-8)>A$(9 ,S-8)S=X X  6530 . d421,O;" Which site is to be mortgaged?", n39 ;(P$(R,10 ));"SITE NUMBER ";S$:IN xS4807030v y'A$(9 ,S-11 )R6510n z'A$(4,S-6)="0"6800 &A$(9 ,S-8)>O6700, HV(R)=V(R)+A$(8,S-3S):U(R)=U(R)-A$(8,S-3S) (A$(4,S-6S-3)="0000" p20,O;A$(Y,S-11 S);" Mortgaged,gives you `";A$(8,S-3S);"This leaves you with `";V(R), +ZX=RX$(Y+A$(9 ,S-10 ))="0":  6850 ,EHO=A$(9 ,S-8)-Y:COST=(A$(9 ,S-7)/2) JA$(9 ,S-8)=HO T 9350$ ^ V(R)=V(R)+COST:U(R)=U(R)-COST ccZX=R2,o;Y;P$(ZX),,"Just a minute,I need to think",:X$(A$(9 ,S-10 )+Y)="S": h 7030v 4COST=(11 /10 *A$(8,S-3S)) G21,0;6;A$(Y,S-11 S);" THIS COST YOU `";COST >COST>V(R)"YOU ONLY HAVE `";V(R);" IN THE BANK":6850 4V(R)=V(R)-COST:U(R)=U(R)+A$(8,S-3S) 9A$(4,S-6S-3)=A$(9 ,S-5) AS=156S=348\A$(4,S-6S-3)="1111" 200:7030v  9400$ ]PAUSE::5,Y;9 ;Y;p$(R);" "'" You must find `";V(R);" to pay your debts." D"You will have to mortgage a siteor sell a site to another player" (U(R)+J$(R)*502ȽV(R)6990N Z'" Your total mortgage values are less than your debts. You must drop out of the game" !OWN=O6985I &V(OWN)=V(OWN)+U(R)+V(R) 0FS=12 48012 :A$(9 ,S-11 )R6975? 5[A$(4,S-6)="0"V(OWN)=V(OWN)-(A$(8,S-3S)/10 ):6971; 6EV(OWN)=V(OWN)+A$(9 ,S-8)*A$(9 ,S-7)/2 7,HO=O:A$(9 ,S-8)=O:9350$ 9(U(OWN)=U(OWN)+A$(8,S-3S) ;@A$(3,S-9 S-Y)=P$(OWN):A$(9 ,S-11 )=OWN ?S D'J$(OWN)=(J$(OWN)+J$(R)):J$(R)="!" IU(R)=O:V(R)=O MZX=OWN8600! N 7031w X 9400$ v wAO,O;"Houses Mort Swap Position Return"  AU=O:O ,,,,,,  9820\& Y 23692\,255 ZX=R7330 3O;21,O;"PRESS ENTER FOR THE LIST OF SETS"  300, 23692\,255 A=O27:B 64583G Y+(A$(9 ,B+Y)-5);A$(9 ,B+5);2;"]";A$(Y,BB+11 );:ïA$(9 ,B)" FOR SALE.":7182 BA$(9 ,B)=7Y;" AUCTION Press A ":AU=Y:7182 mP$(A$(9 ,B),10 );A$(8,BB+10 ):A$(4,B+5)="0"21,31;Y;"M" A>217182 64583G  ;A$(9 ,B+3)=5" ",:7181   $4;A$(5,BB+11 ),  )"Rent ";A$(4,B+4B+8) ZX=RSN=A$(9 ,B+Y) ZX=RA:7110 =13 A O ="H"7400 ="S"7700 ="R"7300 ="P"9850z& ="A"AU7900 ="M"6500d I=I() ZXJ$(ZX)>"0"I=ZX sI>OIPJ$(I)>"0"J$(I)=(J$(I)-Y):V(I)=V(I)+502:21,O;"GET OUT OF JAIL CARD SOLD `50 "  A *A=YP 4J$(A)"0"A:7110 964583G >}P$(A,10 );:" has ";J$(A);" get out of jail card":64583G:" worth `50,Press """;a;""" to sell it." RA:7110 64645 0MOVE=SITE-Y:MOVE>40(MOVE=MOVE-40(  9020<# BANK !V(ZX)4807346 NA$(9 ,S-10 +A)=SNA$(9 ,S-8+A)HOS=S+A:7344 A &HO>4X$(SN+Y)="H":7300 H=Y PRICE=A$(9 ,S-7)  7565 9'20,O;Y;p$(R,10 );" HOUSES & HOTELS", ,"`";V(R);" in the bank. Which site";Y;"?" 49 ;(P$(R,10 ));" Site number ";S$:IN $S<24S>4807030v 'A$(9 ,S-11 )R7420 $SN=A$(9 ,S-10 ) )BA=(S-36$)+2470-480*(9 -SN)12 .A$(9 ,A)=SNA$(9 ,A-Y)RA$(4,A+4)="0"20,O;" YOU HAVE NOT GOT A FULL SET. ":150:7030v 8A BSN=YSN=47030v LPRICE=A$(9 ,S-7) VHO=A$(9 ,S-8) `QHO>420,O;"YOU ALREADY HAVE A HOTEL HERE",:150:7030v tS20,O;"EACH HOUSE COSTS `";PRICE;". 5=1 HOTEL":HO"You already have ";HO, ~!"HOW MANY DO YOU WANT TO BUY?", H=I() H5-HO7030v U(R)=U(R)+H*PRICE/2 V(R)=V(R)-H*PRICE  HO=HO+H A$(9 ,S-8)=HO  9350$ ZX=R7335  7030v  DEAL3=O LP=2DEAL1=Y:DEAL2=P:21,O;"1)";P$(Y,10 ),:7745A !A=OP-Y:Y,A*6;Y;A+Y:A /21,O;" WHO WANTS TO MAKE A DEAL?", ( DEAL1=I() 2DEAL1P7720( 3J$(DEAL1)="!"7710 7,21,O;DEAL1;")";P$(DEAL1,10 ), <"AND WHO ELSE?", = DEAL2=I() >)DEAL1=DEAL2DEAL2P7741= ?J$(DEAL2)="!"7030v A321,15;DEAL2;")";P$(DEAL2,10 ), F!DEAL2=ZXDEAL2=DEAL1:DEAL1=ZX GDEAL1=ZX8300l P:9 ;(P$(DEAL1,10 ));"'S SITE NUMBER ";S$:IN US=O7830 ZS>4807760P dTA$(9 ,S-11 )DEAL120,O;" THIS IS NOT YOUR SITE!",:7760P eUA$(9 ,S-8)>O20,O;" Can't swap with a house there",:7760P irA$(9 ,S-11 )=DEAL2:A$(4,S-4)="0"V(DEAL2)=V(DEAL2)-(A$(8,S-3S)/10 ) s%A$(3,S-9 S-Y)=P$(DEAL2) xsA$(4,S-6)"0"U(DEAL2)=U(DEAL2)+A$(8,S-3S):U(DEAL1)=U(DEAL1)-A$(8,S-3S) }DEAL1=ZXDEAL2=ZX (20,O;" ANY MORE SITES ";Y$, ="Y"7760P "N"7815 020,O;"AND HOW MUCH MONEY WILL YOU GIVE" %"MONEY `";S$:IN:MONEY=S/12 2V(DEAL2)=V(DEAL2)+MONEY:V(DEAL1)=V(DEAL1)-MONEY DEAL37030v 'DEAL3=DEAL2:DEAL2=DEAL1:DEAL1=DEAL3  7760P 7A=1P:1,A*6-6;1;A:A K20,O;Y;"Type in the number for the buyermaking the highest bid.", I=I() I=O7030v FZXZX=I20,O;"No thank you,I don't want to bid":7031w IP7910 V(I)4807110 -A$(9 ,S-11 )77930 "HY;20,25;".",P$(I,10 );" SITE ";A$(Y,S-11 S), $S1=S '.9 ;"Tell me the highest bid `";S$:IN (PRICE=S/12 )S=S1 ,PRICEO7905 15V(I)=V(I)-PRICE:U(I)=U(I)+A$(8,S-3S) 2<A$(3,S-9 S-Y)=P$(I):A$(9 ,S-11 )=I 69A$(4,S-6S-3)=A$(9 ,S-5) > 7030v @A=V(R)-PRICE EMA$(9 ,2)YƯA$(9 ,2)48900":3300 JBA$(9 ,2)=4A>800 8900":3300 T<A$(9 ,2)=YA>5008900":3300 ^ 3100 hset=a$(9 ,2) m(set=Yset=4price=price/3 n 300, rUa=Y28:B:a$(9 ,B+Y)=SETa$(9 ,B)=ZXprice=price+price/2 |a } T=O:A=YP ~AZXV(A)>TT=V(A) A TV(ZX)PRICE=(PRICE*V(ZX)/(PRICE+100d)) 'COST=O:A=YP:V(A)>COSTCOST=Y+V(A) A:COST4808160 D 5500| lV$="":W$="":TPRICE=O v39 ;(P$(DEAL2,10 ));"'S SITE ";S$:IN S>4808310v S8400 UA$(9 ,S-11 )DEAL220,O;"THIS IS NOT YOUR SITE",:8310v YA$(9 ,S-8)>O20,O;" Can't swap with a house there",:8310v CPRICE=6*A$(9 ,S-5):SET=A$(9 ,S-10 ) 8045m TPRICE=TPRICE+PRICE W$=W$+(S/12 ) +20,O;" is there another site? ";y$ "="Y"20,O,,:8310v "N"8395 420,O;"AND HOW MUCH MONEY WILL YOU GIVE" %"MONEY? ";S$:IN:MONEY=S/12 20,O,, COST=TPRICE+MONEY TPRICE=O 09 ;(P$(ZX,10 ));"'S SITE ";S$:IN S85004! S>4808430 !PA$(9 ,S-11 )ZX20,O;"THIS IS NOT MY SITE",:8430 ! CPRICE=6*A$(9 ,S-5):SET=A$(9 ,S-10 ) ! 8045m ! TPRICE=TPRICE+PRICE !*V$=V$+(S/12 ) !++20,O;" is there another site? ";y$ !/"="Y"20,O,,:8430 !0"N"8495/! !4420,O;"AND HOW MUCH MONEY DO YOU WANT? " !>&"MONEY? ";S$:IN:MONEY1=S/12 !HPRICE=TPRICE+MONEY1 !R;V(ZX)-MONEY1+MONEYCOSTX$(SET+Y)"0"8800`" !\<20,O;9 ;P$(ZX);" Yes alright, it's a deal.",, !f>V$""I=Y̱V$:S=12 *V$(I):7785i:8950":I !p V(DEAL1)=V(DEAL1)+MONEY-MONEY1 !zDEAL1=DEAL2:DEAL2=ZX !>W$""I=Y̱W$:S=12 *W$(I):7785i:8950":I ! V(DEAL1)=V(DEAL1)-MONEY+MONEY1 ! 7030v !S=469Y-12 !9A$(9 ,S)ZXA$(4,S+5)="0"8690! !SN=A$(9 ,S+Y) !!C=O:SN=0SN=9 C=Y !#A=S-12 S-480-12 !LA$(9 ,A)=ZXƯA$(9 ,A+Y)=SNA$(4,A+5)"0"C=C+Y !A !!C>YX$(SN+Y)="0"X$(SN+Y)="S" !S ! "`K19,O;9 ;P$(ZX);" _No. It is not a good enough deal for me.", "j<x$(set+Y)"0""I would loose one of my sets",:8830~" "t9"I would need about `";(price-cost)+10 ;" more", "~Y:400:7030v "1S=A$(9 ,3):SN=A$(9 ,2) "LC=13 37%12 :A$(9 ,C)=ZXƯA$(9 ,Y+C)=SNS=S-Y "C "NC=44546912 :A$(9 ,C)=ZXƯA$(9 ,Y+C)=SNS=S-Y "C "S=YX$(SN+Y)="S" " "6SN=A$(9 ,S-10 ):X=A$(9 ,S-9 ) #BC=(S-36$)S+36$12 :C=OC>4808970 # #XA$(9 ,C-11 )=ZXƯA$(9 ,C-10 )=SNA$(4,C-6)"0"X=X-Y # C #!X$(SN+Y)="0":X=OX$(SN+Y)="S" # #(65349E,MOVE*12 #265158 #<MOVE39' #= 64905,MOVE:64904 #F #x17,O,,,,,,,,,, # #LO,O;12 '12 '12 '12 '12 '13 '13 # #54,20;" ";6,19;" " #^9 ;3,17;P$(R,10 );" ";4,20;V(R);6,19;U(R) # #Һ11 ,166:72H,O:8,-8,-1.6L:O,-30:-8,-8,-1.6L:-72H,O:-8,8,-1.6L:O,30:8,8,-1.6L #64498 # 9 : #U18,5;Y;" YOU HAVE PASSED GO ":V(R)=V(R)+200:BANK:PAUSE: $"A=Y30 $,34:Y:4:Y:4:Y:4:Y:Y $6A $@ $TSET=A$(9 ,3)-Y $^S$=A$(9 ,2) $cA=1447012 $hYA$(9 ,A)=S$A$(9 ,A-Y)=OWNSET=SET-Y:A$(4,A+4)="0"SET=SET+Y $rA: $RENT=A$(9 ,S-5) $cHOA$(5,S-11 S)=" ":A$(7,S-11 S)=" ":9394$ $RENT=O:A=YHO $1RENT=RENT+(5*A$(9 ,S-5+A)):A $kHO<5A$(7,S-8S-4)=" ":A$(5,S-11 S)=H$(HO*3):9394$ $RA$(5,S-11 S)=" ":A$(7,S-8S-4)="" $'A$(4,S-6S-3)=RENT $ $0MOVE=41)-SITE:MOVE"9"S=O: $X %S=12 *S$: %&6" DOCTORS FEE. PAY `50",3,3;"PAY `50" %+V(R)=V(R)-502 %/ %0W" COLLECT `10 FROM EACH PLAYER",3,4;"YOUR";4,2;"BIRTHDAY" %5:A=YP:J$(A)"!"V(R)=V(R)+10 :V(A)=V(A)-10 %8A %9 %:8" YOUR INSURANCE PREMIUM",3,3;"PAY `50" %?V(R)=V(R)-502 %C %DK" ANNUITY MATURES ";3,2;"COLLECT ";4,4;"`100" %IV(R)=V(R)+100d %M %Nh" YOU HAVE WON SECOND PRIZE IN A BEAUTY CONTEST.";3,2;"COLLECT";4,4;"`10" %SV(R)=V(R)+10 %W %X2" TO OLD KENT ROAD",4,2;"GO BACK" %]MOVE=39'-SITE %^SITE=2 %a 9708% %bL" FROM SALE OF STOCK ";3,3;"COLLECT";4,5;"`50" %gV(R)=V(R)+502 %i %l 9730& %v-" ADVANCE TO GO ";4,4;" GO " %{*SITE=Y:MOVE=38&-K$(R):9706% %U" BANK ERROR IN YOUR FAVOUR.";3,2;" COLLECT";4,4;"`200" %V(R)=V(R)+200 % %V" INTEREST,7% PREFERENCE SHARES",3,3;"COLLECT";4,5;"`25" %V(R)=V(R)+25 % %@" HOSPITAL ";3,5;"PAY";4,4;"`100 " %V(R)=V(R)-100d % %+" YOU INHERIT ";4,4;"`100" %V(R)=V(R)+100d % %&"PAY A `10 FINE OR TAKE A CHANCE " %!"WILL YOU TAKE A CHANCE? ";Y$ %4,2;"???????" %="Y"ZX=RPAUSE:4250 %="N"V(R)=V(R)-10 : %DV(R)<10 19,O;"YOU DONT HAVE `10":PAUSE:4250  % 9645% %p" THIS CARD MAY BE KEPT OR SOLD ";3,2;"GET OUT ";4,5;"OF";5,4;"JAIL" %J$(R)=(J$(R)+Y) % %L" INCOME TAX REFUND ";3,3;"COLLECT";4,5;"`20 " %V(R)=V(R)+20 % %/" THREE SPACES ";4,2;"GO BACK" %"SITE=SITE-3:MOVE=34" % 9708% %F" YOU ARE ASSESSED FOR REPAIRS PAY `40 Per HOUSE `115 Per HOTEL" % 9725% %t2,O;" ";HO;" HOUSES"'" ";HT;" HOTELS"'"COST `";HO*40(+HT*115s:V(R)=V(R)-HO*40(-HT*115s % %Q" BANK PAYS YOU A DIVIDEND",4,3;"COLLECT";5,5;"`50" %V(R)=V(R)+502 % %c" ADVANCE TO TRAFALGAR SQUARE IF YOU PASS GO YOU COLLECT `200 ";4,2;"ADVANCE" %%SITE=25:MOVE=22-K$(R) %K$(R)>SITE9200# %MOVEh" YOU HAVE WON A CROSSWORD COMPETITION ";3,3;"COLLECT";4,4;"`100 " &CV(R)=V(R)+100d &G &H=" ADVANCE TO PALL MALL"," IF YOU PASS GO COLLECT `200", &JMOVE=9 -SITE &MSITE=12 &Q 9707% &R0" SCHOOL FEES ";3,2;"PAY `150 " &WV(R)=V(R)-150 &[ &\ A=YP &]&Y,A*6-6;P$(A,10 ) &^V2,A*6-6;(V(A)>>>>GO<<<<<",13 ,a,"COMNTY CHEST",37%,A," INCOME TAX ",61=,73I,A,"???CHANCE???",97a,109m,A,"####JAIL####",133,145,157,169,181,193,A,"COMNTY CHEST",217,229,A,"FREE PARKING",253,A,"???CHANCE???",277,289!,301-,3139,325E,337Q,349],A,"#GOJAIL#",373u,385,A,"COMNTY CHEST",409,421,A,"???CHANCE???",445,A," SUPER TAX ",469 &Q17,O;" You pressed ""Z"". Do you want tosave the game on cassette ";Y$ '$="N"17,O,,,,:2005 '"Y"9985' '<17,O,,"GET YOUR CASSETTE READY, PLEASE.",,:PAUSE '64620l '"Saved Game"9996 ' ' %"Saved Code"57580,7956 ' >21,O;" The program has now been saved.":2005 ' "Saved Code" ' END=Y:502:PAUSE:PAUSE '364645:18,O;" We can continue now", ' 2005   GO>>>> OLD KENT >>>>>>>>>>>>WHITECHAPEL INCOME KINGS CROSS THE ANGEL ???????????? EUSTON PENTONVILLE JAIL PALL MALL ELECTRIC WHITEHALL NORTHUMBER MARYLEBONE BOW STREET >>>>>>>>>>>> MARLBOROUGH VINE STREET STRAND ????????????FLEET STREET TRAFALGAR FENCHURCH St LEICESTER COVENTRY WATER PICCADILLY GO TO REGENT OXFORD >>>>>>>>>>>>BOND STREET LIVERPOOL St???????????? PARK LANE SUPER MAYFAIR ```````````` ROAD COMMUNITY ROAD TAX STATION ISLINGTON CHANCE ROAD ROAD | | | | | | COMPANY LAND AVENUE STATION COMMUNITY STREET CHANCE SQUARE STATION SQUARE STREET WORKS JAIL STREET STREET COMMUNITY STATION CHANCE TAX COLLECT FOR SALE CHEST FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE CHEST FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE FOR SALE CHEST FOR SALE FOR SALE FOR SALE FOR SALE `200 `60 `60 PAY `200 `200 `100 `100 `120 `140 `150 `140 `160 `200 `180 `180 `200 P P P P P P `220 `220 `240 `200 `260 `260 `150 `280 ^ ^ ^ ^ ^ ^ `300 `300 `320 `200 `350 PAY `100 `400 RENT DOUBLES RENT IS RENT DOUBLES RENT DOUBLES RENT IS RENT DOUBLES FOR EACH 4 or 10 FOR EACH FOR EACH 4 or 10 FOR EACH STATION X the dice STATION STATION X the dice STATION >>>>>>>>>>>> Mort `30 >>>>>>>>>>>> Mort `30 >>>>>>>>>>>> Mort `100 Mort `50 ???????????? Mort `50 Mort `60 | | | | | | Mort `70 Mort `75 Mort `70 Mort `80 Mort `100 Mort `90 >>>>>>>>>>>> Mort `90 Mort `100 P P P P P P Mort `110 ???????????? Mort `110 Mort `120 Mort `100 Mort `130 Mort `130 Mort `75 Mort `140 ^ ^ ^ ^ ^ ^ Mort `150 Mort `150 >>>>>>>>>>>> Mort `160 Mort `100 ???????????? Mort `175 >>>>>>>>>>>> Mort `200 2  2  2 2d2 $ 2  $2  ( d <#  d <#d @((2ddF(( dF((dL(( Z##  Z##(F##2d,^##,^## 0b## 4f(#!4f(# "#