1st: Some parameters are not accurate
something like
BGFILL (parameters)
@lolol
locate 7,7,0:print ''START
LOCATE 7,9,0:? "options
locate 7,11,0: ?"etc.
Locate 6,Y:Print ">
if button up then y=y-2
if y<7 then y=7
if button down then y=y+2
if y>11 then y=11
if button A then goto @action
wait 1: cls: loop