home *** CD-ROM | disk | FTP | other *** search
-
- [UPAK.CNV]
- [Harold V. McIntosh, 18 March 1984]
- [[make individual files from packed file]]
-
-
-
- [locate file name]
- (()( (<8>:<0>.<1>) V ((%W,(V),<2>(^MJ))) W )(0 1)(
- ((^Z),);
- ([<0>.<1>],(%Ow,(%T,(V)))(b,(P))(%C,(V))(P)):
- (,(P)):
- )) a
-
- [transcribe file]
- (()()(2)( (<2>(^\),(W)); (<2>,(W)(P)): )) b
-
- [main program]
- (()( ((%R,<8>:<9>.PAK)) P )(8 9)(
- (<8>:<9>(or, ,.),(%Or,<8>:<9>.PAK)(a,(P))(%E));
- (<9>,@:<9>): ))
-
- [end]
-