Battleships 55
210 LOCATE PX+1,0X+1:PRINT CHR$(241);:L OCATE P+1,0+1:PRINT CHR$(22);CHR$(1);"+" ;CHR$(22);CHR$(0):PX=P:OX=0
220 FOR XX=1 TO 6: IF H(XX)=1 THEN LOCAT E G(XX)+I,F(XX)+1:PRINT CHR$(248);CHR$(2 49);
230 NEXT XX
240 GOTO 140
250 SOUND 1,120,5: PRINT CHR$(22)+CHR$(1 ):LOCATE P+1,0+1:PRINT"+":PRINT CHR$(22) +CHR$(0)
260 FOR F=1 TO 6
270 IF H(F)=0 AND 0=F(F) THEN IF P=G(F) OR P=G(F)+1 THEN 300
280 NEXT F
290 GOTO 340
300 H(F)=1:LOCATE G(F)+1,F(F)+1:PEN 3:PR INT CHR$(248);CHR$(249):PEN 1
310 FOR X=1 TO 3: ENT 1,10,-4,9:SOUND 1, 200,75,13,0,1:NEXT
320 REM
330 SC1=SC1+1:IF SC1=6 THEN 490
340 LOCATE 1,19:PEN 2:PRINT"
MOVE	":LOCATE 1,21:PRINT
CHR$(20):LOCATE 1,21
350 FOR XX= 1 TO 1000:NEXT
360 G=(INT(RND*12/SC))*SC+1:F=INT (RND*1 2)+1
370 IF C$(F,G)="X" THEN GOTO 360
380 C$(F,G)="X":LOCATE G+4,F+5:PRINT CHR $(22);CHR$(1);"*";CHR$(22);CHR$(0);
390 Y=F+4:X=G+3
400 FOR I=1 TO 6
410 IF Y=Y(I) THEN IF X=X(I) OR X=X(I)+ 1 THEN 440
420 NEXT
430 GOTO 110
440 PEN 3:FOR 0=7 TO 0 STEP -1: LOCATE X(I)+1,Y(I)+1:PRINT CHR$(248);CHR$(249): NEXT:PEN 1
450 FOR X=2 TO 5 : ENT 1,10,-3,9:SOUND 2 ,200,75,13,0,1:NEXT
460 C$(/(I)-4,X(I)-3)="X":C$CY(I)-4,X(I)