Radio Power 283
600 DATA"+	# ######
+"
610 DATA"+C/CHURCH o############# /MTH#o
620 DATA"+o B/MTH#######################
630 DATA"+++++++++++++++++++++++++++++++
11
640 FOR I=1 TO 20 :READ T(I,1),T(I,2):NE XT
650 DATA 3,23,4,11,4,27,6,28,7,13,7,30,8 ,21,9,24,10,27,11,10,12,15,13,20,14,28,1 5,13,16,11,16,30,17,14,19,10,19,30,20,1 660 FOR I=1 TO 20:READ T$(1):NEXT I:FOR I=1 TO 20: READ S(I):NEXT I
670 DATA"STOCKBRIDGE","SALISBURY","WINCH ESTER","TWYFORD","ROMSEY","PETERSFIELD" 680 DATA"CHANDLERS FORD","EASTLEIGH","BI SHOPS WALTHAM","FORDINGBRIDGE","TOTTON" 690 DATA"SOUTHAMPTON","WICKHAM","LYNDHUR ST","RINGWOOD","FAREHAM","BROCKENHURST" 700 DATA "CHRISTCHURCH","PORTSMOUTH","BO URNEMOUTH"
710 DATA 1,3,4,2,2,2,1,2,1,1,1,5,1,1,2,2 ,1,1,5,5
720 REM DISPLAY MAP******
730 REM
740 CLS:LOCATE 1,3
750 FOR I=1 TO 20:PEN 2:PRINT D$(I);:NEX T I:PEN 1
760 FOR I=1 TO 25:IF MIDS(N$(1),15,1)<>" *" THEN 790
770 LOCATE T(I,2)+1,T(I,1)+1:PEN 3:PRINT LEFTS(S$(1),1)
780 PEN 1
790 NEXT
BOO LOCATE 1,1:PRINT"SPACE";:PEN 3:PRINT " FOR AUDIENCE REACTION. ";:PEN 3:PRI NT"ENTER ";:PEN 1:PRINT CHR$(24)"TO SPEA K TO ME.":PRINT CHR$(24)
810 A$=INKEY$:IF A$="" THEN 810
820 IF A$=CHR$(32) THEN 870
830 IF A$<>CHR$(13) THEN 810
840 GOSUB 1460