Programming help for new user

// FindSegmentPeaks(wIn, segmentLength)
// Finds the peak in each segment.
// Output waves are named after input wave. For example, if the input wave
// is wave0, the output waves are wave0_spx and wave0_spy.
// Example:
// Make/O/N=1000 wave0
// SetScale/P x 0, .1, "s", wave0
// wave0 = abs(sin(x))
// Display wave0
// FindSegmentPeaks(wave0, 32)
// AppendToGraph wave0_spy vs wave0_spx
// ModifyGraph rgb(wave0_spy)=(0,0,65535)
// ModifyGraph mode(wave0_spy)=2, lsize(wave0_spy)=3
// Edit wave0_spx, wave0_spy
Function FindSegmentPeaks(wIn, segmentLength)
    Wave wIn                    // e.g., wave0
    Variable segmentLength      // e.g., 32
   
    Variable numPoints = numpnts(wIn)
    Variable numSegments = trunc(numPoints / segmentLength) // Partial segment at end is ignored
    if (numSegments  <= 0)
        Abort "Not enough input points"
    endif
   
    String wOutNameX = NameOfWave(wIn) + "_spx"
    Make/O/D/N=(numSegments) $wOutNameX
    Wave wOutX = $wOutNameX
   
    String wOutNameY = NameOfWave(wIn) + "_spy"
    Make/O/D/N=(numSegments) $wOutNameY
    Wave wOutY = $wOutNameY
   
    Variable i
    for(i=0; i<numSegments; i+=1)
        Variable startPoint = segmentLength*i, startX = pnt2x(wIn, startPoint)
        Variable endPoint = startPoint+segmentLength-1, endX = pnt2x(wIn, endPoint)
       
        // FindPeak sets V_PeakLoc and V_PeakVal
        FindPeak /Q/R=(startX,endX) wIn     // Find peak for this segment
        if (V_flag == 0)                            // Success
            wOutX[i] = V_PeakLoc
            wOutY[i] = V_PeakVal
        else
            wOutX[i] = NaN
            wOutY[i] = NaN
        endif
    endfor 
End

Function DemoFindSegmentPeaks()
    Make/O/N=1000 wave0
    SetScale/P x 0, .1, "s", wave0
    wave0 = abs(sin(x))
    Display wave0
    FindSegmentPeaks(wave0, 32)
    AppendToGraph wave0_spy vs wave0_spx
    ModifyGraph rgb(wave0_spy)=(0,0,65535)
    ModifyGraph mode(wave0_spy)=2, lsize(wave0_spy)=3
    Edit wave0_spx, wave0_spy
End