1 dim buf(40)
2 fopen "test.bmp"
3 fread buf,14
4 fclose
5 for i=0 to 13
6 print buf(i)
7 print ","
8 next
