; SNGBLNK
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Linea bianca singola.
;
; Sostituisce righe bianche multiple con una singola linea bianca.

; Inizializza
FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " sorgente destinazione"
    CONSOLELN ""
    CONSOLELN "Scopo: sostituisce righe bianche multiple con righe singole"
    ABORT 0
  FI
  _PrevB = 0
RETURN


IF ISEMPTY(L)
  IF NOT(PrevB)
    PRINTLN L
  FI
  SET PrevB = 1
ELSE
  PRINTLN L
  SET PrevB = 0
FI