TRISC = 0 Define SEROUT_DELAYUS = 500 Dim i As Byte 'declare a variable 'WaitMs 1000 'this delay should be used in a real device i = 64 loop: Serout PORTB.1, 9600, #i, CrLf 'send formatted output to PORTB.1 (TX line of software UART) 'WaitMs 500 'this delay should be used in a real device Goto loop 'loop forever