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