'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2016 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 26-May-16 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Device=16F877A
XTAL= 20
ALL_DIGITAL TRUE
TRISA %00000000
TRISB %00000000
TRISC %00000000
TRISD %00001111
Symbol BUZZER PORTB.7
DelayMS 500
Low PORTA
Low PORTB
Low PORTC
LOOP:
If PORTD.0=1 Then GoTo CONTEST1
If PORTD.1=1 Then GoTo CONTEST2
If PORTD.2=1 Then GoTo CONTEST3
If PORTD.3=1 Then GoTo CONTEST4
GoTo LOOP
CONTEST1:
PORTC=6
High PORTB.0
High BUZZER
DelayMS 2000
Low BUZZER
DelayMS 4000
Low PORTB
PORTC=0
GoTo LOOP
CONTEST2:
PORTC=91
High PORTB.1
High BUZZER
DelayMS 2000
Low BUZZER
DelayMS 4000
Low PORTB
PORTC=0
GoTo LOOP
CONTEST3:
PORTC=79
High PORTB.2
High BUZZER
DelayMS 2000
Low BUZZER
DelayMS 4000
Low PORTB
PORTC=0
GoTo LOOP
CONTEST4:
PORTC=102
High PORTB.3
High BUZZER
DelayMS 2000
Low BUZZER
DelayMS 4000
Low PORTB
PORTC=0
GoTo LOOP