' {$STAMP BS1}
' {$PBASIC 1.0}
' {$PORT COM1}


SYMBOL flash_counter          = B1
SYMBOL coin_status            = B2

SYMBOL cannon                 = PIN5
SYMBOL coin_slot              = PIN6
SYMBOL baud                   = OT2400
SYMBOL addr                   = %10
SYMBOL Serial                 = 7
SYMBOL trigger                = PIN4



Main:
IF coin_slot = 0 THEN Main

DEBUG coin_status

live:

SEROUT Serial, baud, ("!RC4", addr, "R", 2, 1)
IF trigger = 0 THEN live


HIGH 5
PAUSE 1000
LOW 5

SEROUT Serial, baud, ("!RC4", addr, "R", 2, 0)

GOTO Main