`sd X 0:7:x=13::y=121:(y-1),0;7;H$(x,y):y:21,12 ;0;1;6;"ANY KEY TO CONTINUE" 0:=""20 x::y=121:(y-1),0;H$(4,y):y:20,9 ;0;1;"'i' to repeat";21,6;"any key to continue" (0:=""40( 2f$= <g=0:g=f$ Fg<17500L P+f$(1)="i"f$(1)="I"10 Z 7500L X6:6::6:x=021:x,0;"":x:1,8;0;1;"DO NOT STOP TAPE";6;0;19,0;"":"t":1,5 b300,:="i"10 lf$= vg=0:g=f$ g<17500L +f$(1)="i"f$(1)="I"10 LH:4:0::10 ,12 ;"START TAPE":2,10 @627691:4:4::4:x=021:x,0;"":x:0:1,0;"DO NOT STOP TAPE":4:"T":1,0;6;0;1;"DO NOT STOP TAPE";20,0;0;0;" ":0:0:"all code"627702,2473 :19,0;0;0;0;" ":0:0:"udg"65368X,168:19,0;0;" ":"H" XM PP <DT$<B|$>%$#<B}`H0DB?Dgȇ  ` s d You and your fellow players are the last of the High Rollers and you have decided to hold a competition to determine who is the BEST. Each of you start with `10,000 and each round your Swiss bank account releases a further `1,000 to supplement your winnings (or ease the burden of your losses). The competition, on which you have embarked, is to acquire a target sum, in liquid cash (not investments), that will finally prove to the world who is the sharpest Speculator. To even out the competition, you have agreed to limit your activities to gambling on Horses, Dogs & Roulette and to investing in Stocks & Shares, Commodity Futures and Property Development. However, if any of you win the Pools, your winningscan be added to your cash for further investment. Unfortunately, your competition has achieved notoriety amongst the criminal elements of our society and gangs of muggers are roaming the streets to relieve you of your surplus cash. Not only that, the TAXMAN, who has been trying to nail you for years with a punitive assessment, is hard on your heels. Finally, beware of being too predictable in your habits. If you don't vary your investments,you will not be allowed to continue in your favourite. However, your friendly Spectrum will tell you which other investments you should try so that attention will be diverted from your activities. GOOD LUCK AND MAY THE BEST SPECULATOR WIN Fi`t @d<<|<|~<|@|@BBBB@BB@B888x88?<BBBB|@B@B D@DD@B|~|@@|@| x8xD8>BB@B@@BD@@ @@D??<<@B@~<B~@ BB~B<|@@B88@fDx8D8x88D88x8BbDH@DBBBbbB@B8hxD88B8x888@h88@BDD<@ZDD<D0D D@ D 0DD@BR(p|(B@BRRB|@DTDDD BDD@@0T0D<B@BDDD@BDDDDx 8 88DxBBB~<<B<~B<8T@8 < Bx<B<<<|<|~<<<<<<@x>~<?@@BBH@BB@?@@TUBBffBD@@??<B@py ~B ? ??@BZZBB|<?/B@HA@B~@ U@@BBBBB@ABBBDABB @BBBBBD@By"<<>~< B8~  @ <@<|~B~~~B>B>||BB@@@~ |BBD@BBBFDD@DBB B@@@@?BFDBB@@@B D<B>B<<~~~B B @  )))))))) ))))))))))((()))) *)(((()))) **((((((()))))))))) **((((((()) *((**((((() *(****((/==8888888888888888(888=(//8888888888888888888888888888(88888888888888888(((88888888888888((((((888800888h88888 8888800000000000888888888888880000000000088888000000000008888888888888800000000000888888000000000008800000008888800000000000880000000888888000000000008800000000000000000000000000000000000000000000000000000000000000000000000all code 2 !Pͻ͟ J͟ -!(Z#6?!Z#6?!(Z ͻ 6? R68ͻ 6?#68>&w>- ,,,,$ >d 2 `w?p!Pw$# |///Xg>hw#w#w#w !͵#??۽ ?```````!PJ>w$# = (BD(|g|///Xg>8w#w#w#w#w#w#wBw+>w+w+w+w+w+>>wBw#w#w#w#w#w#w!͵+???????<<0??0<< !VH G!6H G!H G!@ G!@ G!@ W!@ W!@ W!~@ W!^@ Ww$#w$+ `f<!Zq7!Z q!Zq!nf~w>22>2*x\"v\Y !͵[v\c.zRR_PR0#"v\˼DMx8_y8>&.0}o8<Oy2:A8WX{B0A>!ZXnfR6)YnfRF42W>8J>?>nfp!Z~85M R~8%R~8?Z~0@R~0nf>~w~wutL?>nfpZ~8#~0!R~8nf~wut>~w?nfp+~8<> Z~8,@R~8AZ~0@R~0 nf>~w~wut:G~0H2:G>0:G !Y>Z>8#w:G !Y>Z>x#w:2>F8 K:>!eX" !X"#!X"&!X")!X",!Y"/!%Y"2!EY"5!eY"8> !Zq!:#w>  !nfw>*x\"v\Y !͵[v\c.zRR_PR0#"v\˼DM x8_y8>&.0}o8<Oy2>:;A8WX{B0A>!Z>nf~$p# p0 !YZ>8#w:>2;G !Y>Z>x#w :=0x2=:>2?:<8:;O>:=O>Ʌudg 8 Ԫ PP %$#c21,c0;c0;g$;c21,c4;"Input Number of players":cz:c1,c20 bfc6600X la=f vx=c1a rc21,c0;c0;g$;c21,c0;"PLAYER ";x;" ENTER NAME";c22;c5;c1;"";c0;" ":f$="":f=c1:x$=" " c0:=""641 x$= x$=c13650 ^x$=c8f>c1f=f-c1:c21,c21+f;c1;f$(f);c21,c22+f;c0;f$(f+c1):.05|L,f*c2:641 hx$=c12f>c1f=f-c1:c21,c21+f;c1;f$(f);c21,c22+f;c0;" ":f$(f+c1)="":.05|L,f*c2:641 _x$=c8fc10650 !c21,c21+f;c1;f$(f):641 f=c1c10:A$(x,f)=f$(f) f$(f)=""A$(x,f)=" " f  c1,c10:x :c13,c4;"ENTER TARGET AMOUNT IN `";c15,c3;"Recommended Amount `100000";c17,c3;"Minimum Amount `20000";c19,c3;"Maximum Amount `9999999":cx:c1,c20 *f<20000 Nf>9999999670  :ca=(f) b=c1:1240 b>c11240 x=c0:y=c1a A(y,c1)cax=c1 y x=c01110V 88000@:y=c0:c17,c0;"PLAYERS AT TARGET `";ca;":" x=c1a $A(x,c1)c0fc21280 cf:c=f:y=cb*(f+c1):y:y=c0  x=c5c10 (A(b,x)=c0y=c1 2x <y=c01360P Fx=c5c10:A(b,x)=c0:x Pb=b+c1 Z b>ab=c1 dcb n c0:b: xA(b,c2)=c21430 ~8130:8125:c19,c0;" ";A$(b);", you are still ";c20,c0;" convalescing in hospital ":cc:1440 8175:A(b,c1)=A(b,c1)-(A(b,c1)/c10):c18,c0;A$(b);" you are still in GAOL";c19,c0;"However,you have arranged to pay";c20,c0;"a fine of 10% of your cash and ";c21,c0;"will be released next turn ":cc cc:A(b,c2)=c0  1360P  500 b:2600( :9030F#: A(b,c2)=c02410j &x=c1c9:y=c1+(*c13):B(x,c7)=y:x /2500 :x=b:y=c0:A(x,c1)>c02080  5c18,c0;"You do not have any money to bet":c1,-c10  x=x+c1:y=c0  x>ax=c1 x=b2220 A(x,c1)c92060  >*c18,c0;g$;c21,c0;g$;c18,c0;A$(x):z=f H/c20,c0;g$;c20,c0;"ENTER bet for ";B$(z):cx \DfA(x,c1)c21,c0;c1;"INVALID AMOUNT-TRY AGAIN":2120H f]cf:c18,c0;A$(x);", you have bet";c19,c0;"`";f;" on ";B$(z);c20,c0;"at ";B(z,c7);" to 1" gB(z,c7)=c1c20,c3;"Evens " hcc pLB(z,x)>c0c21,c0;c0;c1;"You already bet on this horse":cc:c21,c0;g$ zdB(z,(x+c9))=B(z,c7):A(x,c1)=A(x,c1)-f:w=c1+(*f/cb):B(z,c7)=B(z,c7)-w:B(z,x)=B(z,x)+f:y=y+c1 B(z,c7)c1(z+c3),c19;" ";(z+c3),c19;B(z,c7);c21;" to 1" y>c2A(x,c1)c0y=c1:u=B(x,z)*B(x,(c9+z)):w,c0;A$(z);" wins at ";B(x,(c9+z));":1-`";u:w=w+c1:A(z,c1)=A(z,c1)+u+B(x,z) Bz V"y=c0c18,c10;c1;"NO ONE WINS" `#x=c1c9:y=c1c9:B(x,y)=c0:y:x jA(b,c5)=A(b,c5)+c1 t cc:c7:  ?:c0,c9;b;"ASCOT GOLD CUP";c2,c5;c0;"No Name Odds" v=c1c9 #(v+c3),c6;v;(v+c3),c8;c0;B$(v) !B(v,c7)=c1(v+c3),c19;"Evens" 5B(v,c7)>c1(v+c3),c19;B(v,c7);(v+c3),c21;" to 1" v  (c1:c4::c0,c0;c5;g$;g$;g$;g$;g$;g$;g$;c1,c20;c2;c5;" ";c2,c19;" ";c3,c19;c1;;c7;" ";c4,c19;" ";c5,19;"";c0;"";c1;"";c6,c19;c5;"";c4;c7,c20;"" 2Zc7:c14,c0;g$:n=c8c20:c0;n,c22;" ":n:n=c2c307:m=c15c20:m,n;" ":m:n Pc5:c0:n=c4c6:n,c0;"":n:n=c7c12:c4;n,c0;"":n:n=c3c6:;c1;n,c10;"":n:c4;c7,c10;"":c8,c88:71G,40(:c8,cc:71G,c32:cc:c7:c0: dc4:c8,c88:71G,40(:c8,cc:71G,c32:c5:66B,120x:13 ,8:524,120x:27,8:c0:c8,cv:71G,c16:c8,140:71G,c9:c21,c0;c4;c1;g$;c21,c5;" THEY'RE OFF ":502: b:3800:9030F#: A(b,c2)=c03998 Hs=c0:7::u=c0:w=c0:c0,c0;"Stock Name No.Avail. Price Held" zs=s+1:x=c1c10:y=(*((cb-C(x,c8))/c10))+c5:z=C(x,c7)*((*c4)-c1):y=(((y*z/cc)+(*c5))/c2):C(x,c7)=C(x,c7)+y C(x,c7)c53195{ rc19,c0;"Do you wish to purchase shares?";c20,c3;"TYPE SHARE NUMBER IF YES";c21,c10;"ELSE ANY KEY":cz:f=f+c1 fc103200 1C(f,c8)C(x,c8)3180l N y=f*C(x,c7) Xy>A(b,c1)3180l bA(b,c1)=A(b,c1)-y:w=c0:u=c0:C(x,c8)=C(x,c8)-f:C(x,b)=C(x,b)+f:cf:c19,c3;"You have bought ";C$(x);;c20,c7;"No. Purchased: ";f;c21,c8;"Valued at `";y:cc::c0,c0;"Stock Name No.Avail. Price Held":3040 lScf:c19,c0;g$;c21,c0;c1;"INVALID REQUEST - TRY AGAIN ":cc:cf:3090 vfc19,c0;"YOU DO NOT HAVE ENOUGH MONEY TO";C20,C0;"INVEST-WHY DON'T YOU TRY SAVING ":cc:3200 {Tc19,c2;"NO-ONE IS SELLING SHARES NOW";c21,c2;"PERHAPS THERE ARE SOME BUYERS":cc %c1,c20:A(b,c3)=w:w=c03900< c15,c0;g$;c16,c0;g$:cf:c18,c0;"Do you wish to sell your shares?";c19,c4;"TYPE Share Number if yes";c20,c6;"ELSE TYPE ANY KEY":cz:f=f+c1:x=f fc103900< GC(x,b)C(x,b)c21,c0;c1;"YOU DON'T HAVE ";f;" SHARES":cc:3218 zcf:C(x,c8)=C(x,c8)+f:C(x,b)=C(x,b)-f:A(b,c1)=A(b,c1)+(C(x,c7)*f):y=cc-(*(f/c10)+c5):C(x,c7)=(C(x,c7)*y/cc):w=c0 C(x,c7)c5c21,c0;c1;"INVALID TYPE - TRY AGAIN ":cc:4070 A(b,c1)<(f*3000 )c20,c0;c1;"YOU DO NOT HAVE ENOUGH MONEY ";c21,c0;"FOR THIS TYPE - TRY AGAIN ":cc:4070 z=c1:x=(u*3000 ):I(b,c1)=x:I(b,c2)=x:I(b,c3)=x:A(b,c1)=A(b,c1)-x:cf:c19,c4;"You have invested `";x;c21,c9;"in ";I$(u):cc:4500:4900$ "1:u=(I(b,c2)/3000 ):z=(I(b,c1)/I(b,c2)):c0,c5;"Property Development";c0,c5;c1;"____________________";c4,c0;"Amount invested";c20;"`";I(b,c1);c6,c0;"Stage Payment";c20;"`";I(b,c2);c8,c0;"Current Value";c20;"`";I(b,c3);c12,c0;"Liquidity";c20;"`";A(b,c1);c10,c0;"Stage ";z;" of ";I$(u) ,zc5cc::4751:x=(*cc)+c10:y=(I(b,c3)*x/cc)+I(b,c3):c18,c0;"The development is complete and";c19,c0;"sold for `";y;c20,c0;"Profit realised `";(y-I(b,c1)):A(b,c1)=A(b,c1)+y:I(b,c1)=c0:I(b,c2)=c0:I(b,c3)=c0:c2,c20:cc:4900$ 6A(b,c1)I(b,c2)4300 @vcf:c20,c0;"You do not have enough money";c21,c0;"to meet your stage payment":c2,-c10:cc:cf:x=b+c1:y=c0:w=c0 J x>ax=c1 Tx=b4250 ^-I(x,c1)c0A(x,c1)c0fA(x,c1)f>ww=f:y=x ;s=1417:s,c0;g$:s:x=x+1:4170J +s=c1:f=c1:w=c0s=(*c3):f=c2+(*c5) x=(*I(b,c1)*s/f) x=c04265 Vcf:c18,c2;"Spectrum Banking Associates";c19,c5;"made a bid of";c20,c13;"`";x:cc xwcf:c18,c0;A$(b);c19,c2;"You have been bought out by";c20,c2;"Spectrum Banking Associates";c21,c2;"for `";x:A(b,c1)=A(b,c1)+x:s=c1c3:I(b,s)=c0:s:cc:4900$ w=c04280 cf:c18,c0;A$(b);c19,c2;"You have been bought out";c20,c2;"by ";A$(y);c21,c2;"for `";w:A(b,c1)=A(b,c1)+w:A(y,c1)=A(y,c1)-w:s=c1c3:I(y,s)=I(b,s):I(b,s)=c0:s:c1,-c10:cc:4900$ cf:c18,c0;A$(b);c19,c2;"No one wants to buy you out";c21,c0;c1;"YOUR INVESTMENT IS TOTALLY LOST":I(b,c1)=c0:I(b,c2)=c0:I(b,c3)=c0:c2,-c15:cc:4900$ ̻x=(*c10)+c1:y=I(b,c3)+(I(b,c3)*x/cc):c18,c0;"Your investment has appreciated";c19,c0;"by ";x;"% to `";y;c21,c0;"Your stage payment is now due":I(b,c1)=I(b,c1)+I(b,c2):I(b,c3)=y+I(b,c2):A(b,c1)=A(b,c1)-I(b,c2):cc:cf:c19,c1;"YOUR INVESTMENT STATUS IS NOW":z=z+c1:c4,c20;"`";I(b,c1);c8,c20;"`";I(b,c3);c10,c6;z;c12,c20;" ";c12,c20;"`";A(b,c1):cc:cf:c19,c0;"CONSTRUCTION CONTINUES":cc:4500:4900$ :x=c0 x=x+c1 x>zx>c54549 z=x4850 (y=4500+(x*cc/c2):y:4510 cc: ec56,c64:c0,c4:c96,c56:c0,c4:cq,c56:c0,c4:cr,c68:c0,-c4:-c96+c2,c0:c40,-c8:c96,c0:-c40,c8 ǚc44,535:c2,c0:c32,c55:c8,c0:c1,c1:c2,c0:c40,c55:c3,-c3:-c8,c0:-c2,c2:-c1,c0:c1,-c1:-c2,-c3:c2,-c2:c2,c2:c7,c0:c1,c1:c40,c48:c0,c1  60<,c64:c1;c96-c2,c0:c1;c40,-c8:c1;cr,c64:c1;c0,c4:cq,c56:c0,c32:-c96,c0:c0,-c32:c56,c64:c0,c32:c40,-c7:c56,c96:c96,c0:c0,-c8:c0,c8:c40,-c8 Kcs,c80:c0,-c16:c24,c0:c0,c16:-c24,c0:cr,c56:c0,c24:c16,c0:c0,-c24 ) *_c56,c96:c1:c96,c0:c40,-c8:-c96,c0:cr,c87:c0,c8:c96,89Y:-c40,c7:c0: c10,c9;" " +c56,cv:c96,c0:c40,-c8:cr,cu:c0,-c7:cr,ct:c0,-c16:c24,c0:c0,c16:-c24,c0:cs,ct:c0,-c16:c24,c0:c0,c16:-c24,c0:c56,c96:c0,c32:c40,-c8:c96,c0:c0,-c32:c96,119w:c0,-c32:c68,109m:c0,-c15:c16,-c3:c0,c15:-c16,c3 [ \c1:c56,cv:c96,c0:c40,-c8:cr,cu:c0,-c6:c0:c56,cu:c16,c16:c24,-c24:c0,-c2:-c40,c8:c72,143:c96,c0:c24,-c24:c0,-c2:-c96,c0:3,17;"";2,17;""  n=c0c17:n,c0;g$:n c5;c0,c0;g$;g$;g$;g$;" ";c2,c17;"";c3,c17;c2;"";c7;c1;c4,c8;"";c4,c21;"";c5,c22;"";c6,c23;"":n=c6c9:n,c24;c5;" ":n:c10,c24;c5;" " c4,c9 ;c2;c7;"";c5;c1;"";c5,c10;c0;c7;"";c5;c1;"";c6,c11;c0;c7;"";c5;c1;"";c0;c0;c11,c0;"";c11,c24;"";c4;" ";c7;c4;"";c1;c12,c24;" ";c13,c24;" " c14,c24;c6;c4;" ";c1;" ";c0;" ";c0;"";c6;c1;"";c0;"";c0;"":c7,c12;"":n=c8c14:n,c12;"":n a112p,71G:c23,c0:124|,79O:0,-c15:112p,103g:c23,c0:124|,111o:0,-c15:152,103g:c23,c0:164,111o:0,-c15:c68,109m:c0,-c15:c16,-c3:c0,c15:-c16,c3:152,c56:-c56,c0:-c39,c8:c0,c16:96`,117u:-c39,c8:c0,-c1:c39,-c8:-c39,c8:c0,-c1:c39,-c8 c1;c2;c12,c19;" ";c13,c19;" ";c14,c19;" ";c1;c7;c8,c14;" ";c9,c14;" ";c8,c19;" ";c9,c19;" ";c12,c14;" ";c13,c14;" ";c0;c10,14;"";c10,c19;"";c14,c14;""  :4751:cc: cf:63218: A(b,c7)=A(b,c7)+c1  #b:5250:cc::9030F#: A(b,c2)=c05998n ;y=b:z=c1:E(c6,c13):x=c1c6:E(x,c7)=1+(*c9):x W:c0,c7;"Greyhound Derby";c0,c7;c1;"_______________";c2,c4;"No Name Odds" !x=c1c6:(x+c3),c5;x;" ";E$(x) -E(x,c7)>c1(x+c3),c19;E(x,c7);c21;"TO 1" -E(x,c7)c65160( Pc13,c0;g$;c16,c0;g$;c17,c0;g$;c13,c0;g$;c19,c0;"ENTER bet for ";E$(u):cx NfA(y,c1)c20,c0;c1;"INVALID AMOUNT - TRY AGAIN":cc:cf:5100  A(y,c1)=A(y,c1)-f:E(u,y)=E(u,y)+f:E(u,(y+c7))=E(u,c7):E(u,c7)=E(u,c7)-c1-(*f/cb):cf:c19,c0;"You have bet `";E(u,y);c20,c0;"on ";E$(u);c21,c0;"at ";E(u,(y+c7));" TO 1":z=z+c1:cc:cf /E(u,c7)c1(u+c3),c19;" ";(u+c3),c19;E(u,c7);c21;"TO 1" c13,c0;g$;c14,c0;g$ #Dzc0c13,c0;"Any further bets ";A$(y);"?":5080 (z=c1:y=y+c1 2 y>ay=c1 70y:cf:n=c10c17:n,c0;g$:n:y=b5190F <A(y,c1)c0cf:y=E(s,x)*E(s,(x+c7)):A(x,c1)=A(x,c1)+y+E(s,x):c18,c0;A$(x);":";c19,c0;"You bet `";E(s,x);" at ";E(s,(x+c7));" TO 1";c20,c0;"You win `";y;c21,c0;"Liquid Cash is now `";A(x,c1):z=c1:c1,c15:cc x cf /z=c0c19,c10;c1;"NO ONE WINS":c1,-c10:cc n:A(b,c8)=A(b,c8)+c1 o pb:6800:9030F#: tA(b,c2)=c06998V us=c0 zs=s+c1 {7:u=c0:w=c0:c0,c0;"No Name On Mkt. Price Held" =x=c1c8:y=c2+(D(x,c8)/c10):z=c1+(*y):y=y-((y/c2)*c2) (z>D(x,c7)y=y-((y/c3)*c3):z=D(x,c7) y=c1z=c0-z D(x,c7)=D(x,c7)+z+(*c10)+c1 #D(x,c7)c10xc86160 x=z6100 cf:z=x:y=c1+(*502):c18,c0;c2;c1;D$(x);" FUTURES:";c19,c0;c0;"World shortages forecast and";c20,c0;"prices have risen by ";y;"%":x=(D(z,c7)*(cc+y)/cc):w=w-(D(z,c7)*D(z,b))+(D(z,b)*x):D(z,c7)=x:(z+c1),c20;" ";(z+c1),c20;D(z,c7):cc:cc uc0c13,c0;g$;c13,c0;"Value of futures held `";w $A(b,c1)c56255o .c15,c0;"You have available to invest";16,c0;"`";A(b,c1):c18,c0;"Do you wish to buy futures?";c20,c0;"TYPE COMMODITY NUMBER IF YES";c21,c0;"Else type any key":cz:cf 8fc86260t BDx=f:c20,c0;"ENTER number of units required":cx:cf:y=D(x,c7)*f VOA(b,c1)c86400 \D(f,b)D(x,b)c19,c0;c1;"YOU DO NOT HAVE ";f;" UNITS":cc:c19,c0;g$:6310 ^y=f*D(x,c7):D(x,b)=D(x,b)-f:D(x,c8)=D(x,c8)-f:A(b,c1)=A(b,c1)+y:z=(f/c10 )+c1:y=(*z) yD(x,c7)y=D(x,c7)-c1  D(x,c7)=D(x,c7)-y:(x+c1),c0;g$;(x+c1),c0;x;" ";D$(x);c13;D(x,c8);c20;D(x,c7);27;D(x,b):w=c0:x=c1c8:w=w+(D(x,b)*D(x,c7)):x:A(b,c4)=w:c13,c0;g$;c13,c0;"Value of futures held `";w;14,c0;g$;14,c0;"Liquid cash `";A(b,c1):cc:6260t  6998V ?c7:c1::c5:n=c0c6:n,c0;g$:n:c1:n=c7c16:n,c0;g$:n ic5,c7;c5;c7;"";c5,c8;c7;" ":c6,c8;c5;c0;"";c7,c9;c1;"";c8,c10;"" Ic0:c6,c9;" ";c7,c10;" ":n=c6c8:n,c11;" ":n bc2:88X,106j:167,c0:c7:c2,c28;" ";c3,26;" ";c4,c25;" " &c0:568,136:199,c0 hc6:n=c12c14:n,27;" ":n:n=c15c18:n,c24;" ":n:n=c18c20:n,c21;" ":n Nc0:m=c2c18c16:n=c15c17:n,m;" ":n:m:c6,c0;" ";c6,c2;c0;c5;"" c7:c0:c0:cc: VA(b,c9)=A(b,c9)+c1 W Xb:7800x:9030F#: \A(b,c2)=c07998> b?c4::c0:c0,c10;"MINI-ROULETTE";c0,c10;c1;"_____________" cg=c2 df$(1)"1"g=c1 gc1:n=c1c11:n,c0;g$:n lc0:cr,c88:c0,c72,2:c0,-c72:-ck,c0:c0,c72:ck,c0:cr,cs:-ck,c0:cr,136:-ck,c0:n=c32128c24:n,c88:c0,c72:n qc1:c1:c6,c20;"0";c3,c7;"10";c3,c11;"7";c6,c4;"14";c6,c7;"11";c6,c17;"2";c9,c1;"18";c9,c4;"15";c9,c14;"6";c9,c17;"3":c2:c3,c1;"16";c3,c4;"13";c3,c14;"4";c3,c17;"1";c6,c1;"17";c6,c11;"8";c6,c14;"5";c9,c7;"12";c9,c11;"9" vgc0:c0:c6:c1:c3,c24;" ";c9,c24;" ":n=c4c8:n,c23;" ":n:x=63720:c4:c0 "F(c6,c25):u=b:y=c0:7080 u=u+c1:y=c0  u>au=c1 u=b7300 A(u,c1)c8A(u,c1)(c57)f=c0-c1 4h >fc197050 Tx=c19c21:x,c0;g$:x \9x=c19c21:x,c0;g$:x:c19,c10;"ENTER AMOUNT":cx:c4 ff>c0fA(u,c1)7290z p;c21,c2;c1;"INVALID AMOUNT - TRY AGAIN":cc:7260 \ z8F(u,w)=F(u,w)+f:A(u,c1)=A(u,c1)-f:y=y+c1:7090 Tb:cf:c20,c10;c1;"NO MORE BETS":c1,c10:cc:c20,c0;g$:x=c12c17:x,c0;g$:x In=c1c30:.05|L,c5:x=63919:.05|L,c6:x=63720:n _n=c6c15:n/100d,c5:x=63919:n/100d,c6:x=63720:n:.8L,4 e:x=(*c19):7500L:c12,c7;"Winning Number ";x;v$:y=c22+x-(c2*(x/c2)):v=c21:w=c24:z=c0  x>c9w=c25 >x=c1x=c4x=c5x=c8x=c9x=12 x=c13x=c16x=c17v=c20 z=c1a /u=c13c17:u,c0;g$:u:cf:f=c16:g=c0:s=c0 HF(z,(x+c1))>c0g=c1:s=F(z,(x+c1))*c17:A(z,c1)=A(z,c1)+s+F(z,(x+c1)) x=c07420 .F(z,v)>c0g=c1:A(z,c1)=A(z,c1)+(c2*F(z,v)) .F(z,w)>c0g=c1:A(z,c1)=A(z,c1)+(c2*F(z,w)) .F(z,y)>c0g=c1:A(z,c1)=A(z,c1)+(c2*F(z,y)) g=c074808 c14,c0;A$(z);" wins:" (s>c0f,c0;"ON ";x;c10;"`";s:f=f+c1 x=c074753 F(z,v) L v$=" BLACK" VDx=c1x=c4x=c5x=c8x=c9x=12 x=c13x=c16x=c17v$=" RED" [x=c0v$=" " ` wcc:7998> xc4:c1::c0:c13,c0;g$:c5:n=c14c21:n,c0;g$:n:n=c11c16:n,c27;c6;" ":n:216,104h:c1;39',-c2,.5:255,106j:c1;-39',-c2,.5:c1;c0,-64@ zc1:n=c17c19:n,c22;" ":n:c18,c21;" ";c19,c20;" ";c5;c17,c21;"";c18,c20;"";c19,c19;"";c0;c5;c20,c19;"";c21,c20;"";c0;c20,c20;" ";c21,c21;" " |c18,c18;c6;" ";c18,c20;c7;" ";c18,c25;c2;" ":c64,c56:-c24,c0,.5:c48,c40:-c24,c0,.5:n=c15c21:n,c5;c7;" ":n:n=c17c21:n,c3;c2;" ":n: ~c0,170:255,c0:c0,cs:255,c0:c0,cv:c48,47/:n=65A15590Z:n,cs:c64,63?:n:240,cs:c15,c16 c88,148:-502,c0:c16,-c16:c24,c24:102f,132:c22,c22:c30,-c16:240,cv:-c56,c0:c2,-c4:204,148:502,c0,c1:254,148:-502,c0,c1 Xn=c25c22-c1:c18,n;c1;" ";c18,n-c1;c2;" ":c20:n:c18,c21;c0;" ":c0:c0:c20  c7:c0: 7c0:c6:f=c1:x=c1:c21,c30;c1;" ";c0;" ":f$=" " c0:=""7901 x$= x$=c1379906 :f$(f)=x$:c21,c29+f;c0;x$:f=f+c1:.05|L,f*2 f$(c1)"1"f>c279906 c21,c29+f;c1;f$(f)  n=c1c30 ""7906 n 6f>c1x=f-c1 7.25~,f*3:c4: >A(b,c10)=A(b,c10)+c1 ?c7:c0:c0: @ 10 Cc7:c6:c0::c0,c5;"GAMBLER - END OF GAME";c0,c5;c1;"_____________________";c0;c2,c0;"Cash";c8;"Shares";c16;"Prop'ty";c24;"Commod'y";c2,c0;c1;"________________________________";c0 Dx=c1a:y=c2+(x*c2):y,c0;A$(x);(y+c1),c0;A(x,c1);c8;A(x,c3);c16;I(x,c3);c24;A(x,c4);(y+c1),c0;c1;"________________________________";c0:x Ec16,c0;"No. of Days ";bb q rc5::c0:c1,c8;"Gamble Selection";c1,c8;c1;"________________";c3,c5;"No.";c3,c13;"Type";c5,c13;"Horse Racing";c7,c13;"Stock Exchange";c9,c13;"Property";c11,c13;"Dog Racing";c13,c13;"Commodities Market";c15,c13;"Mini-Roulette" vx=c1c6:((x*c2)+c3),c6;x x%A(b,(x+c4))=c0((x*c2)+c3),c8;"*" y$A(b,(x+c4))>c2((x*c2)+c3),c0;g$ zx  9c0::x=c0c5:x,c0;c1;g$:x:c6,c0;c4;g$;c7,c0;g$:175,cs:c0,c32:65A,c0:c0,-c32:c4,c22;"HOSPITAL";c5,c22;"";c6,c22;"";c7,c22;" ":x=c9c14:x,c0;c4;g$;x,c8;c7;c7;" ":x:x=c15c17:x,c0;c4;" ";c7;c7;"":x:c18,c0;c4;g$;g$;g$;g$ gc16,c29;"";c17,c29;"":c8,c8;c7;c7;"":627702:c8,c23;" ":c2,-c16 #c7::c1:c2,c12;c2;"EMERGENCY" c7:c7:c40,c40:c0,c96:c24,c0:c8,c0,:c64,cv:c8,c0,-:c2,c0:c0,-c23:-c14,c0,-/c2:c0,c23:c11,c0:66B,103g:c0,-c19:c13,-c12:c0,c20:-c8,c6:c32,c5:c52,c0:-c5,-c4:c0,-27:-72H,c0,(cg/c2):c13,c9;"";c14,c9;"";c15,c9;"";c16,c9;" ":cs,91[,c8:cy,c93:109m,c93:114r,c93:115s,c93:cy,c87:c7,c0,-ch:co,c88:c4,c 1c0:n=c0c21:c1;c0;n,c0;g$:n:c0:c0:c0: 'c7:c1:c2,c10;c1;"OUT OF DANGER": 9c0::x=c0c5:x,c0;c5;g$:x:c6,c0;c6;g$;c7,c0;g$:175,cs:c0,c32:65A,c0:c0,-c32:c4,c22;" POLICE ";c5,c22;"";c6,c22;"";c7,c22;" ":x=c9c14:x,c0;c6;g$;x,c8;c7;c7;" ":x:x=c15c17:x,c0;c6;" ";c7;c7;"":x:c18,c0;c6;g$;g$;g$;g$ oc16,c29;"";c17,c29;"";c8,c8;c7;c7;"":627702:c8,c23;" ":c1,-c10:c1,-c16 gc0::c5:c3,c4;" ";c4,c4;" ";c5,c4;" ":c0:n=36$c52c4:c0:n,cw:c0,-c24:n:c7:cf c0: c0:c3:c3::c1:c1,c8;c0;"FATE INTERVENES":92\,cp:c44,-37%,cj:-c8,-c8,cg:c0,-c24:-c16,c0:c0,c32:c8,c8,-cg:-c16,c16,cg*c2:-c12,c12:120x,c48,c8:c0:n=c0c21:c1:n,c0;c0;g$:n:b:c0:c7:c0:c0: :c1:c5::n=c5c14:n,c9;c7;" ":n:c6,c25;c2;" ";c7,c25;" ";c6,c11;c7;c0;"LITTLEWOODS";c10,c15;A$(b);c2,c3;c1;c5;c2;"POOLS WIN":c0:c7:c0: l+c1:c5::n=c5c14:n,c9;c6;c0;" ":n:c6,c25;c0;" ";c7,c25;" ";c6,c11;c0;c6;c0;"O.H.M.S";c1;c6;c9,c12;" ";c10,c12;" ";c11,c12;" ";c10,c13;A$(b);c0;c14,c10;"Collector of Taxes";c2,c3;c1;c1;c5;c2;"TAX DEMAND":c0:c7:c0: #(cx: #20c0:c5:f=c1:c21,c30;c1;" ";c0;" ":f$=" " #3c0:=""90113# #4x$= #5'x$(1)="n"x$(1)="N"f=c0 #6 #c49191# #Z)8200 :c0:j=9050Z#+(c10*i):j #d8250: :c0:c5:c1:cf::k=c1+(*20000 N):c18,c0;c0;"You have won a first dividend of";c20,c0;g$;c20,c10;"`";k:A(b,c1)=A(b,c1)+k:A(b,c2)=c0:9190# #n8100:c0:cf:c18,c0;c0;"As you left home, you were";c19,c0;"set upon by a gang of muggers":k=(*(A(b,c1)/c4)):A(b,c1)=A(b,c1)-k:A(b,c2)=c1 #q+k>c0c20,c0;"who robbed you of `";k;"." #r'k=c0c20,c0;"but they got nothing." #s+c21,c0;"You also needed hospitalisation" #t k=(*c5) #uWk=c0cc:cf:c19,c3;"However, you were released";c20,c10;"immediately":A(b,c2)=c0 #v 9190# #xA(b,c2)=c2:8150:c0:c18,c0;c0;"You have been caught bribing";c19,c0;"the officials and have been sent";c21,c8;"TO GAOL":9190# #f8300l :c0:c5:c1:cf:A(b,c2)=c0::k=30+(*c21):c18,c0;c0;"You have to pay tax at " #c=c29130# #c=c59140# #c=c39150# #<c19,c0;c0;"on your gambling winnings":i=(A(b,c1)*k/cc) #i>A(b,c1)i=A(b,c1) #dA(b,c1)=A(b,c1)-i:c20,c0;c0;"Amount charged `";i;c21,c0;"Cash available `";A(b,c1):9181# #9c19,c0;c0;"on your stock holdings":i=(A(b,c3)*k/cc) #iA(b,c1)9180# #*i=A(b,c1):k=(i/A(b,c3)*cc):9180# #=c19,c0;c0;"on your commodity holdings":i=(A(b,c4)*k/cc) #iA(b,c1)9180# #*i=A(b,c1):k=(i/A(b,c4)*cc):9180# #>c19,c0;c0;"on your property investment":i=(I(b,c3)*k/cc) #iA(b,c1)9180# #*i=A(b,c1):k=(i/I(b,c3)*cc):9181# #XA(b,c1)=A(b,c1)-i:c20,c0;c0;"Amount charged `";i;c21,c0;"Cash available `";A(b,c1) #c18,23;k;"%" # k=(*c7) #ߘk=c0cc:c0:c7:c0:A(b,c2)=c2:8150:c0:c18,c0;"You are also suspected of tax";c19,c0;"evasion and have been taken";c20,c0;"into custody" #c7:c0:cc:cc # #^b:c5:c0::c0,c10;"CURRENT SCORE";c0,c10;c1;"_____________";c0;c2,c3;"Name";c21;A$(b);c4,c3;"Liquidity";c21;"`";A(b,c1);c6,c3;"Share Value";c21;"`";A(b,c3);c8,c3;"Property:";c9,c5;"Investment";c21;"`";I(b,c1);c10,c5;"Stage Payment";c21;"`";I(b,c2);c11,c5;"Current Value";c21;"`";I(b,c3);c13,c3;"Commodity Value";c21;"`";A(b,c4) #?c15,c3;"Day No.";c21;bb;c18,c3;"PRESS ANY KEY TO CONTINUE" #c0:=""9204# #c7:: $T=c0:c6:f=c1:c21,c24;c1;"";c0;" ":f$="" $Vc0:=""9302V$ $Wx$= $X"x$c57f>c89312`$ $Z:f$(f)=x$:c21,(f+c23);c0;f$(f):f=f+c1:.05|L,f*c3 $\fc89328p$ $hf$(g)=""9328p$ $jOf$(g)c48f$(g)c57f=(f*c10)+f$(g):c21,(g+c23);" ":ci,c24:9316d$ $nf=-c1:.5,-c12 $p g=c1f=-c1 $rc21,c24;" ": $tx$c129340|$ $v'fc1f=f-c1 $z4c21,(c23+f);c1;f$(f):.05|L,f*c3:9302V$ $|x$c89350$ $~f>c89336x$ $c21,(c23+f);c0;f$(f) $!f$(f)=""c21,(c23+f);c0;" " $ 9336x$ $x$c9f>c79356$ $f$(f)=""9356$ $,c21,(c23+f);c0;f$(f):f=f+c1:9338z$ $.5,-c12:9302V$ $"f$=" ":c21,c31;c5;c0;c1;"" $c0:=""9370$ $ f$(c1)= $=c139380$ $c21,c31;c5;c0;c0;f$(c1) $=f$(c1)<(c48)f$(c1)>c57.5,-c12:f=-c1:9399$ $ f=f$(c1):.25~,f*3 $c21,c31;c7;" ": _ LittleWolfCentrolinePrince MayKhairpour Red Injun Rivellino Ballitou Runaway Ore i Sinclair Plessey W.H.SmithsThorn EMI PrudentialTesco's Ferranti Rothmans CourtauldsGuinness U Gold Silver Copper Cocoa Coffee Sugar Wheat Rubber A I'm SlippyBig HerbieGay SpiritGame Ball Tally Ho On Spec g  a&i  G wt 1 1122CPd1 j#(#2#<#k&7 Flats Terraces Town HouseSemi's Detached  Iڢz# =1 12223 F94(tkq8X8P7G7O9_111 3124059q2T$$3589`6D4,576@po8Wl549]7H3 4 1 2 6 5 3 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 7777777777777777777777777 777777777777777777777777777777777777777777777777777777776?2"3'252''VREDX  1 ''''''  ddddddddddEddddddddA _F