The paper includes this pretty pattern from @viznut
@pixel ( x y -- ) ADDk STH SUB STHr AND #18 DIVk MUL SUB #09 GTH .Screen/pixel DEO JMP2r