Contador de eventos hasta 9999

Con este proyecto se puede llevar una cuenta de cualquier tipo de eventos, en este caso el contador se activa con un push botton, una aplicación puede ser en un torniquete, donde se cuenta digitalmente cuantas personas han pasado, entre otras.

El programa es el siguiente:
let b1=0
let b2=0
let b3=0
let b4=0
main:                                'Aquí se imprime el número guardado en las variables b1 a b4        
  let b0=128
  let pins=b0|b4
  let b0=64
  let pins=b0|b3
  let b0=32
  let pins=b0|b2
  let b0=16
  let pins=b0|b1
  if input0 is on then otra              'Esperamos a que se presione el botón   
goto main

otra:
  if input0 is off then una             ' Esperamos a que deje de presionar el botón        
goto otra

una:                                           ' Se incrementa el contador de unidades en 1  
  inc b1
  if b1=10 then                          ' Si la unidad llega al diez, que se reinicie en 0            
    let b1=0                               '  y que incremente a las decenas en 1
    inc b2
  endif
  if b2>9 then                           ' Si las decenas llegan a diez, que se reinicie en 0 
    let b2=0                               ' y que incremente a las centenas en 1
    inc b3
  endif
  if b3>9 then                           ' Si las centenas llegan a diez, que se reinicie en 0
    let b3=0                               '  y que incremente a las milésimas en 1
    inc b4
  endif
  if b4>9 then                            ' Si las milésimas llegan a diez, que se reinicie todo
    let b4=0
  endif
goto main