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

youxin123

#include"stdio.h"
! G( n& Y) R7 b) \3 y#include"math.h"
                FILE*fp;
/ f% x/ z, f' C  g7 \- c. C                int i,gcode;
                char fname[14],gvalue[65];
                float xs[100],ys[100],zs[100],xe[100],ye[100],ze[100];
1 Z+ Y1 J, _; J2 {7 Z$ `) `5 X                main()
                {int n;
                i=0;
                scanline();
                printf("Enter data file name:");
                scanf("%s",fname);
                fp=fopen(fname,"w");
                fprintf(fp,"%d\n",i);
                for(n=1;n<=i;n++)
                {fprintf(fp,"%f,%f,%f\n",xs[n],ys[n],zs[n]);
                fprintf(fp,"%f,%f,%f\n",xe[n],ye[n],ze[n]);
1 {6 x! b5 Z& c7 p8 c                }
                fclose(fp);
                }
! G( ^* f( U5 ^                int scanline()
- v! \" U0 e6 o; {                {printf("Enter DXF file name:");
                scanf("%s",fname);
' l5 J) k# O/ ]/ A                strcat(fname,".dxf");
                fp=fopen(fname,"r");
                do{fscanf(fp,"%d",&gcode);
                fscanf(fp,"%s",gvalue);
" W: N' y2 m/ ~" t4 C7 c  j                }while(gcode!=2||strcmp(gvalue,"ENTITIES")!=0);
) i" \" }* r3 ~5 t                do{fscanf(fp,"%d",&gcode);
3 g3 L% e( D( N% p% F6 I                fscanf(fp,"%s",gvalue);
$ X5 w" Y( O, p% q) Z- K* f                if(gcode==0&&strcmp(gvalue,"LINE")==0)outline();
- x2 A9 M' F) W! e                }while(gcode!=0||strcmp(gvalue,"ENDSEC")!=0);
4 j# S$ R+ E( R  i7 [                fclose(fp);
& a5 E/ m# a8 o/ M; m' H  b' s                return0;
$ h: v2 s2 e! W9 Q6 i6 p                }
) x8 m' d% |+ Y8 M! y8 @/ M                int outline()
3 `+ U% t* `- Y! B+ Z; A                {do{fscanf(fp,"%d",&gcode);
                if(gcode==10)
                {i=i+1;
/ a; ^7 Q# P; c6 D+ q                fscanf(fp,"%f",&xs[i]);
0 [  R' j# l& {- l% N! ^                }
                else
                fscanf(fp,"%s",gvalue);
                }while(gcode!=10);
1 q1 i% Q0 T, @% @4 Q+ W5 N                fscanf(fp,"%d",&gcode);
                fscanf(fp,"%f",&ys[i]);
/ s# P- V6 l. ]: S, [                fscanf(fp,"%d",&gcode);
* ]4 |. j8 Q; k1 R$ |+ }/ ^                fscanf(fp,"%f",&zs[i]);
                fscanf(fp,"%d",&gcode);
                fscanf(fp,"%f",&xe[i]);
                fscanf(fp,"%d",&gcode);
1 U: T# n8 x. ~+ U                fscanf(fp,"%f",&ye[i]);
9 F0 g* E3 m4 d( J, Z                fscanf(fp,"%d",&gcode);
7 X/ V8 d& a% f6 H                fscanf(fp,"%f",&ze[i]);
. H) [1 l* J- w6 w4 r1 B                return0;
                }