Level Selector PicoLisp

(de menu (Options)
   (let S 1 Exit NIL
      (loop
         (for (I . V) Options
            (if (= S I)
               (call 'tput "setaf" 10) (call 'tput "setaf" 15))
            (prinl V)
            (call 'tput "setaf" 15))
         (case (key)
            (" " (inc 'S) )
            ("e" (setq Exit T))
            ("n" (dec 'S)))
         (when (> S (length Options)) (setq S 1))
         (T Exit S)
         (call 'tput "cuu" (length Options))
         )))

(prinl "Since you don't know the keys yet, I made the navigation into: Thumb=GoDown, Pinkey=GoUp, MiddleFinger=GoInto")

(prinl (menu '("Level1" "Level2")))