\ bitmap 98.10.7 8:45 pm NAB

: bitmap ( height width "name" -- )
  create
  tuck  , ,  \ width height
\ bytes/line (must be even)
  7 + 8 / dup 1 and + ,
  0 ,  \ flags
  0 , 0 , 0 , 0 ,  \ reserved
  does>  >abs WinDrawBitmap ;