Готовый проект или решение

DECLARE SUB W (x!, y!)
DECLARE SUB A (x!, y!)
DECLARE SUB S (x!, y!)
DECLARE SUB D (x!, y!)
 
CLS
DIM M AS STRING
DIM SHARED h
 
SCREEN 11
LINE (220, 190)-(420, 290), , B
x = 320: y = 240: h = 5
 
DO
   M = INKEY$
   SELECT CASE M
      CASE "W", "w": CALL W(x, y)
      CASE "A", "a": CALL A(x, y)
      CASE "S", "s": CALL S(x, y)
      CASE "D", "d": CALL D(x, y)
   END SELECT
LOOP UNTIL INKEY$ = CHR$(27)
 
END
 
SUB A (x, y)
   LINE (x - 100, y - 50)-(x + 100, y + 50), 0, B
   IF x > 0 THEN x = x - h
   LINE (x - 100, y - 50)-(x + 100, y + 50), , B
END SUB
 
SUB D (x, y)
   LINE (x - 100, y - 50)-(x + 100, y + 50), 0, B
   IF x < 640 THEN x = x + h
   LINE (x - 100, y - 50)-(x + 100, y + 50), , B
END SUB
 
SUB S (x, y)
   LINE (x - 100, y - 50)-(x + 100, y + 50), 0, B
   IF y < 480 THEN y = y + h
   LINE (x - 100, y - 50)-(x + 100, y + 50), , B
END SUB
 
SUB W (x, y)
   LINE (x - 100, y - 50)-(x + 100, y + 50), 0, B
   IF y > 0 THEN y = y - h
   LINE (x - 100, y - 50)-(x + 100, y + 50), , B
END SUB