CLS
SCREEN 12
COLOR 2
DIM x AS INTEGER
DIM y1 AS INTEGER
DIM y2 AS INTEGER
DIM e AS INTEGER
DIM c AS INTEGER
c = 2
e = 65
x = 10
y1 = 140
y2 = 170
OPEN "menu01" FOR INPUT AS #1
FOR numero% = 1 TO 4
LINE INPUT #1, li$
LOCATE x, 30
PRINT li$
x = x + 4
NEXT
LINE (230, y1)-(400, y2), c, B
DO
IF INKEY$ = CHR$(0) + CHR$(80) THEN
LINE (230, y1)-(400, y2), 0, B
y1 = y1 + e
y2 = y2 + e
LINE (230, y1)-(400, y2), c, B
END IF
IF INKEY$ = CHR$(0) + CHR$(72) THEN
LINE (230, y1)-(400, y2), 0, B
y1 = y1 - e
y2 = y2 - e
LINE (230, y1)-(400, y2), 2, B
END IF
LOOP UNTIL INKEY$ = "6"
END
|