CON _clkmode = xtal1 + pll16x _xinfreq = 5_000_000 VAR long atten OBJ pst : "Parallax Serial Terminal" PUB DSA_CONTROL pst.Start(115200) repeat result := pst.RxCount pst.Str(String(11, 13, "Press Any Key to Start")) waitcnt(clkfreq / 2 + cnt) until result pst.RxFlush pst.Str(String(11, 13, 11, 13, "Attentuation Control ")) repeat pst.Str(String(11, 13, "Enter desired level of attenuation: ")) atten := pst.DecIn pst.Str(String(11, 13, "Data = ")) pst.Dec(atten) pst.Str(String(" = %")) pst.Bin(atten, 16) ' Change digits to desired value. Up to 32 allowed.