|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0100
        #0f00
                DUP2 .System/r DEO2
                DUP2 .System/g DEO2
                .System/b DEO2
        #0110
                OVR .Screen/auto DEO
                DUP2 .Screen/width DEO2
                .Screen/height DEO2
        #00
        &v
                #00 OVR #0008 ADD2 .Screen/y DEO2
                STHk #00
                &h
                        #00 OVR #0008 ADD2 .Screen/x DEO2
                        DUP STHkr pixel
                        INC DUP ?&h
                POP POPr
                INC DUP ?&v
        POP
BRK
@pixel ( x y -- )
        ADDk STH SUB STHr AND #18 DIVk MUL SUB #09 GTH .Screen/pixel DEO
JMP2r