A not so useful HP-16C program

[Gerson W. Barbosa]

Well, it will run on the HP-11C as well (only replace DSZ with DSE).

001-    LBL A
002-    STO I
003-    4
004-    ENTER
005-    ENTER
006-    2
007-    ENTER
008-    4
009-    LBL 0
010-    ENTER
011-    +
012-    R↓
013-    ×
014-    √x
015-    ENTER
016-    R↓
017-    x↔y
018-    +
019-    LSTx
020-    R⬆
021-    ×
022-    LSTx
023-    R↓
024-    x↔y
025-    ÷
026-    ENTER
027-    +
028-    ENTER
029-    R↓
030-    R↓
031-    DSZ
032-    GTO 0
033-    R↓
034-    ×
035-    √x
036-    R/S
037-    ENTER
038-    R⬆
039-    ÷
040-    ENTER
041-    ×
042-    CHS
043-    1
044-    +
045-    √x
046-    3
047-    ×
048-    CHS
049-    1
050-    6
051-    +
052-    ×
053-    R⬆
054-    +
055-    +
056-    1
057-    5
058-    ÷
059-    RTN

No numbered registers, only the index register and the stack. No attempt has been made to make it shorter. Hopefully this might have some didactic value (to demonstrate an algorithm).

Gerson.