mode 1
page write 1
box 0,0,50,50,5,rgb(red),rgb(blue)
sprite read 1,0,0,50,50
controller mouse open 0
cls
do
lastx=x
lasty=y
x=mouse(x,0)
y=mouse(y,0)
if abs(x-lastx)>=2 or abs(y-lasty)>=2 then sprite show 1,x,y,1
page copy 1 to 0,b
loop

SUB moveslide
IF slidepos <> oldpos OR cursorpos <> oldcursorpos THEN
  SPRITE HIDE 4
  IF slidepos <> oldpos THEN SPRITE SHOW 3, slidepos, ABline, 0
  SPRITE SHOW 4, cursorpos,Tedge-5,0
  oldpos = slidepos
  oldcursorpos = cursorpos
  PAGE COPY 1 TO 0 ,b
ENDIF
END SUB