Ok I found several errors in the last one I posted so here is the newest code revision

Code:
sub procedure Send()
    porta.0 = 1
    
    portc.2 = 1
    error1 = Soft_UART_Init(PORTC,0, 5, 9600, 0)
    delay_ms(3)
    soft_uart_write("@")
    for i = 0 to 5
        delay_us(300)
        soft_uart_write(Coxa[i])
    next i
    portc.2 = 0
    
    portc.1 = 1
    error1 = Soft_UART_Init(PORTC,2, 4, 9600, 0)
    delay_ms(3)
    soft_uart_write("@")
    for i = 0 to 5
        delay_us(300)
        soft_uart_write(Thigh[i])
    next i
    portc.1 = 0
    portc.0 = 1
    error1 = Soft_UART_Init(PORTC,1, 3, 9600, 0)
    delay_ms(3)
    soft_uart_write("@")
    for i = 0 to 5
           delay_us(300)
        soft_uart_write(Tibia[i])
    next i
    portc.0 = 0
    
    porta.0 = 0
    return
end sub