'-----------------------------------------------------
'                (c) 1999-2003 MCS Electronics
' WATCHD.BAS demonstrates the watchdog timer
'-----------------------------------------------------
Config Watchdog = 2048                                      'reset after 2048 mSec
Start Watchdog                                                'start the watchdog timer
Dim I As Word
For I = 1 To 1000

  Print I                               'print value
  'Reset Watchdog
  'you will notice that the for next doesnt finish because of the reset
  'when you unmark the RESET WATCHDOG statement it will finish because the
  'wd-timer is reset before it reaches 2048 msec
Next
End