; MULBLNK
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Sostituisce ogni spazio con due spazi; aggiunge: due spazi prima
; e dopo ciascuna linea, due spazi dopo '(', due spazi prima di ')',
; due spazi prima e dopo ','.
; Se eseguito su un programma Proteus corretto, produce un programma
; Proteus valido, che quando eseguito produce lo stesso output del
; programma originale, eccetto per le stringhe (che aumentano di
; dimensione).

FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Sintassi: " ARGV(1) " " ARGV(2) " sorgente destinazione"
    CONSOLELN ""
    CONSOLELN "Scopo: moltiplica gli spazi in sorgente"
    ABORT 0
  FI
RETURN

NL = STRTRAN(L, " ", "  ")
NL = STRTRAN(NL, "(", "(  ")
NL = STRTRAN(NL, ")", "  )")
NL = STRTRAN(NL, ",", "  ,  ")
PRINTLN "  " NL "  "