a = 2
b = 2
main: CLS
LOCATE a, b
PRINT "#"
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "q") OR (i$ = "s") OR (i$ = "w") OR (i$ = "a") OR (i$ = "d"))
LOCATE a, b
PRINT " "
IF i$ = "q" THEN END
IF i$ = "w" THEN a = a - 1
IF i$ = "s" THEN a = a + 1
IF i$ = "a" THEN b = b - 1
IF i$ = "d" THEN b = b + 1
GOTO main