11-21-2021, 07:26 PM
Spreadsheet software for your 11C or 15C!
How to use
* Register 0 contains the number of computed registers, e.g. 3 will mean that registers 1,2,3 will be computed
* Put formulars for registers under the label of the same number, e.g. if register 3 should contain the sum of register 1 and 2 you'd do LBL 3, RCL 1, RCL 2, +, RTN
Example: Tax
Let's say you are freelancing and for each paycheck you have to put 30 percent aside for taxes. You want to have these registers:
4: Paycheck total
5: Tax percentage
1: Tax
2: What's left after tax
Since you want to compute registers 1 and 2, you set R_0 to 2.
Set R_5 to 30 (For the 30% tax)
Write the formulars for registers 1 and 2:
Regiseter 1: Tax
Register 2: What's left after tax
Then you put your paycheck total in register 4, run Invisicalc and when it's done, you find the tax and what's left after tax in register 1 and 2.
Invisicalc Source Code
How to use
* Register 0 contains the number of computed registers, e.g. 3 will mean that registers 1,2,3 will be computed
* Put formulars for registers under the label of the same number, e.g. if register 3 should contain the sum of register 1 and 2 you'd do LBL 3, RCL 1, RCL 2, +, RTN
Example: Tax
Let's say you are freelancing and for each paycheck you have to put 30 percent aside for taxes. You want to have these registers:
4: Paycheck total
5: Tax percentage
1: Tax
2: What's left after tax
Since you want to compute registers 1 and 2, you set R_0 to 2.
Set R_5 to 30 (For the 30% tax)
Write the formulars for registers 1 and 2:
Regiseter 1: Tax
Code:
LBL 1
RCL 4
RCL 5
%
FIX 2
RND
RTN
Register 2: What's left after tax
Code:
LBL 2
RCL 4
RCL 1
-
RTN
Then you put your paycheck total in register 4, run Invisicalc and when it's done, you find the tax and what's left after tax in register 1 and 2.
Invisicalc Source Code
Code:
LBL B:
CF 0 ; Flag[0] is for detecting changes and rerunning until nothing changes
RCL 0 ; Register 0 contains the count of registers to calculate, from 1 to R_0
STO I
LBL .9 ; recalculate all computed registers
GSB I
RCL (i)
x=y? ; did the value change?
GTO .8
x<>y
STO(i)
SF 0 ; remember change
LBL .8
DSE I
GTO .9
F? 0 ; anything changed?
GTO B ; do another round
RTN ; done