All Program List

P0

AC Min01 Min02 Min13 Min15 8 Min00 
LBL0 GSBP6
M+01 GSBP6
M+02 DSZ GOTO0
MR01 GSBP7
GSBP9
GSBP6
AC 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 "FX[RTA]" 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 MR08 "[BLK][AR14][BLK]" 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
GSBP9
GSBP1
GSBP3
MR00 + X^2 + 2 = * 80 * MR06 * ( 3 X<>M05 M-05 - MR05 = XD "Points" GSBP9
MR08 "[AR09] games" GSBP9
GSBP9
MEANX INT "Average"

P1

IND MR05 Min19 Min11 Min16 M+16 M+16 AC MinF Min06 Min10 GSBP2
Min17 GSBP2
Min18 GSBP2
X<>M19 

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 * 89 % + M+19 
LBL9 MR1F ABS M-06 MR00 

P3

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 

P4

GSBP9
ISZ ISZ

P5

MR02 GSBP8
/ 3 = FRAC

P6

1 Min12 RAN# * 9 = INT M+12 10^X

P7

Min06 GSBP9
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]"

P8

* MRF +/- 10^X = FRAC * 10 = INT

P9

Min1F 69 X! MR1F GSBP9

END