100→D
Lbl 1
1→X
1→Y
0→S
15→V
6→W
While 1
Do
Getkey→G
LpWhile Not G
If G=53
Then Goto 1
IfEnd
G=28 And Y>1⇒Y-1→Y
G=37 And Y<7⇒Y+1→Y
G=38 And X>1⇒X-1→X
G=27 And X<21⇒X+1→X
If G=74 And Not S
Then X→S
Y→H
IfEnd
ClrText
S>0⇒S+1→S
If S>21 Or Not S
Then 0→S
Else Locate S,H,"."
IfEnd
Locate X,Y,"×"
If V
Then If (S=V Or S=V+1) And H=W
Then 0→S
0→V
Else Locate V,W,"[]"
IfEnd
IfEnd
If G=32
Then D-1→D
Locate 17,1,D
IfEnd
If G=42
Then D+1=D
Locate 17,1,D
IfEnd
For 0→A To D
Next
WhileEnd