58 Battleships
900 NEXT F
910 LOCATE 1,19:PRINT CHR$(20)
920 REM
930 FOR F=I TO 6
940 Y=INT (RND*12)+5:X=INT(RND*11)+18 950 FOR 6=1 TO 6
960 IF Y=F(G) THEN IF X=G(G) OR X=6(G)+1 OR X=G(G)-1 THEN 940
970 NEXT G
980 F(F)=Y:G(F)=X
990 NEXT F
1000 SC1=0:5C2=0
1010 RETURN
1020 SYMBOL AFTER 239
1030 SYMBOL 240,0,0,0,222,255,222,0,0 1040 SYMBOL 241,128,128,128,128,128,128, 128,255
1050 SYMBOL 242,129,129,129,129,129,129, 129,255
1060 SYMBOL 243,0,2,34,59,63,255,127,0 1070 SYMBOL 244,0,0,32,48,120,126,124,0 1080 SYMBOL 245,0,38,41,41,41,41,38,0 1090 SYMBOL 246,0,20,20,20,20,20,20,0 1100 SYMBOL 247,0,76,82,68,72,60,94,0 1110 SYMBOL 248,128,128,208,164,254,231, 255,255
1120 SYMBOL 249,128,128,136,151,200,174, 252,255
1130 SYMBOL 250,128,128,128,128,128,128, 123,12e
1140 RETURN