(12C Platinum) Assign Labels to Program

[Gamo]

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

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