procedure main()
if not (intext := open("shaw.txt"))
then stop("cannot open input file")
if not (outtext := open("shaw.cpy","w"))
then stop("cannot open output file")
while line := read(intext) do {
write(line)
write(outtext,line)
}
end