; TOMAC
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Trasforma un file di testo in qualunque formato al formato
; Macintosh™ (EOL = CR).

FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " sorgente destinazione"
    CONSOLELN ""
    CONSOLELN "Scopo: trasforma un file di testo in testo Macintosh™"
    ABORT 0
  FI
  _EOL = "\r"
RETURN

PRINTLN L