REM Arrow Select
REM Written by Bryan Enes
CLS

xvalue = 1

REM Start the program loop
DO

REM Set the choices and what they do if selected
LOCATE 1, 1
IF xvalue = 1 THEN COLOR 3, 0: PRINT "First choice" ELSE COLOR 4, 0: PRINT "First choice"
LOCATE 2, 1
IF xvalue = 2 THEN COLOR 3, 0: PRINT "Second choice" ELSE COLOR 4, 0: PRINT "Second choice"
LOCATE 3, 1
IF xvalue = 3 THEN COLOR 3, 0: PRINT "Third choice" ELSE COLOR 4, 0: PRINT "Third choice"
LOCATE 4, 1
IF xvalue = 4 THEN COLOR 3, 0: PRINT "EXIT" ELSE COLOR 4, 0: PRINT "EXIT"

REM Set the inkey variable
a$ = INKEY$

REM carry out the arrow controls
IF RIGHT$(a$, 1) = "H" THEN xvalue = xvalue - 1
IF RIGHT$(a$, 1) = "P" THEN xvalue = xvalue + 1

REM set the restriction of staying on one of the options
IF xvalue > 4 THEN xvalue = 1
IF xvalue < 1 THEN xvalue = 4

REM what to do if the enter key is pressed
IF a$ = CHR$(13) AND xvalue = 1 THEN GOSUB value1
IF a$ = CHR$(13) AND xvalue = 2 THEN GOSUB value2
IF a$ = CHR$(13) AND xvalue = 3 THEN GOSUB value3
IF a$ = CHR$(13) AND xvalue = 4 THEN END
LOOP

value1:
CLS
PRINT "Choice 1"
SLEEP 3
RETURN

value2:
CLS
PRINT "Choice 2"
SLEEP 3
RETURN

value3:
CLS
PRINT "Choice 3"
SLEEP 3
RETURN