/* Prints out the identifier field of a GIF file and the image dimensions*/
Parse Arg F
ID=Charin(F,1,6)
WidthLow=Charin(F,,1)
WidthHigh=Charin(F,,1)
ImageWidth=c2d(WidthHigh||WidthLow)
HeightLow=Charin(F,,1)
HeightHigh=Charin(F,,1)
ImageHeight=c2d(HeightHigh||HeightLow)
rc=Stream(F,"C","Close")
Say F "is in the" ID "format."
Say "Width is" ImageWidth "pixels."
Say "Height is" ImageHeight "pixels."
Exit