<pre>on sortFields  ---  ToComputer  ---  repeat with x = 1 to the number of lines of cd fld "Authors"    put line x of cd fld "Authors" & tab after sortVar    put line x of cd fld "Subjects" & tab after sortVar    put line x of cd fld "Dates" & tab after sortVar    put line x of cd fld "LookUP" & return after sortVar  end repeat  ---  sort lines of sortVar by item 1 of each  set the itemDelimiter to tab  ---  repeat with x = 1 to the number of lines of sortVar    put item 1 of line x of sortVar into line x of cd fld "Authors"    put item 2 of line x of sortVar into line x of cd fld "Subjects"    put item 3 of line x of sortVar into line x of cd fld "Dates"    put item 4 of line x of sortVar into line x of cd fld "LookUP"  end repeat  ---end sortFields</pre>