home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / msh_ut11.zip / CP.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-09  |  1KB  |  43 lines
  1. { A Copy program for the MiShell, Jens Pirnay      }
  2. { ------------------------------------------------ }
  3. { Bases on sdfc114 by <nemossan@uitec.ac.jp>       }
  4. { Reads as many files as possible in standard me-  }
  5. { mory before writing them out again. Supports the }
  6. { MI-Shell feature of very long command-lines.     }
  7. { ------------------------------------------------ }
  8. { Some improvements and modifications for it's     }
  9. { special purpose (anyone playing AD&D out there?) }
  10. { All praise to <nemossan@uitec.ac.jp>, all criti- }
  11. { cism to <pirnay@rphs1.physik.uni-regensburg.de>  }
  12. { ------------------------------------------------ }
  13. { You can always cancel the process by pressing    }
  14. { the ESC-key at (nearly) any time.                }
  15. {-----------------------------------------------------}
  16. { Jens Pirnay <pirnay@rphs1.physik.uni-regensburg.de> }
  17. { This file is subject to the copyleft-regulations    }
  18. { of the Free Software Foundation (the guys from GNU) }
  19. {-----------------------------------------------------}
  20. { Version 1.0 - Fri  04-24-1992  15:01:34 }
  21. {
  22.   Diffs to sdfc:
  23.   Removed options s, h and p; reversed the meaning of option t.
  24.   All messages and drive-check removed.
  25. }
  26.  
  27. {$DEFINE CP}        { For cp set to CP for mv to MV }
  28. {$I FLAGS.INC}
  29.  
  30. PROGRAM MiShell_Copy;    { for Turbo-Pascal-v5 or later }
  31.  
  32. USES DOS, CRT,
  33. {$IFDEF Format}
  34.      FormUnit,
  35. {$ENDIF}
  36.      MSHSupport, MiniWindow;
  37.  
  38. {$I CPMV.INC}
  39.  
  40. BEGIN
  41.   DoIt;
  42. END.
  43.