; SNGBLNK
;
; Program for Proteus
;
; (C) 1998-2004 Simone Zanella Productions
;
; Single blank line.
;
; Replace multiple blank lines with a single blank line.

; Start up
FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Syntax: " ARGV(1) " " ARGV(2) " source destination"
    CONSOLELN ""
    CONSOLELN "Purpose: replace multiple blank lines with a single blank line"
    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