| Example REMBLNK.PRT |
; REMBLNK
;
; Program for Proteus
;
; (C) 1998-2004 Simone Zanella Productions
;
; Remove all blank and empty lines.
FUNCTION ONSTART()
IF STREQ(ARGV(3), "..")
CONSOLELN "Syntax: " ARGV(1) " " ARGV(2) " source destination"
CONSOLELN ""
CONSOLELN "Purpose: remove all blank and empty lines from source"
ABORT 0
FI
RETURN
IF ISNOTEMPTY(L)
PRINTLN L
FI
| Samples index | Next example | Previous example | Contents | Index |