functions

/sortFunctions {
  var %infile = functions.txt, %outfile = sorted_functions.txt, %function = 0, %functions = $lines(%infile)
  while (%function < %functions) {
    inc %function
    tokenize 32 $read(%infile, n, %function)
    if ($left($1,5) != sub_2) {
      write %outfile $1 = $+(0x,$right($3, -1),;)
    }
  }
}