grip调试不出来，哪位大神帮我看看，附代码

wangkcw

新手求指教，30行、35行一直调试不出来，哪位大神给看看啊，跪谢！
entity/face,pts(100)
entity/pt1,pt2(100) ,cuv1,li1(100),li2(100)
number/u,v $$ 曲面的u，v参数
number/a(100),b(100),n,i
number/mat1(12)

l11:
   n=25

l10:
   gpos/'选择点',x,y,z,resp
   jump/l10:,end:,,resp
   pt1=point/x,y,z      $$选择眼点

l20:
   ident/'选择边界',cuv1,resp
   jump/l20:,end:,,,resp    $$选择边界

l40:
   param/'输入点数','点数=',n,resp
   jump/l40:,end:,,,resp        $$输入分割点数

l50:
   mask/71
   ident/'选择镜面',face,resp        $$输入镜面
   jump/l50:,end:,,,resp

l60:
   i=n
   cpset/eparam,cuv1,1,part,1/i*n,1/i*(n-1),pts(n)      $$生成点2
   li1(n)=line/pt1,pts(n)                         $$点1与曲线上的点2连线成线1
   sparf/face,pts(n),u,v                          $$面上点2处的法向
   a(1..n)=sposf(face,u,v)                           $$面上点2的位置
   b(1..n)=snorf(face,u,v)                         $$面上点2的法向矢量
   mat1(n)=matrix/mirror,b(n)
   li2(n)=transf/mat1,li1(n)                    $$镜像直线1
   n=n-1
   if/n==0,jump/end:
   jump/l60:

end:
halt