' Name        : BUTX18.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : PIC16F88 or similar
' Hardware    : LAB-X18 Experimenter Board
' Oscillator  : 4MHz external crystal
' Keywords    : IF THEN
' Description : PICBASIC PRO program to show button press on LED.
'

   ANSEL = 0         ' PORTA is digital
   CMCON = 7         ' PORTA to digital
   OPTION_REG = $7f  ' Enable PORTB pull-ups
   TRISB = %11111110 ' Set PORTB.0 (LED) to output, rest to input

loops:
   PORTB = 0         ' Turn off LED
   If PORTB.7 = 0 Then ' If button pressed...
      PORTB.0 = 1    ' Turn on LED
   Endif
   Pause 2           ' Pause 2mS
   Goto loops        ' Do it forever

   End