Asset Stripper 219
1060 PEN 3: PRINT:PRINT"YOU HAVE ";pu$;I NT((CH+0.005)*100)/100:PEN 2
1070 RETURN
1080 INPUT"BUY HOW MANY ";Y
1090 IF Y*D(X)>CH THEN PRINT"YOU HAVE IN SUFFICIENT CASH":GOTO 1080
1100 IF Y>L(X) THEN PRINT"NOT ENOUGH SHA RES AVAILABLE":GOTO loaa
1110 IF Y+E(X)>500000 AND E(X)<510000 TH EN 1270
1120 CH=CH-(Y*D(X))
1130 L(X)=L(X)-Y
1140 A(X)=A(X)+(Y*D(X))*1.05
1150 E(X)=E(X)+Y
1160 X$="P"
1170 RETURN
ileo PEN 1:PRINT"HOW MANY DO YOU WISH TO SELL":PEN 2
1190 INPUT Y
1200 IF Y>E(X) THEN PRINT"YOU DO NOT HAV E THAT MANY":GOTO 11E30
1210 CH=CH+(Y*D(X))
1220 L(X)=L(X)+Y
1230 A(X)=A(X)-((Y*D(X))*1.05)
1240 E(X)=E(X)-Y
1250 X$="P"
1260 RETURN
1270 T$="PHASEH"
1280 ZI=0.01
1290 CLS:PRINT TAB(7);"TAKEOVER BID":PRI NT
1300 PRINT"YOUR SHAREHOLDING IS ";INT(E( X)*100)/S;" PERCENT"
1310 PRINT"CURRENT SHARE PRICE IS ";pu$; INTUD(X)+0.005)*100)/100
1320 PRINT"THERE ARE ";INT(L(X));" AVAIL ABLE"
1330 PRINT"YOU NEED "ONT(510000-E(X));" FOR MAJORITY"
1340 PRINT"THESE COST ";pu$;INT(((510000 -E(X))*D(X)+0.005)*100)/100;" AT MARKET PRICE"
1350 PEN 1:PRINT"YOU HAVE ";pu$;INT((CH+ 0.005)*100)/100:PEN 2