DIM x% DIM y% CONST RED = _RGB32(227, 11, 11) CONST DARKRED = _RGB32(216, 33, 11) _TITLE "Move the circle with the mouse" SCREEN _NEWIMAGE(800, 600, 32) DO _LIMIT 300 PCOPY 1, _DISPLAY x% = _MOUSEX y% = _MOUSEY CIRCLE (x%, y%), 50, RED PAINT (x%, y%), DARKRED, RED DO LOOP WHILE _MOUSEINPUT LOCATE 2, 30: PRINT "Use mouse to move the circle. ESC to exit." _DISPLAY LOOP UNTIL _KEYDOWN(27)