| Example TODOS.PRT |
; TODOS
;
; Program per Proteus
;
; (C) 1998-2004 Simone Zanella Productions
;
; Transform to Dos (EOL = CR + LF) a text file in any format.
FUNCTION ONSTART()
IF STREQ(ARGV(3), "..")
CONSOLELN "Syntax: " ARGV(1) " " ARGV(2) " source destination"
CONSOLELN ""
CONSOLELN "Purpose: transform to Dos a text file in any format"
ABORT 0
FI
_EOL = "\r\n"
RETURN
PRINTLN L
| Samples index | Next example | Previous example | Contents | Index |