proc convertarf (filename : string, lines : int)
    var file, file2 : int
    var x1, y1, z1, x2, y2, z2, x3, y3, z3 : real
    var col : int := 16
    open : file, filename + ".raw", get
    open : file2, filename + ".arf", write
    for i : 1 .. lines
        get : file, x1, y1, z1, x2, y2, z2, x3, y3, z3
        if i mod (lines div 14) = 0 then
            col += 1
        end if
        write : file2, x1, y1, z1, x2, y2, z2, x3, y3, z3, col
        locate (1, 1)
        put col
        locate (2, 1)
        put i
    end for
end convertarf
var filet:string
put "Enter the name and address of the raw file to be converted to arf(no extention ex: c:/spike not c:/spike.raw): "..
get filet
convertarf (filet, 264)
put "done"

    proc LoadARF (filename : string)
        var fileIn : int
        open : fileIn, filename, get
        Type := ARF
        loop
            exit when eof (fileIn)
            c += 1
            new fillC, c
            get : fileIn, x (1), y (1), z (1), x (2), y (2), z (2), x (3), y (3), z (3), fillC (c)
            new Coors3D, c
            new Coors3D (c)
            Coors3D (c) -> InitPolyTri (x (1), y (1), z (1), x (2), y (2), z (2), x (3), y (3), z (3))
        end loop
        numLines := c
        close : fileIn
    end LoadARF