提取曲线起始点？？？？

ranran_01

当一次性全部选中多条曲线后，再生成各曲线的起始点，该怎样改写此循环程序呢？？？？
entity/cur
- w" k: p4 [5 a8 q5 Y4 H number/a(3),b(3）
l10: IDENT/'pick many curve',cur,resp
: L7 l0 z# H/ l. |, hJUMP/l10:,trm:,,resp
l20: a(1..3)=&spoint(cur)
% g2 T/ n3 s: z3 n' vb(1..3)=&epoint(cur)
/ S# H$ e9 e/ `% C$ h+ S* VPrint/a(1)，a(2)，a(3)
$ A% r0 u+ J6 |$ y4 ~: v- n- \  jPrint/b(1)，b(2)，b(3))
JUMP/trm: $$程序结束。
trm: HALT