'Laser Reciever
func main()
   dim x
   sersetup baud,7000,inwait,65000

again:  
   
   serin 0,again,x
   debug x
   goto again

endfunc