option SCALE, 96
  dialog CREATE,"Test Prog",-1,0,200,100, NOTITLE
  dialog ADD,STYLE,Style1,,,,LTBLUE
  dialog ADD,TEXT,Background,0,0,200,100,"",Style1
  dialog ADD,BUTTON,Exit,2,179,20,20,"X"
  dialog ADD,BUTTON,Move,2,2,40,20
  dialog ADD,BUTTON,Stop,2,2,40,20
  dialog SHOW

:EVLOOP
  dialog HIDE, Stop
  wait EVENT
  goto @event()

:MoveBUTTON
  dialog SHOW, Stop
  repeat 
    rem -- Attach window to mouse --
    %x = @diff(@mousepos(X), 10)
    %y = @diff(@mousepos(Y), 10)
    window POSITION,"Test Prog",%y,%x
  until @event()
  goto EVLOOP

:ExitBUTTON
  exit