lzy太神了

DIM c AS CHR, p AS INTEGER, q AS INTEGER
PRINT "lzy太神了"
DO WHILE 1 = 1
INKEY c
SELECT CASE c
CASE "a"
q = q - 1
CASE "d"
q = q + 1
CASE "w"
p = p - 1
CASE "s"
p = p + 1
END SELECT
IF p < 1 THEN P = 1
IF q < 1 THEN q = 1
CLS
LOCATE p, q
PRINT "lzy太神了"
LOOP