Most impressive/complex/amazing C-series program?

[Gerson W. Barbosa]

(04-13-2018 10:47 PM)Mike (Stgt) Wrote:  Hit 16 times R/S?? No - please - no. A counter proposal (print from Emu42 on HP82240B Printer Simulator):
01▶LBL "V"
02 2
03 ENTER
04▶LBL 00
05 SQRT
06 STO÷ ST Y
07 2
08 STO× ST Z
09 VIEW ST Y
10 X=Y?
11 RTN
12 +
13 PSE
14 GTO 00
15 END

Note, I replaced STO Y before LBL 00 with ENTER. Start "V" and have a look. With a printer attached also there. Until it stop without any further ado.

BTW, on the HP-42S it takes few more iterations, on Free42 even several more. We warned, if you take the RAW from V41 to Emu42 the GTO 00 could jump not to LBL 00. Christoph is informed.

As you please:

00 { 30-Byte Prgm }
01▸LBL "V"
02 2
03 STO ST Y
04▸LBL 00
05 SQRT
06 STO÷ ST Y
07 2
08 STO× ST Z
09 X≤Y?
10 RTN
11 +
12 X<>Y
13 XEQ "FWIW"
14 X<>Y
15 GTO 00
16 .END.

2.8284271247461900976033
77448419396 ᴇ0
3.0614674589207181738276
7987224319 ᴇ0
3.1214451522580522855725
57895632356 ᴇ0
3.1365484905459392638142
58044436538 ᴇ0
3.1403311569547529123171
1852433169 ᴇ0
3.1412772509327728680620
19770788214 ᴇ0
3.1415138011443010763285
15059456822 ᴇ0
3.1415729403670913841358
00110270762 ᴇ0
3.1415877252771597006288
54262701918 ᴇ0
3.1415914215111999739979
71763740834 ᴇ0
3.1415923455701177423403
7599415737 ᴇ0
3.1415925765848726656816
06092237874 ᴇ0
3.1415926343385629890954
7826362779 ᴇ0
3.1415926487769856694851
07969277176 ᴇ0
3.1415926523865913458035
25521057964 ᴇ0
3.1415926532889927652719
4304217374 ᴇ0
3.1415926535145931201633
4824328108 ᴇ0
3.1415926535709932088877
18344859772 ᴇ0
3.1415926535850932310689
05795335812 ᴇ0
3.1415926535886182366142
08590772408 ᴇ0
3.1415926535894994880005
34660432656 ᴇ0
3.1415926535897198008471
16201022788 ᴇ0
3.1415926535897748790587
61587618764 ᴇ0
3.1415926535897886486116
72934358286 ᴇ0
3.1415926535897920909999
00771048824 ᴇ0
3.1415926535897929515969
57730221812 ᴇ0
3.1415926535897931667462
21970015082 ᴇ0
3.1415926535897932205335
380299634 ᴇ0
3.1415926535897932339803
6704495048 ᴇ0
3.1415926535897932373420
7429869725 ᴇ0
3.1415926535897932381825
01112133942 ᴇ0
3.1415926535897932383926
07815493116 ᴇ0
3.1415926535897932384451
3449133291 ᴇ0
3.1415926535897932384582
66160292858 ᴇ0
3.1415926535897932384615
49077532844 ᴇ0
3.1415926535897932384623
69806842842 ᴇ0
3.1415926535897932384625
74989170342 ᴇ0
3.1415926535897932384626
26284752218 ᴇ0
3.1415926535897932384626
39108647686 ᴇ0
3.1415926535897932384626
42314621554 ᴇ0
3.1415926535897932384626
43116115022 ᴇ0
3.1415926535897932384626
43316488388 ᴇ0
3.1415926535897932384626
4336658173 ᴇ0
3.1415926535897932384626
43379105066 ᴇ0
3.1415926535897932384626
433822359 ᴇ0
3.1415926535897932384626
43383018608 ᴇ0
3.1415926535897932384626
43383214286 ᴇ0
3.1415926535897932384626
43383263206 ᴇ0
3.1415926535897932384626
43383275436 ᴇ0
3.1415926535897932384626
43383278494 ᴇ0
3.1415926535897932384626
43383279258 ᴇ0
3.1415926535897932384626
4338327945 ᴇ0
3.1415926535897932384626
43383279498 ᴇ0
3.1415926535897932384626
4338327951 ᴇ0
3.1415926535897932384626
43383279514 ᴇ0
3.1415926535897932384626
43383279516 ᴇ0

Perhaps it is possible to do it without the external program FWIW (SHOW is not programmable).

Gerson.

P.S.: Here is a link to Katie Wasserman's original HP-12C program:

http://www.hpmuseum.org/cgi-sys/cgiwrap/...118#101119