#include <stdio.h>/* called when a subscript is out of range */s_rnge(varn, offset, procn, line)char *varn, *procn;long int offset;int line;{register int i;fprintf(stderr, "Subscript out of range on file line %d, procedure ", line);for(i = 0 ; i < 8 && *procn!='_' ; ++i)	putc(*procn++, stderr);fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);for(i = 0 ; i < 6  && *varn!=' ' ; ++i)	putc(*varn++, stderr);fprintf(stderr, ".\n");_cleanup();abort();}