' screen mode constants
  const FX_320x240=14
  const FX_640x480=18
  const FX_800x600=19
  
  screen FX_640x480,32 'set our 32bit gfx mode
  
  dim as integer mx,my,mw,mb 'mouse x,mouse y, mouse wheel, mouse buttons
  dim as integer done
  dim as string  kb
  
  do
    
    getmouse mx,my,mw,mb    
    
    kb=inkey$
    if kb=chr$(27) then done=1
        
    screenlock
    cls
    
    locate 1,1
    ? "Move the Box with the mouse."
    
    line (mx,my)-(mx+50,my+50),rgb(255,0,0),bf    
    
    screenunlock
    
  loop until done