'PicoMite DCF Signal Locater
'Connect signal from DCF77 module to GP7
'Turn the antenna slowly to find the signal
'Signal is shown as a bar graph
'and counter going up to 100

Option explicit

SetPin gp7, fin

Const SG = 1, SB = 5, SD = 1
Dim integer signal, signal_quality, bar_graph
signal_quality = 0

start:
Pause Max(100 - signal_quality, 50)
signal = Pin(gp7)
If signal = 1 Then
  signal_quality = Min(signal_quality + SG , 100)
ElseIf signal > 1 Then
  signal_quality = Max(signal_quality - SB, 0)
   Else
      signal_quality = Max(signal_quality - SD, 0)
EndIf
For bar_graph = 0 To signal_quality / 5
If bar_graph > 0 Then Print "#";
Next
Print signal_quality;
If (signal = 0) And (signal_quality > 80) Then
  Print " DCF DATA"
Else
  Print " "
EndIf
GoTo start