; DENUM
;
; Programma per Proteus
;
; (C) 2003 Simone Zanella Productions
;
; Rimuove tutti i numeri di riga dal file sorgente, scrivendo il risultato sulla destinazione.
; Il programma sorgente dovrà essere un file BASIC con numeri di riga.

#!proteus -z

IF LT(ARGC, 6)
  CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " sorgente destinazione"
  CONSOLELN ""
  CONSOLELN "Scopo: rimuove tutti i numeri di linea dal file sorgente, scrivendo"
  CONSOLELN "il risultato sul file destinazione."
  ABORT 0
FI  

H = FOPEN(ARGV(5), 1)
D = FOPEN(ARGV(6), 28)
WHILE NOT(FEOF(H))
  L = FREADLN(H)
  IF ISDIGIT(TOKEN(L, 1, " "))
    FWRITELN(D, RESTFROM(L, POSTOKEN(L, 2, " ")))
  ELSE
    FWRITELN(D, L)
  FI
LOOP
FCLOSE(H)
FCLOSE(D)

ABORT 0