'Dios IR Demo 1
func main()
loop:
    readbits()
    goto loop
endfunc

func readbits()
    input 1
   
    const irpin 3

    dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10
    dim b11,b12,b13,b14,b15,b16,b17,b18,b19,b20
    dim b21,b22,b23,b24,b25,b26,b27,b28,b29,b30

    pulsein irpin,0,9000,b1
    pulsein irpin,0,9000,b2
    pulsein irpin,0,9000,b3
    pulsein irpin,0,9000,b4
    pulsein irpin,0,9000,b5
    pulsein irpin,0,9000,b6
    pulsein irpin,0,9000,b7
    pulsein irpin,0,9000,b8
    pulsein irpin,0,9000,b9
    pulsein irpin,0,9000,b10
    pulsein irpin,0,9000,b11
    pulsein irpin,0,9000,b12
    pulsein irpin,0,9000,b13
    pulsein irpin,0,9000,b14
    pulsein irpin,0,9000,b15
    pulsein irpin,0,9000,b16
    pulsein irpin,0,9000,b17
    pulsein irpin,0,9000,b18
    pulsein irpin,0,9000,b19
    pulsein irpin,0,9000,b20
    pulsein irpin,0,9000,b21
    pulsein irpin,0,9000,b22
    pulsein irpin,0,9000,b23
    pulsein irpin,0,9000,b24
    pulsein irpin,0,9000,b25
    pulsein irpin,0,9000,b26
    pulsein irpin,0,9000,b27
    pulsein irpin,0,9000,b28
    pulsein irpin,0,9000,b29
    pulsein irpin,0,9000,b30

'Now display the data
    print {05} b1," ", b2," ", b3," ", b4," ", b5," ",b6," ", b7," ", b8," ", b9," ", b10
    print  b11," ", b12," ", b13," ", b14," ", b15," ",b16," ", b17," ", b18," ", b19," ", b20
    print  b21," ", b22," ", b23," ", b24," ", b25," ",b26," ", b27," ", b28," ", b29," ", b30

endfunc