XProfan

declare h&,i&
cls
declare b#
dim b#,80*80*4
clear b#

whileloop 500

    px rnd(80),rnd(80),255,255,255

wend

h&=external("gdi32","CreateBitmap",80,80,1,32,b#)
print h&
print external("gdi32","SelectObject",%hdc,h&)
print h&

while 1

    DrawPic H&, %mousex-30,%mousey-30; 0
    px rnd(80),rnd(80),255,255,255

wend

waitkey
deleteobject h&
end

proc px

    parameters x&,y&,r%,g%,b%
    declare p&
    p&=y&*320+x&*4
    byte b#,p&=b%
    byte b#,p&+1=g%
    byte b#,p&+2=r%

ENDPROC

While 1

    sleep 1
    Case %mousepressed=1:H&=External("gdi32","CreateBitmap",Rnd(80),Rnd(80),1,32,B#)
    Case %mousepressed=2:Break
    Drawpic H&, %Mousex-30,%Mousey-30; 0
    Px Rnd(80),Rnd(80),Rnd(255),Rnd(255),Rnd(255)

/a>