﻿100→D

Lbl 1

1→X

1→Y

0→S

20→V

1→W

-1→B

1→M

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+B

Then 0→S

0→V

Else B≥6⇒0→M

Not B⇒1→M

If M

Then B+1→B

Else B-1→B

IfEnd

Locate V,W+B,"[]"

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