' Perus nuolinäppäinvalikko.
' Toimii: nuolet ylös ja alas sekä enter.
' Mahdollisimman selkeä, paljoon optimointivaraa.

CLS
teksti1$ = "        Nuolinäppäinvalikko       "
teksti2$ = "        tehnyt BootSector4,       "
teksti3$ = " Suomen Parhaat Basic-ohjelmoijat "
PRINT "Paina ENTER lopettaaksesi"
ARVO = 1
ALKU:
SELECT CASE ARVO
CASE 1
COLOR 15, 1: LOCATE 10, 25: PRINT teksti1$
COLOR 7, 0: LOCATE 12, 25: PRINT teksti2$
COLOR 7, 0: LOCATE 14, 25: PRINT teksti3$

CASE 2
COLOR 7, 0: LOCATE 10, 25: PRINT teksti1$
COLOR 15, 1: LOCATE 12, 25: PRINT teksti2$
COLOR 7, 0: LOCATE 14, 25: PRINT teksti3$

CASE 3
COLOR 7, 0: LOCATE 10, 25: PRINT teksti1$
COLOR 7, 0: LOCATE 12, 25: PRINT teksti2$
COLOR 15, 1: LOCATE 14, 25: PRINT teksti3$

CASE ELSE
END SELECT


DO
X$ = INKEY$
SELECT CASE X$
CASE CHR$(13): GOTO loppu
CASE CHR$(0) + "H"
ARVO = ARVO - 1
IF ARVO = 0 THEN ARVO = 1
GOTO ALKU
CASE CHR$(0) + "P"
ARVO = ARVO + 1
IF ARVO = 4 THEN ARVO = 3
GOTO ALKU
CASE ELSE
END SELECT
LOOP

loppu:
COLOR 7, 0
CLS
PRINT "Valitsit kohdan ";
COLOR 15, 1
SELECT CASE ARVO
CASE 1
PRINT teksti1$
CASE 2
PRINT teksti2$
CASE 3
PRINT teksti3$
CASE ELSE
END SELECT