124 Evolution 3
310 PEN 3:PRINT:PRINT"You must enter you r program as quickly as possible.When i
t	is ready press [F] to launch a missil e.":PEN 1
320 LOCATE 1,25:PEN 2:PRINT CHR$(24);" PRESS ANY KEY TO CONTINUE CHR$(24);:PEN 1
330 IF INKEY$<>"" THEN 330
340 IF INKEY$="" THEN 340 ELSE CLS
350 WINDOW #0,5,36,1,25:PAPER #0,0:PEN # 0,1:CLS #0
360 PEN 2:LOCATE 1,20:PRINT CHR$(20);:LO CATE 1,20:PRINT "ENTER A SKILL LEVEL (10 -100). 10 IS THE HARDEST:";:INPUT SK$
IF SK$="" THEN 360 ELSE SK=VAL(SK$) 370 IF SK<10 OR SK>100 THEN 360
380 F$=STRING$(10,32)
390 CLS:PEN 3:LOCATE 1,7:RESTORE 170:FOR F=1 TO 10:READ A$,Y,X:PRINT A$0NEXT:PE
N	1:LOCATE 1,18:PRINT"IN WHICH CAPITAL D
O	YOU WANT TO BE P.M.? (YOU ONLY NEED TO TYPE THE FIRST 2 CHARACTERS.)
400 LOCATE 1,21:PRINT CHR$(18);:LOCATE 1 ,21:INPUT A$:IF A$="" THEN 400 ELSE A$=U PPERS(A$)
410 IF LEN (A$)<2 THEN 400
420 RESTORE 170:FOR F=1 TO 10:READ BB$,Y Y,XX:IF MIDS(BB$0,2)=MID$(A$0,2) THEN B$=BB$:Y=YY:X=XX:FX=F
430 NEXT F
440 IF B$="" THEN 400
450 IF MID$(B$0,2)<>MIDS(A$0,2) THEN G OTO 400
460 V=Y:U=X:E$=CHR$(231):MID$(F$,FX,1)=" X"
470 RESTORE 170
480 I=INT(RND*10)+1:IF MIDS(F$,I,1)<>"X" THEN FOR F=1 TO I:READ B$,Y2,X2:NEXT F: GOTO 500
490 GOTO 480
500 CLS:GOSUB 1460
510 PEN 3:LOCATE X2+1,Y2+1:PRINT CHR$(14 3);:PEN 1:LOCATE X+1,Y+1:PRINT CHR$(24); CHR$(236);CHR$(24);:Y1=Y2:X1=X2:D$=CHR$( 231)