谁能帮我看一下这段代码哪出问题了，为什么运行不了

youxin123

#include"stdio.h"
* B5 t3 x1 i! A5 F+ o/ U6 \#include"math.h"
                FILE*fp;
9 `) T+ @7 [/ s& G8 z8 h( C                int i,gcode;
2 ?6 z" v& e- ^( @  ]: M                char fname[14],gvalue[65];
1 z/ ?8 G# i, q$ s3 c" _                float xs[100],ys[100],zs[100],xe[100],ye[100],ze[100];
# S% z9 F1 m2 f* e+ Z1 D1 u                main()
                {int n;
+ w2 e# c8 r( M$ ~$ d# B9 }5 ^  B                i=0;
                scanline();
                printf("Enter data file name:");
# m0 c4 S7 y9 d$ B                scanf("%s",fname);
                fp=fopen(fname,"w");
+ t$ b! x. f5 b9 n1 B7 k                fprintf(fp,"%d\n",i);
, J7 w, J7 `$ h2 _                for(n=1;n<=i;n++)
8 j7 x/ `' \. }, Z8 T: X                {fprintf(fp,"%f,%f,%f\n",xs[n],ys[n],zs[n]);
4 U7 N) n3 ], p0 p- \( W, T                fprintf(fp,"%f,%f,%f\n",xe[n],ye[n],ze[n]);
! a9 v7 c; J: ], a" I5 d                }
, b* ?3 ]' D' ]                fclose(fp);
                }
- K3 P7 |8 ^, g0 m# S                int scanline()
- l  B3 ?- n+ x) Q6 N% b5 i& R                {printf("Enter DXF file name:");
- V2 x6 i. N0 N- i1 b: ]2 i                scanf("%s",fname);
                strcat(fname,".dxf");
                fp=fopen(fname,"r");
, K5 w1 E6 b, v                do{fscanf(fp,"%d",&gcode);
                fscanf(fp,"%s",gvalue);
                }while(gcode!=2||strcmp(gvalue,"ENTITIES")!=0);
                do{fscanf(fp,"%d",&gcode);
" A4 @" D; w+ K! }4 O' W2 X/ Q                fscanf(fp,"%s",gvalue);
                if(gcode==0&&strcmp(gvalue,"LINE")==0)outline();
% h6 t  ^( c$ X: i9 V                }while(gcode!=0||strcmp(gvalue,"ENDSEC")!=0);
8 q# W8 u& m: x  T                fclose(fp);
( ?( X2 r1 ^& ]! T  v! q' E                return0;
                }
                int outline()
                {do{fscanf(fp,"%d",&gcode);
  H- m# e2 N! O# k8 E8 _. h1 C                if(gcode==10)
  e9 a* f/ H1 x                {i=i+1;
! y8 W/ S' Y3 u0 [$ Y1 C9 t5 h7 [                fscanf(fp,"%f",&xs[i]);
. M- x" l8 k# q; Y& b" I                }
5 M4 |2 k, I/ v2 C* S8 Q                else
% I1 C7 w& |( M$ X2 x/ |& V) N                fscanf(fp,"%s",gvalue);
                }while(gcode!=10);
: t8 [- z% R7 |2 \. e/ |, ~  I                fscanf(fp,"%d",&gcode);
                fscanf(fp,"%f",&ys[i]);
8 |* b/ ~. [* I5 V, O, B                fscanf(fp,"%d",&gcode);
% {7 G7 r: Y5 b7 C' \4 p1 f0 X                fscanf(fp,"%f",&zs[i]);
                fscanf(fp,"%d",&gcode);
6 \9 Q5 R: }3 M6 ^) m5 c4 }                fscanf(fp,"%f",&xe[i]);
5 m8 E3 j& r6 p+ H                fscanf(fp,"%d",&gcode);
0 Q9 T4 L' Y$ {" {* u                fscanf(fp,"%f",&ye[i]);
                fscanf(fp,"%d",&gcode);
                fscanf(fp,"%f",&ze[i]);
                return0;
                }