01-17-2020, 11:28 AM
The HP-12C Platinum got very large program space to spare.
I have make a special routine to act just like Assigned Labels.
These assign labels are a numbers that point to specific programs.
For example:
[1] Profit on Pricing
[2] Combination
[3] Permutation
[4] Exclusive Tax
If user want to use Permutation program:
[PRGM] 3 [R/S] display 3 // indictate that it is from Program# 3
All four programs run in the loop so same program can be use over and over.
If need to use other program press [PRGM] and select the program# [R/S]
Since the above program example are a good program to have with the
HP-12C Platinum I will provide the complete program here.
-------------------------------------------------------------------
To select program:
[PRGM] Program# [R/S] display Program#
-----------------------------------------------------
[1] Profit on Pricing
[PRGM] 1 [R/S] display 1
Cost [ENTER] Price [ENTER] Markup [ENTER] Margin [R/S] display 0
Enter 0 for the two unknown data
RCL n for Cost
RCL i for Price
RCL PV for Markup
RCL PMT for Margin
--------------------------------------
[2] Combination: mCn
[PRGM] 2 [R/S] display 2
m [ENTER] n [R/S] display Answer
---------------------------------------
[3] Permutation: mPn
[PRGM] 3 [R/S] display 3
m [R/S] n [R/S] display Answer
------------------------------------
[4] Exclusive Tax
[PRGM] 4 [R/S] display 4
Store Tax Rate to Register 0 // [STO] 0
Price Include Tax [R/S] Price without Tax [X<>Y] Tax amount
-----------------------------------
Program: RPN mode
Example:
Permutation of 15P5 and 80P5
[PRGM] 3 [R/S] display 3.00
15 [R/S] display 15
5 [R/S] display answer 360,360.00
80 [R/S] display 80
5 [R/S] display answer 2,884,801,920.
----------------------------------------
Tax Rate is 7% with $100 including tax.
What is the price without tax and tax amount?
[PRGM] 4 [R/S] display 4.00
7 [STO] 0
100 [R/S] display answer for Price without tax $93.46
[X<>Y] display anwer for tax amount $6.54
---------------------------------------
Gamo 1/2020
I have make a special routine to act just like Assigned Labels.
These assign labels are a numbers that point to specific programs.
For example:
[1] Profit on Pricing
[2] Combination
[3] Permutation
[4] Exclusive Tax
If user want to use Permutation program:
[PRGM] 3 [R/S] display 3 // indictate that it is from Program# 3
All four programs run in the loop so same program can be use over and over.
If need to use other program press [PRGM] and select the program# [R/S]
Since the above program example are a good program to have with the
HP-12C Platinum I will provide the complete program here.
-------------------------------------------------------------------
To select program:
[PRGM] Program# [R/S] display Program#
-----------------------------------------------------
[1] Profit on Pricing
[PRGM] 1 [R/S] display 1
Cost [ENTER] Price [ENTER] Markup [ENTER] Margin [R/S] display 0
Enter 0 for the two unknown data
RCL n for Cost
RCL i for Price
RCL PV for Markup
RCL PMT for Margin
--------------------------------------
[2] Combination: mCn
[PRGM] 2 [R/S] display 2
m [ENTER] n [R/S] display Answer
---------------------------------------
[3] Permutation: mPn
[PRGM] 3 [R/S] display 3
m [R/S] n [R/S] display Answer
------------------------------------
[4] Exclusive Tax
[PRGM] 4 [R/S] display 4
Store Tax Rate to Register 0 // [STO] 0
Price Include Tax [R/S] Price without Tax [X<>Y] Tax amount
-----------------------------------
Program: RPN mode
Code:
001 1 // Steps 001 to 017 is use for Selection of Program#
002 -
003 X=0
004 GTO 018 // To Profit on Pricing routines
005 1
006 -
007 X=0
008 GTO 081 // To Combination routines
009 1
010 -
011 X=0
012 GTO 118 // To Permutation routines
013 1
014 -
015 X=0
016 GTO 159 // To Exclusive Tax routines
017 GTO 000
--------------
018 1 // display Program#1
019 R/S
020 PMT
021 Rv
022 PV
023 Rv
024 i
025 Rv
026 n
027 RCL n
028 X=0
029 GTO 044
030 RCL i
031 X=0
032 GTO 044
033 RCL n
034 RCL i
035 Δ%
036 PV
037 RCL i
038 RCL n
039 Δ%
040 CHS
041 PMT
042 CLx
043 GTO 019
044 RCL PV
045 X=0
046 GTO 054
047 1/x
048 EEX
049 CHS
050 2
051 +
052 1/x
053 PMT
054 RCL PMT
055 1/x
056 EEX
057 CHS
058 2
059 -
060 1/x
061 PV
062 RCL n
063 X=0
064 GTO 072
065 RCL n
066 RCL PV
067 %
068 +
069 i
070 CLx
071 GTO 019
072 RCL i
073 1
074 RCL PV
075 %
076 +
077 ÷
078 n
079 CLx
080 GTO 019
---------------
081 2 // Display Program#2
082 R/S
083 -
084 LSTx
085 X≤Y
086 GTO 114
087 STO 0
088 1
089 STO 1
090 +
091 STO 2
092 CLx
093 X≤Y
094 GTO 096
095 GTO 116
096 Rv
097 1
098 RCL 1
099 +
100 STO 1
101 X≤Y
102 GTO 105
103 RCL 2
104 GTO 082
105 RCL 0
106 X<>Y
107 +
108 LSTx
109 ÷
110 RCL 2
111 x
112 STO 2
113 GTO 096
114 X<>Y
115 GTO 087
116 1
117 GTO 082
--------------
118 3 // Display Program#3
119 R/S
120 ENTER
121 STO 0
122 R/S
123 X≤Y
124 GTO 126
125 GTO 155
126 X≤Y
127 GTO 130
128 0
129 ÷
130 1
131 X≤Y
132 GTO 134
133 GTO 152
134 CLx
135 X≤Y
136 GTO 138
137 GTO 157
138 +
139 -
140 1
141 +
142 x
143 LSTx
144 RCL 0
145 1
146 -
147 X≤Y
148 GTO 152
149 GTO 150
150 Rv
151 GTO 140
152 Rv
153 Rv
154 GTO 119
155 n!
156 GTO 119
157 1
158 GTO 119
---------------
159 4 // Display Program#4
160 R/S
161 ENTER
162 1
163 ENTER
164 RCL 0
165 %
166 +
167 X<>Y
168 LSTx
169 X<>Y
170 x
171 LSTx
172 ENTER
173 Rv
174 Rv
175 X<>Y
176 ÷
177 -
178 LSTx
179 X<>Y
180 GTO 160
Example:
Permutation of 15P5 and 80P5
[PRGM] 3 [R/S] display 3.00
15 [R/S] display 15
5 [R/S] display answer 360,360.00
80 [R/S] display 80
5 [R/S] display answer 2,884,801,920.
----------------------------------------
Tax Rate is 7% with $100 including tax.
What is the price without tax and tax amount?
[PRGM] 4 [R/S] display 4.00
7 [STO] 0
100 [R/S] display answer for Price without tax $93.46
[X<>Y] display anwer for tax amount $6.54
---------------------------------------
Gamo 1/2020