Post by bplus on May 30, 2023 18:36:26 GMT -5
_Title "Cursor Walk Cursor Talk - a = left, d = right, w = up, s = down, c = change cursor" 'b+ 2023-05-30
x = 10: y = 10: c = 0
Locate y, x: Print "!";
1 K$ = InKey$
c = (c - (K$ = "c")) Mod 8
x = x + (K$ = "a") - (K$ = "d")
y = y + (K$ = "w") - (K$ = "s")
Locate y, x
Print Mid$("!@#%&*? ", c + 1, 1);
GoTo 1