XProfan

SubProc Get.1

    Parámetros Zahl&
    Volver (Zahl& Mod 10)

ENDPROC

SubProc Get.10

    Parámetros Zahl&
    Volver ((Zahl& Mod 100) - (Zahl& Mod 10)) \ 10

ENDPROC

SubProc Get.100

    Parámetros Zahl&
    Volver ((Zahl& Mod 1000) - (Zahl& Mod 100)) \ 100

ENDPROC

SubProc Get.1000

    Parámetros Zahl&
    Volver ((Zahl& Mod 10000) - (Zahl& Mod 1000)) \ 1000

ENDPROC

Imprimir "34567 viele Einzelfunktionen"
Imprimir Get("1",34567)
Imprimir Get("10",34567)
Imprimir Get("100",34567)
Imprimir Get("1000",34567)
Imprimir
WaitInput

SubProc Get.Zahl

    ' Index angeben como 1 oder 2, 3 usw.
    Parámetros Ind%,Zahl&
    Declarar tmp1&,tmp2&,tmp3&
    tmp1& = 10^Ind%
    tmp2& = 10 ^(Ind%-1)
    Volver ((Zahl& Mod tmp1&) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

'Das puede ser ad infinitum weiteführen oder una felexible Procedimiento lo hacer
'El Zahl hinten, así uno en uno Headerdatei z. B Zehner( = Get("Zahl",2,; definieren kann
Imprimir "34567 Flexible Funktion"

WhileLoop 4

    Imprimir Get("Zahl",&Loop,34567),

Wend

Imprimir
WaitInput
'oder bastante brachial como Stringauswertung
'ha el Vorteil, dass uno cualquier große Pagar transferencia kann

Proc ZahlenStelle

    Parámetros Zahl$,Index%
    Volver Mid$(Zahl$,-Index%,1)

ENDPROC

Imprimir
Imprimir "144545678844356 Auswertung como String"

WhileLoop 13

    Imprimir ZahlenStelle(144545678844356,&Loop),

Wend

Imprimir
Imprimir "Auch andersherum"

WhileLoop 13

    Imprimir ZahlenStelle(144545678844356,-&Loop),

Wend

WaitInput

SubProc Get.Zahl

    ' Index angeben como 1 oder 2, 3 usw.
    Parámetros Ind%,Zahl&
    Declarar tmp2&
    tmp2& = 10 ^(Ind%-1)
    Volver ((Zahl& Mod (10^Ind%)) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC