/*  (gH)   --  numerote.rex  ;  TimeStamp (unix) : 02 Juillet 01 13:07 */

/* numérotation des lignes d'un fichier */

parse arg nomFic .

if nomFic = "" then do
   say
   say " syntaxe : numerote nom_de_fichier "
   say
   exit
end

numlig = 0
do while lines(nomFic) > 0
   numlig = numlig  + 1
   ligne = linein( nomFic)
   say formatZero(numlig,4)  "   " ligne
end

exit

formatZero: procedure
parse arg numer , longr
chFmt = numer
do while length(chFmt) < longr
   chFmt = "0"||chFmt
end
return chFmt