*************************************************
*   MOULINETTE DE TEST DE LONGUEUR DE FICHIER   *
*************************************************

PRINT "DONNER LE NOM DU FICHIER ? "
INPUT FIC
PRINT "DONNER LE NOM DE L'ARTICLE ? "
INPUT ART
PRINT "DONNER LA LONGUEUR D'UNE OCCURENCE ? "
INPUT LONG

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "" , FIC TO F.FIC ELSE
   PRINT "Rpertoire ":FIC:" non trouv"
   STOP
END

READ FIC FROM F.FIC ,ART ELSE
  PRINT "Fichier ":ART:" non trouv"
  STOP
END

LIGNE = 1
ERR = 0
LOOP
WHILE FIC<LIGNE> # "" DO

	IF LEN(FIC<LIGNE>) # LONG THEN
		PRINT 'LA LIGNE ':LIGNE:' NE CORRESPOND PAS A LA TAILLE DEMANDE'
		ERR = ERR + 1
	END
	
	LIGNE = LIGNE + 1

REPEAT
LIGNE = LIGNE - 1
PRINT "Termin"
PRINT LIGNE:" lignes verifiees, ":ERR:" ne faisaient pas la bonne taille."
STOP
