香港身份證核對數位
程式二、三及四由網友 Nobody 提供。程式可以計算香港身分證括號中的核對數字。
程式更新日期:2009年10月28日
程式一 (87 bytes)
Mem clear: 2→C: ?→A: ?→B: Fix0: Lbl 0:
B => B÷10 - . 5: Rnd: Ans→D: C(B - 10Ans M+:
D→B: C - 7 => C + 1→C => Goto 0: 8AM+:
M÷11 - . 5: Rnd: M - 11Ans => 11 - Ans: Norm 1
程式二(69 bytes，程式一在BASE模式版本)
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式，綠色A字及B字是十六進數值(直接按出)。
Mem clear: Dec: 2→C: ?→A: ?→B: Hex:
Lbl 0: B÷A→D: C(B - AAns M+:
C - 7 => C + 1→C: D→B => Goto 0:
8AM+: M - M ÷ B × B => B - Ans: Ans
程式三 (54 Bytes)
Mem clear: 8→B: Lbl 0: ?→A:
ABM+: B - 1→B: B - 1 => Goto 0: Fix 0:
M ÷ 11 - . 5: Rnd:
M - 11Ans => 11 - Ans: Norm 2
程式四(47 bytes，程式三在BASE模式版本)
程式需要在 BASE 模式下執行，因此在輸入程式前請先按 Mode Mode 3 進入BASE模式，綠色B字是十六進數值(直接按出)。
Mem clear: Dec: 8→B: Lbl 0: ?→A: ABM+:
B - 1→B: B - 1 => Goto 0: Hex:
M - M ÷ B × B => B - Ans: Ans
注意: 輸入開始的英文字母,A代表的數值是1,B代表的數值是2,如此類推 ,Z代表26(可以參考以下對照表)。
| A | B | C | D | E | F | G | H | I | J | K | L | M |
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 |
| N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
| 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 |
例題: 計算身份證Z938475括號中的核對數字。
程式一及程式二按法:
按 Prog 1 再按 26 EXE (26代表身份證開始的字母為Z)
938475 EXE (顯示身份證括號內的數字為9)
程式三及程式四按法:
按 Prog 1 再按 26 EXE (26代表身份證開始的字母為Z)
9 EXE 3 EXE 8 EXE 4 EXE 7EXE 5 EXE (顯示身份證括號內的數字為9)
註: 使用程式一或程式三，若答案為10表示括號內的字母為A。