SCREEN 9

pokretX = 5
pokretY = 0

pozX = 50
pozY = 50

ziv = 1

WHILE ziv = 1
        dugme$ = INKEY$
        IF dugme$ = "w" THEN
                pokretX = 0
                pokretY = -5
        END IF
        IF dugme$ = "s" THEN
                pokretX = 0
                pokretY = 5
        END IF
        IF dugme$ = "a" THEN
                pokretX = -5
                pokretY = 0
        END IF
        IF dugme$ = "d" THEN
                pokretX = 5
                pokretY = 0
        END IF

        IF POINT(pozX + pokretX, pozY + pokretY) > 0 THEN ziv = 0

        COLOR 4
        LINE (pozX, pozY)-(pozX + pokretX, pozY + pokretY)
        pozX = pozX + pokretX
        pozY = pozY + pokretY

        FOR i = 0 TO 1000: NEXT
WEND

COLOR 14
PRINT "GAME OVER"