Asset Stri%%L% 1:1:7: r0,9 ;"ASSET STRIPPER":2,7;"@ R. Erskine 1982";4,5;"What is your surname?" n$ 2K5,4;"Enter difficulty level ";6,11 ;"(1,2 or 3)" <lev F!7,10 ;"Please wait" P Z 3260 d(11 );"ACCOUNTS"  n$;e$  ="Liquid assets ","`";((ch+.005y# =)*100d)/100d  q=0:q1=q x=110 q=q+e(x) f$(x)="c"240 q1=q1+(e(x)*d(x)) x "Shares held ",q  ?"Total share value `";((q1++.005y# =)*100d)/100d  ">"Total assets","`";((q1+ch+.005y# =)*100d)/100d , 6q1+ch>s2720 @q1+ch<02760 J q3=0 Tx=110 Yf$(x)="c"355c ^q3=q3+(f(x)*d(x)) cx hq3+zxch>s2760 rq3+zxch<02720 |"t$="x"ch+q1>zxch+q32720 "t$="x"ch+q1a(x)e(x)<510000yf(x)<510000yc$(x),"May be ripe for takeover" D N1g(x)<1w(x)>59;c$(x),"Profits low" X b*w(x)<60<c$(x),"Heads for trouble" l v,g(x)>5c$(x),"Set for good profits"  Ev(x)>0v(x)1c$(x),"Announces ";v(x);" Redundancies"   q1=q1+d(x)  100d x q=0t$="x" q=0110n  asa=q1/q >"All share average ";((asa+.005y# =)*100d)/100d Lasa>m(1)"up ";(((asa-m(1))+.005y# =)*100d)/100d Nasai(2)"All time high"  asa>i(2)i(2)=asa  asa0f(x)<510000y1110V p-w(x)<61=f(x)<510000y1105Q f$(x)="c"1010 zxch<100d1010 #lev=1ƥ>.5950 *f=((((s/100d)*513)-f(x))*d(x)) a(b(x)/100d)*513>ff60<g(x)>01040 lev=11010 (w(x)>60<g(x)>11040 (w(x)>60<g(x)>51040 )w(x)>60<g(x)>10 1040 x  (tenth/d(x))+e(x)+f(x)>l(x) 3f(x)<510000y(f(x)+(tenth/d(x)))>s/2 $a(x)=a(x)+tenth*1.05fff .zxch=zxch-tenth 8f(x)=f(x)+(tenth/d(x)) Bl(x)=l(x)-(tenth/d(x)) L V$a(x)=a(x)-((f(x)*d(x))*1.05fff) `zxch=zxch+f(x)*d(x) jl(x)=l(x)+f(x) tf(x)=0 ~  (9 );"SHARE PRICES"  ;"COMPANY";(11 );"SHARE PRICE";(24);"UP/DOWN"  x=110  f$(x)="c"c$(x);"CLOSED DOWN" f$(x)="c"1310 d(x)=d(x)p$=d(x)+".00" n(x)=n(x)r$=n(x)+".00" <d(x)"ALL SHARE AVERAGE ";((asa+.005y# =)*100d)/100d n5"You have `";((ch+.005y# =)*100d)/100d  "BUY HOW MANY?" y )y*d(x)>ch"You have insufficient cash" y*d(x)>ch1430 'y>l(x)"Not enough shares available" y>l(x)1430 3y+e(x)>500000t$e(x)<510000y1660| ch=ch-(y*d(x))  l(x)=l(x)-y !a(x)=(a(x)+(y*d(x)))*1.05fff  e(x)=e(x)+y x$="p"  "!"How many do you wish to sell?" ,y 6%y>e(x)"You do not hold that many" @y>e(x)1570" Jch=ch+(y*d(x)) T l(x)=l(x)+y ^!a(x)=a(x)-((y*d(x))*1.05fff) h e(x)=e(x)-y mx$="p" r  t$="phaseh" z1=.01z# = (7);"TAKEOVER BID"  8"Your shareholding is ";(e(x)*100d)/s;" percent" E"Current share price is `";((d(x)+.005y# =)*100d)/100d !"There are ";l(x);" available" 4"You need ";(510000y-e(x));" for a majority" _"These cost `";(((510000y-e(x))*d(x)+.005y# =)*100d)/100d,"at market price" 5"You have `";((ch+.005y# =)*100d)/100d  eg=0 v=110 f$(v)"c"eg=eg+(f(v)*d(v)) v >.10}L1769 "Third party wins bid"  2040  1890b ""How much do you bid per share?" z z1>z1880X &k1=a(x)+(510000y*(z+.01z# =)) &k2=(510000y-f(x))*(z+.01z# =) &$k1>k2(zxch+eg)k2z1=z+.01z# = 0:z1>zm$;" bids ";((z1+.005y# =)*100d)/100d Dz1>z1760 Nz1z2170z bz1=z g z=0 lt$="phaseh"1540 vt$="phasem"1010  disposal   Z1=0  F=0 "YOU HAVE WON THE BID" CH=CH-(Z*(510000y-E(X))) #A(X)=A(X)+(Z*(510000y-E(X))) E(X)=E(X)+(510000y-E(X)) L(X)=S-(E(X)+F(X)) 4"Do you want to strip the assets of this company?" y$  y$="n" 6"Assets are being distributed","amongs shareholders" psh=(e(x)*100d)/s  zxpsh=(f(x)*100d)/s oo=b(x)/100d  ch=ch+(psh*oo) *zxch=zxch+(zxpsh*oo) 4a(x)02140\ > d(x)=a(x)/s Hch=ch+(e(x)*d(x)) Rzxch=zxch+(f(x)*d(x)) \ f$(x)="c" fl(x)=0 p 5z1*(510000y-f(x))>zxch"Spectral withdraws": m$;" has won bid" $zxch=zxch-((510000y-f(x))*z1) $a(x)=a(x)+((510000y-f(x))*z1) f(x)=f(x)+(510000y-f(x))  z1=0 g(x)<12040  x=110 f$(x)="c"2590 v(x)=0 c(x)=0 $a(x)<10000'a(x)=10000' $j(x)=a(x)/10 .c(x)=c(x)+j(x) 8,h(x).9ffffw(x)=w(x)+10  >.9ffffw(x)=w(x)-10 x 2 <: P t$="phasem" dm$;" bid for " nc$(x);"takeover" x z1=d(x) ="at ";((d(x)+.005y# =)*100d)/100d;" per share" 1710 "You have won" 2780 m$;" has won","with `";zxch+q3 "Do you want another game?" v$ v$="y"10  loop  2280 " 2280 , 100d 6 460 J 1180 T#"ENTER INITIAL OF CHOSEN COMPANY" ^"OR P(PASS)";w$ hx$ rx$="p"3240 |x=110 *c$(x)(1)=x$-32 2970 x 2900T f$(x)="c"2900T  c$(x) ="Liquid capital `";((a(x)+.005y# =)*100d)/100d @"Capital equipment `";((b(x)+.005y# =)*100d)/100d "Employees ";h(x) 8"Overheads `";((c(x)+.005y# =)*100d)/100d :"Profit `";((t(x)-c(x)+.005y# =)*100d)/100d &"Profit percent of turnover `";g(x) :"Share price `";((d(x)+.005y# =)*100d)/100d "Shares available ";l(x) "Shares held by you ";e(x) 8"Percentage shares held by you ";((e(x)*100d)/s) $"________________________________" 0)e(x)510000y"Dispose of assets?" :e(x)510000ya$ De(x)<510000ya$="n" N&e(x)510000ya$="y"2040 X+f$(x)="x""Buy (b),Sell (s),or Pass (p)" bf$(x)="x"x$ gf$(x)="c"x$="p" l"x$"p"x$"s"x$"b"2900T vx$="b"1420 x$="s"1560 +x$="p""Look at another company(y or n)" x$="p"a$ x$="p"a$="y"2890J 8204 2850" m$="Spectral Investments Ltd" c$(10 ,18) c$(1)="ACME CORP" c$(2)="BRN IND." c$(3)="CAPRA STEEL" c$(4)="DELTA GROUP" c$(5)="ELLIOT CORP" c$(6)="FORAX CHEMICALS" c$(7)="GNS INT." c$(8)="HOPE HOLDINGS" *c$(9 )="INCE AND CO." 4 c$(10 )="JONES AND PEEKE" > x=10 H<a(x):b(x):c(x):t(x):d(x):p(x):e(x):f(x):g(x):h(x) i(3) w$=" " j(x):l(x) e$=" Investments Ltd" s=1000000t$ ch=100000CP zxch=ch aw=5000  asa=0 t$="o" $ m(3) . pt=0 8n(x):w(x):v(x) `f$(x) jx=110 sx=110 ta(x)=(*s/2)+1 ~ d(x)=s/a(x) b(x)=(*s/10 )+1 h(x)=b(x)/10 /1000 w(x)=60<  f$(x)="x" l(x)=s x  2820 p