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 Z
REPEAT X TIMES (
INCREASE I REPEAT J TIMES (
CLEAR I CLEAR J
INCREASE K REPEAT L TIMES (
CLEAR K CLEAR L
INCREASE Z
)
REPEAT K TIMES ( INCREASE L )
)
REPEAT I TIMES ( INCREASE J )
)
# Z = QUARTER X
# I = J = MOD2 X
# K = L = HALF MOD4 2X
# PQRS = X=1234 MOD4
INCREASE J
REPEAT I TIMES (
INCREASE L
REPEAT K TIMES ( INCREASE R CLEAR K CLEAR L )
REPEAT L TIMES ( INCREASE P CLEAR L )
CLEAR I CLEAR J
)
REPEAT J TIMES (
INCREASE L
REPEAT K TIMES ( INCREASE Q CLEAR K CLEAR L )
REPEAT L TIMES ( INCREASE S CLEAR L )
CLEAR J
)
REPEAT P TIMES ( # IF X=1 MOD4
INCREASE T
REPEAT Z TIMES ( CLEAR T )
REPEAT T TIMES ( CLEAR B )
REPEAT B TIMES ( # IF Z=0 BREAK
REPEAT Z TIMES (
INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X
)
INCREASE X INCREASE X INCREASE X
PRINT X # 12Z+4
CLEAR X
REPEAT Z TIMES (
INCREASE Z INCREASE Z INCREASE Z INCREASE Z INCREASE Z
INCREASE X INCREASE X INCREASE X
)
INCREASE Z INCREASE Z
PRINT Z # 6Z+2
INCREASE X
PRINT X # 3Z+1
CLEAR P
) )
REPEAT Q TIMES ( # IF X=2 MOD4
CLEAR X
INCREASE T
REPEAT Z TIMES ( INCREASE X INCREASE X CLEAR T )
INCREASE X
PRINT X # 2Z+1
REPEAT T TIMES ( CLEAR B )
REPEAT B TIMES ( # IF Z=0, WE HAVE TO TERMINATE.
REPEAT Z TIMES (
INCREASE Z INCREASE Z INCREASE Z INCREASE Z INCREASE Z
INCREASE X
)
INCREASE Z INCREASE Z INCREASE Z INCREASE Z
PRINT Z # 6Z+4
INCREASE X
PRINT X # 3Z+2
CLEAR Q
) )
REPEAT R TIMES ( # IF X=3 MOD 4
REPEAT Z TIMES (
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE X INCREASE X
)
INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE Y INCREASE Y INCREASE Y INCREASE Y
INCREASE Y INCREASE Y
PRINT Y # 12Z+10
INCREASE X 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
CLEAR Y
INCREASE X INCREASE X INCREASE X
PRINT X # 9Z+8
CLEAR R
)
REPEAT S TIMES ( # IF 4 MOD4
CLEAR X
REPEAT Z TIMES (
INCREASE Z
INCREASE X
)
PRINT Z # 2Z
PRINT X # Z
CLEAR S
) )
)