COMMON	/REPEAT/ RPTBUF, RPTEXP, RPTPNT, RPTIDX, RPTCNT, RPTFLG
	INTEGER		 RPTBUF(300), RPTEXP, RPTPNT, RPTIDX, RPTCNT,
     $			 RPTFLG