picloadでbufferに読み込んだ画像が表示できない

こんにちは、突然ですが質問です。



;disp;
dispx=800
dispy=800/3*2
;buffer;
dim bfr,100
dim picx,100
dim picy,100
notesel note

repeat
noteload "data.txt"
noteget note,cnt
if note="-end-"{datas=cnt/2:break}
loop
repeat datas
lop=cnt*2+1
noteload "data.txt"
noteget note,lop
bfr(lop)=int(note)
	buffer bfr(lop)
noteload "data.txt"
noteget note,(lop+1)
	picload "data/picture/"+str(note)+".bmp"
	picx(lop)=ginfo_winx
	picy(lop)=ginfo_winy
loop

gsel 0
screen 0,dispx,dispy,0,(ginfo_dispx-dispx)/2,(ginfo_dispy-dispy)/2

repeat 100,1
redraw 0
		color 255,255,255
			boxf
	pos 0,0
		gmode 0
			gcopy bfr(cnt),,,picx,picy
		color
			mes bfr(cnt)
			mes picx(cnt)
			mes picy(cnt)
redraw 1
wait 50
loop

画像は"data"の"picture"のなかに
data.txt



;画像;----------------
1
a
2
b
21
sun
c
grass
d
-
e
-
f
-
71
g
81
h
-end-

このような、テキストに書かれた名前の画像を順々に読み込むものを
つくったのですが、エラーが出ないのに読み込んだ画像を表示できず
困っています。最小限(picloadだけ)なら読み込めるのに、なぜ表示
できないのでしょうか…可能ならアドバイスをしていただけると幸い
です。

HSPTV!掲示板