Ich habs jetzt über eine if anweisung gemacht....

Do
E = Getatkbd()

If E = 48 Then Num1x = 0
If E = 49 Then Num1x = 1
If E = 50 Then Num1x = 2
If E = 51 Then Num1x = 3
If E = 52 Then Num1x = 4
If E = 53 Then Num1x = 5
If E = 54 Then Num1x = 6
If E = 55 Then Num1x = 7
If E = 56 Then Num1x = 8
If E = 57 Then Num1x = 9
If E = 0 Then Loop Else Nop

...das dann dreimal und hinterher addieren und dann klappts........
Grüsse und Gute Nacht