INCREASE D
INCREASE D
INCREASE D
INCREASE P
INCREASE P
CLEAR J
REPEAT P TIMES (
REPEAT P TIMES (
REPEAT P TIMES (
REPEAT P TIMES (
REPEAT P TIMES (
REPEAT P TIMES (
REPEAT P TIMES (
INCREASE J
)
)
)
)
)
)
)
PRINT X
REPEAT J TIMES (
CLEAR S
CLEAR F
REPEAT X TIMES (
REPEAT F TIMES (
CLEAR F
INCREASE S
)
INCREASE F
)
CLEAR K
REPEAT S TIMES (
CLEAR K
INCREASE K
)
REPEAT K TIMES (
#GET X MODULO 2 (Z)
CLEAR Z
INCREASE Z
CLEAR R
REPEAT X TIMES (
CLEAR O
CLEAR F
REPEAT Z TIMES (
REPEAT F TIMES (
CLEAR F
INCREASE O
)
INCREASE F
REPEAT O TIMES (
INCREASE R
CLEAR O
CLEAR Z
)
)
INCREASE Z
)
REPEAT R TIMES (
INCREASE R
)
CLEAR Z
REPEAT X TIMES (
INCREASE Z
)
REPEAT R TIMES (
CLEAR F
CLEAR Y
REPEAT Z TIMES (
REPEAT F TIMES (
CLEAR F
INCREASE Y
)
INCREASE F
)
CLEAR Z
REPEAT Y TIMES (
INCREASE Z
)
)
#
# Z IS X MODULO 2
#X = 3X + 1 IF MODULO = 1
REPEAT Z TIMES ( # IF MODULO = 1
REPEAT D TIMES (
REPEAT X TIMES (
INCREASE C
)
)
INCREASE C
CLEAR X
REPEAT C TIMES (
INCREASE X
)
CLEAR C
PRINT X
)
#
# DIVIDE X BY 2
CLEAR O
CLEAR R
CLEAR F
CLEAR Z
INCREASE Z
REPEAT X TIMES (
CLEAR O
CLEAR F
REPEAT Z TIMES (
REPEAT F TIMES (
CLEAR F
INCREASE O
)
INCREASE F
REPEAT O TIMES (
INCREASE R
CLEAR O
CLEAR Z
)
)
INCREASE Z
)
CLEAR X
REPEAT R TIMES (
INCREASE X
)
CLEAR R
PRINT X
)
)
