216 Asset Stripper
70 PRINT::PRINT"ENTER LEVEL (1-3)":INPUT LEV
80 IF LEV<1 OR LEV>3 THEN 70
90 LOCATE 14,12:PEN 1:PRINT"PLEASE WAIT" :PEN 2
100 GOTO 2720
110 CLS
120 REM
130 PRINT N$;E$:PRINT
140 PRINT"LIOUID ASSETS ";TAB(20)pu$INT( (CH+0.005)*100)/100:PRINT
150 Q=0:01=0
160 FOR X=1 TO 10
170 0=0+E(X)
180 IF F$(X)="C" THEN 200
190 01=01+(E(X)*D(X))
200 NEXT
210 PRINT"SHARES HELD ";TAB(21)INT(0):PR INT
220 PRINT"TOTAL SHARE VALUE ";TAB(20);pu $;INT((01+0.005)*100)/100:PRINT
230 PRINT"TOTAL ASSETS ";TAB(20);pu$;INT ((01+CH+0.005)*100)/100:PRINT
240 FOR T=1 TO 2000:NEXT T
250 IF 01+CH>S THEN 2270
260 IF 01+CH<0 THEN 2290
270 03=0
280 FOR X=1 TO 10
290 IF F$(X)="C" THEN 310
300 03=03+(F(X)*D(X))
310 NEXT X
320 IF 03+ZXCH>S THEN 2290
330 IF 03+ZXCH<0 THEN 2270
340 IF T$="X" AND CH+01>ZXCH+03 THEN 227 0
350 IF T$="X"AND CH+01<ZXCH+03 THEN 2290 360 PRINT M$;"CLAIMS ASSETS OF ";pu$;03+ ZXCH:PRINT
370 FOR X=1 TO 4000:NEXT
380 RETURN
390 REM WIRE SERVICE
400 CLS:PEN 1:PRINT"WIRE SERVICE":PEN 2 410 0=0:01=0
420 M(1)=ASA