PUB LED   | count

  dira[0..4]~~
  dira[16..25]~
  outa[0]~~
  repeat
    if ina[16]
      outa[1]~~
    else
      outa[1]~
    if ina[17]
      outa[2]~~
    else
      outa[2]~
    if ina[18]
      outa[3]~~
    else
      outa[3]~
    if ina[19]
      repeat count from 1 to 10
        !outa[4]
        waitcnt(clkfreq /10 + cnt)
      outa[4]~
    if ina[20]
      repeat count from 1 to 10
        !outa[1]
        waitcnt(clkfreq /10 + cnt)
      outa[1]~
    if ina[21]
      repeat count from 1 to 10
        !outa[2]
        waitcnt(clkfreq /20 + cnt)
      outa[2]~
    if ina[22]
      repeat while ina[22]
        outa[1..4]~~
        waitcnt(clkfreq /9 + cnt)
        outa[1..4]~
        waitcnt(clkfreq /15 + cnt)
    if ina[23]
      repeat while ina[23]
        outa[2..3]~~
        waitcnt(clkfreq /8 + cnt)
        outa[1..4]~
        waitcnt(clkfreq /5 + cnt)
    if ina[24]
       repeat while ina[24]
         repeat count from 1 to 4
          outa[count]~~
           waitcnt(clkfreq /5 + cnt)
           outa[count]~
           waitcnt(clkfreq /5 + cnt)
    if ina[25]
      repeat while ina[25]
        outa[4]~~
        outa[3]~
        repeat while ina[25]
          waitcnt(clkfreq/3 +cnt)
          !outa[4]
          !outa[3]