Title Paint by FreezingFire 
%%thickness = --------------------- 

OPTION DECIMALSEP,"." 
%%width = @sysinfo(screenwidth) 
%%height = @sysinfo(screenheight) 
  DIALOG CREATE,Paint Example,-1,0,%%width,%%height,COLOR WHITE 
  DIALOG ADD,STYLE,COLOR,,,,BLACK,BLACK 
  DIALOG SHOW 
  DIALOG CURSOR,CROSS 
  %%num = 1 
:Evloop 
  wait event,.01 
  goto @event() 
:Timer 
while @mousedown() 
%%num = @succ(%%num) 
DIALOG ADD,TEXT,PIXEL%%num,@diff(@mousepos(y),40),@diff(@mousepos(x),20),,,%%thickness,,COLOR 
wend 
goto evloop 
:Close 
  exit