# movetest.bas draw -1 x=40:y=40 form btn 100,120,20,12, "up",1 form btn 100,140,20,12, "dn",1 form btn 78,130,20,12, "lt",1 form btn 122,130,20,12, "rt",1 while draw "greenchiler",x,y,1 k = asc(input$(1)) if k=14 then y=y-3 if k=15 then y=y+3 if k=16 then x=x-3 if k=17 then x=x+3 wend end