P9 tanh GSBP9 P8 * MRF +/- 10^x = FRAC * 1 0 = INT P7 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 Alpha Beginar1FAlpha End P6 1 M+15 Min12 RAN# * 9 = INT M+12 10^x P5 MR00 MinF MR02 GSBP8 / 3 = FRAC RND1 P4 2 M+00 GSBP9 P3 Min00 x=F Alpha BeginToitoiAlpha End x=F GSBP4 MRF X<->M06 x=F Alpha BeginChantaAlpha End 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 Alpha BeginPinfuAlpha End GSBP9 ISZ LBL7 1 MinF MR15 x=F Alpha BeginTenhoAlpha End x=F GSBP4 MR16 M+16 M+16 log RND4 FRAC x=0 Alpha Begin3renkoAlpha End x=0 GSBP4 MR11 GSBP8 Min04 8 M+F M-06 MR11 GSBP8 M+04 MR04 x=F GOTO5 x=0 Alpha BeginTanyaoAlpha End x=0 DSZ x=0 GSBP4 MR16 RND8 log x=F Alpha BeginIttsuAlpha End x=F GSBP4 MR18 MinF MR17 x=F MR19 x=F GOTO5 MR17 x=F x=0 MR19 x=F Alpha BeginIipeikoAlpha End x=F ISZ x=F GSBP9 MR14 MinF MR11 GSBP8 x=0 GOTO3 Alpha BeginDoraAlpha End GSBP9 ISZ GOTO3 LBL5 8 Min00 Alpha Begin*YAKUMAN*Alpha End GSBP9 LBL3 P2 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 * 8 9 % + M+19 LBL9 MR1F ABS M-06 MR00 P1 IND MR05 Min19 Min11 Min16 M+16 M+16 AC MinF Min06 Min10 GSBP2 Min17 GSBP2 Min18 GSBP2 X<->M19 P0 AC Min01 Min02 Min13 8 Min00 LBL0 GSBP6 M+01 GSBP6 M+02 DSZ GOTO0 GSBP6 MR01 GSBP7 Min15 X<->M12 Min14 LBL0 1 MinF X<->M05 x=F M+05 MR13 IND M+05 MR05 1/x INT x=F MR12 x>=F Alpha Beginar12Alpha End x>=F PAUSE x>=F PAUSE x=0 GSBP1 x=0 Alpha BeginRonSpacear12Alpha End x=0 GOTO3 GSBP6 M-13 MR13 IND M-05 LBL7 Alpha Begin|ar14|Spacear08Alpha End IND GOTO5 GSBP1 x=0 GOTO5 1 Min17 9 Min00 LBL8 GSBP5 M-17 DSZ GOTO8 MR00 Min16 LBL8 ISZ GSBP5 Min19 + X<->M16 X<->M1F Min18 = 10^x Min10 6 M-F x=F GOTO4 M-10 MR17 x=0 Min10 MR1F x=0 GOTO8 M-18 M-19 M+10 MR18 x=0 Min10 MR19 x=0 Min10 MR06 X<->MF * % M-10 MR10 x>=F GOTO8 Min06 MR00 Min04 1 M-04 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 Alpha BeginTsumoSpacear12Alpha End LBL3 MR11 GSBP7 MR02 GSBP7 GSBP1 GSBP3 MR00 + x² + 2 = * 8 0 * MR06 * MR05 M+05 3 M-05 MR05 = xD Alpha Begin#Alpha End GSBP9 Alpha Beginar08/ar09Alpha End GSBP9 GSBP9 xStat INT Alpha BeginAveSpace#Alpha End