OUTPUT
OUTPUT(vent, l, pi, ki, WIDTHMODE);
OUTPUT(vent, &kl[j], pi, ki, WIDTHMODE);
OUTPUT(vent, l, pi, ki, PRINTMODE);
OUTPUT(vent, &kl[j], pi, ki, PRINTMODE);
DIR(OUTPUT);
DIR(OUTPUT);
DIR(OUTPUT);
DIR(OUTPUT);
DIR(OUTPUT);
OUTPUT(ent); /* output the prefix */
OUTPUT(ent); /* output the last code */
OUTPUT(CLEAR); /* do not count the CLEAR */