ACLS BGFILL 0,0,0,25,20,99 BGFILL 0,0,0,25,5,639 SPSET 1,496 SPOFS 1,190,150 SPOFS 1 OUT X,Y SPSCALE 1,2.0,2.0 BGMPLAY 7 WHILE 1 B=BUTTON() IF B AND 4 THEN X=X-1 IF B AND 8 THEN X=X+1 SPOFS 1,X,Y WEND