' Start CODE
TYPE pcxheader
MAN AS STRING * 1: VER AS STRING * 1: ENC AS STRING * 1: bit AS STRING * 1
xls AS INTEGER: yls AS INTEGER: xms AS INTEGER: yms AS INTEGER
HRE AS INTEGER: VRE AS INTEGER: col AS STRING * 48: RES AS STRING * 1
PLA AS STRING * 1: BYT AS INTEGER: pal AS INTEGER: FIL AS STRING * 58
END TYPE
DIM dat AS pcxheader
file$ = "Image1.pcx"
OPEN file$ FOR BINARY AS #1
GET #1, , dat
PRINT dat.XMS - dat.XLS + 1; " Is the size of the X plane"
PRINT dat.YMS - dat.YLS + 1; " Is the size of the Y plane"
' End CODE