CON

  _clkmode = xtal1 + pll16x
  _xinfreq = 5_000_000

VAR

  long count

OBJ

  usb : "USB_Serial_003" ' Uses USB_LowLevel_006

PUB Main

  SendOnly

PRI SendOnly

  usb.Start
  PauseMs(20000)
  repeat
    usb.Dec(count++)
    usb.Tx(" ")
    PauseMs(500)
    
PRI EchoLoop

  usb.Start
  repeat
     usb.tx("<")
     usb.tx( usb.rx )
     usb.tx(">")

PRI PauseMs( mS )

  waitcnt( ( ( clkfreq / 1000 ) * mS ) + CNT )
     