function @ExtractData(&line:integer, &fieldnum:integer):string

define(&i, integer, 0)
define(&pos, integer, 1)
define(&curstr, string, '')
define(&curline, string, '')
define(&inquotes, boolean, false)
define(&j, integer, 0)

% Grab current line and store in working variable
&curline := @(&line, 1, 1000)

% Loop over line and replace any blanks with a space ('j' is semantic here)
for(&j, 1, 1, 100)
        &curline := stringreplace(&curline, ',,', ', ,')
endfor()

% Outer loop
repeat
        &curstr := ''
        % Loop until you see another '¦' or line is blank
        repeat
                % Look at data field 1,1
                &curstr := &curstr + mid(&curline, &pos, 1)
                % If we see caret, next char is data
                if(mid(&curline, &pos, 1) = '^')
                        % Checks quotes to see if data field exists (quotes = true)
                        if(&inquotes)
                                &inquotes := False
                        elseif()
                                &inquotes := True
                        endif()
                endif()
                % Counts the amount of chars in the data field
                &pos := &pos + 1
        until(((mid(&curline, &pos, 1) = '¦') or (&pos > length(&curline))) and (not(&inquotes)))
        % Loop counter
        &i := &i + 1
        &pos := &pos + 1
% &fieldnum specifed in function parameters
until(&i = &fieldnum)

% Strip out unwanted chars
&Result := stringreplace(stringreplace(&curstr, '^', ''), '¦', '')
endfunction()

@ExtractData(line,column)