220 Asset Stripper
1360 EG=0
1370 FOR V=1 TO 10
1380 IF FS(V)<>"C" THEN EG=EG+(F(V)*D(V)
1390 NEXT V
1400 IF RND>0.1 THEN 1430
1410 PRINT"THIRD PARTY WINS BID":FOR T=I TO 2000:NEXT T
1420 GOTO 1690
1430 PRINT"HOW MUCH DO YOU BID PER SHARE
1440 INPUT Z
1450 IF Z1>Z THEN 1520
1460 K1=A(X)+(510000*(Z+0.01))
1470 K2=(510000-F(X))*(Z+0.01)
1480 IF K1>K2 AND (ZXCH+EG)>K2 THEN Z1=Z +0.01
1490 IF Z1>Z THEN PRINT M$;" BIDS ";pu$: PRINT INT((Z1+0.005)*100)/100
1500 IF Z1>Z THEN 1400
1510 IF Z1<Z THEN GOSUB 1570
1520 IF Z1>Z THEN GOSUB 2250
1530 Z1=0
1540 Z=0
1550 IF TS="PHASEH" THEN 1160
1560 IF TS="PHASEM" THEN 830
1570 REM DISPOSAL
15e0 PRINT
1590 Z1=0
1600 F=0
1610 PRINT"YOU WON THE BID"
1620 CH=CH-(Z*(510000-E(X)))
1630 A(X)=A(X)+Z*(510000-E(X))
1640 E(X)=E(X)+(510000-E(X))
1650 L(X)=S-(E(X)+F(X))
1660 PRINT"DO YOU WANT TO STRIP THE ASSETS	OF THIS COMPANY (Y/N)"
1670 INPUT Y$
1680 IF MIDS(Y$0,1)="N"THEN RETURN
1690 PRINT" ASSETS	ARE	BEING DIST
RIBUTED	AMONGST SHAREHOLDERS."
1700 PSH=(E(X)*100)/S
1710 ZXPSH=(F(X)*100)/S
1720 00=B(X)/100