MacFormat 1996 July/macformat-039.iso/DATABASE/SHARED.DIR/01025.ls

Text File | 1996-03-14 | 886 b | 29 lines

on domebaby
  set num to the number of lines in field "makernumbers"
  repeat with i = 1 to num
    set boo to line i of field "makernumbers"
    set tmp to word the number of words in boo of boo & "," & word 1 of boo
    put tmp into line i of field "MakerList"
  end repeat
  sortlines("makerlist")
end

on dome2
  set num to the number of lines in field "makerlist"
  repeat with i = 1 to num
    set tmp to line i of field "makerlist"
    set tmpnum to value(item 2 of tmp)
    put item 1 of tmp into line tmpnum of field "makernumlist"
  end repeat
end

on dome3
  set num to the number of lines in field "makerfullnames"
  repeat with i = 156 to num
    delete word 1 of line i of field "makerfullnames"
    set tmp to line i of field "makerfullnames"
    set num2 to the number of words in tmp
    put word 1 to num2 of tmp into line i of field "makerfullnames"
  end repeat
end