218 Asset Stripper
710 IF ZXCH<100 THEN 830
720 IF LEV =1 AND RND>0.5 THEN 760 730 LET F=((((S/100)*51)-F(X))*D(X))
740 IF(B(X)/100)*51>F AND F<ZXCH AND F(X )<510000 AND E(X)<510000 AND G(X)<1 THEN 2210
750 IF F$(X)="C" THEN 830
760 IF ZXCH<100 THEN 830
770 TENTH=ZXCH/10
780 IF W(X)>60 AND G(X)>0 THEN GOSUB 850 790 IF LEV=1 THEN 830
800 IF W(X)>60 AND G(X)>1 THEN GOSUB 850 810 IF W(X)>60 AND G(X)>5 THEN GOSUB 850 820 IF W(X)>60 AND G(X)>10 THEN GOSUB 85 0
830 NEXT X
840 RETURN
850 IF(TENTH/D(X))+E(X)+F(X)>L(X) THEN R ETURN
860 IF F(X)<510000 AND (F(X)+(TENTH/D(X) ))>S THEN RETURN
870 A(X)=A(X)+TENTH*1.05
880 ZXCH=ZXCH-TENTH
890 F(X)=F(X)+INT(TENTH/D(X))
900 L(X)=L(X)-INT(TENTH/D(X))
910 RETURN
920 A(X)=A(X)-((F(X)*D(X))*1.05)
930 ZXCH=ZXCH+F(X)*D(X)
940 L(X)=L(X)+F(X)
950 F(X)=0
960 RETURN
970 PRINT
980 CLS:PEN 3:PRINT TAB(16);"SHARE PRICE Su:PEN 2
990 PRINT"COMPANY";TAB(16);"SHARE PRICE u;TAB(34);"UP/DOWN"
1000 FOR X= 1 TO 10
1010 IF F$(X)="C" THEN PRINT C$(X);:PRIN T TAB(17) "CLOSED DOWN"
1020 IF F$(X)="C" THEN 1040
1030 PRINT C$(X),USING "	###.##
##.##	";D(X);N(X)
1040 NEXT X
1050 PRINT"ALL SHARE AVERAGE ";INT((ASA +0.005)3E100)1100