[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]