include "BS2DEFS.BAS"
main
cmcon = 7 ;convierte todo el puerto A en Digital
Trisb = 0 ; hace todos los pines del puerto B como salidas
boton VAR PORTA.1 ;asigna el nombre de botón al puerto A.1
num VAR BYTE ;crea la variable num con un tamaño de 255
num = 0 ;carga el valor inicial de 0 a la variable num
pulsar:
portb=num ;indica sacar el valor de num a través del puerto B
IF boton=0 THEN contar ;pregunta si el botón ha sido presionado
GOTO pulsar ;ir a pulsar, mantiene encerrado
contar:
IF boton=0 THEN contar ;espera a que suelte el botón para continuar
PAUSE 200 ; espera de 200 mls para estabilizar el botón
num=num + 1 ;suma 1 a la variable num y el nuevo valor le guarda en num
GOTO pulsar ;volver al principio del programa
END ;fin de la programación