I found the following code written in HP-71B BASIC in response to a post titled Coding Challenge for Vieta\'s Formulas on the website https://hpmuseum.org/forum/thread-11044