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 / TSCAN.FIL < prev    next >
Text File  |  1986-07-21  |  512b  |  19 lines
  1. {-----------------------------------
  2. {      Tape Scan File              }
  3. {-----------------------------------
  4. record    tscan.rec;
  5.     field    tscan.stock.num            4;
  6.     field    tscan.member.num        4;
  7. endrec;
  8.  
  9. string tscan.file.name 15 value "TSCAN.VID";
  10.                             redefine tscan.file.name;
  11. field            6;    {TSCAN.}
  12. field    tscan.file.ext    3;
  13.                             endredef;
  14.  
  15. file    tapescan,
  16.     disk,    random,    key    tscan.key,
  17.     blocked    0,    record    tscan.rec,
  18.     value    tscan.file.name;
  19.