home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol173 / upak.cnv < prev    next >
Encoding:
Text File  |  1984-07-15  |  423 b   |  24 lines

  1.  
  2. [UPAK.CNV]
  3. [Harold V. McIntosh, 18 March 1984]
  4. [[make individual files from packed file]]
  5.  
  6.  
  7.  
  8. [locate file name]
  9. (()( (<8>:<0>.<1>) V ((%W,(V),<2>(^MJ))) W )(0 1)(
  10.     ((^Z),);
  11.     ([<0>.<1>],(%Ow,(%T,(V)))(b,(P))(%C,(V))(P)):
  12.     (,(P)):
  13.   )) a
  14.  
  15. [transcribe file]
  16. (()()(2)( (<2>(^\),(W)); (<2>,(W)(P)): )) b
  17.  
  18. [main program]
  19. (()( ((%R,<8>:<9>.PAK)) P )(8 9)(
  20.     (<8>:<9>(or, ,.),(%Or,<8>:<9>.PAK)(a,(P))(%E));
  21.     (<9>,@:<9>): ))
  22.  
  23. [end]
  24.