>>814
白黒の仕方を知らないけれど、なんとなくこれでいけました。

;"test.bmp"の画像640×480を白黒に変換。
buffer 1,,, : picload "test.bmp"
buffer 2,,,
_x=0 : _y=0
gsel 0
pos 0,0 : gcopy 1,0,0,640,480
repeat 480;幅x
repeat 640;高さy
pget _x,_y
_v=rval+gval+bval/3
color _v,_v,_v : pset _x,_y
_x++
loop
_y++ : _x=0
await 1
loop
stop

ちなみにこれは１ドットずつ色情報を取得して変換してるから
ちょっと時間かかるかもしれません。
画像のサイズが違う場合にはループ回数を変更してください。
応答なしとか出るようだった内側のループにもawait 1を入れたほうがいいかもしれません。
（但しその場合はとてつもなく時間がかかる）