# 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

    Source: geocities.com/greenchile505