Here is some sample code. I do not know if this what you need to achieve. Of course a parameter will have to be created (I called mine counter),
numbervar array values;
redim values[{?counter}];
numbervar initial := 40000;
numbervar i;
stringvar resultstr;
i:= 1;
while i <= {?counter}
do
(
initial := initial + 1;
values := initial;
i:= i +1
);
i:= 1;
while i <= {?counter}
do
(
resultstr := resultstr + chr(13) + cstr(values);
i := i +1;
);
right(resultstr, len(resultstr) -1)