***VER5.1 7 lX=129:tHS:X=135:tHS:X=129:tHS:X=1112:4,X)(141);(132);"FROM OLD KENT ROAD TO MAYFAIR"::dFG DtD:X=():X=(-X):  D@_ <"Do you have a game saved?";:yn="Y"Tpj:MIN=0:D_@  D|_ #K"Do you want to play the time limit"'"version?";:yn="N" MIN=0:D_@ (>"How many minutes do you want the game"'"to run? "MIN:=0 2O"Cards being dealt":dFG:a=1 n%:b=12:c=(40):p%(c,2)<>7 b=b-1:T|@ 7!p%(c,2)=a:m%(a)=m%(a)-p%(c,1) < b:a _ err: Di@ `B:23;8202;0;0;0:D$(1)="H":D$(2)="HH":D$(3)="HHH":D$(4)="HHHH" d(a=1:tDC:MIN>0 6000>MIN d`n e FORa=1TOn% fd4=0:N$(a)=""daE ia=c%dPG:d\E }x=j%(a):x=0dH@ D:tRS:x=x+1:x=4x=0:;N$(a)" - you must now leave jail":tL@ H" "N$(a)" in jail":C$;L$:" Do you wish to remain?";:yn="Y"to@ Qg%(a)>0" Do you wish to use your card?";:yn="Y" g%(a)=g%(a)-1:x=0:to@ 2" "T$;"50":m%(a)=m%(a)-50:x=0:fr=1:Ty$:dFG j%(a)=x x=d%(a):TgA -TfB:" T/Throw dice";21);"Z/Save game" p%(x,10)>0TlZ *FX15,1 %A$=(&DF):A$="T"m%(a)>=0DLD A$="Q"DX[:daE TpB dH@ o=1:c=20 O:"NO:PROPERTY"31)"OWNER":b=o c:p%(b,1)=0d~@;b;(p%(b,12));P$(b); p%(b,11)=127)"(M)"; 30)N$(p%(b,2)) b:DtD:o=21 o=21:c=40:dz@ cd=r%:r%=0::10)"Deed details":C$;L$:tzS:x=v:p%(x,1)=0" Non-purchaseable property":TSA <:10)(p%(x,12));P$(x):x=6x=16x=26x=36DhA:TSA x=13x=29DTA:TSA TxA:TSA  r%=d:T%=p%(x,10):T%>0TnZ  TtC Io=0:v=d%(a):z=(v-1)5*5+2:b=z z+3:p%(v,2)=p%(b,2)p%(b,8)>0o=o+1 :z<6z>36o=o+1 " 'b:T=12:(141);a" "N$(a);16)(p%(x,12));P$(x)::15)"CASH `";m%(a):0)(p%(x,12)+16);L$: ,@x=d%(a):r%=0::10)(p%(x,12));P$(x):x=13x=29DOA:dtA -#x=6x=16x=26x=36DcA:dtA ."x=3x=18x=34DrAx=21txA /x=8x=23x=37tFA 0x=1x=11(151);L$:dtA 1x=5x=39tdA 2x=31:DvA 3.p%(x,2)=7p%(x,11)=1a=p%(x,2)r%=0:TvA 4Dhv=a:a=p%(d%(a),2):v=x:DlB:a=hv:y=3 r%=2*p%(x,3) r%=p%(x,3) 5'p%(x,10)>0z=p%(x,10)+3:r%=p%(x,z) 6TxA:dtA 8O" PRICE `";p%(x,1):(p%(x,12)+16);L$:" Rent `";p%(x,3)21)"Payable `";r% :" Price per house: `";p%(x,9):vp%=:z=0 3:20*(z 1),vp%+z 2);" ";z+1;" house";("s"(z<>0));" `";p%(x,z+4)::" Hotel `";p%(x,8) 4));" owned `"p%(x,z)::" Payable `";r%:d`A pdFG:a=c% daE qj%(a)=1:d%(a)=11:DpA rm:C$;L$:b=(17):b DsA,DtA,DuA,DvA,DwA,DxA,DyA,DzA,D{A,D|A,D}A,D~A,DA,t@A,tAA,tCA,tEA s&" Pay hospital `100":r%=100:dGA t(" Pay doctor's fee `50":r%=50:dGA u-" Insurance premium,pay `50":r%=50:dGA vG:T=12:12)(141);(129);"GO TO JAIL"::d4=0::dFG:tRS:DqA wB" Receive interest on 7% preference"'" shares `25":b=25:dBA x$" You inherit `100":b=100:dBA y1" From sale of stock you get `50":b=50:dBA z:" Bank error in your favour collect `200":b=200:dBA {0" Get out of jail free":g%(a)=g%(a)+1:dGA |0" Annuity matures collect `100":b=100:dBA }0" Income tax refund collect `20":b=20:dBA ~M" You have won 2nd prize in a beauty"'" contest. Collect `10":b=10:dBA %" Advance to GO":c=1:b=200:t}A ." Go back to OLD KENT ROAD":c=2:b=0:t}A W" Pay a `10 fine (F) or take a chance (C)":"] "A$:m%(a)>9A$="F"Ty$:b=10:dBA  tFA t" It is your birthday collect `10 from each player":b=1n%:N$(b)<>"" b<>a m%(b)=m%(b)-10:m%(a)=m%(a)+10  :dGA N" Iain Skelly wants royalties - 10% of"'" your capital":r%=m%(a)10:dGA m:C$;L$:b=(17):b DvA,tHA,tWA,D|A,tKA,tLA,tMA,DvA,tOA,tYA,t@A,tHA,tSA,tTA,tUA,tVA,t[A ~" Make general repairs on all your houses `25 per house, `125 per hotel":b=140:p%(b,2)=a p%(b,10)>0r%=r%+p%(b,10)*25 :T$;r%:dGA H" You have won a crossword competition"'" collect `100":b=100:dBA 9" Your building and loan matures - `150":b=150:dBA -" Advance to "P$(25):d%(a)=37b=200b=0 c=25:t}A 0" Take a trip to "P$(16):d%(a)>8b=200b=0 c=16:t}A (" Advance to "P$(40):c=40:b=0:t}A 0" Bank pays you dividend of `50":b=50:dBA ," Drunk in charge fine `50":r%=50:dGA %" Speeding fine `15":r%=15:dGA )" Pay school fees `150":r%=150:dGA -" Advance to "P$(12):d%(a)>11b=200b=0 c=12:t}A 5" Go back three spaces":c=d%(a)-3:b=0:c<1 c=39  t}A #:C$;L$:d%(a)=5r%=200r%=100 4:T=12:10)(141);(129);T$;r%::C$;L$:dtA VT=035:T+1,4);:144+a,252,252:T,5);:144+a,239,175,175,191:j=120:j::dtA %d%(a)=c:m%(a)=m%(a)+b:dFG:TlA m%(a)=m%(a)+b :(131);(157):dtA d" Owner",N$(p%(x,2)):" "Mo$;" value `"p%(x,1)/2;:p%(x,11)=120)(129);"PROPERTY MORTGAGED"; :(p%(x,12)+16);L$: a=c%dFG: " ";a" "N$(a)21)"CASH `";m%(a):TfB:" O/Pay debt"21)"L/Buy deeds":" N/Next player"21)"Z/Save game":1,23)"Debt `";r%; #A$=(&DF):A$="Q"DL]:daE A$="N"d\E %A$="L"p%(d%(a),2)=7T`C:TlA A$="O"r%>0D@F:d~A  TpB::dtA &]" M/"Mo$21)"S/Sell "H$:" D/Deed details"21)"Y/Your position":" P/Player's positions" +T" E/"E$21)"Q/"Q$:" C/"Co$21)"W/"Td$" cash":" X/"Td$" deeds"21)"B/Buy "H$: 0A$="M"TTE 2A$="S"dVF 4A$="B"tdF 6A$="D"TNA 8A$="Y"dhC 9A$="Z"t`h :A$="P"TZD <A$="E"dy@ >A$="C"tTQ @A$="W"THG BA$="X"TfG D XGv=2375:o=0:b=v v+3:p%(b,2)=a p%(b,11)=0 p%(b,8)>0 o=o+1 \b ]v=2 v=37 o=o+1 b< c=v v+3:p%(c,9)>0 o=3 p%(c,0)=p%(c,2) p%(c,0)=0 cc gv: lQy=0:k=0:o=0:w=0:z=(v-1)5*5+2:B=z z+3:k=k+p%(B,10):p%(B,8)=0DoB o=o+1 mp%(B,2)=a w=w+1:y=y+1 o pv<5 v>37 y=y+1 q  s:d=d%(a):T=12:129,157,135,141:4)"Property purchase section"::0)C$;L$:T=12:141,p%(d,12):10)P$(d): %m%(a)-p%(d,1)<0Ic$:TtC 'H" Account debited `";p%(d,1):" Deeds registered in "N$(a)"'s name" *,m%(a)=m%(a)-p%(d,1):Ty$:p%(d,2)=a:TtC 3 " "I$ 4 DtD: !N=0:b=1n%:N$(b)<>"" N=N+1 :N=1:den  :" BEEB buys"(p%(h,12));P$(h):p%(h,2)=a:s=s-p%(h,1): /:1)N$(a)17)H$31)"OWNER":C$;L$:x=d%(a) b=121:x>40x=x-40 Ad=p%(x,10):1)(p%(x,12));P$(x);:d>0d<519)(130);D$(d); d=519)(129);"HOTEL"; %p%(x,2)>028)135;N$(p%(x,2));  x=x+1:: x=0:b=2:x,b)V$(a) A$="T"a=c%b=2d3+1:x,b)V$(a):t%=+33:>t%:x,b)" ":1,-15,5,4::x,b)V$(a):d%(a)=d%(a)+d3:d%(a)>40d%(a)=d%(a)-40:m%(a)=m%(a)+200 a=c%dFG:  TtC %d3=c%:c%=0:h=a:a=1n%:a=h TdD N$(a)=""TdD  dhC $:a=h:c%=d3: L_:b=140:d1=(6):d2=(6):T=12:11,12+T);(141);(128+d1);d1,(128+d2);d2:T:b:d3=d1+d2 `%dFG: d4=2 d1=d2 d1=0:DvA a j%(a)>0 d1=d2 j%(a)=0 bj%(a)>0TlA c7 fr=1 d1=d2 m%(a)=m%(a)+50:"`50 refund":dFG efr=0:dhC:TlA tE31,1,24,157,132:"PRESS SPACE BAR TO CONTINUE";::A$=:A$=" ": E:14)Mo$" Section":C$;L$:" 1/REDEEM "Mo$,"2/TAKE "Mo$:" ] "d tzS:p%(v,2)<>a TsC # d=1DFE (p%(v,11)<>0TsC -p%(v,8)>0DlB:k>0TsC 2Tp%(v,11)=1:b=p%(v,1)2:m%(a)=m%(a)+b:;(p%(v,12));P$(v)" "Mo$" Value `";b:TtC Fp%(v,11)<>1TsC P9b=p%(v,1)2+p%(v,1)20:" Cost to reedem ";Mo$;" `";b Um%(a)-b<0TsC Z-m%(a)=m%(a)-b:p%(v,11)=0:Ty$:DXB:TtC d=d%(a):p%(d,2)=7dfE (r%>01,23)I$;:b=11500:::dtA  d1=d2 d4=d4+1:Di@ &a=(a+1) (n%+1):a=0 Dd@ Df@ FDXB:s=m%(c%):v=d%(a):t=p%(v,1)+(100):hv=a:a=c%:DlB:a=hv:TXF .hv=a:a=c%:v=6 v=16 v=26 v=36DnJ:w=k v=13 v=29DZJ:w=k a=hv -o<3 w>1 s>p%(v,1) t=s 100*(80+(10)) . o>2 w>1 o<3 w=1 t=s 100*(55+(15)) t>s-6 t=s-6 t=0 s>6 t=s-6 3:;(p%(v,12));P$(v)" is up for auction":dDS c" Enter player number and highest bid"'"(eg.1,200) ";c,d: m%(c)-d<0" Not enough money":TDF Fd>t TSF b=d+5:" BEEB bids `";b'" Another Bid?";:yn="Y"TDF  :" BEEB buys";(p%(v,12));P$(v):s=s-b:p%(v,2)=c%:TVF Q" BEEB will not bid"'N$(c);" buys";(p%(v,12));P$(v):m%(c)=m%(c)-d:p%(v,2)=c m%(c%)=s:dFG: %o=0:b=16:p%(cd%(b),0)=c%o=o+1 : @-m%(a)-r%<01,23)KL$;:1,23)Ic$;:DTF E_b=d%(a):1,23),N$(p%(b,2))" RECEIVES `";r%;:m%(a)=m%(a)-r%:m%(p%(b,2))=m%(p%(b,2))+r%:r%=0 Jdpl%=d%(a):pl%=3pl%=5pl%=8pl%=18pl%=23pl%=33pl%=39 pl%=20 pl%=13pl%=29 pl%=10 pl%=12 TUb=11500::1,23)KL$;:1,23)"DEBT `";r%,25,pl%)(10),25,pl%)"CASH `";m%(a): 6:10)"House purchase section":C$;L$:DXB:tzS K p%(v,8)=0 p%(v,10)>4 p%(v,0)<>a p%(v,2)<>a m%(a)-p%(v,9)<0TsC #DlB:d=k o:p%(v,10)>d TsC 0p%(v,10)=p%(v,10)+1:m%(a)=m%(a)-p%(v,9):Ty$ 5b=z z+3:p%(b,8)>0;b" "P$(b)" "p%(b,10)" "H$  :TtC ,:10)"House sale section":C$;L$:tzS !p%(v,2)<>a p%(v,10)=0TsC $DlB:d=k o:k/o-d>0djFdoF p%(v,10)-1b TsC 5"O.K":p%(d,2)=c:TtC b=14200:: 0TlZ 4(j%(a)=0tXHtRS:" BEEB IN JAIL" 9j%(a)=j%(a)+1:j%(a)=4T{H :j%(a)<4T~H ;3g%(a)>0g%(a)=g%(a)-1:" BEEB USES CARD":T}H < r%=50:t=50:txK:N$(a)="" =9j%(a)=0:" BEEB leaves jail":dFG:m%(a)=s:fr=1:dPG >o=0:b=140:p%(b,2)=7o=1 A p%(b,0)=a s>240 o=0:b=41 C Ms-50<0o=0 \o>0j%(a)=3:TyH a" BEEB will remain" =m%(a)=s:" BEEB throws dice":dFG:DLD:j%(a)=1 d1=0: 4h=d%(a):" BEEB lands on"(p%(h,12));P$(h):dFG s=m%(a):r%>0 t=r%:txK p%(h,2)<>7D`I 8t=p%(d%(a),1):b=1 n%:b<>c% m%(b)>t b=n%+1:t=0 %:t=0 s>p%(d%(a),1)tXC:D`I  t>0TdI *t=p%(d%(a),1):T\L:ss-6 m%(b)>t b<>c% t=m%(b) ):t>s-6 T\L . dfE `d1=d2 T]K at\S:k>2tLJ cDXB:pb=0:t=18:v=cd%(t) ep%(v,0)=a DtI jDlB:t<3 w=w+1 ow=2 c=t+1:pb=t:t=9 t ypb=0tLJ ~v=cd%(pb):v=38 v=37 e=1:DdJ:e=1tLJ 6" BEEB considering an exchange":g=e:e=1:c=9taI -c=pb+1:t=8 c -1:v=cd%(t):v=38 v=37 e>0ThJ e>1T|J : e=0tLJ DZJ:k=1T|J e=1  e=0tLJ DnJ:k=1T|J tLJ (8b=v v+3: p%(b,0)<>a p%(b,2)=a p%(b,8)>0 e=b -: < *FX15,1 >u" BEEB will exchange"(p%(e,12));P$(e):" For"(p%(g,12));P$(g):" Does ";N$(p%(g,2));" agree?";: yn=0 e=1: ? IFA$="NO"THEN e=0:RETURN A(Ty$:p%(e,2)=p%(g,2):p%(g,2)=a:e=0: Z*k=0:b=132916:p%(b,2)=a k=k+1:e=b _: d7b=v v+3:p%(b,2)<>a p%(b,8)>0 p%(b,2)<>7e=b i: n*k=0: b=63610:p%(b,2)=a k=k+1:e=b s: t\S:k>1 k<4 s<900dpJ k=1DlB:k<9dpJ s<220dpJ 2DXB:H=0:bh=0:b=18:v=cd%(b):b<3 h=2 h=3 "DlB:w=h p%(v,0)<>a DpW s<220b=9 b:bh=1dpJ z=1:H=-1::tDW z=z+1:z>40s<220 +DXB:m=18:v=cd%(m):p%(v,0)<>a TXK x=0:dTW:x=0TXK t=p%(v,9) DlB:bh=0:m<3 h=2 h=3 k>=9TXK c=v+3:e=k h:m=1 c=c-1 e<>2TDK v=12 v=7 v=22 v=17 e=3 b=v+e c:s0p%(b,10)=p%(b,10)+1:" BEEB buys a house on "(p%(b,12));P$(b):s=s-p%(b,9):bh=1 b:bh=1duJ m m%(a)=s:dFG:  s>t THL DdY:T\L:s>t THL TzL:s>t THL tDC:N=2t@L: s>t THL DXL:s>t THL DiY:t@L:s>t THL DXB:TzL:s>t THL DXB:DXL:s>t THL 1m%(a)=s:"BEEB bankrupt":DL]:s=0:d1=0:t=0: Qs=s-r%:d=d%(a):N$(p%(d,2))" receives `";r%:m%(p%(d,2))=m%(p%(d,2))+r%:r%=0:  DXB 5d=1:: p%(d,11)=0 p%(d,0)<>a p%(d,2)=a DHM !d=d+1:d>40 s>t:m%(a)=s: : d=1: ;p%(d,10)>0 d=d+3:DDL =d>40DDL ?!p%(d,11)=0 p%(d,2)=a DHM Dd=d+1: s>t d>40: X'd=1::p%(d,2)=a p%(d,0)<>a D\M ]d=d+1: s>t d>40: (m=81-1:v=cd%(m):p%(v,0)<>a tmL DlB:bh=0:m<3 H=2 H=3 k=0tmL e=k H e=0 e=3 e=3 v=38 e=2 v<>27 v<>32tTL e=1 e=0 b=e+v v -1 cp%(b,10)>0 s=p%(b,9)2+s:p%(b,10)=p%(b,10)-1:" BEEB sells a house on "(p%(b,12));P$(b):bh=1  s>t b=e-1:m=0  bh=1m>0tEL : HBs=s+p%(d,1)2:" BEEB mortgages"(p%(d,12));P$(d):p%(d,11)=1: \ndDS:" BEEB will sell"(p%(d,12));P$(d):" Enter player No.and highest bid":b,c:m%(b)-c<0" "I$:D\M a0m%(b)=m%(b)-c:Ty$:p%(d,2)=b:s=s+c:m%(a)=s: 6:" Welcome":s=m%(c%):hv=a:a=c%:im=0:T=1:j=0:hj=0 8" Please enter requirements":dxQ:T=0:a=hv:s=m%(a) 1DpR:hj=j:zh=z1:e2=e1:s=m%(a):j=0:im=1TsC 8" Please make your offer":b=1 zh:y(b)=q%(b)::T=1 1dxQ:hv=a:a=c%:T=0:s=m%(c%):DpR:a=hv:dFG im=1TsC hj>j DnY:dFG:dFG "BEEB ACCEPTS":z1=0t|Q b=1 z1:p%(q%(b),2)=c%: zh=0dFQ b=1 zh:p%(y(b),2)=a: 3m%(a)=m%(a)+(e2-e1):m%(c%)=m%(c%)+(e1-e2):dFG ," Enter amount of cash: "e1:e1>s dxQ `tDC:N=2 a=c% e1>0" I do not buy property with only two"'" players on the board":e1=0 7" Enter total number of properties: "z1:z1>5TBR z1=0D\R  .b=1 z1:tzS:q%(b)=v:p%(v,2)<>a im=1  \" I'm thinking":e1=0DpR f1s<200 j=j+e1*1.4 s>900 j=j+e1*.7 j=j+e1 p z1=0 u*q=1 z1:v=q%(q):v=13 v=29DzRtNR zDZJ:k=T+1 j=j+250 k=T j=j+150  tvR $v=6 v=16 v=26 v=36tSRtlR DnJ:j=j+175*(k+T):tvR DlB:v<5 v>36 w=w+1 )j=j+p%(v,1)*(w+T)+(40-v)*4:k>0 im=1 !j=j+p%(v,1)/(p%(v,11)+1):q: A=18:(X);(157):: &b=15:15)(146);J$(b)::dFG: /k=0:b=18:p%(cd%(b),0)=a k=k+1:v=cd%(b) : +" Enter Num of property: "v:v>40tzS  :b=1 n%:N$(b)<>"" b<>c% " ";b;":";N$(b),"`";m%(b) : pv=38 c=40 c=v+3 u z=v c:tDW:s<220 z=c+1 z: p%(z,11)=1 p%(z,8)>H p%(z,2)=a "BEEB redeems mortgage on"(p%(z,12));P$(z):s=s-(p%(z,1)2+p%(z,1)20):p%(z,11)=0:bh=1  "b=1 n%:N$(b)="" b=c% dhW 'd%(b)>v c=40-d%(b)+v c=v-d%(b) c<13 x=1 : d@y@:dHY: i@~@:dHY: nDH:dHY: T=1 (8):CM$::CM$: ,T%=p%(d%(a),10) .:T%=5 tPZ 14146:A%=1T%:32,32,126,53,106,125,32,32,32:: 69146:A%=1T%:254,255,255,255,255,255,255,253,32:: ;7146:A%=1T%:255,32,255,255,255,255,32,255,32:: @9146:A%=1T%:255,255,255,255,255,255,255,255,32:: E7146:A%=1T%:255,32,255,255,255,255,32,255,32:: J7146:A%=1T%:255,255,255,32,32,255,255,255,32:: O "145:A%=110:255,32::255: 145:A%=121:255:: "145:B%=110:255,96::255: 145:A%=121:255:: "145:B%=110:255,96::255: '145:A%=121:255::96,96,107:: 4p%(40,2)=c%:p%(38,2)=c%:p%(27,2)=c%:m%(c%)=200: X7b=140:p%(b,2)=a p%(b,2)=7:p%(b,11)=0:p%(b,10)=0 ]:m%(a)=0:N$(a)="": Lz=p%(d%(a),2):z=0 z=7 QL b=140:p%(b,2)=a p%(b,2)=z:m%(a)=m%(a)+p%(b,9)2*p%(b,10):p%(b,10)=0 VO:m%(z)=m%(z)+m%(a):r%=0:N$(a)="":N$(z)" receives `";m%(a):m%(a)=0:dFG: x?p%(38,2)=c%:p%(40,2)=c%:p%(40,10)=2:p%(38,10)=2:m%(c%)=40: @\fr=0:P$(40),p%(40,13),d%(6),m%(7),N$(7),V$(6),y(6),D$(6),j%(6),g%(6),cd%(8),q%(5),J$(5) Ja=140:P$(a)::L$=39,(243))+8:C$=(151):T$="Payable `":R$="Rent `":I$="Illegal move":N$(0)="Creditor":N$(7)="THE BANK":Td$="Transfer" TTr$="From which player? (enter number)":Tw$="To which player? (enter number)":Ic$="Insufficient capital":Ty$=" Thank you":KL$=320,(32)):Ep$="Enter property Num" Y\J$(1)=6,(240))+(176):J$(2)=7,(181)):J$(3)=J$(2):J$(4)=J$(2):J$(5)=6,(163))+(161) ^ea=16:V$(a)::Mo$="Mortgage":H$="House(s)":Co$="Computer link":E$="Estate Agent":Q$="Quit Game" ha=18:cd%(a)::r%=0:d3=0 r | a=140:b=112:p%(a,b):: 5"Enter the number of players (Max 5) "n%:n%=n%+1 Xa=1n%:m%(a)=1500:d%(a)=1::a=1n%-1:"Enter the name of player ";a;": ";:""D$(a) 0(D$(a))>6"NO MORE THAN 6 LETTERS!":a=a-1 :D$(n%)="BEEB"  a=1n% y(a)=(n%):b=1a y(a)=y(b-1)a=a-1  b:a >"Order of play":a=1n%:N$(a)=D$(y(a)):N$(a)="BEEB"c%=a " ";a;": ";N$(a):  #( GO ],OLD KENT RD,COMMUNITY CHEST,WHITECHAPEL,INCOME TAX,KINGS CROSS,ANGEL ISLINGTON,CHANCE,EUSTON ROAD,PENTONVILLE,JAIL/VISITING #2 PALL MALL,ELECTRICITY CO.,WHITEHALL,NORTHUMBERLAND AV,MARYLEBONE STATION,BOW STREET,COMMUNITY CHEST,MARLBOROUGH ST.,VINE STREET,FREE PARKING #< THE STRAND,CHANCE,FLEET STREET,TRAFALGAR SQUARE,FENCHURCH ST.STATION,LEICESTER SQUARE,COVENTRY STREET,WATER WORKS,PICCADILLY,GO TO JAIL #Fv REGENT STREET,OXFORD STREET,COMMUNITY CHEST,BOND STREET,LIVERPOOL ST.STATION,CHANCE,PARK LANE,EXCISE TAX,MAYFAIR #K"*","#","?","&","!","@" #L38,2,7,27,22,17,12,32 #P0,0,0,0,0,0,0,0,0,0,0,135 #Z'60,7,2,10,30,90,160,250,50,0,0,134 #d0,0,0,0,0,0,0,0,0,0,0,136 #n(60,7,4,20,60,180,320,450,50,0,0,134 #x0,0,0,0,0,0,0,0,0,0,0,135 #'200,7,25,25,50,100,200,0,0,0,0,135 #)100,7,6,30,90,270,400,550,50,0,0,132 #0,0,0,0,0,0,0,0,0,0,0,136 #)100,7,6,30,90,270,400,550,50,0,0,132 #*120,7,8,40,100,300,450,600,50,0,0,132 #0,0,0,0,0,0,0,0,0,0,0,135 #,140,7,10,50,150,450,625,750,100,0,0,133 # 150,7,0,0,0,0,0,0,0,0,0,135 #,140,7,10,50,150,450,625,750,100,0,0,133 #,160,7,12,60,180,500,700,900,100,0,0,133 #'200,7,25,25,50,100,200,0,0,0,0,135 #,180,7,14,70,200,550,750,950,100,0,0,134 #0,0,0,0,0,0,0,0,0,0,0,136 $,180,7,14,70,200,550,750,950,100,0,0,134 $-200,7,16,80,220,600,800,1000,100,0,0,134 $0,0,0,0,0,0,0,0,0,0,0,135 $"-220,7,18,90,250,700,875,1050,150,0,0,129 $,0,0,0,0,0,0,0,0,0,0,0,136 $6-220,7,18,90,250,700,875,1050,150,0,0,129 $@.240,7,20,100,300,750,925,1100,150,0,0,129 $J'200,7,25,25,50,100,200,0,0,0,0,135 $T.260,7,22,110,330,800,975,1150,150,0,0,131 $^.260,7,22,110,330,800,975,1150,150,0,0,131 $h 150,7,0,0,0,0,0,0,0,0,0,135 $r/280,7,22,120,360,850,1025,1200,150,0,0,131 $|0,0,0,0,0,0,0,0,0,0,0,135 $/300,7,26,130,390,900,1100,1275,200,0,0,130 $/300,7,26,130,390,900,1100,1275,200,0,0,130 $0,0,0,0,0,0,0,0,0,0,0,136 $0320,7,28,150,450,1000,1200,1400,200,0,0,130 $'200,7,25,25,50,100,200,0,0,0,0,135 $0,0,0,0,0,0,0,0,0,0,0,136 $0350,7,35,175,500,1100,1300,1500,200,0,0,133 $0,0,0,0,0,0,0,0,0,0,0,135 $0400,7,50,200,600,1400,1700,2000,200,0,0,133 ( )M:"Enter file name: "A$:U%= A$:A%=140:B%=112:#U%,p%(A%,B%):B%:A% ) M#U%,n%:A%=1n%:#U%,j%(A%),g%(A%),m%(A%),d%(A%),N$(A%)::#U%,c%:#U%: *0 *G"Enter file name: "A$:U%= A$: U%=0 "No file of that name":dxj *,A%=140:B%=112:#U%,p%(A%,B%):B%:A% *>#U%,n%:A%=1n%:#U%,j%(A%),g%(A%),m%(A%),d%(A%),N$(A%): +#U%,c%:#U%: .0:9)"Time limit expired"'"Results follow:" .:a=1 n%:N$(a)=""TRo .Jb=140:p%(b,2)=a m%(a)=m%(a)+p%(b,1)(p%(b,11)+1)+p%(b,10)*p%(b,9) .b /a /'a=1 n%:m%(a)