XProfan

Proc turn round :parameters T$[]

    var n&=sizeof(t $[]):case n&<1:return
    declare tmp$

    Whileloop 0,(n&-1)/2

        tmp$=T$[&Loop]:T$[&Loop]=T$[n&-&Loop-1]:T$[n&-&Loop-1]=tmp$

    endwhile

endproc

Window Title "Proc-Test: LISTE UMKEHREN"
cls
Declare T$[]
SetValues(T$[])
spending(T$[])
turn round(T$[])
spending(T$[])
turn round(T$[])
spending(T$[])
waitinput
End

Proc SetValues :parameters T$[]

    T$[0]="a":T$[1]="b":T$[2]="c":T$[3]="d"':T$[4]="e"

Endproc

Proc spending :parameters T$[]

    var n&=sizeof(t $[]):case n&=0:return

    whileloop 0,n&-1

        print t$[&Loop],
        endwhile:print

    endproc