%%HP: T(3)A(D)F(.);
DIR
  F { F1 F2 F3 }
  L { X Y Z }
  \Gm .000001
  CONTROL
    \<< TIME 0 'ITER'
STO F SIZE 'A' STO
{ A 1 } 1 CON { A 1
} 0 CON 'TMP1' STO
'TMP2' STO
      DO XXX 'ITER'
1 STO+
      UNTIL TMP1
TMP2 - OBJ\-> DROP A
1 - 1
        START + -1
        STEP ABS \Gm
\<=
      END 440 .5
BEEP TIME SWAP -
10000 *
    \>>
  XXX
    \<< 1 A
      FOR j 'L(j)'
EVAL EVAL
      NEXT { A 1 }
\->ARRY 'TMP1' STO 1
A
      FOR j 'L(j)'
EVAL EVAL
      NEXT { A 1 }
\->ARRY ZZZ - OBJ\->
DROP A 1
      FOR k 'L(k)'
EVAL STO -1
      STEP 1 A
      FOR j 'L(j)'
EVAL EVAL
      NEXT { A 1 }
\->ARRY 'TMP2' STO
    \>>
  ZZZ
    \<< YYY 1 A
      FOR j 1 A
        FOR k 'F(j)
' EVAL 'L(k)' EVAL
\.d
        NEXT
      NEXT { A A }
\->ARRY /
    \>>
  YYY
    \<< 1 A
      FOR j 'F(j)'
EVAL EVAL EVAL
      NEXT { A 1 }
\->ARRY
    \>>
END
