home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PARASOL / VIDEOSTO.ARK / SORT.FIL < prev    next >
Text File  |  1986-07-20  |  640b  |  31 lines
  1.  
  2. record    csort.rec;
  3.     field    csort.code.name    25;
  4.     word    csort.code.key;
  5. endrec;
  6.  
  7. { Redefine record zero of CSORT }
  8.                         redefine csort.rec;
  9.     word    csort.nxt;
  10.                         endredef;
  11.  
  12. string    csort.file.name    15    value    "TSORTED.VID";
  13.                         redefine csort.file.name;
  14.     byte    csort.name.code;    { T or M}
  15.     field                    7;    {SORTED.}
  16.     field    csort.name.ext    3;    {VID    }
  17.                         endredef;
  18.  
  19. file    csort,
  20.         disk, blocked 0,
  21.         random, key csort.key,
  22.         record csort.rec,
  23.         value csort.file.name;
  24.  
  25. record    sort.rec;
  26.     field    sort.field    25;
  27.     word    sort.key;
  28. endrec;
  29.  
  30.  
  31.