I am having trouble with PUT statement and I really can't (i do not know how, English isn't my mother language) explain what is the problem so if anyone has some time to look at it I'd be really thankful.
QB64 code!
Code: Select all
SCREEN 9
LINE (100,100)-(300,200),2,BF
GET (100,100)-(300,200),window
CLS
LINE (0,0)-(640,390),1,BF
GET (0,0)-(639,349),back
CLS
PUT (0,0),back,pset
DO
DO WHILE _MOUSEINPUT
IF _MOUSEBUTTON(1) then
PUT (0,0),back,pset
PUT (__MOUSEX,_MOUSEY),window,pset
CLS
PUT (0,0),back,pset
PUT (__MOUSEX,_MOUSEY),window,pset
end if
LOOP
LOOP