ZXTape! 0Created with Ramsoft MakeTZXINHERIT G INHERITANCE Simon W Hessel 7/82  (0:7:7:sre=0 410 ,5;4;"I n h e r i t a n c e" *12 ,10 ;4;"SWH  7/82" V.5,5:.5,9 :.5,12 :.5,17:9060d# l=10000':w=0 s$(3,10 ) s$(1)="One" s$(2)="Two" s$(3)="Three" gcnt=0:co=1:a=100d:b=250:c=110n:d=190:e=140:f=165 Tau=200:pt=250:ag=150:cu=800 :pb=330J:zn=410 (Qex=0:y=0:u=0:v=0:de=0:se=0:cl=0 0665 ccn=2000:aa=0:bb=0:cc=0:dd=0:ee=0:ff=0:gg=0 12 ,0;" ";12 ,0;ia;"a.Chemicals :`":j=a:9075s#:12 ,k-12 ;ia;a;12 ,25;"`":j=aa:9075s#:12 ,k;ia;aa 13 ,0;" ";13 ,0;ib;"b.Petroleum :`":j=b:9075s#:13 ,k-12 ;ib;b;13 ,25;"`":j=bb:9075s#:13 ,k;ib;bb 14,0;" ";14,0;ic;"c.Retailers :`":j=c:9075s#:14,k-12 ;ic;c;14,25;"`":j=cc:9075s#:14,k;ic;cc 15,0;" ";15,0;id;"d.Aerospace :`":j=d:9075s#:15,k-12 ;id;d;15,25;"`":j=dd:9075s#:15,k;id;dd 16,0;" ";16,0;ie;"e.Motor Car :`":j=e:9075s#:16,k-12 ;ie;e;16,25;"`":j=ee:9075s#:16,k;ie;ee 17,0;" ";17,0;if;"f.Shipping :`":j=f:9075s#:17,k-12 ;if;f;17,25;"`":j=ff:9075s#:17,k;if;ff Lsre>05,0;1;2;"W E E K L Y R E P O R T" >sre=019,0;"g.";4;"WHEN FINISHED" ȁsre=018,25;"=======";19,25;"`";19,26;" ":j=gg:9075s#:19,k;gg sre>0cn=cn+5 sre>0cn:665 H21,0;1;2;" ENTER PREFIX of stock to invest" 4b$:90102#:b$=""1,0:730 Mb$(1)=" "b$(1)>"g"b$(1)<"a"1,0:730 b$(1)="g"800  ?21,0;1;"ENTER AMOUNT you wish to invest" b$(1)="a"aa b$(1)="b"bb b$(1)="c"cc b$(1)="d"dd b$(1)="e"ee b$(1)="f"ff  3gg=aa+bb+cc+dd+ee+ff:gg>l9080x#:660  9060d#:665  9060d#:l=l-gg:19,0;" ";18,25;"=======";19,25;"`":j=gg:9075s#:19,k;gg:9095# * 9090# 4l=01020 6,27;s$(2) 98,3;1;"M e t a l E x c h a n g e" <9 ,3;"" :10 ,0;" Metal Price Invest " :11 ,0;"********************************" sre>01030 cnc=2200:tp=0:ua=0:ga=0:uc=0:bp=0:nz=0:hh=0 l=02000 12 ,0;" ";12 ,0;ia;"a.Platinum (oz):`":j=pt:9075s#:12 ,k-10 ;ia;pt;12 ,25;"`":j=tp:9075s#:12 ,k;ia;tp  13 ,0;" ";13 ,0;ib;"b.Gold (oz):`":j=au:9075s#:13 ,k-10 ;ib;au;13 ,25;"`":j=ua:9075s#:13 ,k;ib;ua 14,0;" ";14,0;ic;"c.Silver (kilo):`":j=ag:9075s#:14,k-10 ;ic;ag;14,25;"`":j=ga:9075s#:14,k;ic;ga 15,0;" ";15,0;id;"d.Copper(tonne):`":j=cu:9075s#:15,k-10 ;id;cu;15,25;"`":j=uc:9075s#:15,k;id;uc 16,0;" ";16,0;ie;"e.Lead (tonne):`":j=pb:9075s#:16,k-10 ;ie;pb;16,25;"`":j=bp:9075s#:16,k;ie;bp 17,0;" ";17,0;if;"f.Zinc (tonne):`":j=zn:9075s#:17,k-10 ;if;zn;17,25;"`":j=nz:9075s#:17,k;if;nz $>sre=019,0;"g.";1;"WHEN FINISHED" .sre=018,25;"=======";19,25;"`";19,26;" ":j=hh:9075s#:19,k;hh 0sre>0nc=nc+5 3sre>0nc:1030 8H21,0;1;2;" ENTER PREFIX of metal to invest" B5b$:90102#:b$=""1,0:10808 GNb$(1)=" "b$(1)>"g"b$(1)<"a"1,0:10808 Lb$(1)="g"1150~ [?21,0;1;"ENTER AMOUNT you wish to invest" `b$(1)="a"tp bb$(1)="b"ua db$(1)="c"ga fb$(1)="d"uc hb$(1)="e"bp jb$(1)="f"nz o4hh=tp+ua+ga+uc+bp+nz:hh>l9080x#:1020 t9060d#:1030 ~9060d#:l=l-hh:19,0;" ";18,25;"=======";19,25;"`":j=hh:9075s#:19,k;hh:9095# o=4:9091#  2000 6,27;s$(3) A5,0;"Investment Opportunities SECTION" )8,8;3;"G a m b l e" )9 ,8;3;"" 012 ,3;"a. H o r s e R a c e " ,15,3;"b. B l a c k J a c k " 418,3;"c. I do not wish to GAMBLE" H21,0;4;1;" ENTER PREFIX of GAMBLE " 5b$:90102#:b$=""1,0:1280 Nb$(1)=" "b$(1)<"a"b$(1)>"c"1,0:1280  8b$(1)="c"b$(1)="C"9090#:600X )b$(1)="a"9090#:2300 )b$(1)="b"9090#:4000  sre=1:610b  3000 a<502r=.1}L a>290"r=-.1}L +aa=(aa+(aa*r)):a=(a+(a*r)):ia=2 9030F#:  3000 b<125}r=.1}L b>500r=-.1}L 7bb=(bb+(bb*r)):b=(b+(b*r)):ia=0:ib=2 9030F#:  3000 c<557r=.1}L c>220r=-.1}L 7cc=(cc+(cc*r)):c=(c+(c*r)):ib=0:ic=2 9030F#:  3000 d<95_r=.1}L d>380|r=-.1}L 7dd=(dd+(dd*r)):d=(d+(d*r)):ic=0:id=2 9030F#:  3000 e<70Fr=.1}L e>280r=-.1}L 7ee=(ee+(ee*r)):e=(e+(e*r)):id=0:ie=2 9030F#:  3000 f<85Ur=.1}L f>330Jr=-.1}L 7ff=(ff+(ff*r)):f=(f+(f*r)):ie=0:if=2 9030F#: if=0: gg=aa+bb+cc+dd+ee+ff  sre=0  `18,25;"=======":19,25;if;"`":j=gg:9075s#:19,k;if;gg  l=l+gg:9095#:if=0 (l100000CP9090#:9800H&  $9000(#:9090#:2200 sre=1:1000  3100 pt<95_r=.2~L pt>610br=-.2~L <tp=(tp+(tp*r)):pt=(pt+(pt*r)):ia=2:9030F#:  3100 au<85Ur=.2~L au>580Dr=-.2~L Hua=(ua+(ua*r)):au=(au+(au*r)):ia=0:ib=2:9030F#:  3100 ag<70Fr=.2~L ag>400r=-.2~L Hga=(ga+(ga*r)):ag=(ag+(ag*r)):ib=0:ic=2:9030F#:  3100 cu<350^r=.2~L cu>2000r=-.2~L Huc=(uc+(uc*r)):cu=(cu+(cu*r)):ic=0:id=2:9030F#:  3100 pb<100dr=.2~L pb>1000r=-.2~L Hbp=(bp+(bp*r)):pb=(pb+(pb*r)):id=0:ie=2:9030F#:  3100 zn<120xr=.2~L zn>1100Lr=-.2~L Hnz=(nz+(nz*r)):zn=(zn+(zn*r)):ie=0:if=2:9030F#: if=0: hh=tp+ua+ga+uc+bp+nz  sre=0 `18,25;"=======":19,25;if;"`":j=hh:9075s#:19,k;if;hh  l=l+hh:9095#:if=0 (l100000CP9090#:9800H& $9000(#:9090#:1200 ~oa=(*6)+1:ob=(*6)+1:oc=(*7)+1:od=(*4)+1:oe=(*10 )+1 Hhg=0:ha=0:hb=0:hc=0:hd=0:he=0 K8,7;"H o r s e  R a c e" +9 ,7;"******************" ;11 ,2;"Horse Col. Odds Stake" :12 ,0;"================================" :13 ,1;"a.Red Rum  " $}j=oa:9075s#:13 ,k-11 ;oa;13 ,20;".1";13 ,25;"`":j=ha:9075s#:13 ,k;ha ):14,1;"b.Arkle  " .}j=ob:9075s#:14,k-11 ;ob;14,20;".1";14,25;"`":j=hb:9075s#:14,k;hb 3:15,1;"c.Minstrel  " 8}j=oc:9075s#:15,k-11 ;oc;15,20;".1";15,25;"`":j=hc:9075s#:15,k;hc =:16,1;"d.Spectrum  " B}j=od:9075s#:16,k-11 ;od;16,20;".1";16,25;"`":j=hd:9075s#:16,k;hd G:17,1;"e.Fatty  " L}j=oe:9075s#:17,k-11 ;oe;17,20;".1";17,25;"`":j=he:9075s#:17,k;he Q019,1;"f.TO GO TO RACE TRACK" Vt18,25;"=======";19,25;"`";19,26;" ":j=hg:9075s#:19,k;hg `H21,0;1;2;" ENTER PREFIX of horse to stake " j5b$:90102#:b$=""1,0:2410j oNb$(1)=" "b$(1)>"f"b$(1)<"a"1,0:2410j tb$(1)="f"2460 ~?21,0;1;" ENTER AMOUNT you wish to stake " b$(1)="a"ha b$(1)="b"hb b$(1)="c"hc b$(1)="d"hd b$(1)="e"he 1hg=ha+hb+hc+hd+he:hg>l9080x#:2305 9060d#:2335 l=l-hg:19,0;" ";18,25;"=======";19,25;"`":j=hg:9075s#:19,k;hg:9095# 9090# x=9 192:x,0;"================================":x:x=10 182:x,0;"................................":x:x=10 182:x,3;"";x,30;"":x 1ha>010 ,31;1;"*" 1hb>012 ,31;1;"*" 1hc>014,31;1;"*" 1hd>016,31;1;"*" 1he>018,31;1;"*" j10 ,0;i$;12 ,0;j$;14,0;k$;16,0;l$;18,0;m$ 9000(# ֖8,0;2;"T H E Y ' R E O F F !!!":x=110 :z=(*6):.25~,z:x:8,0;" " Tvw=0:vf=2:va=0:vb=0:vc=0:vd=0:ve=0 vvf=2:10 ,va;" ";i$;12 ,vb;" ";j$;14,vc;" ";k$;16,vd;" ";l$;18,ve;" ";m$ Iva=27vb=27vc=27vd=27ve=272600( /vf=vf+2:vv=(*2):2560 +vf va=va+vv:2560 vb=vb+vv:2560 vc=vc+vv:2560 vd=vd+vv:2560 ve=ve+vv:2560 6.01z# =,-20:.01z# =,-20:2530 (va+vb=546va+vc=546va+vd=546va+ve=546vb+vc=546vb+vd=546vb+ve=546vc+vd=546vc+ve=546vd+ve=5462650Z 2 2700 Z*13 ,6;" " \814,8;1;2;"D E A D H E A T" _*15,6;" " a6.5,1:.5,4:.5,8 dq7,0;" ";7,5;2;1;"There must be a re-run" n$9000(#:9090#:2500 &va=27n$="Red Rum":og=oa 3ha>0va=27hg=ha+(ha*oa):vw=1 $vb=27n$="Arkle":og=ob 3hb>0vb=27hg=hb+(hb*ob):vw=1 )vc=27n$="Minstrel":og=oc 3hc>0vc=27hg=hc+(hc*oc):vw=1 )vd=27n$="Spectrum":og=od 3hd>0vd=27hg=hd+(hd*od):vw=1 &ve=27n$="Fatty":og=oe 3he>0ve=27hg=he+(he*oe):vw=1 .8,0;"Winner:";1;n$ (8,20;"Price:";og;".1" 2vw=113 ,7;" " @vw=114,9 ;1;4;"Y O U W I N" 2vw=115,7;" " Uvw=11,8:1,12 :1,15:l=l+hg:9095# vw=1z=(*10 -(hg/10000'))+1:z118,0;"Cousin Sid,your bookmaker has","dissappeared with your winnings":3,-10 :l=l-hg:9095# vw=12830 (13 ,7;" " 614,9 ;1;2;"Y O U L O S E" (15,7;" " 2,-8 :o=4:9095#:9000(#:9092#:600X #r=((*3)+1)*.1}L rx=(*3)+1 )gg>20000 Nrx=(*2)+1 rx1r=r*-1  #r=((*4)+1)*.1}L &rx=(*2)+1 0%r<.4Lrx1r=r*-1 : %8,10 ;"C A S I N O"  %9 ,10 ;"***********" -10 ,6;"" )11 ,6;"B L A C K J A C K" -12 ,6;"" 13 ,14;"" "?14,0;"Your    Bank's" ,<15,0;"CARDS * *  * * CARDS" 1D16,0;" * *  * * " 4717,0;" * *  * * " 6918,0;"   " 819,14;"" ;:17,0;"Stake";18,0;"`0" @ 4590 J-15,7;" ";17,7;" " Ttt=(*6)+4 ^ 44000 c16,7;b$ hbj=tt r?21,0;1;" ENTER AMOUNT of STAKE " w!18,0;1;"`0" |"jb:jb>l9080x#:4210r 18,0;"`";jb l=l-jb:9095#  4590 /15,11 ;" ";17,11 ;" " %tt=(*7)+3:44000 16,11 ;b$  bj=bj+tt .13 ,0;"S t i c k " .19,0;"S t i c k "  4590 /15,18;" ";17,18;" " %tt=(*6)+4:44000 16,18;b$ bn=tt  4590 /15,22;" ";17,22;" " 'tt=(*7)+3:44000 16,22;b$  bn=bn+tt bnbj4500 bj=214380 113 ,0;1;" Y o u W i n " 119,0;1;" Y o u W i n " 41,6:1,8:1,10  17,0;"Payout" "18,0;"`";jb*2  l=l+(jb*2):9095# .9000(#:o=4:9092#:600X ;13 ,0;1;"P O N T O O N " !;19,0;1;"P O N T O O N " &4x=115:z=(*5):.25~,z:x 'n16,0;"Payout";17,0;1;"DOUBLE";18,0;0;"`";jb*3 (Ll=l+(jb*3):9095#:9000(#:o=4:9092#:600X 1tt=7b$="K" 2tt=6b$="Q" 3tt=5b$="J" 4tt=4b$="T" 6tt=9 b$="9" 8tt=8b$="8" <tt=3b$="A" D$tt>3tt<8tt=10 Itt=3tt=11 b 213 ,0;1;"Y o u L o s e " 219,0;1;"Y o u L o s e " 2,-12 .9000(#:o=4:9092#:600X E21,0;1;" Press ENTER to show CARD " z$ 90102#:  *ef=(*4)+2:fe=(*3) 1l>80000@w<19se=0de=0 1l>300000uw<20de=05600 1l>50000Pw<20se=05700D >l>1000l<25000aw>20ex=05800  fe0 fe=010 ,0;2;"Aunt Emily has written to you";12 ,0;"She wants you to go and stay for";14,0;ef;" weeks --- ";1;"Will you go?";0;" ---" ?21,0;1;" key in y or n then ENTER " 5b$:90102#:b$=""1,0:5615 b$="y"5635 b$="n"5650 1,0:5610 a9090#:w=w+ef:10 ,6;4;"She is very grateful":9000(#:9090#: de=(*3)+1 mde1de=0:9090#:10 ,8;4;"She understands!":9000(#:9090#: x9090#:10 ,0;2;"She is near death - ";1;"YOU MUST GO":w=w+ef:9000(#:9090#: Dfe>1 N'se=((*13 )+8)*1000 S>10 ,0;2;"Uncle Scrooge tricks you out of" X-12 ,13 ;2;1;"`";se b,l=l-se:9095#:9000(#:9090# l ex=(*3)+2 10 ,0;4;"It has been decided that you",''"should have an extra ";1;ex;" weeks",'';0;"Your week total will be adjusted" "w=w-ex:9000(#:9090#: p9500%:w=1 q 9200# ua=(*6)+1 z55,0;"First search for the FORMULA in:" 96,0;"********************************" 8,0;"a.The Manor";10 ,0;"b.The Stables";12 ,0;"c.The Garage";14,0;"d.The Factory";16,0;"e.The Warehouse";18,0;"f.The Grounds"  9150# 621,0;"ENTER PREFIX of place to SEARCH " )b$:b$=""1,0:6035 Nb$(1)=" "b$(1)<"a"b$(1)>"f"1,0:6035 sa=1b$="a"a=2b$="b"a=3b$="c"a=4b$="d"a=5b$="e"a=6b$="f"6060 T9400$:21,0;1;2;"It is not there! --TRY AGAIN-- " :w=w+1:2,30;w:9050Z#:6030 21,0;4;1;" Well done!! - You've found it ":.5,7:.5,8:.5,7:.25~,8:.25~,7 o=4:9091# 5,3;"S e c r e t F o r m u l a";6,3;"";7,4;0;"P A R A D I S E C O L A ";8,4;"" 10 ,10 ;"Brown Sugar";12 ,10 ;"Lemon Juice";14,10 ;"Spring Water";16,10 ;"Bango Fruit";18,1;"(found only on Hoola Island)" 9000(#:9091# /5,5;"H O O L A I S L A N D" f6,5;"oooooooooooooooooooooo";6,5;1;"!!!!!!!!!!!!!!!!!!!!!!"  ww=0 p8,0;" Situated in the Pacific Ocean";9 ,1;"" _10 ,0;4;"You must go there and negotiate a supply of BANGOS " 9000(#:9090# x=812 :x,0;" ":x:tw=(*3):8,0;3;" W e a t h e r R e p o r t " Yl>200000CPtw=010 ,8;" S T O R M Y ":1,-15 [l200000CPtw>010 ,9 ;" F A I R ":tw=(*2)+1 Sx=13 19:x,0;"":x 14,23;"";15,20;"";16,22;"";17,21;"";18,25;"" $17,22;"Hoola" 515,0;"";16,0;"" cnt=1  z$="" 16,1;z$ Yz=117:.1}L,-20:.1}L,-15:16,z;"";z$ -z=9 tw=1w<159450$ Cz=9 tw=0z=14tw=0w<199450$ z $.5,1:.5,4  2mg=((*4)+3)*1000:6430 &mg=((*5)+4)*1000  6430 f=(*5)+1 #l>500000t$f=f+6 (l>800000CPf=f+2 -`8,0;1;" Chief Imbango has available a "," supply of ";mg;" tons of BANGOS" /610 ,0;" " 2H11 ,0;4;1;" How much will you pay PER TON " 7A21,0;1;"Key in AMOUNT and press ""ENTER"" " <am > 90102# Atam>2021,0;1;2;" Care! -Offer too high-TRY AGAIN":1,-10 :6460< Kamf6500d PH11 ,0;2;1;"Offer not acceptable - TRY AGAIN" U w=w+1 W9400$:64557 d11 ,0;" ";11 ,2;"Offer acceptable:TOTAL=`";am*mg:l=l-(am*mg):.5,10 :.5,15:9095# ncnt=1:6117 s z$="" x16,19;z$ }ri=17:z=117:.1}L,-20:.1}L,-15:16,i;z$;"":i=i-1 .tw=2i=13 w<12 9450$ Ctw=0i=13 w<12 tw=0i=9 9450$ z "1,5:1,8  cnt=0 re=1 #9000(#:o=5:9091# l1000000t$9850z& w279950& xd=17800x l9000(#9300T$ Axc=0st>20000 Nxc>0st>300000u7500L 2xc=0l>250000t$w>10 7600 Ww<25l>800000CPrm=0:dd=0:fd=0:re=0:ak=0 Gnf>0nf=nf-1:l=l-xf:ca=ca+1000:oh=oh+1000 'rm=0l300000|7000X 2dd=0w<25l>500000t$7100 2fd=0w<25l>800000CP7150 mg07200  'ak=0l>600000|7300  9200# Pav=0:cs=0:4,1;"P A R A D I S E C O L A C O. " 75,1;""  85004! "36,1;"Prod.Capacity:";ca;" cases p.w" 'Z8,1;"Cases already in stock:":j=st:9075s#:8,k;2;st ,59 ,0;"--------------------------------" 1_10 ,1;"Weekly overhead costs :`":j=oh:9075s#:10 ,k;2;oh 6_12 ,1;"Prod.costs (per case) :`":j=mc:9075s#:12 ,k;2;mc @_14,1;"Advertising(per entry):`":j=ad:9075s#:14,k;2;ad E615,0;"================================" Ja17,1;"Cases of Paradise Cola: ":j=cs:9075s#:17,k;1;cs Ta19,1;"Advertising Entries : ":j=av:9075s#:19,k;1;av YH21,0;4;1;" ENTER number of CASES " ^dcs:cs>ca21,0;"Insufficient Capacity - RE-ENTER":1,0:6745Y c-tc=cs*mc:tc>(l-oh)9080x#:6745Y h?17,25;" ":j=cs:9075s#:17,k;cs mH21,0;1;1;" ENTER number of ADVERT ENTRIES " r/av:(av*ad)>(l-tc-oh)9080x#:6765m w@19,25;" ":j=av:9075s#:19,k;av | ta=av*ad o=12 :9091# j=cs:9075s#:12 ,k-25;cs;12 ,7;"cases at `";mc;12 ,20;" :`":j=tc:9075s#:12 ,k;2;tc j=av:9075s#:14,k-25;av;14,7;"Ads. at `";ad;14,22;" :`":j=ta:9075s#:14,k;2;ta tl=(ta+oh+tc):15,25;"=======":j=tl:9075s#:16,10 ;"TOTAL COSTS = `":16,k;2;tl H21,0;1;2;"Do you wish to change? (y or n) " 5b$:90102#:b$=""1,0:6830 +b$="y"o=6:9091#:6690" b$="n"6850 1,0:6835 (l=l-tl:9095#:cg=st+cs:st=st+cs mg=mg-(cs/10 ) o=6:9091# ]8,5;"M a r k e t P l a c e";9 ,5;"" 612 ,1;"Cases presently in stock:";st 515,4;"Sale Price (PER CASE):`?"; E21,0;1;" ENTER your SELLING price " sp:15,27;sp $9000(#:9091#:8000@ o6,0;"Trading/Profit and Loss Account";7,0;"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" cd=(cd+.005y# =) .9 ,1;"No. of Cases sold : " ,11 ,1;"Cases in Stock : " ,13 ,1;"Cash Receipts :`" :14,0;"================================"  ,16,1;"Net Cash Flow :`"  ,18,1;"Profit/Loss :`"  $9060d#:9050Z#:9052\#  $j=cd:9075s#:9 ,k;cd  9052\#  tb=(cd*sp) l=l+tb:st=st-cd "j=st:9075s#:11 ,k;st  9052\# "j=tb:9075s#:13 ,k;tb & cl=tb-tl ( c=0 )#9052\#:cl<0c=2 +%j=cl:9075s#:16,k;c;cl 0-tb=0:po=(cd*sp)-(cg*mc)-(oh+(av*ad)) 5 st>0po=po+((cg-cd)*mc) 6"c=0:po<0c=2 :19052\#:j=po:9075s#:18,k;c;po ?]9095#:w=w+1:2,30;w:9000(#:o=6:9091#:6600 X%ww=1:sa=(*3)+1 b88,0;" Your workforce want a PAY RISE" gV10 ,0;" This will increase your unit ","  cost by `";sa l+16,5;"Do you agree to this?" qI21,0;2;1;" Key in y or n then ""ENTER"" " rb$ vb$="n"7060 {b$"y"7025q /mc=mc+sa:rm=1:o=6:9091#: pr=(*3)+1 pr=1o=6:9091#:10 ,1;"Your workers understand and",''" drop their claim":9000(#:o=6:9091#: F16,1;2;1;"YOUR WORKERS ARE OUT ON STRIKE" Hw=w+1:9400$:9000(#:o=6:9091#:7000X dd=(*4)+1 z10 ,5;"There has been a fire",''" ALL stock has been destroyed",'''" You also lose ";dd;" weeks prod." Lst=0:w=w+dd:2,30;w:9000(#:o=6:9091# (fd=((*10 )+5)*10000' Q10 ,5;"You discover a fraud",''" `";fd;" has been embezelled" 9l=l-fd:9095#:9000(#:o=6:9091#:  ww=0 %X10 ,3;"Bango supply has run out!",'''" Production and Sales suspended" *19000(#:o=4:9091#:6100: %ak=((*4)+1)*500 )8,8;"Marketing Report" a12 ,3;"Advertsing Costs up `";ak:ad=ad+ak:9000(#:o=6:9091#: Lxc=0wc=20000 N Vxc>1wc=300000u `X10 ,2;"Your warehouse has a maximum",''" capacity of ";wc;" cases" jjos=st-wc:oc=os*3:14,0;"You must dispose of ";os;" cases",'" at `3 each = `";oc o@l=l+oc:st=wc:9095#:9000(#:o=6:9091#: xc=(*6)+2 cx=(xc*1000)+ca P6,2;"YOU HAVE THE OPPORTUNITY TO"," EXTEND YOUR FACTORY" Q9 ,0;"Weekly Capacity will increase to ";cx;" cases" xe=(xc*20000 N) +11 ,6;"Total Cost = `";xe X13 ,2;"Overheads will increase at a"," rate of `1000 pw over ";xc;" weeks" [16,1;"Capacity will increase by 1000"," cases pw over the next ";xc;" weeks"  xf=xe/xc ;19,0;"Cost will be debited at `";xf;"pw" H21,0;1;4;"Will you proceed? - ENTER y or n" <b$:b$="n"xc=0:o=6:9091#:6635 %b$"y"1,0:7655  nf=xc:o=6:9091#: x int=((ln*.20~L)/524) o10 ,3;"Loan Interest now due `";int:l=l-int:.5,6:.5,10 :9095# l9000(#9300T$ o=6:9091# l<250000t$ hl250000t$10 ,4;"You must repay your loan":.5,10 :.5,15 ul=l-ln:9095#:ln=0:10 ,4;" THANK YOU!! ":1,0:1,-2 ln=0xd=0 9091#: @8040h+(mk*10 ) r#sp0sp6tt=1 t#sp7sp8tt=2 v&sp8sp10 tt=2.5 x%sp>10 cd=0:8100 z&cd=(st*av)/(tt*40():8100 |sp8tt=1 ~$sp9 sp11 tt=2 'sp>11 sp13 tt=2.5 %sp>13 cd=0:8100 &cd=(st*av)/(tt*30):8100 sp10 tt=1 %sp>10 sp13 tt=2 'sp>13 sp<16tt=2.5 %sp>15cd=0:8100 &cd=(st*av)/(tt*25):8100 sp<13 tt=1 %sp>12 sp<15tt=2 'sp>14sp<18tt=2.5 %sp>17cd=0:8100 &cd=(st*av)/(tt*20):8100 sp<16tt=1 %sp>15sp<20tt=2 ,sp>19sp<(25+fe)tt=2.5 *sp>(24+fe)cd=0:8100 cd=(st*av)/(tt*12 ) cd>stcd=st sp<6cd=(st/2) sp<4cd=st  !4e8,3;"M A R K E T O U T L O O K";9 ,3;"**************************" !>$mk=0mk=4:8520H! !Cmk=(*5)+1 !H6mk=113 ,8;"V E R Y P O O R" !M.mk=213 ,12 ;"P O O R" !R2mk=313 ,10 ;"S T E A D Y" !W.mk=413 ,12 ;"G O O D" !\7mk=513 ,7;"E X C E L L E N T" !a%9000(#:o=8:9091#: #(L21,0;1;2;" Press ""ENTER"" to continue " #-z$ #2621,0;" " #7 #F1r>0.1}L,15:.1}L,20 #H r<0.25~,-10 #J #Zx=125:x: #\Ax=135#:x:.01z# =,12 :.01z# =,15: #dJ21,0;1;5;"Processing data - PLEASE WAIT - ": #nm(xp)=(31-x) #sk=31-j: #xN21,0;" INSUFFICIENT CASH - RE-ENTER - ":1,-4: # o=7 #621,0;" " #Lx=o19:x,0;" ":x:90102# #g2,15;" ";2,15;2;1;l:9050Z#:2,15;l: #=0,0;4;"**** I N H E R I T A N C E ****" #>1,0;4;"" #J2,0;"RUNNING TOTAL:`";2,25;"WEEK:" #>3,0;4;"" #J2,15;2;1;l:9050Z#:2,15;l #H2,30;2;1;w:9050Z#:2,30;w # #A20,0;6;"--------------------------------": #>0,0;1;"Gt.Uncle Arbuthnot's Inheritance" #>1,0;6;"" #P2,0;"Cash in hand: `";2,25;"Week:" $>3,0;6;"" $J2,15;2;1;l:9050Z#:2,15;l $ H2,30;2;1;w:9050Z#:2,30;w $ $Tys=st*3:l=l+ys:8,6;1;"C A S H C R I S I S":1,-14:.5,-19:1,-14 $Y 9050Z# $^\st>011 ,4;"Sale of existing stock of",''" ";st;" cases yields `";ys $cst=0:9095# $h#9000(#:o=9 :9091# $mxd=19390$ $r810 ,2;"A loan of `100000 is available" $t513 ,3;"Interest rate 20% per annum" $w,17,5;"Do you wish to accept?" $y@21,0;1;" Key in y or n then ""ENTER"" " $|b$ $b$="n"9385$ $%b$"y"1,0:9335w$ $-17,5;" " $1ln=100000CP:l=l+ln:9095#:xd=1 $ 9000(# $1l9000(#o=6:9091#:9950& $o=6:9091#: $21,0;3;" ONE WEEK HAS PASSED ":1.5@,-10 :2,30;w:21,0;" ": $c=16445- $H12 ,0;1;2;"Adverse currents causing delays " $fw=w+1:1.5@,-16:9400$:12 ,0;" ": %Y0,0;"Gt.Uncle Arbuthnot's Inheritance================================" %&2,1;"You have examined your Great"," Uncle's affairs and find that"," his estate is very close to"," being INSOLVENT" %07,1;"Included in the estate is an"," ailing soft-drinks factory"," situated in the small village"," of Pooksley Green" %:12 ,1;"Legend has it that there is a"," secret recipe for a potentially world beating drink hidden"," somewhere on the estate" %Dw17,1;"Your tasks are simple:find the"," formula;market the drink;save"," the Company and make a MILLION" %N9000(#:: &H?10 ,0;4;"Congratulations you have done it" &R?12 ,0;4;"You may now continue to PART TWO" &W61,11 :1,13 :1,15 &\9000(#::6000p &z?10 ,0;4;"Congratulations you have done it" &61,11 :1,13 :1,15 & 9999' &910 ,3;2;"I am sorry you have failed" &112 ,7;2;"and do not INHERIT" & 9999' &gw<27l9000(#10 ,3;"You have insufficient cash",''" to continue" &f14,8;"You have failed";16,7;"Go back to GAME 1":3,-20 & ' rlw# One Two Three naFbEcydef JyuvqP$ #x'IJKLMZX'jXkBgor}L̲