I cannot figure out some problem in my code. Need help

Function scale2cursor()

    //Get a list of waves before the execusion of the function
    //This will help to know how many new waves are created after execusion
    //while plotting later
    //Also get the x-axis which will be treated later as a "common" axis for plotting
    String ListOfWaves = wavelist("*", ";", "")
    String x_axis_wave = CsrXWave(A)
   
    //Get the name of the graph on which cursor is present
    String win_name=WinName(0,1)
   
    //This creates a name for the new table and graph that will be created by appending
    //"_scale2cursor" to the name of graph on which cursor is present
    String NewName=win_name+"_scale2cursor"
   
    //Get the X- and Y-coordinates of the cursor
    Variable x_val, y_val
    x_val = xcsr(A)
    y_val = vcsr(A)
   
    //Get a list of traces on the graph and the total number of traces
    String trace_names = TraceNameList (win_name,";",1)
    Variable numbers_of_traces = ItemsInList (trace_names, ";")
   
    //This loop will scan all the traces. Taking one trace at a time, it will scale the trace to
    //the desired y-value (i. e. y_val). It will create new Y-waves also with the original wave
    //appended with "_scale2cursor"
    Variable index=0
    Do
        //Take one trace at a time and store its name in the string "trace"
        String trace = StringFromList(index,trace_names,";")
        //This loop will end the "Do" loop as soon as the traces are finished
        if (strlen(trace)==0)
            Break
        endif
       
        //Get the X wave on which cursor is present
        String x_wave = XWaveName(win_name,trace)
       
        //Creating a new wave and naming it
        String outputName = trace+"_scale2cursor"
        Wave output
        Duplicate $trace, output
        Cursor /W=$win_name A $trace x_val
        Variable y_new = vcsr(A)
        output=output*y_val/y_new
        Rename output $outputName
       
        if (index==0)
            Edit $x_wave, $outputName as NewName
            String /G table_name=WinName(0,2)
            Display $outputName vs $x_wave as NewName
            String /G graph_name=WinName(0,1)
        else
            AppendToTable /W=$table_name $outputName
            AppendToGraph /W=$graph_name $outputName vs $x_wave
        endif
        index+=1
    While (1)
    KillVariables /A
End