Radio Power 285
1170 GOTO 1190
1180 PY=PY+DY:PX=PX+DX
1190 NEXT
1200 00=00+1
1210 IF PP=0 THEN GOSUB 2620:GOTO 1230 1220 GOTO 990
1230 LOCATE 1,1:PEN 2:PRINT"THAT'S THE A UDIENCE REACH AT THEMOMENT.":PEN 1:FOR Z =1 TO 2000:NEXT:LOCATE 1,1:PEN 3:PRINT"P RESS SPACE FOR STATION DETAILS.
94
PEN 1
1240 A$=INKEY$:IF A$<>CHR$(32) THEN 1240 1250 REM
1260 FOR I=1 TO 20:IF MIDS(N$(1),15,1)<> "*" THEN 1290
1270 P(2,I)=P(2,I)+P(3,I)*1500
1280 GOSUB 1330
1290 NEXT
1300 PRINT"SPACE BAR TO RETURN TO BASIC MAP"
1310 IF INKEY$<>CHR$(32) THEN 1310 1320 GOTO 730
1330 CLS:PRINT STRING$(32,"-")
1340 PEN 2:PRINT"RADIO ";S$(1):PEN 1:PRI NT"BASED IN ";T$(1)
1350 PEN 3:PRINT:PRINT"STATION MANAGER: ";LEFTS(N$(1),14):PEN 1
1360 PRINT:PRINT"AUDIENCE FIGURES...";MI D$(STR$(P(1,I)),2);"7."
1376 PEN 2:PRINT:PRINT"AUDIENCE APPRECIA TION...";MIDS(STR$(P(3,I)),3):PEN 1
1380 PRINT:PRINT CHR$(24);" MONEY NOW AV AILABLE...";pu$;MID$(STR$(P(2,I)),2);CHR $(24)
1390 FOR J=1 TO 23:IF N(J)=I THEN PEN 3: PRINT"PRESENTER...";:PEN 1:PRINT B$(J) 1400 NEXT J
1410 PRINT: PRINT STRING$(32,"-")
1420 PRINT CHR$(24);"PRESS SPACE BAR FOR MORE DETAILS";CHR$(24)
1430 IF INKEY$<>CHR$(32) THEN 1430 1440 RETURN
1450 REM