%%HP: T(1)A(R)F(.);
« DUP SIZE 2 / .5 +
IP "GROB 1 " SWAP +
" " + SWAP + OBJ¨
# 4017h SYSEVAL
# 56B6h SYSEVAL
DROP NEWOB
»