計算機程式-----大話骰(可以和朋友無聊時玩玩啊！)

如何進行遊戲：首先一定要有兩部或以上的計算機，並且兩部計算機需要有這一個程式才能進行遊戲，首先雙方啟動這程式，然後計算機會出現C?的字樣，此時輸入你需要出現的數字位數(一般都是玩五位數的，最多是十位數)，如果是玩五位的便輸入5如果是玩十位的便輸入10然後按EXE，等待幾秒鐘後，計算機會顯示出你所輸入位數的數字，如果是五位便有五個數字，而每個數字都只會由1-6中其中一個(骰子的1-6)，最後假如你有看獎門人應該知道玩法如何吧！

如果不明白也可以看看以下例子：

玩家一的數字：23456 玩家二的數字：44552(例一)
玩家一的數字：23416 玩家二的數字：44112(例二)

首先雙方不能讓對方看到自己計算機上的數。玩家一先講，一開始可以由一個(1-6)先或直接跳說三個(1-6)，最多是十個(1-6)，現在玩家一一開始說兩個3，輪到玩家二，玩家二相信玩家一所說的因此繼續叫數，此時玩家二不能叫少於剛才對手所叫的個數(現在玩家二不能叫一個(1-6)，因此他只可用二個(1-6)繼續推上去，此時他叫四個4，輪到玩家一，此時玩家一不能叫四以下的個數，即是一個(1-6)、二個(1-6)、三個(1-6)玩家一也不能叫，而現在玩家一依然相信有四個4，因此他繼續叫，他叫四個5，此時輪到玩家二，他不相信有四個5，此時便揭曉勝負，雙方玩家一起亮出計算機，看看兩部計算機合共的數，好明顯兩部計算機合共只有三個5，但是玩家一卻誇大了說四個5而玩家二亦揭穿他，因此這局玩家二便勝出。

(注意1代表2-6任何一位數，引用例一及例二，因為雙方的數中三個1，因此假如在例一的情況，在揭曉勝負時1便會代表2-6中的5，因此合共有三個5，但是由於玩家一誇大了而被玩家二揭穿，因此玩家二依然是勝方。)

[這程式屬於CASIO fx-3650P 科學計算機的，其他型號計算機並不一定能夠輸入這個程式，敬請注意！]

程式集：

輸入程式先按三次MODE然後按1然後選擇你所想程式的位置(1-4)，然後依照以下程式碼輸入，如無意外輸入完成後會看到第二行顯示100即代表這程式有100個位元組，假如確認後再按三次MODE然後按2便完成輸入程序。接著下來便是執行程式了。(按Prog然後選擇你所想執行的程式位置(1-4)便成。)

程式組 100 bytes
1 Mem clear : ? → C : 0 → D : Lb1 0 : 0 → Y :
2 6 Ran# + 1 → X : X ≧ 1 Goto 1 : 1 > X Goto 2 :
3 Lb1 1 : X – 1 → X : Y + 1 → Y : X ≧ 1 => Goto 1 :
4 1 > X => Goto 2 : Lb1 2 : Y x 10 ^ D + A → A :
5 D + 1 → D : C > D => Goto 0 : C : D => A : Ans

指令符號輸入方法：

特別命令或符號 PRGM 模式中的按法
Mem clear SHIFT MODE 1
Stat clear SHIFT MODE 1
? SHIFT 3 1
: SHIFT 3 3 or EXE
◢ SHIFT 3 4
→ SHIFT 3 2
=> SHIFT 3 REPLAY 右鍵 1
= SHIFT 3 REPLAY 右鍵 2
≠ SHIFT 3 REPLAY 右鍵 3
> SHIFT 3 REPLAY 右鍵 4
≧ SHIFT 3 REPLAY 右鍵 5
Goto SHIFT 3 REPLAY 左鍵 1
Lbl SHIFT 3 REPLAY 左鍵 2
A ALPHA (-)
B ALPHA 。,,,
C ALPHA hyp
D ALPHA sin
X ALPHA )
Y ALPHA ，
M ALPHA M+
Fix 五次 MODE, 1
Sci 五次 MODE, 2
Norm 五次 MODE, 3
Rnd SHIFT 0
Abs SHIFT )
arg SHIFT (
Conjg SHIFT ，