1000
INCREASE Z INCREASE C INCREASE V INCREASE L
INCREASE N
REPEAT X TIMES (
REPEAT N TIMES (
CLEAR N CLEAR B CLEAR M
# division
INCREASE M
REPEAT X TIMES (
REPEAT M TIMES ( CLEAR X CLEAR M )
INCREASE B
REPEAT N TIMES (
CLEAR N
CLEAR B
INCREASE X
)
REPEAT B TIMES (
INCREASE N
)
)
CLEAR N CLEAR M
# should continue?
REPEAT X TIMES (
CLEAR N INCREASE N
)
CLEAR M
INCREASE M
# Q W E R T Y U I O P A S D F G H J K for bits
# z c v l
REPEAT Z TIMES ( #1XXX
REPEAT C ( #11XX
REPEAT V ( #111X
REPEAT L ( #1111
REPEAT M TIMES ( #SET
REPEAT B TIMES ( INCREASE H )
CLEAR M
CLEAR L # MAKE 1110
)
)
REPEAT M TIMES ( #SET 1110
REPEAT B TIMES ( INCREASE G )
CLEAR M
CLEAR V INCREASE L # MAKE 1101
)
)
REPEAT L TIMES ( #1101
REPEAT M TIMES ( #SET
REPEAT B TIMES ( INCREASE F )
CLEAR M
CLEAR L # MAKE 1100
)
)
REPEAT M TIMES ( #SET 1100
REPEAT B TIMES ( INCREASE D )
CLEAR M
)
)
REPEAT V TIMES ( # 101X
REPEAT L TIMES ( #1011
REPEAT M TIMES ( #SET
REPEAT B TIMES ( INCREASE S )
CLEAR M
CLEAR L # MAKE 1010
)
)
REPEAT M TIMES ( #SET 1010
REPEAT B TIMES ( INCREASE A )
CLEAR M
CLEAR V INCREASE L # MAKE 1001
)
)
REPEAT L TIMES ( #1001
REPEAT M TIMES ( #SET
REPEAT B TIMES ( INCREASE P )
CLEAR M
CLEAR L # MAKE 1000
)
)
REPEAT M TIMES ( # SET 1000
REPEAT B TIMES ( INCREASE O )
CLEAR M
CLEAR Z INCREASE C INCREASE V INCREASE L # MAKE 0111
)
)
REPEAT C ( #01XX
REPEAT V ( #011X
REPEAT L ( #0111
REPEAT M TIMES (
REPEAT B TIMES ( INCREASE I )
CLEAR M
CLEAR L #MAKE 0110
)
)
REPEAT M TIMES ( # SET 0110
REPEAT B TIMES ( INCREASE U )
CLEAR M
CLEAR V INCREASE L #MAKE 0101
)
)
REPEAT L ( #0101
REPEAT M TIMES (
REPEAT B TIMES ( INCREASE Y )
CLEAR M
CLEAR L # MAKE 0100
)
)
REPEAT M TIMES ( # SET 0100
REPEAT B TIMES ( INCREASE T )
CLEAR M
CLEAR C INCREASE L INCREASE V #MAKE 0011
)
)
REPEAT V ( # 001X
REPEAT L ( # 0011
REPEAT M TIMES ( # SET
REPEAT B TIMES ( INCREASE R )
CLEAR M
CLEAR L #MAKE 0010
)
)
REPEAT M TIMES ( # SET 0010
REPEAT B TIMES ( INCREASE E )
CLEAR M
CLEAR V INCREASE L # MAKE 0001
)
)
REPEAT L ( #0001
REPEAT M TIMES ( # SET
REPEAT B TIMES ( INCREASE W )
CLEAR M
CLEAR L #MAKE 0000
)
)
REPEAT M TIMES ( # SET 0000
REPEAT B TIMES ( INCREASE Q )
CLEAR M
)
)
)