Asset Stripper 221
1730 CH=CH+(PSH*00)
1740 ZXCH=ZXCH+(ZXPSH*00)
1750 IF A(X)<=0 THEN 1790
1760 D(X)=A(X)/S
1770 CH=CH+(E(X)*D(X))
1780 ZXCH=ZXCH+(F(X)*D(X))
1790 F$(X)="C"
1800 L(X)=0 1810 RETURN 1820 PRINT M$;" HAS WON BID"
1830 LET ZXCH=ZXCH-(510000-F(X))*Z1)
1840 A(X)=A(X)+((510000-F(X))*Z1)
1850 F(X)=F(X)+(510000-F(X))
1860 Z1=0
1870 IF G(X)<1 THEN GOSUB 1690
tam RETURN
1890 FOR X=1 TO 10
1900 IF F$(X)="C" THEN 2190
1910 V(X)=0 1920 C(X)=0 1930 IF A(X)<10000 THEN A(X)=10000
1940 J(X)=A(X)/10
1950 C(X)=C(X)+J(X)
1960 IF H(X)<J(X)/1000 THEN H(X)=J(X)/10
00
1970 IF B(X)>A(X)/20 THEN 2000
1980 C(X)=C(X)+((A(X)/10)-B(X))
1990 B(X)=INT (A(X)/10) 2000 PROD=J(X)/10
2010 RD=INT(RND*3+1)
2020 IF RD =1 THEN W(X)=W(X)-1
2030 IF RD=3 THEN W(X)=W(X)+1
2040 T(X)=PROD*W(X)
2050 C(X)=C(X)+(H(X)*5000)
2060 PROF=T(X)-C(X) 2070 A(X)=A(X)+T(X) 2080 A(X)=A(X)-C(X)
2090 IF A(X)<=10000 THEN V(X)=H(X):H(X)= J(X)/1000
2100 V(X)=V(X)-H(X)
2110 G(X)=(PROF*100)/T(X)
2120 SP1=D(X)
2130 IF A(X)<10000 THEN A(X)=10000
2140 D(X)=A(X)/S