提取曲线起始点？？？？

ranran_01

当一次性全部选中多条曲线后，再生成各曲线的起始点，该怎样改写此循环程序呢？？？？
6 W- d+ S! b3 u$ g* `$ R# } entity/cur
number/a(3),b(3）
l10: IDENT/'pick many curve',cur,resp
! ?, ~- `3 u& P; nJUMP/l10:,trm:,,resp
l20: a(1..3)=&spoint(cur)
: b4 X  O- b, N" L0 d3 w; v) {b(1..3)=&epoint(cur)
Print/a(1)，a(2)，a(3)
* U; m, l0 }" h( @0 V, e' rPrint/b(1)，b(2)，b(3))
  i$ X( e& R$ e, zJUMP/trm: $$程序结束。
trm: HALT