* works for GIF87a procedure showGifDimensions lparameters lcFileName x = filetostr(lcFileName) ? "width: ",asc(substr(x, 8,1))*256 + asc(substr(x,7,1)) ? "height: ",asc(substr(x, 10,1))*256 + asc(substr(x,9,1)) endprocSee http://www.dcs.ed.ac.uk/home/mxr/gfx/2d/GIF87a.txt for file specs for GIF87a.