Define Test1()
PrintLn('This is a function with no parameters.');
For I := 1 To 10 Do
Print(I^2,' ');
EndFor;
EndDefine;
Test1();
This is a function with no parameters.
1 4 9 16 25 36 49 64 81 100
-------------------------------
Define Test2(...) -- a variable number of parameters
If Len(ARGV) = 0 Then -- parameters are stored in the list ARGV
Return 'Wrong number of parameters';
Elsif Len(ARGV) = 1 Then
Print('There is 1 parameter: ',ARGV[1]);
Else
Print('There are ',Len(ARGV),' parameters: ');
Foreach P In ARGV Do
Print(P,' ');
EndForeach;
EndIf;
EndDefine;
Test2(1,2,'string',3);
There are 4 parameters: 1 2 string 3
-------------------------------
|