' =========================================================================
'
'   File...... SER_TOGGLE.BS1
'   Purpose...
'   Author.... Jon Williams -- Parallax, Inc.
'   E-mail.... jwilliams@parallax.com
'   Started...
'   Updated... 17 NOV 2004
'
'   {$STAMP BS1}
'   {$PBASIC 1.0}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------

SYMBOL          Sin     = 7


' -----[ Constants ]-------------------------------------------------------


' -----[ Variables ]-------------------------------------------------------

SYMBOL          pnNum   = B2


' -----[ EEPROM Data ]-----------------------------------------------------


' -----[ Initialization ]--------------------------------------------------

Reset:
  PINS = %00000000
  DIRS = %01111111


' -----[ Program Code ]----------------------------------------------------

Main:
  SERIN Sin, N2400, ("ABCD"), #pnNum
  IF pnNum > 6 THEN Main
  TOGGLE pnNum
  GOTO Main

  END


' -----[ Subroutines ]----------------------------------------------------- 