схема алгоритма работы системы

[temka1]

Помогите составить схему алгоритма работы системы.Код прошивки и схема на всякий случай:
// $regfile = "m48def.dat"
$crystal = 1000000
$baud = 1200

Config Adc = Single , Prescaler = 128 , Reference = Avcc

Config Portb.6 = Output
Buzzer Alias Portb.6 'подключение динамика

Config Portc.1 = Output
Red Alias Portc.1 'красный светодиод

Config Portc.2 = Output
Green Alias Portc.2 'зеленый светодиод

Config Portc.3 = Output
Blue Alias Portc.3 'синий светодиод

Config Portc.0 = Output
Pinout Alias Portc.0 'выход для подключения нагрузки

Dim A As Byte
Dim W As Integer 'считанное значение с АЦП

Do 'цикл для ожидания пока датчик войдет в рабочий режим
Blue = 1
Waitms 50
Blue = 0
Waitms 800
Incr A
Loop Until A = 10
A = 0

Do 'основной цикл
Start Adc ' считывание показания АЦП
W = Getadc(5)
Print W 'отсылаем значение в терминал для отладки
If W > 50 And W < 55 Then
Pinout = 0
Green = 1
Red = 0
Waitms 50
Green = 0
Waitms 1000
End If

If W > 55 And W < 65 Then
Green = 1
Pinout = 0
Red = 0
End If

If W > 65 And W < 70 Then
Green = 0
Red = 1
Buzzer = 1
Waitms 50
Buzzer = 0
Red = 0
Waitms 1000
End If

If W > 70 Then
Pinout = 1
Green = 0
Red = 1
Buzzer = 1
Waitms 50
Buzzer = 0
Waitms 100
End If

Waitms 400
Loop
End
//