' tft RDS-Radiotext - Stations memclear watchdog 0 ' Freqs data 99.2,101.3,95.1,96.5,88.8,104.2,106.7,102.8,0 rx 88.8 vol 50 'tft.cls() tty.cls read f freq f timer 200,tttt wait tttt: txt = trim(rx.text()) if otxt<>txt then txt = txt & " " timer 0 for i = 1 to len(txt) tty mid(txt,i,1) delay 60 if pinIn(21)==0 then gosub change next i otxt=txt timer 200,tttt endif st = rx.station() if ost <> st and st <> "" then tft.text.draw(" " & st & " ",160,140,4) ost = st wait [change] read f 'print f if f = 0 then restore read f endif tty " -- " & f &" -- " freq f while pinIn(21)==0 wend return