' BIG F SSB BROWSER RADIO

memclear
boot = true
time.setup(2,1)
watchdog 60
f = 95.1
rx f
b = 0

store = read("store")
gosub recall

cssclass "body","font-family:Consolas"
cssclass "select","width:120px"  
cssclass "button","font-family:Consolas"
textbox zeit
cssID htmlID(),"border:none;width:60px"

button "STORE",dostore
'textbox store
button "RECALL Station",recall
html "<hr>"
'text-align: center; width:640px;color: navy;font-weight: bold;font-style: italic;font-size: 16px;
tft.cls()
'gosub setfreq
pwmfreq 32000
pwmout 38,50 'BACKLIGHT 50
name = ""
txt = "RDS Radio Text"
volume 40
VOL= 40

textbox txt
cssid htmlid(),"width: 400px;border:none;color:navy;font-style: italic;font-weight: bold;"
html "<br>"

textbox f
'onchange setfreq
cssID htmlID(),"border:6px solid silver;width:300px;font-weight:bold;text-align:center;font-size: 72px"
textbox name
cssID htmlID(),"border:none;width:450px;text-align:center;font-weight:bold;font-size: 72px"
html |<br><br>|
button "-",minus
Button "Set Freq",jump
button "+",plus
html | - |
Button "-",bfoDN
textbox b
'onchange setfreq
cssID htmlID(),"width:66px;font-weight:bold;text-align:center;"
Button "+",bfoUP
Button "Set Bfo",setbfo
html " - "
button "LSB",dolsb
button "-AM-",dossb
button "USB",dousb

'radio rfm
'radio ram
'radio rssb

html "<br>"

button " SCAN up ",scan
html " - - "
button " Set Volume: ",setvol
slider VOL,0,62
'onchange setvol
html "<hr>"
gosub logo
meter rssi,0,75,10,20,32
html " RSSI<br>"
meter snr,0,75,10,20,32
html " SNR<br>"
meter audio,0,1000
html " Audio<br>"
meter wifi,0,100,20,70,100
html " WiFi<br>"
meter accu,26,42,29,37,42
html " Battery<br>"
radio ST
radio TP
radio TA
html "<hr>"

fmlist = "88.8 WDR5,95.1 WDR3,96.5 DLF K,99.2 WDR2,101.3 WDR4,102.8 DLF,103.3 Cosmo,104.2 Antenne"
fmitem = "95.1 WDR3"
dropdown fmitem,fmlist
button " Set FM Station",fmset
html |<br>|
amlist = "5955 Veronica,6085 MiAmigo,9670 Channel292,9700 German Romanaia 8:00-20,11960 Romania 7:00-56,13635 Ankara 8:00-,15130,15340,17650 Chn"
amitem = "13635 Ankara 8:00-"
dropdown amitem,amlist
button " Set AM Station",amset
html |<br>|
ssblist = "4955upper Time,5505u Volmet,7200.LSB Ham,4582u RTTY,7645u RTTY,11038u RTTY,9555.USB Time,10081u HFDL,14075.usb FT8,14230u SSTV"
ssbitem = "14075.usb FT8"
dropdown ssbitem,ssblist
button " Set SSB Station",ssbset
'0x1100
html |<br>|
'fmbwlist = "0 = Auto,1 = 110 kHz,2 = 84 kHz,3 = 60 kHz,4 = 40 kHz"
'fmbwitem = "0 = Auto"
'dropdown fmbwitem,fmbwlist
'button " Set BW FM",fmbwset
'html |<br>|
ambwlist = "0 = 6 kHz,1 = 4 kHz,2 = 3 kHz,3 = 2 kHz,4 = 1 kHz,5 = 1.8 kHz,6 = 2.5 kHz"
ambwitem = "2 = 3 kHz"
dropdown ambwitem,ambwlist
button " Set BW AM",ambwset
html |<br>|

liste ="0 = 1.2 kHz,1 = 2.2 kHz,2 = 3.0 kHz,3 = 4.0 kHz,4 = 0.5 kHz,5 = 1.0 kHz"
item = "0 = 1.2 kHz"
dropdown item,liste,6
Button " Set BW SSB",[listset]
html |<br>|

' setup html elemet page 3000 ms
timer 3000,tim
boot = false
WAIT

fmbwset:
bw = 0x1102 
value = val(word(fmbwitem,1))
rx.set(bw,value)
wait

ambwset:
poke val("0x3102"),val(word(ambwitem,1))
wait

[listset]
poke val("0x0101"),(val("0x9010")+val(word(item,1))) 'bit 0:3
wait

fmset:
f = val(word(fmitem,1))
goto jump

amset:
f = val(word(amitem,1))
am
goto jump

dostore:
store = rx.freq() & " " & b & format(" usb=%1.0f lsb=%1.0f am=%1.0f fm=%1.0f",rx.usb(),rx.lsb(),rx.am(),rx.fm())
write("store",store)
wait

