1 'SUBMARIN-S
2 CLV:VIDEO 3:UART 0,0
3 X=0:Y=0:[X+Y*5]=1
4 A=4:B=4:[A+B*5]=2
5 GSB 46
6 LC 0,8:?"COMMAND?"
7 WAIT 6:T=BTN(32)
8 U=X-BTN(28)*(X>0)+BTN(29)*(X<4)
9 V=Y-BTN(30)*(Y>0)+BTN(31)*(Y<4)
10 IF U=X AND V=Y GOTO 7
11 Z=X+Y*5:W=U+V*5
12 IF T GSB 43 ELSE GSB 34
13 UART 9,0
14 ?CHR$(32+W+T*32)
15 UART 0,0
16 IF [W]&3+T=3 GOTO 30
17 WAIT 100
18 GSB 46
19 CLK:UART 0,1
20 K=INKEY():IF !K CONT
21 UART 0,0:C=INKEY()
22 K=K-32
23 T=K/32:W=K-T*32
24 V=W/5:U=W%5
25 Z=A+B*5
26 IF T GSB 43 ELSE GSB 38
27 IF [W]&3+T*2=3 GOTO 32
28 WAIT 100
29 GOTO 5
30 LC 0,9:?"YOU WIN!"
31 CLK:END
32 LC 0,9:?"YOU LOSE"
33 CLK:END
34 [Z]=[Z]&#FFFE
35 X=U:Y=V:[W]=[W]|1
36 GSB 46
37 RTN
38 LC 0,8:?"ENEMY MOVE..."
39 [Z]=[Z]&#FFFD
40 A=U:B=V:[W]=[W]|2:GSB 53
41 IF [W]=3 GSB 43
42 RTN
43 LC U,V:?CHR$(244)
44 BEEP 30,10:WAIT 30
45 RTN
46 CLS:C=0
47 FOR I=0 TO 4
48 FOR J=0 TO 4
49 IF [C]&1 ?"S"; ELSE ?".";
50 C=C+1
51 NEXT:?
52 NEXT
53 D=ABS(X-A)+ABS(Y-B)
54 LC 0,6:?D
55 RTN