how do i return multiple datasets

I am currently using FlexPro Demo.
The first simple script i wrote is appended below.
I am trying to get all slopes from two datasets and evaluate the position and the time-shift between the two datasets. As result i get the Position and the time-shift as a list of values.
How do i return both lists as two new dataset ?

Dim Array1,Array2,Position,Difference
Dim i,a,b,c

Array1=Slopes(‘DSS 1 SI’, 2, 1, 1, EVENT_POSITIVE)
Array2=Slopes(‘DSS 1 SI’, 2, 1, 1, EVENT_NEGATIVE)

a=NumberOfRows(Liste1);
b=NumberOfRows(Liste2);
if a>b Then
c=b
else
c=a
End

Position=0#2#(c+5)
Difference=0#(c+5)

FOR i = 0 TO c-1 DO
Position[i][0]=Array1[i]
Position[i][1]=Array2[i]
Difference[i]=Liste2[i]-Liste1[i]
END
Return Signal(Position,0.1),Signal(Difference,0.1)]