1* popen output test
2	output(.o, 99,, "|cat >popen2.dat")
3	o = "Hello World"
4	endfile(99)
5
6	input(.i, 98,, "popen2.dat")
7	output = i
8	endfile(98)
9
10	delete("popen2.dat")
11end
12