; MULBLNK
;
; Program for Proteus
;
; (C) 1998-2004 Simone Zanella Productions
;
; Replace each space with two spaces; add: two spaces before and after each line,
; two spaces after '(', two spaces after ')', two spaces before and after ','.
; When run against a correct Proteus program, outputs a valid Proteus program that,
; when executed, produces the same results as the original, except for strings
; (whose size increases).

FUNCTION ONSTART()

  IF STREQ(ARGV(3), "..")
    CONSOLELN "Syntax: " ARGV(1) " " ARGV(2) " source destination"
    CONSOLELN ""
    CONSOLELN "Purpose: multiply spaces in source"
    ABORT 0
  FI
RETURN

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