CHARACTER YN, TAB CHARACTER*6 TEMP CHARACTER*100 STMENT INTEGER J, JJ, L, LL, NL, ISTART, START, INCREM, 1 SLEN, LAB, CCGTFL, NOL, NNL, LABEL(500) COMMON /A/ J, JJ, L, LL, CCGTFL, NOL, NNL COMMON /B/ ISTART, START, INCREM, LAB, LABEL COMMON /C/ STMENT, TEMP, TAB