'---[ Define stack space required ]--------------------------------------------
$hwstack = 40 'from the stack analysis
$swstack = 12
$framesize = 24
declare sub Test(byval txt as Byte)

$crystal = 11059200
$regfile = "m32def.dat"
$baud = 9600
Config Serialin = Buffered , Size = 10
Dim Serialchar As Byte

Enable Interrupts

Do
While Ischarwaiting() <> 0
  Serialchar = Inkey()
   print ;chr(serialchar);
wend
Loop
End
 

if Cr then
        check if buffer is empty
        If buffer empty then
             ignore cr, carry on listening to rs232
        elseif buffer= OK then
             set OK flag or whatever
        else
             take buffer into received-string and work with received-string
        end if
elseif not LF
       buffer=buffer + received character
end if