home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ICONPL8.ZIP / UNPACK.ICN < prev   
Text File  |  1990-03-23  |  232b  |  10 lines
  1. procedure main()
  2.    while line := read() do {
  3.       if line == "##########" then {
  4.          close(\out)
  5.          out := open(name := read(),"w") | stop("cannot open ",name)
  6.          }
  7.       else write(out,line)
  8.       }
  9. end
  10.