document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. include "BS2DEFS.BAS"
  2. main
  3. cmcon = 7 ;convierte todo el puerto A en Digital
  4. Trisb = 0 ; hace todos los pines del puerto B como salidas
  5. boton VAR PORTA.1 ;asigna el nombre de botón al puerto A.1
  6. num VAR BYTE ;crea la variable num con un tamaño de 255
  7. num = 0 ;carga el valor inicial de 0 a la variable num
  8. pulsar:
  9. portb=num ;indica sacar el valor de num a través del puerto B
  10. IF boton=0 THEN contar ;pregunta si el botón ha sido presionado
  11. GOTO pulsar ;ir a pulsar, mantiene encerrado
  12. contar:
  13. IF boton=0 THEN contar ;espera a que suelte el botón para continuar
  14. PAUSE 200 ; espera de 200 mls para estabilizar el botón
  15. num=num + 1 ;suma 1 a la variable num y el nuevo valor le guarda en num
  16. GOTO pulsar ;volver al principio del programa
  17. END ;fin de la programación
');