Graphics 800,600,32,2

zahl1$=Input("Zahl1: ")
zahl2$=Input("Zahl2: ")

Text 10,40,"Zahl1 + Zahl2 = "+addieren(zahl1$,zahl2$)
WaitKey


;---
Function addieren(a$,b$)

l1=Len(a$)
l2=Len(b$)
If l1<l2 Then
   l=l1:l1=l2:l2=l             ;stellt sicher, dass l1 und a$ stets die größere Zahl enthält
   c$=a$:a$=b$:b$=c$
End If
If l2<l1 Then
   c$=""
   For oft=1 To l1-l2            ;die kürzere der Zahlen (jetzt b$) vorne mit 0en ausfüllen
      c$=c$+"0"
   Next
   b$=c$+b$
End If

For pos = 1 To l1-1 Step 1         ;addiert von l nach r stellenweise
   za1$=Mid(a$,pos+1,1)
   zb1$=Mid(b$,pos+1,1)
   aim1=Int(za1$)+Int(zb1$)
   If aim1 => 10 Then ue=1
   If aim1 < 10 Then ue=0
   za2$=Mid(a$,pos,1)
   zb2$=Mid(b$,pos,1)
   aim2=Int(za2$)+Int(zb2$)+ue
   aim$=aim$+Right(Str(aim2),1)
Next
aim$=aim$+Right(Str(aim1),1)
Return aim$

End Function