Asset Stripper 223
2520 PRINT:PRINT"EMPLOYEES ";INT(H(X)) 2530 PRINT:PRINT"OVERHEADS ";pu$;INT((C( X)+0.005)*100)/100
2540 PRINT:PRINT"PROFIT PER CENT OF TURN OVER ";INT(G(X))
2550 PRINT:PRINT"SHARE PRICE ";pu$;INT((
D(X)+0.005)*100)/100
2560 PRINT:PRINT"SHARES AVAILABLE ";INT(
L(X))
2570 PRINT:PRINT"SHARES HELD BY YOU ";IN T(E(X))
2580 PRINT"PERCENTAGE SHARES HELD BY YOU ";INTUE(X)*100)/S)
2590 PRINT"YOU HAVE ";pu$ONT((CH+0.005) *100)/100
2600 PRINT STRING$(39,45)
2610 IF E(X)>=510000 THEN PRINT"DISPOSE OF ASSETS ":INPUT A$
2620 IF E(X)<510000 THEN A$="N"
2630 IF E(X)>=510000 AND MIDS(A$0,1)="Y " THEN GOSUB 1690
2640 IF F$(X)="C" THEN X$="P":GOTO 2660 2650 IF F$(X)="X" THEN PRINT"BUY [B],SEL
L	[S],OR PASS [P]":INPUT X$:IF X$="" THE
N	2650 ELSE X$=UPPERS(X$):X$=LEFT$(X$,1) 2660 IF X$<>"P"AND X$<>"S"AND X$<>"B" TH EN 2400
2670 IF X$="B" THEN GOSUB 1080
2680 IF X$="S" THEN GOSUB 1180
2690 IF X$="P" THEN PRINT"WISH TO LOOK A T ANOTHER COMPANY (Y/N)?":INPUT A$:IF MI D$(A$,1,1)="Y"THEN GOSUB 2390
2700 GOSUB 650
2710 GOTO 2360
2720 REM INITIALISATION
2730 RESTORE:FOR X=1 TO 10:READ C$(X):NE XT X
2740 DATA "ACME CORP.","BRN IND.","CAPRA
STEEL","DELTA GROUP","ELLIOT CORP.","FO X CHEMICAL","GNS INT.","HOPE HOLDER","IN CE & CO." "JONES & IAN"
2750 M$="SPECTRAL INVESTMENTS LTD" 2760 E$=" INVESTMENTS LTD"
2770 S=I000000