XProfan

!
Def $SAGA_sgIt "AutoPaint,Decimals,ErrorLevel,Escape,FastMode,FileMode,MessageMode,NumWidth,PDC,RandSeed,StrWidth,TrueColor"

Proc SetAll

    Parameters SA_In$

    WhileLoop 1,12,1

        Set(SubStr$($SAGA_sgIt,&Loop,","),Val(SubStr$(SA_In$,&Loop,",")))

    EndWhile

EndProc

Proc GetAll

    Declare GA_Erg$

    WhileLoop 1,12,1

        Case    (&Loop = 1): GA_Erg$ = Str$(Get(SubStr$($SAGA_sgIt,&Loop,",")))
        CaseNot (&Loop = 1): GA_Erg$ = (GA_Erg$ + "," + Str$(Get(SubStr$($SAGA_sgIt,&Loop,","))))

    EndWhile

    Return GA_Erg$

EndProc

Cls
Print ("GetAll(): " + GetAll() + "   Normal")
SetAll("2,6,1,1,1,2,1,0,2,2,4,1")
Print
Print ("GetAll(): " + GetAll() + "   Neu")
WaitInput
End