(12C Platinum) Assign Labels to Program
01-17-2020, 11:28 AM (This post was last modified: 01-18-2020 01:22 AM by Gamo.)
Post: #1
 Gamo Senior Member Posts: 716 Joined: Dec 2016
(12C Platinum) Assign Labels to Program
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

80 [R/S] display 80
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