1 'SUBMARIN-C
2 CLV:VIDEO 3:UART 0,0
3 X=4:Y=4:[X+Y*5]=1
4 A=0:B=0:[A+B*5]=2
5 GSB 46
6 CLK:UART 0,1
7 K=INKEY():IF !K CONT
8 UART 0,0:C=INKEY()
9 K=K-32
10 T=K/32:W=K-T*32
11 V=W/5:U=W%5
12 Z=A+B*5
13 IF T GSB 43 ELSE GSB 38
14 IF [W]&3+T*2=3 GOTO 32
15 WAIT 100
16 GSB 46
17 LC 0,8:?"COMMAND?":CLK
18 WAIT 6:T=BTN(32)
19 U=X-BTN(28)*(X>0)+BTN(29)*(X<4)
20 V=Y-BTN(30)*(Y>0)+BTN(31)*(Y<4)
21 IF U=X AND V=Y GOTO 18
22 Z=X+Y*5:W=U+V*5
23 IF T GSB 43 ELSE GSB 34
24 UART 9,0
25 ?CHR$(32+W+T*32)
26 UART 0,0
27 IF [W]&3+T=3 GOTO 30
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