; LINER
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Copia ogni linea, aggiungendovi a sinistra il suo rispettivo
; numero.

FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " sorgente destinazione"
    CONSOLELN ""
    CONSOLELN "Scopo: premette il numero di linea ad ogni linea di sorgente"
    ABORT 0
  FI
RETURN

FUNCTION ONEND()

  ; Prima, determina il numero di linee nel file; al termine,
  ; lo riapre e rilegge ciascuna riga, prefiggendovi il suo numero
  ; in modo che ogni linea nel nuovo file inizi alla stessa colonna
  h = FOPEN(ARGV(3), 1)
  m = STRLEN(PUB(N))
  nn = 1
  IF NEQ(h, -1)
    WHILE NOT(FEOF(h))
      PRINTLN PADL(nn, m, "0") ": " FREADLN(h)
      INC(@nn)
    LOOP
    FCLOSE(h)
  FI
RETURN