#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_string Filename = _imp_str_literal("zzz.lis");
  _imp_string Sourcename = _imp_str_literal("zzzsource.txt");
  _imp_string Longdata;
  int Ch;
  Selectoutput(0);
  Printstring(_imp_join(_imp_str_literal("Opening source "), Sourcename));
  Newline();
  Printstring(_imp_join(_imp_str_literal("Opening file "), Filename));
  Newline();
  Setdebuglevel;
  Selectinput(1);
  Selectoutput(1);
  do {
    Readsymbol(Ch);
    Selectoutput(0);
    if ((Ch != Eof)) Printsymbol(Ch);
    Selectoutput(1);
    if ((Ch != Eof)) Printsymbol(Ch);
  } while (Ch != Eof);
  Closeinput();
  Closeoutput();
  Selectoutput(0);
  Newline();
  Printstring(_imp_join(_imp_str_literal("Closed file "), Sourcename));
  Newline();
  Printstring(_imp_join(_imp_str_literal("Closed file "), Filename));
  Newline();
  Setdebuglevel;
  exit(0);
  return (1);
}