Open FileName For Binary Access Read As #FF

'GIFWidth (0-16000)
Dim GIFWidth As Integer
Get #FF, 7,ReadByte
GIFWidth= ReadByte
Get #FF, 8,ReadByte
GIFWidth  += ReadByte Shl 8

'GIFHeight (0-16000)
Dim GIFHeight As Integer
Get #FF, 9,ReadByte
GIFHeight  = ReadByte
Get #FF,10,ReadByte
GIFHeight += ReadByte Shl 8

#include <stdio.h>
#include <math.h>

struct sbyte { unsigned char a; }; // байт
struct sword { unsigned short a; }; // два байта
struct sdword { unsigned int a; }; // четыре байта
struct sbyte3 { unsigned char a; unsigned char b; unsigned char c; }; // три байта
struct sbyte4 { unsigned char a; unsigned char b; unsigned char c; unsigned char d ; }; // четыре байта


int main()
{
FILE* f;
struct sbyte a;
struct sword b;
struct sdword c;
struct sbyte3 d;
struct sbyte4 e;
int f1;
unsigned char f2;

f = fopen("image1.gif", "rb"); // открытие gif
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a);
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a);
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a);
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a);
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a);
fread(&a, sizeof(struct sbyte), 1, f); printf("%c", a.a); // заголовок gif
fread(&b, sizeof(struct sword), 1, f); printf("\n%x\n", b.a); // размер 1
fread(&b, sizeof(struct sword), 1, f); printf("%x\n", b.a);  // размер 2
fread(&a, sizeof(struct sbyte), 1, f); printf("%x\n", a.a); // описание изображения
fread(&a, sizeof(struct sbyte), 1, f); printf("%x\n", a.a); // индекс цвета фона
fread(&a, sizeof(struct sbyte), 1, f); printf("%x\n", a.a); // соотношения сторон

f1 = 0;

while (fread(&d, sizeof(struct sbyte3), 1, f)  && f1 == 0) // таблица цветов
{
printf("%x %x %x\n", d.a, d.b, d.c);
if (d.a == '\x2c' ||  d.b == '\x2c' ||  d.c == '\x2c') f1 = 1;
}

while (fread(&a, sizeof(struct sbyte), 1, f) )
printf("%x \n", a.a);


return 0;
}