DIM X% DIM Y% CONST RED = _RGB32(255, 0, 6) CONST DARKBLUE = _RGB32(122, 83, 255) SCREEN _NEWIMAGE(400, 320, 32) 'You have to enter the colour in the constant name in the qbasic program to paint the output screen DO _LIMIT 400 X% = _MOUSEX Y% = _MOUSEY CIRCLE (X%, Y%), 15, RED PAINT (X%, Y%), DARKBLUE, RED DO LOOP WHILE _MOUSEINPUT LOOP UNTIL _KEYDOWN(27)