プログラム |
ステップ数 |
内容 |
P9 |
5 |
Min1F RAN# MR1F GSBP9
|
P8 |
12 |
× MRF +/- 10^x = FRAC × 10 = INT
|
P7 |
26 |
Min06 AC Min00 Min1F LBL0 MR06 x=0 GOTO9 log INT 10^x M-06 log × MR00 ISZ 10^x M+1F = M+1F GOTO0 LBL9 " AR1F "
|
P6 |
10 |
1 Min12 RAN# × 9 = INT M+12 10^x
|
P5 |
7 |
MR02 GSBP8 ÷ 3 = FRAC
|
P4 |
4 |
GSBP9 ISZ ISZ
|
P3 |
180 |
Min00 x=F "Toitoi" x=F GSBP4 MRF X←→M06 x=F "Chanta" x=F GSBP4 2 x>=F GOTO7 MR12 X←→MF x=F x=0 MR10 GSBP8 Min04 6 x>=F 2 M+F MR10 GSBP8 M+04 MR04 x=0 GOTO7 "Pinfu" GSBP9 ISZ LBL7 1 MinF MR15 x=F "Tenho" x=F GSBP4 MR16 M+16 M+16 RND2 log FRAC x=0 "3renko" x=0 GSBP4 MR11 GSBP8 Min04 8 M+F M-06 MR11 GSBP8 M+04 MR04 x=F GOTO5 x=0 "Tanyao" x=0 GSBP9 x=0 ISZ MR16 RND8 log x=F "Ittsu" x=F GSBP4 MR18 MinF MR17 x=F MR19 x=F GOTO5 MR17 x=F x=0 MR19 x=F "Iipeiko" x=F GSBP9 x=F ISZ MR14 MinF MR11 GSBP8 x=0 GOTO3 "Dora" GSBP9 ISZ GOTO3 LBL5 8 Min00 "*YAKUMAN*" GSBP9 LBL3
|
P2 |
34 |
4 Min1F M+06 MR19 ABS log INT M-1F 10^x Min00 M-19 M-19 M-19 MR19 x>=0 GOTO9 1 M+F M+1F MR00 M+10 M+00 × 89 % + M+19 LBL9 MR1F ABS M-06 MR00
|
P1 |
18 |
IND MR05 Min19 Min11 Min16 M+16 M+16 AC MinF Min06 Min10 GSBP2 Min17 GSBP2 Min18 GSBP2 X←→M19
|
P0 |
216 |
AC Min01 Min02 Min13 Min15 8 Min00 LBL0 GSBP6 M+01 GSBP6 M+02 DSZ GOTO0 MR01 GSBP7 GSBP6 MR12 Min14 LBL0 1 MinF X←→M05 x=F M+05 MR13 IND M+05 MR05 1/x INT x=F MR13 x>=F " AR12 " x>=F PAUSE x>=F PAUSE x=0 GSBP1 x=0 "Ron□ AR12 " x=0 GOTO3 MR13 IND M-05 GSBP6 IND M+05 1 M+15 LBL7 "■ AR14 ■□ AR08" IND GOTO5 GSBP1 x=0 GOTO5 6 Min00 1 MinF LBL8 GSBP5 x=0 DSZ 1 M+F 9 x>=F GOTO8 LBL8 1 x=F GOTO4 GSBP5 Min18 2 M+18 M-F GSBP5 M+18 1 M+F GSBP5 x=0 GOTO8 × MR00 x>=0 6 = M-18 MR18 x=0 x=F 3 M+18 MRF - 5 = × % M-18 MR17 M-18 MR18 x>=0 GOTO8 M+17 MRF Min04 GOTO8 LBL1 MR01 GSBP7 HLT ABS INT Min04 x=0 GSBP1 x=0 GOTO5 MR04 MinF MR01 GSBP8 x=0 GOTO7 LBL4 MR04 Min12 - 1 = 10^x IND M-05 Min13 GOTO0 LBL5 "Tsumo□ AR12 " LBL3 MR11 GSBP7 MR02 GSBP7 GSBP1 GSBP3 MR00 + x^2 + 2 = × 80 × MR06 × ( 3 X←→M05 M-05 - MR05 = XD "#" GSBP9 " AR08 / AR09 " GSBP9 GSBP9 x~ INT "Ave□#"
|