**********************************
* CREATION DES NOUVEAUX FICHIERS *
*                                *
* DECEMBRE 1999         STEPHANE *
**********************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","NEWFILE" TO F.NEWFILE ELSE 
    PRINT "LE FICHIER 'NEWFILE' N'EXISTE PAS"
    STOP
END

READ ENR_NEWFILE FROM F.NEWFILE,"1" ELSE
     STOP
END

I=1
LOOP
     UNTIL ENR_NEWFILE<I>="" DO 

     EXECUTE 'CREATE.FILE ':ENR_NEWFILE<I>:' 1,1'

     I=I+1
REPEAT

STOP
