program timertest
  dim Cnt, aa,bb as byte
sub procedure interrupt
   Cnt = Cnt + 1   
   INTCON = $20
end sub
sub procedure Display
  porta = aa
  porta.7 = 1
  delay_ms(5)
  porta = bb
  porta.6 = 1
  delay_ms(5)
end sub
main:
  porta = 0
  trisa = 0
  trisb = 1
  intcon = %10100000
  option_reg = $85
wleed:
  display()  
   if portb.0 = 1 then
    aa = bb = 0
  end if
if Cnt > 60 then
  Cnt = 0
  aa = aa + 1
   if aa = 10 then
     aa = 0
     bb = bb + 1
     if bb = 6 then
       bb = 0
     end if
   end if
end if
 goto wleed
end.