'Laser Transmitter
func main()
  dim x
  sersetup baud,7000
  output 1
  high 1


loop:
  for x = 65 to 90
   serout 1,x
  next

  goto loop
  


endfunc