# pääloop kunnes x=1
PRINT X
INCREASE R
# -- tästä ei puhuta
INCREASE W INCREASE W INCREASE W
REPEAT W TIMES ( REPEAT X TIMES ( INCREASE W ) )
REPEAT W TIMES (
CLEAR P
CLEAR A
CLEAR Z
INCREASE P
CLEAR J
CLEAR I
CLEAR C
CLEAR Q
INCREASE Q
CLEAR S
REPEAT R TIMES (
# A = 1 , niin pariton | A = 0 , niin parillinen
REPEAT X TIMES (
INCREASE Z
REPEAT A TIMES (
CLEAR Z
)
CLEAR A
REPEAT Z TIMES (
INCREASE A
INCREASE C
)
)
# A = 1 , niin pariton <------------------------
REPEAT A TIMES (
# Ykkös checker--------------------------------
REPEAT X TIMES (
REPEAT Q TIMES (
REPEAT S TIMES (
INCREASE R
CLEAR Q
)
REPEAT Q TIMES (
CLEAR R
)
)
INCREASE S
INCREASE X INCREASE X
)
INCREASE X
CLEAR P
CLEAR C
)
# A = 0 , niin parillinen. P = 0 jos parillinen tehty <------------------------
REPEAT P TIMES ( CLEAR X )
)
REPEAT C TIMES ( INCREASE X )
REPEAT R TIMES ( PRINT X )
)
