link wopen

procedure main()

   ims := read()

   ims ? {
      size := tab(upto(','))
      }
   WOpen("size=" || size || "," || size) | stop("*** cannot open file")

   DrawImage(0, 0, ims) | stop("*** DrawImage() failed")

   WriteImage("testscan.gif")

   ZDone()

end
