Skip to content

Instantly share code, notes, and snippets.

@jacobsapps

jacobsapps/gist:791450f16bb392755ba32c30f621114e

Created June 24, 2025 07:19
Show Gist options
  • Save jacobsapps/791450f16bb392755ba32c30f621114e to your computer and use it in GitHub Desktop.
Save jacobsapps/791450f16bb392755ba32c30f621114e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
10 HOME
15 X = 10: Y = 10
20 VTAB Y: HTAB X: PRINT "@";
30 GET K$: IF K$ = "" THEN GOTO 30
40 REM ERASE CURRENT
50 VTAB Y: HTAB X: PRINT " ";
60 REM HANDLE INPUT
70 IF K$ = "A" THEN X = X - 1
80 IF K$ = "D" THEN X = X + 1
90 IF K$ = "W" THEN Y = Y - 1
100 IF K$ = "S" THEN Y = Y + 1
110 REM STAY ON SCREEN
120 IF X < 1 THEN X = 1
130 IF X > 39 THEN X = 39
140 IF Y < 1 THEN Y = 1
150 IF Y > 24 THEN Y = 24
160 GOTO 20
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment