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 / BUILDTSC.SRC < prev    next >
Text File  |  1986-07-21  |  768b  |  37 lines
  1. copy "PARMS.LIB";
  2. tapeconv:
  3. begin
  4.  
  5. copy "SYSPARMS.FIL";
  6. copy "TSCAN.FIL";
  7. copy "TAPE.FIL";
  8. word    wk.key;
  9.  
  10.  
  11. open tapescan error standard;
  12. open tape error standard;
  13. open sys error standard;
  14.  
  15. move 0 to sys.key;
  16. read sys lock error standard;
  17.  
  18. move 1 to wk.key;
  19.  
  20. display 'Building TSCAN.VID from TAPE.VID ';
  21. while wk.key <= s.t.nxt do
  22.     move wk.key to t.key;
  23.     move wk.key to tscan.key;
  24.     read tape lock  error standard;
  25.     move t.stock.num to tscan.stock.num;
  26.     move t.member.num to tscan.member.num;
  27.     write tapescan lock unlock error standard;
  28.     add 1 to wk.key;
  29.     display '.',;
  30. od;
  31. display ' ';
  32. display 'Tape scan file completed';
  33. close sys error standard;
  34. close tapescan error standard;
  35. close tape error standard;
  36. end;
  37.