Drawing programming by qbasic in qb64..😮🙋😮🙌

LIKE share subscribe ................. /// ''qbasic programme.'' '------------------------------------- '- Reading the mouse buffer contents - '------------------------------------- CONST white = _RGB32(255, 255, 255) DIM KeyPress$ SCREEN _NEWIMAGE(640, 480, 32) CLS PRINT INPUT "CLICK around on the screen fey times then press the ENTER key", KeyPress$ WHILE _MOUSEINPUT IF _MOUSEINPUT(1) THEN LINE -(_MOUSEX, _MOUSEY), white END IF WEND PRINT "Your pattern ofclicks is now displayed"