// main program loop...
sens_temp() //call sub routine for box temp
LCD.MoveCursor (1,1)
LCD.WriteAt(1,1,"desired temp=", DecToStr(deg_s)) // Display DESIRED TEMP using ADC
LCD.MoveCursor (2,1)
LCD.Write("box temp = ", DecToStr(tempF)," ") //Display box temperature
DelayMS(500)
// LCD.Cls
If tempf < deg_s Then High (Relay) // box temp is at or below desired temperature
LED_g = 1 // green led on
LED_r = 0
End If
If tempF>=deg_s +3 Then Low (Relay) // box temp is at or above desired temperature
LED_r = 1 // red led on
LED_g = 0
End If
Wend
//xxxxxxxxxxxxxxxxxxxxxxxxxxx