'{$STAMP BS2}
'{$PBASIC 2.5}

counter VAR Word
BUT VAR Byte
DIR VAR Byte

but1 VAR Byte
but2 VAR Byte
but3 VAR Byte
but4 VAR Byte
but5 VAR Byte
but6 VAR Byte
but7 VAR Byte
but8 VAR Byte



SYNCH CON "A"    'Establish synchronization byte
'BAUD  CON 16780  'N2400 baud (MAX)
BAUD  CON 6  'N2400 baud (MAX)
DAT   VAR Byte   'Data storage variable
DIRH = %11111111 'All outputs

START:
   DEBUG "At start"
'  SERIN 0,BAUD,[WAIT(SYNCH),DAT]
'  DEBUG "hello2"
'  SERIN 16,84,[BUT, DIR]
'  SERIN 16,84,[BUT]
  SERIN 16,6,[BUT]

  IF BUT <> "A" THEN
    GOTO START
  ENDIF
'  DEBUG "Start of message"
  SERIN 16,6,[but1,but2,but3,but4,but5,but6,but7,but8]
'  but1 = "1"


  FOR counter = 1 TO 2
    IF (but1 = "1") THEN
 '     DEBUG "BUT 1 is 1"
      PULSOUT 14,100
    ENDIF
    IF (but2 = "1") THEN
      PULSOUT 13,100
    ENDIF
    IF (but3 = "1") THEN
      PULSOUT 12,100
    ENDIF
    IF (but4 = "1") THEN
      PULSOUT 11,100
    ENDIF
    IF (but5 = "1") THEN
      PULSOUT 10,100
    ENDIF

 '   PAUSE 5
  NEXT
  FOR counter = 1 TO 2
    IF (but1 = "1") THEN
      PULSOUT 14,150
    ENDIF
    IF (but2 = "1") THEN
      PULSOUT 13,150
    ENDIF
    IF (but3 = "1") THEN
      PULSOUT 12,150
    ENDIF
    IF (but4 = "1") THEN
      PULSOUT 11,150
    ENDIF
    IF (but5 = "1") THEN
      PULSOUT 10,150
    ENDIF
 '   PAUSE 5
  NEXT
  GOTO START
END