大細
程式日期: 2011年1月22日
程式由網友 DLAL 提供。
注意: E 是按 EXP。
程式 (219 bytes)
E2→M◢ Lbl 0: M→D: log M: ?→X: Fix 0:
X2>XM => Goto 0: ?→Y: Y2≧17Y => Goto 0:
Y: Rnd: Y-Ans => Goto 0: XM-: 1+5Ran#: Rnd◢
Ans→A: 1+5Ran#: Rnd◢ Ans→B: 1+5Ran#: Rnd◢
Ans→C: Norm 1: A=B => A+10=Y => 9XM+:
B=C => B+10=Y => 9XM+: A=C => A+10=Y => 9XM+:
A=B => B=C => Goto 1: Y=8 => 10≧A+B+C => 2XM+:
Y=9 => A+B+C≧11 => 2XM+: Goto 2: Lbl 1:
A=Y => 151XM+: Y=7 => 25XM+: Lbl 2: M-D◢ M◢ Goto 0
玩法:
1. 顯示本金 $100
2. 輸入投注金額 (投注金額小於本金)
3. 輸入欲投注的項目 (整數1至6分別為圍一至圍六、7為全圍、8,9分別為小及大、11至16分別為雙骰1至6)
4.顯示第一顆骰子滾出的數值
5.顯示第二顆骰子滾出的數值
6.顯示第三顆骰子滾出的數值
7.顯示該次的盈利或虧損
8.顯示最後的本金
程式會重複步驟2至8，直至本金為0時顯示Math ERROR
賠率的計算方法如下:
中大小:+1倍
中雙骰:+8倍
中圍骰:+150倍
中全圍:+24倍