***P0
        Min01 AC  “Start”
    GOTO2 

LBL1 
        MR01 ÷ 2 “;×#” HLT = Min01 - 1 = 
    x=0 GOTO0 

LBL2 
        MR01 ÷ 2 = FRAC 
    x=0 GOTO1 

LBL3 
        3 Min02 
LBL4 
        MR01 √ Min0F 1 M+0F 
LBL5 
        MR01 ÷ MR02 
    x≥F GOTO7 
        = FRAC 
    x=0 GOTO8 

LBL6 
        2 M+02 
    GOTO5 

LBL8 
        MR01 ÷ MR02 × MR02 - MR01 = 
    x=0 GOTO9 

    GOTO6 

LBL9 
        MR01 ÷ MR02  “;×#” HLT = Min01 
    GOTO4 

LBL7 
        MR01  “;×#” HLT 
LBL0 
         “;×END”