計算程式

剛剛用 HP 20S 編寫了一個計算身份證號碼 Check digit 的程式（只限一個英文字母），只要在計算機上按「 11 INPUT 123456 XEQ A 」（假如身份證號碼是 K123456 ）便能顯示結果，使用 HP 20S 計算機的用家可以試試。

1 - LBL A	21 - 2	41 - 6	61 - 1	79 - RCL 0
2 - STO 0	22 - XEQ B	42 - ＋	62 - STO 7	80 - =
3 - ÷	23 - STO 4	43 - RCL 3	63 - =	81 - IP
4 - EXP	24 - .	44 - ×	64 - FP	82 - ÷
5 - 5	25 - 1	45 - 5	65 - ×	83 - 1
6 - =	26 - XEQ B	46 - ＋	66 - RCL 7	84 - 0
7 - IP	27 - STO 5	47 - RCL 4	67 - －	85 - =
8 - STO 1	28 - 1	48 - ×	68 - RCL 7	86 - FP
9 - EXP	29 - XEQ B	49 - 4	69 - =	87 - ×
10 - ＋/－	30 - STO 6	50 - ＋	70 - ABS	88 - 1
11 - 4	31 - SWAP	51 - RCL 5	71 - INPUT	89 - 0
12 - XEQ B	32 - ×	52 - ×	72 - RCL 7	90 - =
13 - STO 2	33 - 8	53 - 3	73 - SWAP	91 - RTN
14 - EXP	34 - ＋	54 - ＋	74 - x≦y?
15 - ＋/－	35 - RCL 1	55 - RCL 6	75 - CLEAR
16 - 3	36 - ×	56 - ×	76 - R/S
17 - XEQ B	37 - 7	57 - 2	77 - LBL B
18 - STO 3	38 - ＋	58 - =	78 - ×
19 - EXP	39 - RCL 2	59 - ÷
20 - ＋/－	40 - ×	60 - 1	Checksum: F5B3