Nun, so soll es halt sein:
Du kriegst deine Zahlen ascii-Zeichenweise, also mußt du sie zusammenbauen. Ich schreib nur das Wesentliche
Code:
Dim Inint As Integer 
dim Vz as integer
dim Inchar as byte

On Urxc Onrxd 
Enable Urxc 
Enable Interrupts 

Inint = 0
VZ = 1

Do 
   if inchar = 13 then         ' sonst dreht er wilde Schleifen
         print "Speed=" ; S 
   end if
Loop 

End ' end gehört eigentlich hierher

Onrxd: 
   inchar = UDR
   if inchar = 13 then   ' <ENTER> d.h. fertig, input nach S
      s = inint * VZ      ' vorzeichen berücksichtigen
      inint = 0              ' fürs nächste
      VZ = 1              ' fürs nächste
  elseif
      inchar = 45 then   ' "-"  d.h. negative Zahl
      VZ = VZ * -1
 else
     inint = inint * 10   ' rüberrücken
     inchar = inchar AND 15  ' ascii --> binär
     inint = inint + inchar    ' einerstelle dazu
  end if
Return
Vorsicht, es erfolgt keine Prüfung, ob wirklich 0-9 eingegeben wird,
auch nicht, ob mehrere Vorzeichen kommen.
Ich hoff', ich hab mich nicht verschrieben