INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A
PRINT X
INCREASE B
REPEAT A TIMES ( REPEAT B TIMES ( # WHILE TRUE
CLEAR O CLEAR P CLEAR Q CLEAR R CLEAR S
CLEAR Y CLEAR Z
INCREASE O
REPEAT X TIMES (
REPEAT S TIMES ( CLEAR S INCREASE O )
REPEAT R TIMES ( CLEAR R INCREASE S INCREASE Y INCREASE Z )
REPEAT Q TIMES ( CLEAR Q INCREASE R)
REPEAT P TIMES ( CLEAR P INCREASE Q INCREASE Y)
REPEAT O TIMES ( CLEAR O INCREASE P )
)
# O = ISZERO X
# PQRS = X=1234 MOD4
# Y = HALF X
# Z = QUARTER X
REPEAT P TIMES ( # IF X=1 MOD4
CLEAR T INCREASE T
REPEAT Z TIMES ( CLEAR T )
REPEAT T TIMES ( CLEAR B )
REPEAT B TIMES ( # IF Z=0 BREAK
REPEAT Y TIMES (
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE X
)
INCREASE Y INCREASE Y INCREASE Y INCREASE Y
PRINT Y # 12Z+4
INCREASE X
PRINT X # 6Z+2
CLEAR X
REPEAT Z TIMES ( INCREASE X INCREASE X INCREASE X )
INCREASE X
PRINT X # 3Z+1
) )
REPEAT Q TIMES ( # IF X=2 MOD4
PRINT Y # 2Z+1
CLEAR T INCREASE T
REPEAT Z TIMES ( CLEAR T )
REPEAT T TIMES ( CLEAR B )
REPEAT B TIMES ( # IF X=2, Z=0, WE HAVE TO TERMINATE.
REPEAT Y TIMES ( INCREASE X )
INCREASE X
PRINT X # 6Z+4
CLEAR X
REPEAT Z TIMES ( INCREASE X INCREASE X INCREASE X )
INCREASE X INCREASE X
PRINT X # 3Z+2
) )
REPEAT R TIMES ( # IF X=3 MOD 4 4Z+3+2Z+1
REPEAT Y TIMES (
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE X
)
INCREASE Y INCREASE Y INCREASE Y INCREASE Y
PRINT Y # 12Z+10
INCREASE X
PRINT X # 6Z+5
REPEAT Z TIMES (
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE X INCREASE X INCREASE X
)
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
PRINT Y # 18Z+16
INCREASE X INCREASE X INCREASE X
PRINT X # 9Z+8
)
REPEAT S TIMES ( # IF 4 MOD4
PRINT Y # 2Z
PRINT Z # Z
CLEAR X
REPEAT Z TIMES ( INCREASE X )
) )
)