XProfan

Proc Umkehren :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

WindowTitle "Proc-Test: LISTE UMKEHREN"
cls
Declare T$[]
SetValues(T$[])
Ausgabe(T$[])
Umkehren(T$[])
Ausgabe(T$[])
Umkehren(T$[])
Ausgabe(T$[])
waitinput
End

Proc SetValues :parameters T$[]

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

Endproc

Proc Ausgabe :parameters T$[]

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

    whileloop 0,n&-1

        print t$[&Loop],
        endwhile:print

    endproc