%%HP: T(1)A(D)F(.);
 N  ORD n
   SCATRPLOT 0 ORD
    FOR J '(I=1,n,
DAT(I,2)*DAT(I,1)
^J)' EVAL
    NEXT { 'ORD+1'
} ARRY N 1 ORD
    FOR J '(I=1,n,
DAT(I,1)^J)' EVAL
    NEXT ORD 1 +
ORD 2 *
    FOR J ORD DUPN
'(I=1,n,DAT(I,1)^
J)' EVAL
    NEXT { 'ORD+1'
'ORD+1' } ARRY /
MKPOLY
   DUP STEQ 'X'
INDEP FUNCTION DRAW
TEXT 30.01 MENU

