288 Radio Power
1910 P=P+B(J):GOTO 1690
1920 IF B=0 THEN PRINT"NO SPECIAL PRESEN TERS ON STATION"
1930 PRINT:PRINT"YOUR WAGE BILL IS ";pu$ ;MIDS(STR$(P),2)
1940 IF P=0 THEN 2050
1950 PRINT"DO YOU WISH TO FIRE ANY OF TH EM?(Y/N)"
1960 A$=INKEY$:A$=UPPER$(A$):IF A$<>"Y" AND A$<>"N" THEN 1960
1970 IF A$="Y" THEN 1990
1980 GOTO 2050
1990 PRINT"WHICH ONE...NO."
2000 GOSUB 2580:N=VAL(H$)
2010 IF N>23 THEN 2000
2020 IF N(N)<>4 THEN 2050
2030 N(N)=0:P=P-B(N)
2040 PRINT B$(N);" LEAVES RADIO ";S$(1) 2050 P(2,I)=P(2,I)-P:IF P(2,I)<0 THEN 20 90
2060 PRINT STRING$(32,"-")
2070 PRINT"YOU HAVE ";pu$;MID$(STR$(P(2, I)),2)
2080 GOTO 2130
2090 PRINT"YOU ARE NOW BANKRUPT!"
2100 IF NSP=1 THEN NSP=0:GOSUB 2450:GOTO 730
2110 P(2,I)=P(2,I)+P
2120 PEN 3:PRINT:PRINT"THEREFORE YOU MUS T FIRE ONE OF THEM...":PEN 1:GOTO 1870 2130 PRINT STRING$(32,"-")
2140 PEN 2:PRINT"WHAT PERCENTAGE OF YOUR
OUTPUT IS GIVEN OVER TO MUSIC? (0-100)
":PEN 1
2150 GOSUB 2580:R=VAL(H$)
2160 PRINT STRING$(32,"-")
2170 PRINT:PRINT CHR$(24)" RADIO CARS CO ST ";pu$;"10000 EACH. ":PRINT CHR$(24) 2180 IF R(I)=0 THEN GOTO 2200
2190 IF RND>0.4 THEN PRINT"ONE OF YOURS HAS FALLEN APART":R(I)=R(I)-1
2200 PEN 3:PRINT"YOU HAVE ";R(I);" RADIO CARS, ";:PEN 1:PRINT LEFT$(N$(1),14) 2210 PRINT"HOW MANY MORE DO YOU WANT NOW
?Il