;reserve space
bmp1: rb bmp32.szStruc + width*height*4
  .file: ub '../tst/pqLineTo.bmp',0
;write header
bmp32          bmp1 width height
;clear canvas
bmp32.flush    bmp1 0x00'00'00
;paint a line
bmp32.pqLineTo 0x00'ff'00 bmp1 0 0 (width-1) (height-1)
;flip to screen
bmp32.screen   bmp1
;write to file
;?@#$?$, see bmp32 file
si32[bmp1+bmp32.biHeight] = 0 - si32[bmp1+bmp32.biHeight]
ioResult == WriteFileA(bmp1 bmp1.file 0 ui32[bmp1+bmp32.bfSize])
si32[bmp1+bmp32.biHeight] = 0 - si32[bmp1+bmp32.biHeight]
