DIM menu$(3)
menu$(0)="New Game"
menu$(1)="Load Game"
menu$(2)="Options"
menu$(3)="Quit"
 
white=rgb(255,255,255)
yellow=rgb(255,255,0)
 
hide mouse
sync on : sync rate 60
 
`# Main Program
DO
   `#input
   u=upkey() : d=downkey()
 
   `#process
   sel=sel+d-u
   if sel<0 then sel=0
   if sel>3 then sel=3
 
   `#display
   for n = 0 to 3
      if n=sel
         ink yellow,0
         m$="["+menu$(n)+"]"
      else
         ink white,0
         m$=menu$(n)
      endif
      center text 320,140+n*40,m$
   next n
 
   `don't let the program loop until keys are released
   repeat
      u=upkey() : d=downkey()
      sync
   until u+d=0
   cls
LOOP