Surfer 7 Grid file format

Function GRDLoader(filepath)
    string filepath
   
    Variable vRefNum
    Open/R/F="GRID Files (*.grd):.grd;" vRefNum as filepath
    if (vRefNum == 0)
        return -1      
    endif
   
    // extract file name from path as wave name
    String wName = ParseFilePath(3, S_FileName, ":", 0, 0)
   
    // check for minimum length
    FStatus vRefNum
    variable vFileLength=V_logEOF
    if(vFileLength<12)
        print "Error: not a GRD file."
        Close vRefNum
        return -1
    endif
   
    // Intel/Windows little endian
    variable vByteOrder=3
   
    string sID
    variable vLength
    variable vError = 0
   
    do
        // read tag: ID then length
        sID = "    " // 4 characters
        FBinRead vRefNum, sID // 4-character ID
        FBinRead/U/B=(vByteOrder)/F=3 vRefNum, vLength // 32-bit word - length
       
        strswitch (sID)
            case "DSRB": // 0x42525344  - Header
           
                variable vVersion
                FBinRead/U/B=(vByteOrder)/F=3 vRefNum, vVersion
                Print "GRD File Version Number: " + num2str(vVersion)
               
                break
            case "GRID": // 0x44495247 - GRID
           
                // load GRID info section, first two enties are "long",
                // rows and columns of grid/image
                Make/I/O/N=2/FREE W_RowsCols
                FBinRead/B=3 vRefNum, W_RowsCols
               
                // load rest of the grid info section as double
                Make/D/O/N=8/FREE W_Scaling
                FBinRead/B=3 vRefNum, W_Scaling
               
                break
            case "DATA": // 0x41544144 - Data
               
                // load DATA section
                Make/O/N=(W_rowsCols[0] * W_rowsCols[1])/D $wName /Wave = M_Data
                FBinRead/B=3 vRefNum, M_Data
                // redimension to matrix (note that cols and rows are swapped for propper display)
                Redimension/N=(W_rowsCols[1],W_rowsCols[0]) M_Data
   
                // ... more code to set wave scaling
   
                break
            case "FLTI": // 0x49544c46 - Fault Information
               
                // .. code to read fault info section
               
               
                break
            default:
                print "Error: Unknown tag."
                vError = -1
                break
        endSwitch
       
        if (vError != 0)
            break
        endif
       
        // ... code to check end of file
        FStatus vRefNum
        if (V_filePos >= V_logEOF)
            break
        endif
       
    while(1)
   
    Close vRefNum
    return vError
End