'# Scanner Radio RDS Station & Text

memclear
f = 95.1
rx f
freq f
station = ""
volume 50
checkbox dx
html | DX |
textbox f
Button "f",jump
html | - |
button "-",minus
button "SCAN up",scan
button "+",plus
html | - |
button "88.8",f888
html | - |
textbox station 
textbox txt
'gosub setfreq
timer 1000,[rds]
wait

[rds]
if (rx.fm()<>0) then
  s = rx.station()
  if s<>"" then station = s
  t = trim(rx.text())
  if t<>"" then txt = t
endif
wait

f888:
f = 88.8
jump:
gosub setfreq
timer 1000,[rds] 
wait

setfreq:
freq f
tty f & chr(10)
station = ""
txt=""
timer 1000,[rds] 
return

plus: 
if f>109 then f = f+5 else f = f + 0.1
gosub setfreq
timer 1000,[rds] 
wait

minus:
if f>109 then f = f-5 else f = f - 0.1
gosub setfreq
timer 1000,[rds]  
wait

scan:
if f>109 then start = f+5 else start = f + 0.1
if f>109 then stp = 5 else stp = 0.1
for f = start to 30000 step stp
 gosub setfreq
 timer 0
 x = 0
 if dx==0 then x = 15
 snr = rx.snr() 
 rssi = rx.rssi()
 if (snr>x) then
  timer 1000,[rds] 
  wait
 endif
next f
wait