***P1
        AC  “<10→n> → n?” HLT 
    x=0 GOTO1 
        Min0F Min01 10 Min02 
    GSBP2 
LBL1 
         “<n→10> → n?” HLT Min02 10 Min01 AC Min0F 
    GSBP2 

***P2
LBL1 
        AC  “Input <x>” HLT Min03 AC Min00 Min04 
LBL2 
        MR03 ÷ MR01 = INT Min05 
    x=0 GOTO3 
        MR03 - MR05 × MR01 = 
    GSBP3 
        MR05 Min03 
    ISZ GOTO2 

LBL3 
        MR03 
    GSBP3 
        AC 
    x=F GOTO4 
         “<10→ AR01 >” PAUSE MR04 HLT 
    GOTO1 

LBL4 
         “< AR02 →10>” PAUSE MR04 HLT 
    GOTO1 

***P3
        × MR02 X^Y MR00 = M+04