start

let B = %0101100

main:
            if inputs = %xxx0001x then gosub choose_A
            if inputs = %xxx0010x then gosub choose_B
            if inputs = %xxx0100x then gosub choose_C
            if inputs = %xxx1000x then gosub choose_D
            goto main
            
choose_A:
            let A = B + %00
            gosub transmit
            return
choose_B:
            let A = B + %01
            gosub transmit
            return
choose_C:
            let A = B + %10
            gosub transmit
            return
choose_D:
            let A = B + %11
            gosub transmit
            return

transmit:

            for I = 1 to 5
                irout A, 1, 0
                pause 45
                next I
            return