Theophage wrote:Something keeps screwing my code up,
Yeah, I just tried to post
As a result, I got
And everything except "if a" was in bold.
Since I had HTML enabled (I wish the default was "no") the system took "< b" to mean "make everything bold"
So the trick is to always check the box to disable HTML. (Check at left when posting to see if it is enabled or not)
Anyway, good advice to the OP re: goto, etc. It's best to learn how to code better.
I took it a step further here
Code: Select all
CLS
x = 160: y = 100 ' Initial coordinates
DO
LINE (0, y)-(320, y), 2
LINE (x, 0)-(x, 200), 2
DO: k$ = LCASE$(INKEY$): LOOP WHILE k$ = ""
newx = x: newy = y ' Save current coordinates
SELECT CASE k$
CASE "s": IF y = 199 THEN newy = 0 ELSE newy = y + 1
CASE "w": IF y = 0 THEN newy = 199 ELSE newy = y - 1
CASE "d": IF x = 319 THEN newx = 0 ELSE newx = x + 1
CASE "a": IF x = 0 THEN newx = 319 ELSE newx = x - 1
CASE "q": EXIT DO
END SELECT
LINE (0, y)-(320, y), 0
LINE (x, 0)-(x, 200), 0
x = newx: y = newy
LOOP
CLS
SYSTEM
and as I prefer arrow keys to move stuff and ESC to get out of programs rather than "Q",
Code: Select all
SCREEN 13
CLS
x = 160: y = 100 ' Initial coordinates
DO
LINE (0, y)-(320, y), 2
LINE (x, 0)-(x, 200), 2
DO: k$ = INKEY$: LOOP WHILE k$ = ""
IF k$ = CHR$(27) THEN EXIT DO
IF LEN(k$) = 2 THEN
newx = x: newy = y ' Save current coordinates
SELECT CASE RIGHT$(k$, 1)
CASE "P": IF y = 199 THEN newy = 0 ELSE newy = y + 1
CASE "H": IF y = 0 THEN newy = 199 ELSE newy = y - 1
CASE "M": IF x = 319 THEN newx = 0 ELSE newx = x + 1
CASE "K": IF x = 0 THEN newx = 319 ELSE newx = x - 1
END SELECT
END IF
LINE (0, y)-(320, y), 0
LINE (x, 0)-(x, 200), 0
x = newx: y = newy
LOOP
CLS
SYSTEM
Mac