10 REM > Mouse_X_O 20 REM Draws crosses and circles using the mouse 30 MODE 27:REM use mode 12 for standard resolution monitor 40 ON ERROR REPORT:PRINT " at line ";ERL:END 50 *Pointer 60 REPEAT 70 MOUSE x%,y%,button% 80 CASE button% OF 90 WHEN 1:PROCcircle(x%,y%) 100 WHEN 2:CLS 110 WHEN 4:PROCcross(x%,y%) 120 ENDCASE 130 UNTIL FALSE 140 END 150 : 160 DEFPROCcross(xpos%,ypos%) 170 LOCAL size% 180 size%=50 190 LINE xpos%-size%,ypos%-size%,xpos%+size%,ypos%+size% 200 LINE xpos%-size%,ypos%+size%,xpos%+size%,ypos%-size% 210 ENDPROC 220 : 230 DEFPROCcircle(xpos%,ypos%) 240 LOCAL radius% 250 radius%=60 260 CIRCLE xpos%,ypos%,radius% 270 ENDPROC