Post Reply 
[VA] New update available in my HP-related site (#003)
10-30-2019, 05:52 AM (This post was last modified: 10-30-2019 06:28 AM by Ángel Martin.)
Post: #8
RE: [VA] New update available in my HP-related site (#003)
(10-29-2019 07:28 PM)Valentin Albillo Wrote:  The caveat is, the way I proceed to create these papers I must first type the original program listing (quite faded by now) into Word, which is very cumbersome and time-consuming when the listing is long, as in this case, and then I must type the program straight from Word into some HP-41C emulator to run the examples and make sure it's correctly loaded.

Here's the 41Z version (only slight modification of the original), I trust it should help with that:


Code:

LBL "ZPROOT"
"DEGREE=?"
PROMPT
STO Z(1)
ST+ X(3)
11
+
X>Y?
PSIZE
RCL Z(1)
STO 00
STO 03
9,008
+
STO 01
STO 05
X<>Y
E
-
STO 02
STO 06
FIX  0
CF 29
LBL 05
"IM^RE("
ARCL 03
>")=?"
PROMPT
STO IND 05
X<>Y
STO IND 06
DSE 03
X<>Y
DSE 06
DSE 05
GTO 05
RCL 03
LBL 06
CF 00
CHS
STO 04
FIX 3
RND
FIX 6
X#0?
GTO 01
SIGN
STO 04
LBL 01
RCL 00
STO 08
SF 01
XEQ 11
R-P
1/X
STO 07
X<>Y
CHS
STO 08
CF 01
XEQ 11
ZENTER^
RCL 08
RCL 07
P-R
Z*
ST-  03
X<>Y
ST-  04
ZRND
Z#0?
GTO 01
FIX  0
"FOUND ROOT#"
ARCL 00
AVIEW
SF  00
XEQ 11
E
ST+  05
ST+  06
 E-3
ST+  01
RCL 03
STO IND 05
RCL 04
STO IND 06
DSE  00
GTO 06
TONE  5
RCL 01
INT
E1
-
E3
/
ST-  05
FIX  3
SF  21
LBL 10
ISG  00
Text-0
RCL IND 06
RCL IND 05
ZAVIEW
DSE  06
DSE  05
GTO 10
CF  21
SF  29
RTN
LBL 11
RCL 01
STO 05
RCL 02
STO 06
FC?  01
GTO 13
E-9
ST+  05
LBL 13
RCL IND 06
RCL IND 05
FC?  01
GTO 02
RCL 08
ST*  Z(1)
*
DSE 08
GTO 02
RTN
LBL 00
ZENTER^
RCL 04
RCL 03
Z*
RCL IND 05
FS?  01
RCL 08
FS?  01
*
+
FS?  00
STO IND 05
X<>Y
RCL IND 06
FS?  01
RCL 08
FS?  01
*
+
FS?  00
STO IND 06
X<>Y
FS?  01
DSE  08
LBL 02
DSE  06
DSE  05
GTO 00
END

"To live or die by your own sword one must first learn to wield it aptly."
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: [VA] New update available in my HP-related site (#003) - Ángel Martin - 10-30-2019 05:52 AM



User(s) browsing this thread: 2 Guest(s)