SIC SAVE

###
SIC SAVE

            [SIC\]SIC SAVE [FileName Symbol]

        This  is  a  specific  command (currently) used by the ALMA simulator to
        copy into an output file (a procedure) the name of any newly defined SIC
        variable, prefixed by whatever Symbol is given here.

        Without argument, just closes the current "save" file.

        Can be used whenever you need to apply different actions to the same set
        of variables, or get two sets of variables with similar names (one  pre-
        fixed,  the  other not) e.g. to store default values or last values. Re-
        defining the Symbol and executing the created procedure will do the  de-
        sired job on the list of variables defined when SIC SAVE was active...

           sic save define_all TOTO
           define a Bunch Of Variables Here /global ! Only global stuff, though...
           sic save
           !
           symbol TOTO "EXA &1 "   ! Examine the Variable name
           @ gag_proc:define_all   ! for all variables in this list...
           !
           sic output init_all.sic
           symbol TOTO "@ sicvar_init"   ! Look into gag_pro:clone_var.sic
           @ gag_proc:define_all         ! for further explanation
           sic output
           @ init_all.sic                ! Initialize them
           !
           define structure CLONE% /global
           sic output clone_all.sic
           symbol TOTO "@ sicvar_clone CLONE% "   ! Will actually create a
           @ gag_proc:define_all         ! copy of all variables into structure CLON
           sic output
           symbol TOTO continue
           @ clone_all.sic                ! Duplicate them into CLONE% structure