code branch     $4672 $3A01 $6811 $468F end-code
code ?branch    $0001 $6830 $3604 $2900 $D002 $4671 $3104 $468F $4672 $3A01
                $6811 $468F end-code

code lit        $4674 $3E04 $6030 $3C01 $6820 $3405 $46A7 end-code
code exit       $BD00 end-code

: execute       1+ >r ;