'# Scanner Radio


memclear
f = 95.1
rx f
gosub setfreq
volume 50
checkbox dx
html " DX "
textbox f
Button "f",jump
html " - "
button "-",minus
button "SCAN up",scan
button "+",plus
html " - "
button "88.8 MHz",f888
button "13635 kHz",f13635
button "15340 kHz",f15340
button "17650 kHz",f17650
wait

f888:
f = 88.8
jump:
gosub setfreq
wait

f13635:
f = 13635
goto jump
f15340:
f = 15340 
goto jump
f17650:
f = 17650 
goto jump

setfreq:
freq f
tty f & chr(10)
return

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
 x = 0
 if not dx then x = 15
 snr = rx.snr() 
 rssi = rx.rssi()
 if snr>x then
  'gosub setfreq
  wait
 endif
next f
wait

plus: 
if f>109 then f = f+5 else f = f + 0.1
gosub setfreq
wait

minus:
if f>109 then f = f-5 else f = f - 0.1
gosub setfreq
wait