%%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 /

 -3 CF OBJì OBJì
DROP 1 - 

PATH DUP OBJì 1
SWAP START EVAL 'X'
PURGE NEXT EVAL

ì ORD
  ½ 0 SWAP 0 ORD 1
-
    FOR J 'X' ORD J
- ^ * + SWAP
    NEXT + 'Y' SWAP
=
  ╗

  ╗ DUP STEQ 'X'
INDEP FUNCTION DRAW
TEXT 30.01 MENU
╗