recall:
f = val(word(store,1))
b = val(word(store,2))
freq f
isam  = (instr(store,"am=1")>0)
islsb = (instr(store,"lsb=1")>0)
isusb = (instr(store,"usb=1")>0)
if isam and islsb then lsb
if isam and isusb then usb
if boot then return else wait

ssbset:
s = upper(word(ssbitem,1))
f = val(s)
gosub setfreq
if instr(s,"U")>0 then usb
if instr(s,"L")>0 then lsb
wait

dossb:
pinout 10,0
am
pinout 10,1
wait

dousb:
If rx.AM()<>0 then usb
wait

dolsb:
If rx.AM()<>0 then lsb
wait

bfoDN:
b = b-10
bfo b
wait

bfoUP:
b = b+10
bfo b
wait

setbfo:
bfo b
wait

setvol:
volume VOL
wait

jump:
gosub setfreq
wait

tim:
watchdog

if rx.fm()>0 then
 n = rx.station()
 if n<>"" then name = trim(n)
 n = rx.text()
 if n<>"" then txt = trim(n)
endif
zeit = time("time")
rssi = rx.rssi()
snr=rx.snr()
wifi = map(wifi.rssi(), -90, -30, 0, 100)
audio = io(adc,11)
accu = io(adc,4)/1023*66
'gosub wifistatus
ST = rx.stereo()
TP = rx.tp()
TA = TP and rx.ta()
' running interval
watchdog
gosub wifistatus
timer 700,tim
wait

'#define AMP_EN 10
setfreq:
watchdog
if (rx.am()==1 and f<109) or (rx.fm()==1 and f>109) then pinout 10,0
freq f
pinout 10,1
name=""
txt=""
goto drawfreq

[drawfreq]
sf = format("%5.0f ",rx.freq())
if f<109 then sf = format("%5.1f ",rx.freq())
'sf = left(sf,5)
tft.text.datum(4)
tft.text.color(65535,0)
tft.text.draw(sf,160,60,7)
return

scan:
'timercb 0
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
if f>108 and f<150 then 
 f = 150.000
 stp = 5
endif
gosub setfreq
 snr = rx.snr() 
 rssi = rx.rssi()
 if snr>0 then
  'timercb 200,[timcb]
  gosub setfreq
  'gosub findstation
  wait
 endif
next f
wait

plus: 
'if f>109 then f = f+1 else f = f + 0.1
if (rx.am()<>0 and rx.ssb()==0) then f = f + 5
if rx.fm()<>0 then f = f + 0.1
if rx.ssb()<>0 then f = f + 1
gosub setfreq
wait

minus:
if f>109 then f = f-1 else f = f - 0.1
gosub setfreq
'gosub findstation
'timercb 200,[timcb]
wait

wifistatus:
'REBOOT ON DISCONNECT
if status()<>3 then reboot
tft.text.cursor(4,4)
tft.print(str(status()))
return


logo:
html |<div style="overflow:auto;">|
html |<canvas id="my2Canvas" width="78" height="112" style="border:3px solid silver; float:left; margin-right:8px;"></canvas>|

html |<script>const canvas = document.getElementById("my2Canvas");const ctx = canvas.getContext("2d");|
html |function roundRect(ctx, x, y, width, height, radius, fillStyle) {|
html |  ctx.beginPath();|
html |  ctx.moveTo(x + radius, y);|
html |  ctx.lineTo(x + width - radius, y);|
html |  ctx.quadraticCurveTo(x + width, y, x + width, y + radius);|
html |  ctx.lineTo(x + width, y + height - radius);|
html |  ctx.quadraticCurveTo(x + width, y + height, x + width - radius, y + height);|
html |  ctx.lineTo(x + radius, y + height);|
html |  ctx.quadraticCurveTo(x, y + height, x, y + height - radius);|
html |  ctx.lineTo(x, y + radius);|
html |  ctx.quadraticCurveTo(x, y, x + radius, y);|
html |  ctx.closePath();|
html |  ctx.fillStyle = fillStyle;|
html |  ctx.fill();}|
'// Hintergrund
'html |roundRect(ctx, 0, 0, 320, 170, 2, "white");|
html |roundRect(ctx, 1, 1, 76, 110, 4, "white");|
html |roundRect(ctx, 2, 2, 74, 108, 4, "black");|
' Kreis
html |ctx.beginPath(); ctx.arc(45, 40, 20, 0, 2 * Math.PI); ctx.fillStyle = "red";ctx.fill();|
' Linien
html |let x = 3; let y = 3; ctx.strokeStyle = "#ffa500";|
html |for (let i = x; i <= x + 70; i += 2) {|
html |  ctx.beginPath(); ctx.moveTo(x, y);|
html |  ctx.lineTo(i, 108); ctx.stroke();}|
' Text
html |y = 83; x = 2; h = 11; ctx.font = "bold 12px helvetica"; ctx.fillStyle = "#ff0";|
html |ctx.fillText(" Mini-", x, y); ctx.fillText(" Radio-",x, y + h);|
html |ctx.fillText(" Scripting", x, y + 2*h);</script>|
return