286 Radio Power
1460 GOSUB 2620:LOCATE 1,1:PRINT CHR$(24 );"IS THIS A NEW STATION ? (Y OR N)";CHR $(24)
1470 A$=INKEY$:A$=UPPER$(A$):IF A$<>"Y" AND A$<>"N" THEN 1470
1480 IF A$="Y" THEN 1500
1490 GOTO 1650
1500 GOSUB 2620:LOCATE 1,1:PEN 2:PRINT"W HAT IS YOUR NAME PLEASE ?":PEN I:INPUT X $:IF X$="" THEN 1500 ELSE H$=MID$(X$+SPA CE$(20),1,14)+"*"
1510 GOSUB 2620:LOCATE 1,1:PEN 3:PRINT"T HE NAME OF YOUR STATION ? ":PEN I:INPUT G$
1520 FOR I=1 TO 25:IF LEFT$(S$(1),1)=LEF T$(G$,1) THEN 1540
1530 NEXT:GOTO 1550
1540 LOCATE 1,1:PRINT CHR$(24)"SORRY;PLE ASE CHOOSE ANOTHER NAME":PRINT CHR$(24): FOR I=I TO I200:NEXT I:GOSUB 2620:GOTO I 510
1550 GOSUB 2620
1560 LOCATE 1,1:PEN 2:PRINT"RADIO: ";G$: PEN 1:PRINT"MANAGER: ";:PEN 3:PRINT LEFT $(H$,14)
1570 FOR I=I TO 1200:NEXT:GOSUB 2620 1580 LOCATE I,1:PRINT CHR$(24)"BASED IN WHICH TOWN? (ENTER FULL NAME)"; CHR$(24) ;:INPUT IS: IF I$="" THEN 1580 ELSE IS=UP PER$( 1$)
1590 GOSUB 2620:FOR I=1 TO 25:IF T$(1)=I $ AND MIDS(N$(1),15,1)="*" THEN 1610 1600 IF T$(1)=I$ THEN 1630
1610 NEXT I:GOSUB 2620:LOCATE 1,1:PEN I: PRINT"SORRY BUT THAT PLACE IS NOT AV AILABLE. ":FOR I=1 TO 2000:NEXT:GOSUB 26 20:GOTO 1580
1620 RETURN
1630 LOCATE 1,1:PEN 3:PRINT"OK.	CONGRA
TULATIONS ON A NEW STATION OPENING. GOO D LUCK!!!":PEN I
1640 LOCATE T(I,2)+1,T(I,1)+1:PRINT"@":S $(1)=G$:N$(1)=H$:FOR I=1 TO 2000: NEXT:R ETURN