(41C/CV/CX) Epidemiologic Programs for Computers & Calculators

[Thomas Klemm]

(04-28-2024 02:52 AM)SlideRule Wrote:  Sorry for the repost

No worries about that. I probably missed your initial post.

---

(04-27-2024 05:01 PM)Ángel Martin Wrote:  I believe these programs were included in the EPIDEMICS module,

I downloaded the attachment in Post #6 but was not able to find the programs REED and FROST.
Then I downloaded the rom_files_240325.zip from the File Area of 41CL Calculator.
Finally I used rom2raw to extract the programs:

rom2raw -l EPIDEMIC.ROM > EPIDEMIC.txt

From this I extracted the files reed.txt and frost.txt in the attachment of this post.

This helped me to fix some bugs in my listings.
Meanwhile I've updated them in my previous post.

---

However, I also noticed some changes to the code in the EPIDEMIC module compared to the original programs.
Some of these are optimisations. I think they're fine.
Others are mostly cosmetic in the printed text.
Here I propose to consider them.

But I think the word TROUGH should stay as it is. That's not a typo.
And then there are clearly two bugs:

• wrong label in GTO command
• missing digit in constant
  

They are listed here. The first line as in the original and the second line as in the module:

REED

Code:

42 "S. INFLUX? ="
40 "S. INFLUX?  ="

FROST

Code:

06 ├"<TROUGH>"
04 ├"<THROUGH>"

37 "C0? ="
31 "CO? ="

76 "SEED<=9999?="
70 "SEED<=9999? ="

104 GTO 08
98 GTO 00

119 .211327
113 .21137