'                             Katso Luemut.txt
'
'                    Nuolinäppäinten käyttöä kuvaava ohjelma
'
'                        koodia saa käyttää vapaasti
'
'
'
'
'
'
'
'
SCREEN 13                       ' näyttötila 13H
PSET (160, 100), 15             ' piste keskelle ruutua
DO                              ' silmukan alku


SELECT CASE INKEY$
CASE CHR$(0) + "H"              ' nuolinäppäin ylös
DRAW "u1"
CASE CHR$(0) + "P"              '   -││-       alas
DRAW "d1"
CASE CHR$(0) + "K"              '   -││-       vasemmalle
DRAW "l1"
CASE CHR$(0) + "M"              '   -││-       oikealle
DRAW "r1"
CASE CHR$(0) + "G"              '   -││-       yloös vasemmalle
DRAW "h1"
CASE CHR$(0) + "I"              '   -││-       ylös oikealle
DRAW "e1"
CASE CHR$(0) + "O"              '   -││-       alas vasemmalle
DRAW "g1"
CASE CHR$(0) + "Q"              '   -││-       alas oikealle
DRAW "f1"

CASE CHR$(27): END             ' ESC:istä loppuu
CASE ELSE
END SELECT

LOOP                           ' silmukan loppu