Und kann ich readeprom und writeeprom verwenden.
Natürlich kannst du das. Aber wofür?

Also wie kriege ich die Ziffer hin 100ter,10ner,1ner.
A=0
A=A+100 'A ist 100
A=A+20 'A ist 120
A=A+3 'A ist 123



Dim A As Byte


Do

If Pind.1 = 1 Then
A = 100
Gosub L2
End If

Print A
If A = 123 Then Print "Rechts" Else Print "Links"

Wait 3

Loop

L2:

Do
If Pind.2 = 1 Then A = A + 23
If Pind.3 = 1 Then A = A + 32
Loop Until A > 100
Return