提取曲线起始点？？？？

ranran_01

当一次性全部选中多条曲线后，再生成各曲线的起始点，该怎样改写此循环程序呢？？？？
entity/cur
number/a(3),b(3）
* Z3 d; Y" U& t+ C  Y; El10: IDENT/'pick many curve',cur,resp
JUMP/l10:,trm:,,resp
& d( X, ~; d8 d. R5 z' u9 Bl20: a(1..3)=&spoint(cur)
2 J& `. E) s3 i9 y# k6 wb(1..3)=&epoint(cur)
Print/a(1)，a(2)，a(3)
8 A# s# j: R+ [Print/b(1)，b(2)，b(3))
JUMP/trm: $$程序结束。
; O# k6 i  q2 xtrm: HALT