#include <eracer.h>

MAIN:
 SET GREEN ON
 SET RED OFF
 Ding
 SET GREEN OFF
 SET RED ON
 Ding
goto MAIN

sub Ding
 FOR Temp = 1 to 3
  SET BUZZER ON
  Wait 10 ms
  SET BUZZER OFF
  Wait 30 10ms
 NEXT
end sub