int CO, IN, LI, last, bottom, ch, length, number, trail, Wrap;
short **ref;
char *AL, *BC, *CM, *EI, *HO, *IC, *IM, *IP, *SR;
char *field, tcb[100], *mp;
int CO, IN, LI, last, bottom, ch, length, number, trail, Wrap;
short **ref;
char *AL, *BC, *CM, *EI, *HO, *IC, *IM, *IP, *SR;
char *field, tcb[100], *mp;