Evolution 3 127
1070 GOSUB 1460
1090 SC=1
1090 LOCATE 1,23:0RINT CHR$(18);
1100 LOD,TE 1,23:PRINT CHRS(18);:LOCATE 1,23:IKPUT "ENTER SKILL LEVEL(10-100)";S K$:IF SKS="" THEN 1100
1110 SK=VAL(SKS)
1120 IF SK<10 OR SK>100 THEN 1100
1130 REM
1140 LOCATE 1,23:PRINT CHRS(18);:LOCATE 1,23:INPUT "WANT TO SEE THE NAMES ";F$ :FS=UPPERS(FS):IF LEFTS(FS,1)="N" THEN G OTO 1160
1150 RESTORE 170:LOCATE 1,23:PRINT CHRS( 18);:FOR F=1 TO 10:SOUND 1,(F*12),3:READ
FS,Y,X:LOCATE 1,23:PRINT FS;"	., .
,
:FOR YZ=1 TO 300:NEXT YZ,F
1160 FS=STRINGS(10,32)
1170 LOCATE 1,23:PRINT CHR$(18);:LOCATE 1,23:INPUT "WHICH CAPITAL";A$:IF LEN (A$ )-(2 THEN 1170 ELSE AS=UPPERS(AS)
1180 RESTORE 170:FOR F=1 TO 10:READ B$,Y ,X:IF MIDS(BS,1,2)<> MIDS(AS,1,2) THEN N EXT F:GOTO 1170
1190 MIDS(FS,F,1)="X"
1200 C=1:CS="":V=Y:U=X
1210 I=INT(RND*10)+1:IF MIDS(FS,I,1)<>"X " THEN RESTORE 170:FOR F=1 TO I:READ BS, Y2,X2:NEXT:MIDS(FS,I,I)="X":GOTO 510 1220 GOTO 1210
1230 SC=SC+1:MIDS(FS,I,1)="X":LOCATE 1,2 3:PRINT CHR$(18);:LOCATE 1,23:PEN 2:PRIN T B$;" HAS BEEN DESTROYED":PEN 1:FOR F=1 TO 4:FOR S=7 TO 0 STEP -1:LOCATE X2+10/ 2+1:PRINT CHR$(143);:SOUND 1,(S*10+F*2), 3:NEXT S,F
1240 LOCATE 1,23:PRINT CHRS(18);:IF F$=" XXXXXXXXXX" THEN 1310
1250 GOSUB 1480
1260 I=INT(RND*10)+1:IF MIDS(FS,I,1)="X" THEN 1260
1270 ' LOCATE X1+1,YI+1:PRINT DS;
1280 C=1:CS="":V=Y:U=X:RESTORE 170:FOR F =1 TO I:READ BS,Y2,X2:NEXT:LOCATE X2+1,Y 2+1:PEN 3 :PRINT CHR$(143);:Y1=Y2:X1=X2