' NUMERIC WIFI KEYPAD COMPLETE RADIO

pwmfreq 15625
pwmout 38,50*1  'Backlight

rx 88.8
cssclass "body","background-color:whitesmoke; font-family:helvetica"
textbox fs
fid = htmlid()
html "<br>"
meter r,0,75
cssid htmlid(),"width:180px;"
html "<hr>"

' NUMPAD 
cssclass "button","width:60px; height:50px"
Button "7",seven
Button "8",eight
Button "9",nine
html "<br>"
Button "4",four
Button "5",five
Button "6",six
html "<br>"
Button "1",one
Button "2",two
Button "3",three
html "<br>"
Button "0",zero
Button ".",dot
Button "ENTER",enter
html "<hr>"

' MODES 
Button "USB",busb
Button "LSB",blsb
Button "AM",bam

' BFO & VOLUME
html "<br>BFO "
slider sliderBFO,-1600,1600
sliderBFOid = htmlid()
html "<br>VOL "
slider sliderVOL,0,63
sliderVOLid = htmlid()

onchange dochange
timer 200,tim
wait
' init ended

one:
fs = fs & "1"
wait 

two:
fs = fs & "2"
wait 

three:
fs = fs & "3"
wait 

four:
fs = fs & "4"
wait 

five:
fs = fs & "5"
wait 

six:
fs = fs & "6"
wait 

seven:
fs = fs & "7"
wait 

eight:
fs = fs & "8"
wait 

nine:
fs = fs & "9"
wait 

zero:
fs = fs & "0"
wait 

dot:
fs = fs & "."
wait 

enter:
freq val(fs)
fs=""
wait

busb:
usb
wait

blsb:
lsb
wait

bam:
am
wait

tim:
r = rx.rssi()
wait

dochange:
change = getchange()
if word(change,4)=sliderBFOid then bfo sliderBFO
if word(change,4)=sliderVOLid then vol sliderVOL
if word(change,4)=fid then 
 freq val(fs)
 fs=""
endif
return '!!!!!!!!!!!