10 POKE53281,1:POKE53280,2:PRINT"[147]"CHR$(142) 100 CLR:TUNE=1000:KHZ=93+128:SS=1239:A=1000 190 PRINT" [144][146]"; 200 PRINT"[155][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"; 205 PRINT"[161][151] 540 [221] 900 [221] 1300[221] [146][155][161]"; 210 PRINT"[161][151] [212] 700 [221] 1100[221] 1500 [146][155][161]"; 220 PRINT"[161][151] [144][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][151] [164][164][164][164][164][164][164][164] [146][155][161]"; 230 PRINT"[161][151] AM [144] [151] [146] 1000 KHZ[151][167][146][155][161]"; 240 PRINT"[161][151] [144][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][151] [163][163][163][163][163][163][163][163] [146][155][161]"; 250 PRINT"[161][151] 600 [221] 1000[221] 1400[221] [146][155][161]"; 255 PRINT"[161][151] [221] 800 [221] 1200[221] 1600 [146][155][161][146]"; 260 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][144]"; 261 POKE1239,93+128 262 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]" 265 DIMA$(500),B$(500),C$(500),D$(500),M$(500),N$(500),O$(500),P$(500) 266 C=1 267 POKE54296,0:OPEN1,8,0,"AMSTAT,S,W" 268 INPUT#1,A$(C) 269 IFA$(C)="END"THEN280 270 INPUT#1,B$(C) 272 INPUT#1,C$(C) 273 INPUT#1,D$(C) 275 C=C+1:GOTO268 280 CLOSE1 290 GOSUB1010:GOTO1000 300 : 301 REM ------------------------------- 302 REM TUNE THE RADIO L/R ------------------------------- 400 : 410 REM ---TUNE LEFT--- 420 X=(TUNE-A)/10:NN=0 431 IFKHZ=93+128THENKHZ=84+128:GOTO440 432 IFKHZ=84+128THENKHZ=101+128:GOTO440 433 IFKHZ=101+128THENKHZ=103+128:POKESS,160:SS=SS-1:GOTO440 434 IFKHZ=103+128THENKHZ=89+128:GOTO440 435 IFKHZ=89+128THENKHZ=93+128 440 POKESS,KHZ:NN=NN+1:TUNE=TUNE-10 445 PRINT"";TUNE;"[157] [144]" 450 IFNN""THEN1110 1200 GETG$:IFG$=""THEN1200 1210 IFG$="[133]"THENPRINT"ENTER A STATION FREQUENCY[144]" 1211 IFG$="[133]"THENGOTO2000 1212 IFG$="[134]"THENPRINT"ENTER A CITY[144]" 1213 IFG$="[134]"THENGOTO3000 1214 ZX$="" 1215 IFG$="[135]"THENPRINTZX$+"ENTER A STATION'S CALL LETTERS[144]" 1216 IFG$="[135]"THEN4000 1217 IFG$="[136]"THENPRINT"ENTER A CLASSIFICATION[144]" 1218 IFG$="[136]"THENGOTO11000 1219 IFG$="A"THEN6000 1220 GOTO1200 2000 REM ------------------------------- 2001 REM INPUT FREQUENCY ------------------------------- 2010 PRINT"ENTER STATION FREQUENCY: ";:H$="" 2015 GETJUNK$:IFJUNK$<>""THEN2015 2020 GETG$:IFG$=""THEN2020 2021 IFASC(G$)=49THEN2025 2022 IFASC(G$)<53THEN2020 2023 IFASC(G$)>57THEN2020 2025 PRINTG$;:H$=H$+G$ 2026 IFASC(G$)>49THEN2031 2027 GETG$:IFG$=""THEN2027 2028 IFASC(G$)<48THEN2027 2029 IFASC(G$)>54THEN2027 2030 PRINTG$;:H$=H$+G$:IFG$="6"THEN2040 2031 GETG$:IFG$=""THEN2031 2032 IFASC(G$)<48THEN2031 2033 IFASC(G$)>57THEN2031 2034 PRINTG$;:H$=H$+G$ 2035 GOTO2043 2040 GETG$:IFG$=""THEN2040 2041 IFASC(G$)<>48THEN2040 2042 PRINTG$;:H$=H$+G$ 2043 GETG$:IFG$=""THEN2043 2044 IFASC(G$)<>48THEN2043 2045 PRINTG$:H$=H$+G$ 2050 A=VAL(H$) 2060 : 2300 GOSUB 10000 2310 IFA<540THEN2312 2311 IFA<=1600THEN2319 2312 PRINT"FREQUENCIES LIE BETWEEN 540 AND 1600.":FORXL=1TO3000:NEXT 2313 PRINT"":FORL=1TO6:PRINT" " 2314 NEXT:GOTO2010 2315 IFA=TUNETHEN2500 2319 X=0 2320 FORL=500TO1600STEP10 2330 IFA=LTHENX=1 2335 NEXT 2340 IFX=0THEN2010 2400 IFA>TUNETHENGOSUB500:GOTO2420 2410 IFTUNE>ATHENGOSUB400 2420 : 2500 REM --- PRINT OUT STATIONS ------- 2510 B=1:GOTO2581 2520 V=1:PRINT"" 2530 IFA$(B)=H$THENPRINTTAB(1)A$(B)TAB(6)B$(B)TAB(23)C$(B)TAB(28)D$(B):V=V+1 2540 IFA$(B)="END"THEN2600 2550 B=B+1 2560 IFV<>4THEN2530 2570 PRINT" PRESS RETURN TO CONTINUE" 2571 GETJUNK$:IFJUNK$<>""THEN2571 2580 GETG$:IFG$<>CHR$(13)THEN2580 2581 PRINT"":FORL=1TO6:PRINT" " 2585 NEXT:GOTO2520 2600 PRINT" PRESS RETURN TO CONTINUE" 2601 GETJUNK$:IFJUNK$<>""THEN2601 2610 GETG$:IFG$<>CHR$(13)THEN2610 2621 PRINT"":FORL=1TO6:PRINT" " 2625 NEXT 2900 PRINT"[144]ENTER A STATION FREQUENCY" 2999 GOTO1000 3000 REM ------------------------------- 3001 REM INPUT CITY ------------------------------- 3005 X=0 3010 PRINT"ENTER CITY: ";:H$="" 3011 GETJUNK$:IFJUNK$<>""THEN3011 3020 GETG$:IFG$=""THEN3020 3021 IFG$=" "THENGOTO3050 3022 IFASC(G$)<>20 THENGOTO3030 3023 IFLEN(H$)>0THENPRINTCHR$(20); 3024 IFLEN(H$)>0THENH$=LEFT$(H$,(LEN(H$)-1)) 3025 GOTO3020 3030 IFG$=CHR$(13)THEN3100 3040 IFASC(G$)<65ORASC(G$)>90THEN3020 3050 PRINTG$;:H$=H$+G$ 3060 IFLEN(H$)<16THEN3070 3062 GOSUB10000 3069 GOTO3100 3070 GOTO3020 3100 IFLEN(H$)<16THENGOSUB10000 3105 IFH$=""THENGOTO 3990 3110 B=1:GOTO3900 3120 V=1:IFV=1THEN PRINT"" 3121 IFV=2THEN PRINT"" 3122 IFV=3THEN PRINT"" 3123 IFV=4THEN PRINT"" 3130 IFB$(B)=H$THENPRINTTAB(1)A$(B)TAB(6)B$(B)TAB(23)C$(B)TAB(28)D$(B):V=V+1:X=1 3131 IFB$(B)<>H$THEN3140 3132 A=VAL(A$(B)) 3133 IFA>TUNETHENGOSUB500:GOTO3140 3134 IFTUNE>ATHENGOSUB400 3140 IFA$(B)="END"THEN3500 3150 B=B+1 3160 IFV<>4THEN3121 3170 PRINT" PRESS RETURN TO CONTINUE" 3171 GETJUNK$:IFJUNK$<>""THEN3171 3180 GETG$:IFG$<>CHR$(13)THEN3180 3185 PRINT"":FORL=1TO5 3186 PRINT" " 3190 NEXT:GOTO3120 3500 IFX=0THENPRINT" SORRY . . . NOT LISTED " 3510 PRINT" PRESS RETURN TO CONTINUE" 3511 GETJUNK$:IFJUNK$<>""THEN3511 3515 GETG$:IFG$<>CHR$(13)THEN3515 3520 GOTO3990 3900 PRINT"":FORL=1TO5 3901 PRINT" " 3902 NEXT:GOTO3120 3990 POKE54296,0:PRINT"":FORL=1TO5 3991 PRINT" " 3992 NEXT 3995 PRINT"[144]ENTER A CITY[146]" 3999 GOTO1000 4000 REM ------------------------------- 4001 REM INPUT CALL LETTERS ------------------------------- 4010 PRINT"ENTER STATION'S CALL LETTERS: ";:H$="" 4011 GETJUNK$:IFJUNK$<>""THEN4011 4020 GETG$:IFG$=""THEN4020 4030 IFASC(G$)<65ORASC(G$)>90 THEN4020 4040 PRINTG$;:H$=H$+G$ 4041 GETG$:IFG$=""THEN4041 4042 IFASC(G$)<65ORASC(G$)>90 THEN4041 4043 PRINTG$;:H$=H$+G$ 4044 GETG$:IFG$=""THEN4044 4045 IFASC(G$)<65ORASC(G$)>90 THEN4044 4046 PRINTG$;:H$=H$+G$ 4047 GETG$:IFG$=""THEN4047 4048 IFG$=CHR$(13)THEN4100 4049 IFASC(G$)<65ORASC(G$)>90 THEN4047 4050 PRINTG$:H$=H$+G$:GOTO4100 4100 GOSUB10000 4110 B=1 4111 PRINT"":FORL=1TO5 4112 PRINT" " 4113 NEXT 4120 PRINT"" 4130 IFC$(B)=H$THENPRINTTAB(1)A$(B)TAB(6)B$(B)TAB(23)C$(B)TAB(28)D$(B):GOTO4200 4140 IFA$(B)="END"THENGOTO4300 4150 B=B+1:GOTO4130 4200 REM -----TUNE STATION-------- 4210 IFVAL(A$(B))=ATHEN4990 4220 A=VAL(A$(B)) 4230 IFA>TUNETHENGOSUB500:GOTO4990 4240 IFTUNE>ATHENGOSUB400:GOTO4990 4300 REM ------NOT LISTED-------------- 4310 PRINT" SORRY . . . NOT LISTED " 4990 PRINT" PRESS RETURN TO CONTINUE" 4991 GETJUNK$:IFJUNK$<>""THEN4991 4992 GETG$:IFG$<>CHR$(13)THEN4992 4993 PRINT"":FORL=1TO5:PRINT" " 4994 NEXT 4995 PRINTZX$+"[144]ENTER A STATION'S CALL LETTERS[146]" 4999 GOTO1000 5000 REM ------------------------------- 5001 REM EXIT PROGRAM ------------------------------- 5010 PRINT"[147][154]":POKE53281,246:POKE53280,254 5100 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN" 5200 POKE631,13:POKE632,13:POKE198,2 5999 END 6000 REM ----------------------------- 6001 REM ALTERNATE MENU ----------------------------- 6010 PRINT"" 6020 PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][144]"; 6021 PRINT"[165]F1 ADD NEW STATIONS [167]"; 6022 PRINT"[165]F3 REMOVE A STATION [167]"; 6023 PRINT"[165]F5 EXIT PROGRAM [167]"; 6024 PRINT"[165]A RETURN TO OTHER MENU [167]"; 6026 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]" 6110 GETJUNK$:IFJUNK$<>""THEN6110 6200 GETG$:IFG$=""THEN6200 6210 IFG$="[133]"THEN PRINT"ADD NEW STATIONS" 6211 IFG$="[133]"THENGOTO7000 6220 IFG$="[134]"THEN PRINT"REMOVE A STATION" 6221 IFG$="[134]"THENGOTO8000 6230 IFG$<>"A"THEN6500 6240 PRINT"" 6241 PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][144]"; 6242 PRINT"[165]F1 ENTER A STATION FREQUENCY [167]"; 6243 PRINT"[165]F3 ENTER A CITY [167]"; 6244 PRINT"[165]F5 ENTER A STATION'S CALL LETTERS [167]"; 6245 PRINT"[165]F7 ENTER A CLASSIFICATION [167]"; 6247 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]" 6250 GOTO1110 6500 IFG$<>"[135]"THEN6200 6510 GOTO5000 7000 REM ----------------------------- 7001 REM ADD STATIONS ----------------------------- 7002 IFC<1000THEN7010 7003 PRINT"1000 STATIONS ARE ALREADY IN MEMORY." 7004 WW$="ADD NEW STATIONS":GOTO9900 7010 PRINT" ENTER "CHR$(34)"E"CHR$(34)" "; 7011 PRINT"FOR THE FREQUENCY[146] WHEN ALL"; 7020 PRINT" NEW STATIONS HAVE BEEN ENTERED." 7100 H$="":PRINT" ENTER FREQUENCY (E-TO EXIT):"; 7115 GETJUNK$:IFJUNK$<>""THEN7115 7120 GETG$:IFG$=""THEN7120 7121 IFG$="E"THEN WW$="ADD NEW STATIONS" 7122 IFG$="E"THENPRINT"END":A$(C)="END":B$(C)="END":C$(C)="END":GOTO7700 7123 IFASC(G$)=49THEN7126 7124 IFASC(G$)<53THEN7120 7125 IFASC(G$)>57THEN7120 7126 PRINTG$;:H$=H$+G$ 7127 IFASC(G$)>49THEN7132 7128 GETG$:IFG$=""THEN7128 7129 IFASC(G$)<48THEN7128 7130 IFASC(G$)>54THEN7128 7131 PRINTG$;:H$=H$+G$:IFG$="6"THEN7140 7132 GETG$:IFG$=""THEN7132 7133 IFASC(G$)<48THEN7132 7134 IFASC(G$)>57THEN7132 7135 PRINTG$;:H$=H$+G$ 7136 GOTO7143 7140 GETG$:IFG$=""THEN7140 7141 IFASC(G$)<>48THEN7140 7142 PRINTG$;:H$=H$+G$ 7143 GETG$:IFG$=""THEN7143 7144 IFASC(G$)<>48THEN7143 7145 PRINTG$:H$=H$+G$ 7150 IFVAL(H$)<540THEN7152 7151 IFVAL(H$)=<1600THEN7160 7152 PRINT"FREQUENCIES LIE BETWEEN 540 AND 1600.":FORXL=1TO3000:NEXT 7153 PRINT"":FORL=1TO5:PRINT" " 7159 NEXT:GOTO7010 7160 A$(C)=H$:H$="":GOSUB10000 7200 H$="":PRINT" ENTER CITY :"; 7211 GETJUNK$:IFJUNK$<>""THEN7211 7220 GETG$:IFG$=""THEN7220 7221 IFG$=" "THENGOTO7250 7222 IFASC(G$)<>20 THENGOTO7230 7223 IFLEN(H$)>0THENPRINTCHR$(20); 7224 IFLEN(H$)>0THENH$=LEFT$(H$,(LEN(H$)-1)) 7225 GOTO7220 7230 IFG$=CHR$(13)THEN7270 7240 IFASC(G$)<65ORASC(G$)>90THEN7220 7250 PRINTG$;:H$=H$+G$ 7251 IFLEN(H$)<16THEN7259 7252 GOSUB10000 7256 GOTO7260 7259 GOTO7220 7270 IFH$=""THENH$=" - - - -" 7275 PRINT:B$(C)=H$:IFLEN(H$)<16THENGOSUB10000 7300 G$="":H$="":PRINT" ENTER CALL LETTERS:"; 7310 FORL=1TO100:NEXT 7315 GETJUNK$:IFJUNK$<>""THEN7315 7320 GETG$:IFG$=""THEN7320 : REM FIRST 7325 IFASC(G$)<65ORASC(G$)>90 THEN7320 7330 PRINTG$;:H$=H$+G$ 7335 GETG$:IFG$=""THEN7335 : REM SECOND 7336 IFASC(G$)<>20THEN7340 7337 PRINTCHR$(20);:H$="":GOTO7320 7340 IFASC(G$)<65ORASC(G$)>90 THEN7335 7345 PRINTG$;:H$=H$+G$ 7350 GETG$:IFG$=""THEN7350 : REM THIRD 7351 IFASC(G$)<>20THEN7355 7352 PRINTCHR$(20);:H$=LEFT$(H$,(LEN(H$)-1)):GOTO7335 7355 IFASC(G$)<65ORASC(G$)>90 THEN7350 7360 PRINTG$;:H$=H$+G$ 7365 GETG$:IFG$=""THEN7365 : REM FOURTH 7366 IFASC(G$)<>20THEN7370 7367 PRINTCHR$(20);:H$=LEFT$(H$,(LEN(H$)-1)):GOTO7350 7370 IFG$=CHR$(13)THENPRINT:GOTO7400 7375 IFASC(G$)<65ORASC(G$)>90 THEN7365 7380 PRINTG$;:H$=H$+G$ 7381 GETG$:IFG$=""THEN7381 7382 IFASC(G$)<>20THEN7385 7383 PRINTCHR$(20);:H$=LEFT$(H$,(LEN(H$)-1)):GOTO7365 7385 IFG$<>CHR$(13)THEN7381 7386 PRINT 7400 C$(C)=H$:H$="":GOSUB10000:GOSUB7500 7410 GOSUB60000 7420 C=C+1 7430 PRINT"":FORL=1TO5:PRINT" " 7440 NEXT:GOTO7000 7500 : 7510 PRINT" ENTER A CLASSIFICATION: ";Q5$;:H$="" 7515 GETJUNK$:IFJUNK$<>""THEN7515 7520 GETG$:IFG$=""THEN7520 7525 IFASC(G$)<>20THEN7545 7530 IFLEN(H$)>0THENPRINTCHR$(20); 7535 IFLEN(H$)>0THENH$=LEFT$(H$,(LEN(H$)-1)) 7540 GOTO7520 7545 IFASC(G$)=13 THEN7570 7550 IFASC(G$)<32ORASC(G$)>95THEN7520 7555 PRINTG$;:H$=H$+G$ 7560 IFLEN(H$)=10 THEN7570 7565 GOTO7520 7570 IFH$=""THENH$="- - - - -" 7580 D$(C)=H$:Q5$=H$:GOSUB10000:RETURN 7700 FORL=1464TO1503:POKEL,32:POKEL+120,32:POKEL+54272,1:POKEL+54392,1:NEXT 7710 GOTO9000 8000 REM ----------------------------- 8001 REM REMOVE A STATION ----------------------------- 8002 PRINT""; 8011 PRINT" ENTER CALL LETTERS[160]TO REMOVE:"; 8300 H$="" 8311 GETJUNK$:IFJUNK$<>""THEN8311 8320 GETG$:IFG$=""THEN8320 8330 IFASC(G$)<65ORASC(G$)>90 THEN8320 8340 PRINTG$;:H$=H$+G$ 8341 GETG$:IFG$=""THEN8341 8342 IFASC(G$)<65ORASC(G$)>90 THEN8341 8343 PRINTG$;:H$=H$+G$ 8344 GETG$:IFG$=""THEN8344 8345 IFASC(G$)<65ORASC(G$)>90 THEN8344 8346 PRINTG$;:H$=H$+G$ 8347 GETG$:IFG$=""THEN8347 8348 IFG$=CHR$(13)THENXYZ$=H$:H$="":GOTO8400 8349 IFASC(G$)<65ORASC(G$)>90 THEN8347 8350 PRINTG$:H$=H$+G$:XYZ$=H$:H$="" 8400 GOSUB10000:PRINT:PRINT" ARE YOU SURE?(Y/N)"; 8410 GETG$:IFG$=""THEN8410 8420 IFG$<>"N"THEN8450 8425 PRINT"NO" 8430 PRINT"":FORL=1TO5:PRINT" " 8440 NEXT 8441 PRINT" ":GOTO8000 8450 IFG$<>"Y"THEN8410 8460 PRINT"YES" 8470 PRINT" [145]. . . PLEASE WAIT. " 8500 X=1 8505 IFC$(X)=""THEN8900 8510 IFC$(X)=XYZ$THEN8550 8520 X=X+1:GOTO8505 8550 FORL=XTOC 8560 A$(L)=A$(L+1) 8561 B$(L)=B$(L+1) 8562 C$(L)=C$(L+1) 8563 D$(L)=D$(L+1) 8570 NEXT:GOTO9000 8900 PRINT" [145]THIS STATION IS NOT ON FILE ANYWAYS!" 8910 FORL=1TO5000:NEXT 8911 PRINT"":FORL=1TO5:PRINT" " 8912 NEXT 8999 GOTO6000 9000 REM ----------------------------- 9001 REM RE/SAVE FILE ----------------------------- 9005 POKE54296,0 9010 PRINT"":FORL=1TO5:PRINT" " 9020 NEXT 9030 PRINT" " 9100 PRINT" . . . PLEASE WAIT. " 9110 OPEN15,8,15 9120 PRINT#15,"S0:AMSTAT" 9130 CLOSE15,8,15 9140 OPEN1,8,1,"AMSTAT,S,W" 9150 X=1 9160 PRINT#1,A$(X) 9170 PRINT#1,B$(X) 9180 PRINT#1,C$(X) 9181 PRINT#1,D$(X) 9190 IFA$(X)="END"THEN9300 9195 X=X+1:GOTO9160 9300 CLOSE1 9900 PRINT"":FORL=1TO5:PRINT" " 9901 : 9910 NEXT 9920 PRINT" " 9930 PRINTWW$ 9940 GOTO100 10000 REM ----------------------------- 10001 REM SOUND ----------------------------- 10010 ML=INT(9*RND(1))+20 10100 FORL=54272TO54296:POKEL,0:NEXT:POKE54296,15:POKE54277,10 :POKE54278,0 10200 POKE54273,ML:POKE54272,ML+5:POKE54276,17:FORL=1TO1000:NEXT:POKE54276,0 10300 RETURN 11000 REM ----------------------------- 11001 REM INPUT CLASSIFICATION ----------------------------- 11010 PRINT"ENTER A CLASSIFICATION: ";:H$="":X=0 11011 GETJUNK$:IFJUNK$<>""THEN11011 11020 GETG$:IFG$=""THEN11020 11021 IFASC(G$)<>20THEN11029 11022 IFLEN(H$)>0THENPRINTCHR$(20); 11023 IFLEN(H$)>0THENH$=LEFT$(H$,(LEN(H$)-1)) 11024 GOTO11020 11029 IFASC(G$)=13 THEN11070 11030 IFASC(G$)<32ORASC(G$)>95THEN11020 11040 PRINTG$;:H$=H$+G$ 11050 IFLEN(H$)=10 THEN11070 11060 GOTO11020 11065 REM ----------------- 11070 GOSUB10000:B=1:GOTO11185 11120 V=1:IFV=1THEN PRINT"" 11121 IFV=2THEN PRINT"" 11122 IFV=3THEN PRINT"" 11123 IFV=4THEN PRINT"" 11130 IFD$(B)<>H$THEN11132 11131 PRINTTAB(1)A$(B)TAB(6)B$(B)TAB(23)C$(B)TAB(28)D$(B):V=V+1:X=1 11132 IFD$(B)<>H$THEN11140 11133 A=VAL(A$(B)) 11134 IFA>TUNETHENGOSUB500:GOTO11140 11135 IFTUNE>ATHENGOSUB400 11140 IFA$(B)="END"THEN11500 11150 B=B+1 11160 IFV<>4THEN11121 11170 PRINT" PRESS RETURN TO CONTINUE" 11171 GETJUNK$:IFJUNK$<>""THEN11171 11180 GETG$:IFG$<>CHR$(13)THEN11180 11185 PRINT"":FORL=1TO5 11186 PRINT" " 11190 NEXT:GOTO11120 11200 REM -----TUNE STATION-------- 11210 IFVAL(A$(B))=ATHEN4990 11500 IFX=0THENPRINT" SORRY . . . NOT LISTED " 11510 PRINT" PRESS RETURN TO CONTINUE" 11511 GETJUNK$:IFJUNK$<>""THEN11511 11515 GETG$:IFG$<>CHR$(13)THEN11515 11520 GOTO11990 11900 : 11990 POKE54296,0:PRINT"":FORL=1TO5 11991 PRINT" " 11992 NEXT 11995 PRINT"[144]ENTER A CLASSIFICATION[146]" 11999 GOTO1000 60000 REM --------------------------- 60010 REM CHECK OK INPUT 60020 REM ADDED BY LOADSTAR 60030 REM --------------------------- 60035 : 60040 PRINT" IS THIS OK (Y/N)?" 60050 POKE198,0:WAIT198,1:GETJUNK$ 60055 IFJUNK$<>"Y"ANDJUNK$<>"N"THEN60050 60060 PRINT""; 60065 FORPP=0TO6:PRINT" " 60066 NEXT 60070 IFJUNK$="Y"THENRETURN 60080 PRINT" ENTER FREQUENCY: ";A$(C);:H$=A$(C):GOSUB61000 60085 INPUTA$(C) 60090 PRINT" ENTER CITY: ";B$(C);:H$=B$(C):GOSUB61000 60095 INPUTB$(C) 60100 PRINT" ENTER CALL LETTERS: ";C$(C);:H$=C$(C):GOSUB61000 60105 INPUTC$(C) 60110 PRINT" ENTER A CLASSIFICATION: ";D$(C); 60112 H$=D$(C):GOSUB61000 60115 INPUTD$(C) 60120 GOTO60000 60200 : 61000 REM BACKUP ROUTINE 61002 FORYY=1TOLEN(H$)+2:PRINT"[157]";:NEXT 61005 RETURN