1 cls:dim buf(40)
2 fopen "test.bmp"
3 fread buf,14
4 fread buf,40
5 fread buf,8
6 for y=31 to 0 step -1
7 x=0:fread buf,16
8 for i=0 to 15
9 msk=128
10 while msk
11 if msk and buf(i) then pset x,y,1
12 x=x+1:msk=msk/2
13 wend
14 next
15 next
16 fclose
