284 Radio Power
850 GOTO 730
860 REM
870 REM
880 GOSUB 2620:LOCATE 1,1:PRINT"HAS EVER YONE DONE THEIR ANNUAL PROGRMME REVIEW (Y OR N)";
890 A$=INKEY$: A$=UPPER$(A$):IF A$="" TH EN 890
900 IF A$="N" THEN PRINT A$:GOTO 730 910 IF A$<>"Y" THEN 890
920 PRINT A$
930 CLS
940 LOCATE 1,3:PEN 2: FOR I=1 TO 20:PRIN T D$(1);:NEXT:PEN 1
950 FOR I=1 TO 25:IF MID$(N$(1),15,1)<>" *" THEN 970
960 LOCATE T(1,2)+1,T(I,1)+1:PEN 3:PRINT "@":PEN 1
970 P(3,I)=0:NEXT I
980 QQ=1
990 PP=0:FOR I=1 TO 25
1000 IF MIDS(N$(1),15,1)<>"*" THEN 1190 1010 IF P(1,I)*10-(00 THEN 1190
1020 PP=1
1030 PX=T(I,2)+1:PY=T(I,1)+1
1040 DX= INT(RND*3)-1
1050 DY=INT (RND*3) -1
1060 LOCATE PX+DX,PY+DY:CALL 360:K=PEEK( 367)
1070 IF K=35 OR K=64 OR K=ASC(S$(1)) THE N 1180
1080 IF K=43 THEN 1030
1090 FOR M=1 TO 20:IF MID$(N$(M),15,1)<> "*" OR S$(M)=S$(1) THEN 1110
1100 IF ASC(S$(M))=K THEN 1120
1110 NEXT: GOTO 1150
1120 P(3,M)=P(3,M)-1
1130 FOR X=1 TO 5: LOCATE PX+DX,PY+DY:PR INT"*"
1140 FOR Z=1 TO 500 :NEXT:LOCATE PX+DX,P Y+DY:PRINT" ":NEXT X
1150 LOCATE PX+DX ,PY+DY: PRINT LEFT$(S$(1 )0)
1160 PY=PY+DY:PX=PX+DX:P(3,I)=P(3,I)+1