CLS
NEW
' ------- 02 Submarine
10 CLS:C=10:X=RND(10):Y=RND(10)
20 LOCATE 0, 14
30 INPUT A
40 INPUT B
50 LOCATE A,B:PRINT CHR$(15)
60 IF A=X AND B=Y THEN PRINT "[[ Hit! ]]":END
70 N=ABS(X-A)
80 M=ABS(Y-B)
90 IF N<3 AND N<>0 THEN LOCATE 0,12:PRINT "X Near!"
100 IF M<3 AND M<>0 THEN LOCATE 0,13:PRINT "Y Near!"
110 IF A=X THEN LOCATE 0,12:PRINT "X Match"
120 IF B=Y THEN LOCATE 0,13:PRINT "Y Match"
130 C=C-1
140 IF C>0 THEN GOTO 20