SUB Menu
DIM txt(10) AS STRING
53 c1 = RND * 15
c2 = RND * 15
IF c1 = c2 THEN GOTO 53
COLOR c1, c2
FOR Z = 1 TO 10
INPUT txt(Z)
NEXT Z

CLS

FOR q = 1 TO 10
PRINT txt(q)
NEXT q

d = 1
1 a$ = INKEY$
IF a$ = "" THEN GOTO 1
IF a$ = CHR$(0) + "H" AND d > 1 THEN d = d - 1: a = 1
IF a$ = CHR$(0) + "P" AND d < 10 THEN d = d + 1: a = -1
IF a$ = CHR$(13) THEN b$ = txt(d): END
COLOR c1, c2: LOCATE d + a, 1: PRINT txt(d + a)
COLOR c2, c1: LOCATE d, 1: PRINT txt(d)
GOTO 1







END SUB