' bload ... bmp image Load

' カレントディレクトリを exeファイルのある場所にする
chdir exepath()

' ウインドウサイズと色深度を指定
screenres 512, 288, 32

' 画像格納用の領域を確保
Dim img As any ptr = ImageCreate(256, 256)

' bmp画像読み込み
bload "image.bmp", img

' 画像を描画。RGB=(255, 0, 255) のピクセルは透明色として扱う
Put (16, 16), img, TRANS

' 画像を使い終わったので破棄
ImageDestroy(img)

' キー入力があるまで待つ
Sleep