老虎機 (Slot machine)
程式編日期: 2007年3月6日
程式 (74 bytes)
Mem clear: Lbl 0: 1M-: 9Ran#: Fix 0:
Rnd◢ Ans→A: 9Ran#: Rnd◢ Ans→B:
9Ran#: Rnd: Norm 1◢ Ans→C: ABC=73 => 92M+:
3((A=B)+(A=C)+(B=CM+: M◢ Goto 0
註1: 開始時的現金總值為0，顯示現金餘額時第一行會顯示M字，第二行的數值為金額。
註2: 若果拉出三個不同數值，金額減$1，若有果其中兩個數值相同，金額加$2，若果拉中三個相同數值(非777)，金額加$8，若果拉中777，金額加$100。
操作方法:
按 Prog 1 (顯示第一個拉出的數值)
EXE (顯示第二個拉出的數值)
EXE (顯示第三個拉出的數值)
EXE (第一行有M字出現，顯示現在金額)
EXE (顯示另一次第一個拉出的數值)
EXE (顯示另一次第二個拉出的數值)
EXE (顯示另一次第三個拉出的數值)
EXE (第一行有M字出現，顯示現在金額)
........................