@

@ Now can anyone do faster than this?  I do not consider machine code

@ cheating ;-)

@

@USAGE: { #x #y } { #x1 #y1 } PXADD --> { #(x+x1) #(y+y1) }

@

%%HP: T(3)A(D)F(.);

@ Checksum: # BA68h

@ Bytes: 57		(When stored in a variable called PXADD)

\<< LIST\-> DROP 3

ROLLD OVER 1 GET +

3 ROLLD 2 GET + 2

\->LIST

\>>