XProfan

SubProc Get.1

    Paramètres Zahl&
    Retour (Zahl& Mod 10)

ENDPROC

SubProc Get.10

    Paramètres Zahl&
    Retour ((Zahl& Mod 100) - (Zahl& Mod 10)) \ 10

ENDPROC

SubProc Get.100

    Paramètres Zahl&
    Retour ((Zahl& Mod 1000) - (Zahl& Mod 100)) \ 100

ENDPROC

SubProc Get.1000

    Paramètres Zahl&
    Retour ((Zahl& Mod 10000) - (Zahl& Mod 1000)) \ 1000

ENDPROC

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

SubProc Get.numéro

    ' index angeben comme 1 ou bien 2, 3 usw.
    Paramètres Ind%,Zahl&
    Déclarer tmp1&,tmp2&,tmp3&
    tmp1& = 10^Ind%
    tmp2& = 10 ^(Ind%-1)
    Retour ((Zahl& Mod tmp1&) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC

'cela peux on ad infinitum weiteführen ou bien une felexible Procédure daraus faire
'qui numéro hinten, avec cela on dans einer Headerdatei z. B Zehner( = Get("Nombre",2,; définir peux
Imprimer "34567 Flexible Funktion"

WhileLoop 4

    Imprimer Get("Nombre",&Boucle,34567),

Wend

Imprimer
WaitInput
'ou bien entier brachial comme Stringauswertung
'hat den Vorteil, dass on beliebig grand payons transfert peux

Proc ZahlenStelle

    Paramètres numéro$,index%
    Retour Mid $(numéro$,-index%,1)

ENDPROC

Imprimer
Imprimer "144545678844356 Auswertung comme String"

WhileLoop 13

    Imprimer ZahlenStelle(144545678844356,&Boucle),

Wend

Imprimer
Imprimer "Auch andersherum"

WhileLoop 13

    Imprimer ZahlenStelle(144545678844356,-&Boucle),

Wend

WaitInput

SubProc Get.numéro

    ' index angeben comme 1 ou bien 2, 3 usw.
    Paramètres Ind%,Zahl&
    Déclarer tmp2&
    tmp2& = 10 ^(Ind%-1)
    Retour ((Zahl& Mod (10^Ind%)) - (Zahl& Mod tmp2&)) \ tmp2&

ENDPROC