REM
REM PROGRAMA MOVIMENT
REM
DIM x AS INTEGER
DIM y AS INTEGER
DIM x2 AS INTEGER
DIM y2 AS INTEGER
DIM tecla AS STRING
SCREEN 12
COLOR 9
WIDTH 80, 50
x = 41
y = 24
x2 = x
y2 = y
WHILE tecla$ <> CHR$(32)
        tecla$ = INKEY$
        SELECT CASE tecla$
                CASE CHR$(0) + CHR$(72): y2 = y - 1
                CASE CHR$(0) + CHR$(80): y2 = y + 1
                CASE CHR$(0) + CHR$(75): x2 = x - 1
                CASE CHR$(0) + CHR$(77): x2 = x + 1
                CASE CHR$(49): COLOR 1
                CASE CHR$(50): COLOR 2
                CASE CHR$(54): COLOR 3
                CASE CHR$(57): COLOR 4
                CASE CHR$(13): FOR i% = 1 TO 50
                                FOR j% = 1 TO 80
                                 LOCATE i%, j%
                                 PRINT CHR$(0)
                                NEXT j%
                               NEXT i%
                END SELECT
        tecla$ = ""
        IF x2 > 79 OR x2 < 1 THEN
                x2 = x
        END IF
        IF y2 > 49 OR y2 < 1 THEN
                y2 = y
        END IF
        LOCATE y, x
        REM PRINT CHR$(0)
        LOCATE y2, x2
        PRINT CHR$(1)
        x = x2
        y = y2
WEND
REM LOOP