home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols100 / vol173 / copy.cnv < prev    next >
Encoding:
Text File  |  1984-07-15  |  364 b   |  31 lines
  1.  
  2. [COPY.CNV]
  3. [Harold V. McIntosh, 6 March 1984]
  4.  
  5.  
  6. [[copy FILE.HLP over to FILE.OUT]]
  7.  
  8.  
  9.  
  10. [read line, write line]
  11. (()()(0)(
  12.     (<0>(^Z),(W));
  13.     (<0>,(W)(R)):
  14.   )) a
  15.  
  16. [main program]
  17. ((
  18.   )(
  19.     ((%R,<9>.HLP,<-->(or, ,(^Z)))) R
  20.     ((%W,<9>.OUT,(%T,<0>))) W
  21.   )(9)(
  22.     ((PWS)(or),);
  23.     (<9>(or, ,.,<>),<<
  24.         >>(%Or,<9>.HLP)<<
  25.         >>(%Ow,<9>.OUT)<<
  26.         >>(a,(R))<<
  27.         >>(%E));
  28.   ))
  29.  
  30. [end]
  31.