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