sub missing(sys id, string name)
if not id then mbox name " not found"
end sub
'--------------------------------------
'loadbmp
'##################################################
INT bmpB0,bmpB1,bmpB2,bmpB3,bmpB4,bmpB5,bmpB6,bmpB7,bmpB8
bmpB0 = LoadImage(0,"bPanel.bmp",0,80,24,16) : missing(bmpB0, "bPanel.bmp")
bmpB1 = LoadImage(0,"data/rcImg.bmp",0,400,300,16) : missing(bmpB1, "data/rcImg.bmp")
'......................................................
bmpB2 = LoadImage(0,"data/guiApp.bmp",0,24,24,16) : missing(bmpB2, "data/guiApp.bmp")
bmpB3 = LoadImage(0,"data/consoleApp.bmp",0,24,24,16) : missing(bmpB3, "data/consoleApp.bmp")
bmpB4 = LoadImage(0,"data/btCut.bmp",0,30,30,16) : missing(bmpB4, "data/btCut.bmp")
bmpB5 = LoadImage(0,"data/btCopy.bmp",0,30,30,16) : missing(bmpB5, "data/btCopy.bmp")
bmpB6 = LoadImage(0,"data/btPaste.bmp",0,30,30,16) : missing(bmpB6, "data/btPaste.bmp")
bmpB7 = LoadImage(0,"data/btCompile.bmp",0,30,30,16) : missing(bmpB7, "data/btCompile.bmp")
bmpB8 = LoadImage(0,"data/btRun.bmp",0,30,30,16) : missing(bmpB8, "data/btRun.bmp")
'##################################################
and in about line 234:
hImage = LoadImage(0, "rCodetb.bmp", 0, 280, 20, 24) : missing(hImage, "rCodetb.bmp")