** Pass rnWidth and rnHeight by reference

lparameters lcFileNameWPath,rnWidth,rnHeight

LOCAL loImage,lnWidth,lnHeight
loImage=LoadPicture(lcFileNameWPath)
rnWidth = round(loImage.width/26.458,0)
rnHeight = round(loImage.height/26.458,0)