http://www.microengineeringlabs.com/...bp/serbufx.bas