'Entstanden bei dem Versuch, das Programm von Mao auf www.freeBASIC-Portal.de
'als rekursive Funktion zu programmieren, es blieb bei diesem Versuch
'Das Programm summiert die einzelne Ziffern einer (uLongInt-)Zahl auf
Declare Function QuerSumme(Zahl As uLongInt) As uLongInt
Dim Zahl As uLongInt=313373

Function QuerSumme(byVal i As uLongInt) As uLongInt
  Dim zs As String=Str(i), Erg As uLongInt
  For i=0 To Len(zs)-1
    Erg+=Val(Chr(zs[i]))
  Next
  Return Erg
End Function

Print "Quersumme von " &Zahl &"=" &QuerSumme(Zahl);
GetKey
End