FX-502P チンチロリンプログラム

MODE 2                // プログラム書き込みモードにする
P2                    // P2 にメインプログラムを作成
GSB P3     -- F2-P3   // プログラム P3 を呼び出す
Min 0      -- C6-00   // 結果をメモリ0にストア
GSB P3     -- F2-P3
Min 1      -- C6-01
GSB P3     -- F2-P3
Min 2      -- C6-02
MR 0       -- C7-00   // メモリ0の値をロード
+          -- E3      // 以下は60進表記にするために計算
MR 1       -- C7-01
÷         -- E2
6          -- 06
0          -- 00
+          -- E3
MR 2       -- C7-02
÷         -- E2
3          -- 03
6          -- 06
0          -- 00
0          -- 00
=          -- E5
INV ., ,,  -- FF-F7   // 60進で表記

P3                    // 1から6までの乱数を発生するプログラム
INV RAN#   -- FF-EP   // 0.000から0.999 までの乱数を発生
×         -- E1
6          -- 06
+          -- E3
1          -- 01
=          -- E5
INV INT    -- FF-C0   // 整数部を取り出す

MODE 1                // プログラム実行モードにする
P2                    // P2 を実行

実行結果例
6□4□2