' get bitmap image size

#include "loadbitmapimage.bi"

ScreenRes 512, 288, 32

Dim As String fname = "obj_8bit.bmp"
'Dim As String fname = "obj_16bit.bmp"
'Dim As String fname = "obj_24bit.bmp"

' load bitmap image
Dim img As Any Ptr = LoadBitmapImage(fname)

' get image width, height, bpp
Dim As Integer w, h, bpp
ImageInfo(img, w, h, bpp)

Put (0, 0), img

Print "Load: " & fname & " (" & w & ", " & h & ")"
Print "Push Any Key"

ImageDestroy(img)
sleep