222 Asset Stripper
2150 N(X)=D(X)-SP1
2160 IF A(X)<10000 THEN A(X)=10000 2170 IF RND>0.9 THEN W(X)=W(X)+10
2180 IF RND>0.9 THEN W(X)=W(X)-10
2190 NEXT X
2200 RETURN
2210 T$="PHASEM"
2220 PRINT M$;" BID FOR"
2230 PRINT C$(X);" TAKEOVER"
2240 Z1=D(X)
2250 PRINT"AT ";(INT(D(X)+0.005)*100)/10 0;" PER SHARE"
2260 GOTO 1300
2270 PRINT"YOU HAVE WON"
2280 GOTO 2300
2290 PRINT M$;" HAS WON","WITH ";pu$;ZXC H+03
2300 PRINT" DO YOU WANT ANOTHER GAME (Y/ N)"
2310 INPUT V$
2320 IF MID$(V$0,1)="Y" THEN 40
2330 STOP
2340 REM LOOP
2350 GOSUB 1890
2360 GOSUB 1890
2370 GOSUB 110
2380 GOSUB 390
2390 GOSUB 970
2400 PRINT: PRINT"ENTER INITIAL OF CHOS EN COMPANY"
2410 PRINT"OR [P] PASS";W$;
2420 INPUT X$:IF X$="" THEN 2420 ELSE X$ =UPPER$(X$)
2430 IF MIDS(X$0,1)="P" THEN 2700 2440 FOR X=1 TO 10
2450 IF ASC(MID$(C$(X),1,1))=ASC(X$) THE
N 24E30
2460 NEXT X
2470 GOTO 2400
2480 IF F$(X)="C" THEN 2400
2490 PRINT
2500 CLS:PRINT C$(X)
2510 PRINT"LIOUID CAPITAL ";pu$;INT((A(X )+0.005)*100)/100