XProfan

' XProfan X3.1
' 3 dyn. Arrays
Declare long arr_1[], arr_2[], arr_3[]
cls
' Übergabe and Return one Arrays
' (what so employed becomes, is here unwichtig)

Proc Test

    parameters long arr[]
    return arr[]

endproc

' beget values in the aray 1
arr_1[] = 1,4,17,4,9,8,3,4,17
' copy aray
arr_2[] = arr_1[]
Print "\n-aray 1"

whileloop 0, sizeof(arr_1[]) - 1

    print &loop,arr_1[&loop]

endwhile

Print "- *"
Print "\n-aray 2 (watts from array 1 prepares)"

whileloop 0, sizeof(arr_2[]) - 1

    print &loop,arr_2[&loop]

endwhile

Print "- *"
waitinput
' create aray 3 (Data from Unterprogramm)
arr_3[] = Test( arr_1[] )
Print "\n-aray 3 (watts from Unterprogramm loaded)"

whileloop 0, sizeof(arr_3[]) - 1

    print &loop,arr_3[&loop]

endwhile

Print "- *"
Print "\n-aray 1 (---Nanu---)"

whileloop 0, sizeof(arr_1[]) - 1

    print &loop,arr_1[&loop]

endwhile

Print "- *"
waitend