'--------------------------------------------------------------
'                 (c) 1997,1998 MCS Electronics
'--------------------------------------------------------------
'  file: TIMER0.BAS
'  demo: ON TIMER0
'  *TIMER1 is used for RS-232 baudrate generator
'--------------------------------------------------------------
Dim Count As Byte , Gt As Byte

Config Timer0 = Timer , Gate = Internal , Mode = 2
'Timer0 = counter : timer0 operates as a counter
'Gate = Internal  : no external gate control
'Mode = 2         : 8-bit auto reload (default)

On Timer0 Timer_0_int
Load Timer0 , 100                       'when the timer reaches 100 an interrupt will occur
Enable Interrupts                       'enable the use of interrupts
Enable Timer0                           'enable the timer


Rem Setting Of Priority
Priority Set Timer0                     'highest priority
Start Timer0                            'start the timer

Count = 0                               'reset counter
Do
  Input "Number " , Gt
  Print "You entered : " ; Gt
Loop Until Gt = 1                       'loop until users presses ESC key
Stop Timer0
End


Rem The Interrupt Handler For The Timer0 Interrupt
Timer_0_int:
   Inc Count
   If Count = 2 Then
      Print "Timer0 Interrupt occured"
      Count = 0
   End If
Return