Also, wenn der 162 Pinkompatibel ist (?), kannst du ihn reintun.
versuche:
Code:
  .......dein code etc
   ' ---------- bis hierhin funktioniert alles ------------------------
 DIM instring as string * 8
 DIM Inchar(8) as byte at instring overlay
 DIM inidx as byte

  inidx = 0
  do 
          incr inidx
          X = Inkey(#2)
          inchar(inidx) = X
   while  X > 0                        

   Print "<";Instring;">Len:";inidx
Kann ich jetzt nicht testen, sollte aber gehen