All Program List P9 Min1F RAN# MR1F GSBP9 P8 / MRF 10^X = FRAC * 10 = 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 "[AR1F]" P6 1 Min12 RAN# * 9 = INT M+12 10^X P5 MR02 GSBP8 / 3 = FRAC P4 ABS - 5 = ABS P3 Min04 X=F "Toitoi" X=F GSBP9 X=F 2 Min00 MRF X<>M06 X>=F GOTO6 ISZ ISZ "Chanta" GSBP9 LBL6 2 X>=F GOTO7 MR12 MinF 3 X=F GOTO4 MR10 GSBP8 M+04 LBL4 7 X=F GOTO5 2 M+F MR10 GSBP8 M+04 LBL5 MR04 X=0 GOTO7 ISZ "Pinfu" GSBP9 LBL7 9 MinF IND MR05 Min10 GSBP8 Min04 1 MinF MR10 GSBP8 M+04 MR04 X=0 ISZ X=0 "Tanyao" X=0 GSBP9 MR15 X=F "Tenho" X=F ISZ X=F ISZ X=F GSBP9 9 10^X / 9 = INT MinF MR10 X=F ISZ X=F ISZ X=F "Ittsu" X=F GSBP9 MR18 MinF MR17 X=F GOTO2 MR19 X=F GOTO8 GOTO1 LBL2 MR19 X=F X=0 GOTO8 8 Min00 "Issyoku" GSBP9 GOTO3 LBL8 ISZ "Iipeiko" GSBP9 LBL1 MR14 MinF MR10 GSBP8 X=0 GOTO3 ISZ "Dora" GSBP9 LBL3 P2 MR19 ABS LOG INT Min00 10^X M-19 M-19 M-19 MR19 X>=0 ISZ X>=0 GOTO9 1 M+F AC X<>M00 M-00 10^X M+10 * 1.89 = M+19 LBL9 MR00 GSBP4 M-06 MR00 P1 IND MR05 Min19 AC MinF Min10 11 Min06 GSBP2 Min17 GSBP2 Min18 GSBP2 X<>M19 P0 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 LBL1 "[BLK][AR14][BLK] [AR08]0" MR05 LN X=0 GOTO2 GSBP1 X=0 GOTO5 AC MinF 9 Min17 LBL8 GSBP5 Min18 2 M+18 M+F GSBP5 M+18 1 M-F GSBP5 X=0 GOTO9 * 6 = M-18 MR18 X=0 X=F 3 M+18 MRF GSBP4 SIN M-18 MR18 - MR17 = X>=0 GOTO9 MR18 Min17 MRF Min04 LBL9 8 X>=F GOTO8 GOTO4 LBL2 MR01 GSBP7 HLT Min04 X=0 GSBP1 X=0 GOTO5 MR04 MinF MR01 GSBP8 X=0 GOTO1 LBL4 MR04 Min12 - 1 = 10^X IND M-05 Min13 GOTO0 LBL5 "Tsumo [AR12]" LBL3 MR01 MinF IND MR05 X=F GSBP7 MR02 GSBP7 GSBP1 GSBP3 MR00 + X^2 + 2 = * 8 M-06 * MR06 * ( 3 X<>M05 M-05 - MR05 = XD "#0" GSBP9 "[AR08]0/[AR09]" GSBP9 GSBP9 MEANX INT "Ave #0" END