Radio Power 289
2220 GOSUB 2580
2230 PR=VAL(H$):IF PR+R(I)=0 THEN PRINT CHR$(24)" WHAT HAVE YOU GOT AGAINST RADI O CARS"-PRINT CHR$(24)
2240 IF PR+R(I)>5 THEN PEN 3:PRINT"COME ON NOW,NO ONE NEEDS MORE THAN 5.":PEN 1:6OTO 2210
2250 PEN 2:PRINT"NOW YOU HAVE ";PR+R(I); " RADIO CARS, ":PEN 1:PRINT LEFTS(N$(1), 14)
2260 P(2,I)=P(2,I)-PR*10000
2270 IF P(2,I)<0 THEN PRINT CHR$(24)"NOT ENOUGH MONEY!!!":PRINT CHR$(24):P(2,I)= P(2,I)+PR*10000:GOTO 2210
2280 R(I)=R(I)+PR
2290 PEN 3:PRINT:PRINT"YOU HAVE ";pu$;:P EN 1:PRINT MIDS(STR$(P(2,I)),2);" LEFT" 2300 PRINT STRING$(32,"-")
2310 PRINT:PRINT CHR$(24)" HOW MUCH TO S PEND ON PROMOTION?": PRINT CHR$ (24) : GOSUB 2580: PM=VAL (H$)
2320 P(2,I)=P(2,I)-PM:IF P(2,I)<0 THEN P RINT"NO CASH!!!":P(2,I)=P(2,I)+PM:GOTO 2 310
2330 PRINT STRING$(32,"-")
2340 PEN 2:PRINT:PRINT"OK. THANK YOU VER MUCH ";:PEN 1:PRINT LEFTS(N$(1),14) 2350 P1=PM*(1+RND)+R(I)*10000*(2+RND)+20
000*RND
2360 FOR J=1 TO 23:IF N(J)<>I THEN GOTO 2390
2370 PP=ABS(R-M(J))
2380 P1=P1+B(J)/10*(100-PP)
2390 NEXT
2400 PEN 3:PRINT:PRINT"YOUR PREVIOUS AUD IENCE FIGURES WERE...";MID$(STR$(P(1,I) ),2);"4":PEN 1
2410 PRINT STRING$(32,"-")
2420 P1=INT(P1/10000)/10
2430 PEN 2:PRINT:PRINT"YOUR CURRENT AUDI ENCE FIGURES	ARE...";P1;"%":PEN 1
2440 IF P1>0 THEN 2490