XProfan

Proc Umkehren :parámetros T$[]

    var n&=sizeof(t$[]):caso n&<1:volver
    declarar tmp$

    Whileloop 0,(n&-1)/2

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

    endwhile

ENDPROC

Título de la ventana "Proc-Test: LISTE UMKEHREN"
cls
Declarar T$[]
SetValues(T$[])
Edición(T$[])
Umkehren(T$[])
Edición(T$[])
Umkehren(T$[])
Edición(T$[])
waitinput
End

Proc SetValues :parámetros T$[]

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

ENDPROC

Proc Edición :parámetros T$[]

    var n&=sizeof(t$[]):caso n&=0:volver

    whileloop 0,n&-1

        imprimir t$[&Loop],
        endwhile:imprimir

    ENDPROC