290 Radio Power
2450 PRINT:PRINT CHR$(24)"I'M AFRAID THA T NO ONE APPEARS TO LISTEN TO YOUR STAT ION AND THEREFORE YOU HAVE BEEN REMOV EDFROM YOUR JOB!!! ":PRIN I CHR$(24)
2460 PEN 3:PRINT"RADIO "S$(1);" IS ":PEN 1
2470 PEN 2:PRINT"OFF THE AIR. SORRY ABOU T THAT, BUT THAT'S SHOW BUSINESS!1! ":PEN 1
2480 S$(1)="":N$(1)="":P(2,I)=10000:P(1, I)=0:GOTO 2540
2490 P(1,I)=P1
2500 PRINT STRING$(32,"-")
2510 PEN 2:PRINT:PRINT "RADIO ";S$(1);" IS":PEN 1
2520 PRINT:PRINT"STILL ON AIR...":PEN 3: PRINT:PRINT"YOUR AVAILABLE MONEY IS ":PE N 1:PRINT pu$;MIDS(STR$(P(2,I)),2)
2530 PRINT:PRINT"WE SHALL SEE WHAT HAPPE NS TO	YOUR REVENUE WHEN THE NEW
FIGURES ARE TAKEN INTO ACCOUNT."
2540 PRINT" SPACE ";:PEN 3:PRINT"TO RET URN TO MAP":PEN 1
2550 IF INKEY$<>" " THEN 2550
2560 RETURN
2570 STOP
2580 INPUT H$:IF H$="" THEN 2580 ELSE FO R X=1 TO LEN(H$):IF MID$(H$,X,1)<"0" OR MID$(H$,X,1)>"9" THEN 2580
2590 NEXT X
2600 HZ=VAL(H$):IF HZ<0 OR HZ>100 THEN 2 580
2610 RETURN
2620 LOCATE 1,1:PRINT STRING$(64," ") 2630 RETURN
2640 RESTORE 2650: FOR X=360 TO 366:READ A:POKE X,A:NEXT:RESTORE:RETURN
2650 DATA 205,96,187,50,111,1,201