XProfan

cls
print catchparams()
waitkey
end

catchparams{

    if parcount {

        string s

        whileloop parcount {

            s:=s+par$(loop)+

        }

        return trim$(s)

    }

    return

}

proc CatchParams

    if %ParCount

        declare s$

        whileloop %ParCount

            s$ = s$ + Par$(&loop) +

        EndWhile

        s$ = Trim$(s$)
        return s$

    else

        return

    endif

endproc

cls
print catchparams()
waitinput
end