' TFT Radiotext Interrupt Push Freq Rotate Volume
 
watchdog 0
memclear
tft.cls()
pwmfreq 15625
pwmout 38,50  'Backlight
data 99.2,101.3,95.1,96.5,88.8,104.2,106.7,102.8,0 
rx 
vol 40
oc = 0
tty.size 4,-1,-2,320,-1
read f
freq f
interrupt 21, [push]
interrupt 1,[rotate]
interrupt 2,[rotate]
timer 222,showtime
wait

[rotate]
if io(laststat,1) = 1 then a = 1 else a = 0
if io(laststat,2) = 1 then b = 1 else b = 0
c = a + b
rot = 0
if c = 1 and oc = 2 then 
 if a = 1 and b = 0 then rot = 1 
 if a = 0 and b = 1 then rot = -1
 vol rx.vol()+rot
 tft.text.draw(format("%02.0f",rx.vol()),320-16,170-16,1)
endif 
oc = c
wait

showtime:
txt = trim(rx.text()) 
if otxt<>txt then 
   txt = txt & " "
   for i = 1 to len(txt) 'ticker
     tty mid(txt,i,1)
     delay 60
   next i
   otxt=txt
endif
st = rx.station()
if ost <> st and st <> "" then tft.text.draw("    " & st & "    ",160,140,4)
ost = st
wait

[push]
if io(laststat,21) = 1 then wait
 read f
 if f = 0 then 
  restore
  read f
 endif
 freq f
 tft.text.draw(format("%5.1f",f),16,170-16,1)
wait