Monster Media 1993 #2/Image.iso/finance/tas515dm.zip/EXAMPLES.ZIP/XREF.TAS

Text File | 1992-05-25 | 512b | 17 lines

{ Utility to sort the symbol directories and cross-reference the
  entries by symbol, full name, and datapath.  Allows easy detection
  of duplicate entries in the entire database.  Allows fast access
  in locating symbols and stock names.

  Written 5/25/92, author: Jim Camenos, Prodigy: VNGH10A               }

#max_quotes 1
#output_file 'xref.lst'
sortout(ticker,fullname,datapath);
if last_ticker then
begin
   sorton(1,'A',3,'A');
   sortget(v1,v2,v3);
   sortprint('%s %s %s\n');
end;