program men_timer

sub procedure wait250ms
  Delay_ms(250)
end sub

sub procedure LEDFlash
  GPIO.0 = 1
  wait250ms
  GPIO.0 = 0
  GPIO.1 = 1
  wait250ms
  GPIO.1 = 0
  GPIO.2 = 1
  wait250ms
  GPIO.2 = 0
  GPIO.3 = 1
  wait250ms
  GPIO.3 = 0
end sub

sub procedure Buzz(dim ln as word,dim cn as byte)
  dim m as byte
  dim n as word
  m = 0
  while m < cn
      for n = 0 to ln
          GPIO.5 = 1
          Delay_us(300)
          GPIO.5 = 0
          Delay_us(300)
      next n
      Delay_ms(300)
      m = m + 1
  wend
end sub

main:
  CMCON = %00000111
  TRISIO = %00000000
  GPIO = %00000000
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  Buzz(100,1)
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  Buzz(80,2)
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  Buzz(60,3)
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  LEDFlash
  Buzz(5000,1)
END.