Radio Power 287
1650 CLS:LOCATE 1,1:PRINT CHR$(24);" ENT ER YOUR NAME PLEASE:";CHR$(24);:INPUT H$ 1660 FOR I=1 TO 25:IF LEFT$04$(1),LEN(H$ ))=H$ THEN 1690
1670 NEXT I:PEN 2:PRINT:PRINT "SORRY BUT I HAVE NO RECORD OF THAT NAME.":PEN I :FOR I=1 TO 2000:NEXT
1680 RETURN
1690 REM
1700 CLS: LOCATE 1,1:PRINT CHR$(24);"RADI 0 ";S$(1);CHR$(24);:PEN 2: PRINT" OF ";T$ (I):PEN 1
1710 PRINT:PRINT"STATION MANAGER: ";LEFT $(14$(1),14)
1720 PEN 3:PRINT"MONEY AVAILABLE....";pu $;MIDS(STR$(P(20)),2):PEN 1
1730 PEN 2:PRINT"NO.	NAME
PRICE	":PEN 1
1740 FOR J=1 TO 23:IF N(J)<>0 THEN 1770 1750 IF RND>0.45 THEN 1770
1760 PRINT J;TAB(5)B$(J);"	";B(J)
1770 NEXT
1780 PRINT CHR$(24);"DO YOU WANT TO HIRE ONE?(Y OR N)";CHR$(24);
1790 A$=INKEY$:A$=UPPER$(A$):IF A$<>"Y" AND A$<>"N" THEN 1790
1800 IF A$="N" THEN 1870
1810 LOCATE I,23:PEN 2:PRINT"WHICH PRESE NTER DO YOU WANT ?":PEN 1:PRINT"NUMBER.. ,
1820 GOSUB 2580
1830 B=VAL(H$):IF B=100 THEN 1870 ELSE P (20)=P(20)-B(B)
1840 IF B >23 THEN LOCATE 1,23:PRINT CHR $(20);:GOTO 1810
1850 PRINT"YOU HAVE ";pu$;MID$(STR$(P(2, I)),2)
1860 N(B)=I:PRINT B$(B);"JOINS RADIO ";S $(1)
1870 P=0
1880 PRINT"PRESENTERS ON STATION...":B=0 FOR J=1 TO 23:IF N(J)=I THEN 1900
1890 NEXT:NSP=1:GOTO 1920
1900 B=1:PRINT MID$(STR$(J),2);TAB(4);8$ (J);TAB (24);B(J)