PRINT X          

CLEAR A
INCREASE A      
REPEAT 1000 TIMES (   
    CLEAR B
    REPEAT X TIMES (
        INCREASE B
    )
   
    PRINT X

    CLEAR A
    REPEAT X TIMES (
        INCREASE A
        INCREASE A
    )

    CLEAR B
    REPEAT X TIMES (
        INCREASE B
    )
    CLEAR X
    REPEAT B/2 TIMES (
        INCREASE X
    )

    CLEAR X
    REPEAT (3*B+1) TIMES (
        INCREASE X
    )
)