# Main script ----------- R = 1 = LOOP PYÖRII , 0 = LOOP POIS
PRINT X
INCREASE R
INCREASE W INCREASE W INCREASE W INCREASE W INCREASE W
REPEAT W TIMES ( REPEAT W TIMES ( INCREASE W ) )
REPEAT W TIMES (
REPEAT R TIMES (
# ------------------------ JOS X = 1 , R = 0
INCREASE A
INCREASE B
CLEAR G
REPEAT X TIMES (
REPEAT B TIMES (
REPEAT G TIMES (
CLEAR B
CLEAR G
)
REPEAT A TIMES (
CLEAR A
INCREASE G
)
)
)
REPEAT G TIMES ( CLEAR R )
# ---------------------------------------------
)
REPEAT R TIMES (
# ----------------------------- IF a = 1 , niin pariton | a = 0 , niin parillinen
CLEAR W
CLEAR Q
REPEAT X TIMES (
INCREASE Q
CLEAR W
REPEAT Q TIMES (
REPEAT W TIMES (
CLEAR W
CLEAR Q
)
INCREASE W
)
)
# ---------------------------------
# ------------------------------- JOS PARITON KERRO KOLMELLA LISÄÄ YKS
REPEAT Q TIMES (
REPEAT X TIMES ( INCREASE X INCREASE X )
INCREASE X
)
INCREASE Q
CLEAR W
REPEAT Q TIMES (
REPEAT W TIMES (
CLEAR W
CLEAR Q
)
INCREASE W
)
# -------------------- JOS PARILLINEN JAA KAHDELLA
REPEAT Q TIMES (
CLEAR C
CLEAR A
INCREASE A
REPEAT X TIMES (
REPEAT B TIMES (
INCREASE C
CLEAR B
INCREASE Z
)
REPEAT A TIMES (
CLEAR A
INCREASE B
CLEAR Z
)
REPEAT Z TIMES ( INCREASE A )
)
CLEAR X
REPEAT C TIMES ( INCREASE X )
)
# ----------------------------------------------
# ---------------- LASKETTU ARVO
REPEAT R TIMES ( PRINT X )
# --------------------------
)
)
