[PYP.CNV]
[Harold V. McIntosh, 16 March 1984]
[A CNVRT program exhibiting some of the characteristics of PIP.COM]
[[
c/copy, u/upper, l/lower, a/zero parity, h/hex dump]]



[option]      (()()(0)((X,(^Z)); (<0>,(, (%T,In file  ) )(b,(Q))); )) a
[input file]  (()()(1)((<1>,(, (%T,Out file ) )(c,(Q))); )) b
[output file] (()()(2)((<1>,); (<2>,(%Or,<1>)(%Ow,<2>)(d,<0>)); )) c
[choose]      (()( ((%R,<1>)) R)()( (C,(e,(R))); (U,(f,(R))); (L,(g,(R)));
	      (A,(h,(%R,<1>,<[128]>))); (H,(i,(%R,<1>,<[16]>))); )) d
[copy]	(()()(0)( ((^Z),); (<0>,(%W,<2>,<0>(^MJ))(R)): )) e
[upper]	(()()(0)( ((^Z),); (<0>,(%W,<2>,(&u,<0>)(^MJ))(R)): )) f
[lower]	(()()(0)( ((^Z),); (<0>,(%W,<2>,(&l,<0>)(^MJ))(R)): )) g
[ascii]	(()()(0)( ((^ZZ),); (<0>,(%W,<2>,(&a,<0>))(%R,<1>,<[128]>)): )) h
[dump]	(()()(0)( ((^ZZ),); (<0>,(%W,<2>,(&h,<0>)(^MJ))(%R,<1>,<[16]>)): )) i
[loop]  (()()()( ((^Z),); (,(%Q)(, (%T,option?  ) )(a,(Q))): )) x
[main]  (()( ((&u,(%R,(&u,<9>)))) Q)(9)( (<9>,(%Or,(&u,<9>))(x)(%E)); ))

[end]