	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

