%%HP: T(3)A(D)F(.);
\<< DUP2 \-> X Y
  \<< NAMES X SLINE 1
DISP 2 7
    FOR I Y I + 2 -
RECORD X SLINE I
DISP
    NEXT
  \>>
\>>