Battleships 57
690 FOR F=5 TO 16:LOCATE 5,F+1:PRINT CHR $(241);CHR$(241); CHR$(241);CHR$(241);CH R$(241);CHR$(241);CHR$(241);CHR$(241);CH R$(241);CHR$(241);CHR$(241);CHR$(241);CH R$(250);" ";CHR$(241);CHR$(241);CHR$(241 );CHR$(241);CHR$(241);CHR$(241);CHR$(241 );CHR$(241);
700 PRINT CHR$(241); CHR$(241);CHR$(241) ;CHR$(241);CHR$(250):NEXT
710 LOCATE 1,1:PEN 3:PRINT"B A T T L E	SHIPS":PEN 1
720 LOCATE 5,5:FOR F= 1 TO 12:PRINT CHR$ (95);:NEXT
730 LOCATE 19,5:FOR F= 1 TO 12:PRINT CHR
$(95);:NEXT
740 FOR F=1 TO 12:LOCATE 3,F+5:PRINT CHR
$(64+F):NEXT
750 X$="123456789": LOCATE 5,4:PRINT MID
$((X$), 1,9)
760 LOCATE I4,4:PRINT CHR$(245);CHR$(246 );CHR$(247)
770 LOCATE 1,2:PEN 2:PRINT"	YOUR SHIP
MY SHIPS	":PEN 1
780 LOCATE 1,19:PEN 2:PRINT"You can plac e 6 ships by typing [D4]for example.Then press ENTER":PEN 1
790 FOR F=1 TO 6
GOO LOCATE 1,21:PRINT SPACE$(25);:LOCATE 1,21:INPUT A$:IF A$="" THEN 800 ELSE A$ =UPPER$(A$)
910 IF LEFTS(A$,1)<"A" OR LEFTS-(A$,1)>"L " THEN GOTO BOO
920 Y=ASC(LEFTS(A$0))-60
830 X=VAL(RIGHTS(A$,LEN(A$)-1))+3
840 IF X<4 OR X>14 THEN BOO
850 FOR I=1 TO 6:IF Y=Y(I) THEN IF X=X(I )-1 OR X=X(I) OR X=X(I)+1 THEN 800
860 NEXT I
870 PRINT CHR$(22)+CHR$(1): LOCATE X+1,Y +1:PRINT CHR$(243)+CHR$(244):PRINT CHR$( 22)+CHR$(0)
220 LOCATE 1,22:PRINT"	":LOCATE
1,22
890 YF)=Y:X(F)=X