Falls du später nicht nur ein Zeichen empfangen musst, könntest du vielleicht so vorgehen (ungetestet):
mfgCode:dim buffer as string * 10 dim buffer_byte(10) as byte at buffer overlay dim counter as byte ... buffer = string(0, 10) counter = 0 do A = Inkey(#1) if A > 0 then incr counter if counter > 10 then ' Fehler '... end if buffer_byte(counter) = A end if loop until A = 0 if counter > 0 then 'tu etwas mit dem buffer ... end if ...
Gerold
![]()
Lesezeichen