Listing 2

char *a;
int *b,*c;
double far *d;
main()
{
    a = malloc(8000*sizeof(char));
    b = malloc(8000*sizeof(int));
    c = malloc(8000*sizeof(int));
    d = farmalloc(8000L*sizeof(double));
    fct(); ...
}
fct()
{
    a[3] = ...; /* global arrays accessible */
}