better etchasketch! ~118 characters (110 w/o clear-screen or random color)
cls() x=0 y=0 while 1 do if(btn(0)) x-=1 if(btn(1)) x+=1 if(btn(2)) y-=1 if(btn(3)) y+=1 pset(x,y,7+rnd(9)) flip() end