Asset Stripper 217
430 FOR X=1 TO 10
440 IF FS(X)="C" THEN TWS=" CEASED TRADI NG":GOSUB 2930
450 IF F$(X)="C" THEN 530
460 Q=Q+1
470 IF B(X)>A(X)AND E(X)<510000 AND F(X) <510000 THEN TWS="MAY BE RIPE FOR TAKEOV ER":GOSUB 2930
480 IF G(X)<1 AND W(X)>59 THEN TW$="PROF ITS LOW":GOSUB 2930
490 IF W(X)<60 THEN TW$="HEADS FOR TROUB LE":GOSUB 2930
500 IF G(X)>5 THEN TWS="SET FOR GOOD PRO FITS":GOSUB 2930
510 IF V(X)>0 AND V(X)>=1 THEN TWS="ANNO UNCES "+STRS(INT(V(X)))+" REDUNDANCIES": GOSUB 2930
520 Q1=Q1+D(X)
530 NEXT X
540 IF 0=0 THEN TS="X":GOTO 130
550 ASA=0.1/0
560 TW$="ALL SHARE AVERAGE "+STR$(INT((A SA+0.005)*100)/100):GOSUB 2950
570 IF ASA>M(1) THEN TW$="UP "+STRS(INT( ((ASA-M(1))+0.005)*100)/100):GOSUB 2950 580 IF ASA<M(1) THEN TW$="DOWN "+STRS(IN IMM(1)-ASA)+0.005)*100)/100):GOSUB 295 0
590 IF ASA>I(2) THEN TW$="ALL TIME HIGH" :GOSUB 2950
600 IF ASA >I(2)THEN I(2)=ASA
610 IF ASA<I(3)THEN TWS="ALL TIME LOW":G OSUB 2950
620 IF ASA<I(3)THEN I(3)=ASA
630 RETURN
640 REM
650 FOR X=1 TO 10
660 IF FS(X)="C"THEN 830
670 IF LEV=1 OR LEV=2 THEN 690
680 IF F$(X)="X"AND F(X)>0 AND F(X)<5100 00 THEN GOSUB 920
690 IF W(X)<61 AND F(X)<510000 THEN GOSU B 920
700 IF F4--(X)="C"THEN 830