!
! Task UV_FIT (new version R. Lucas)
!
TASK\WRITE  UVTABLE$
TASK\WRITE  CHANNEL$
TASK\WRITE  UV_RANGE$
TASK\WRITE  NF$     
FOR I 1 TO NF$
   IF I.LT.10 THEN
	TASK\WRITE  FUNCT0'I'$
	TASK\WRITE  PARAM0'I'$
	TASK\WRITE  RANGE0'I'$
	TASK\WRITE  START0'I'$
	TASK\WRITE  SUBSF0'I'$
   ELSE
	TASK\WRITE  FUNCT'I'$
	TASK\WRITE  PARAM'I'$
	TASK\WRITE  RANGE'I'$
	TASK\WRITE  START'I'$
	TASK\WRITE  SUBSF'I'$
   ENDIF
NEXT
TASK\WRITE  RESULT$
TASK\WRITE  RESIDUALS$
TASK\GO
