提取曲线起始点？？？？

ranran_01

当一次性全部选中多条曲线后，再生成各曲线的起始点，该怎样改写此循环程序呢？？？？
0 P. z( K" J/ r  k% u0 X entity/cur
number/a(3),b(3）
' S# n% T: J/ U: q$ n! ~+ xl10: IDENT/'pick many curve',cur,resp
JUMP/l10:,trm:,,resp
  p2 x6 f: t6 K) M; Kl20: a(1..3)=&spoint(cur)
b(1..3)=&epoint(cur)
Print/a(1)，a(2)，a(3)
, D0 v5 h) v# T9 BPrint/b(1)，b(2)，b(3))
& g8 t1 p  m5 r  v: qJUMP/trm: $$程序结束。
trm: HALT