#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int Char;
  int Number;
  _imp_string Text;
  Printsymbol('P');
  Printsymbol('a');
  Printsymbol('s');
  Printsymbol('S');
  Printsymbol(Nl);
  Printsymbol(80);
  Printsymbol(97);
  Printsymbol(115);
  Printsymbol(83);
  Printsymbol(Nl);
  Printstring(_imp_str_literal("P"));
  Printstring(_imp_str_literal(""));
  Printstring(_imp_str_literal("asS\n"));
  Printstring(_imp_str_literal("The THREE above lines must be identical."));
  Newline();
  Printstring(
      _imp_str_literal("The Quick Brown \"Fox\" Jumped Over The Lazy Dog."));
  Newline();
  Printstring(_imp_str_literal("The next two lines must be identical."));
  Newline();
  Char = 'P';
  Text = _imp_str_literal("P   A   S   S");
  Printstring(Text);
  Newline();
  Printsymbol(Char);
  Printstring(_imp_str_literal("   "));
  Spaces(0);
  Printsymbol('A');
  Spaces(2);
  Printstring(_imp_str_literal(" S"));
  Space();
  Space();
  Space();
  Printsymbol('S');
  Newline();
  Newlines(3);
  Printstring(_imp_str_literal(
      "This line is seperated from the above by THREE blank lines."));
  Newlines(2);
  Printstring(_imp_str_literal("Each of the following SIX lines must match."));
  Newline();
  Number = 123456;
  Printstring(_imp_str_literal("     123456"));
  Newline();
  Write(123456, 10);
  Newline();
  Write(Number, 10);
  Newline();
  Spaces(4);
  Write(123456, 1);
  Newline();
  Spaces(5);
  Write(123456, -1);
  Newline();
  Spaces(5);
  Write(123456, 0);
  Newlines(2);
  Printstring(_imp_str_literal("Each of the following SIX lines must match."));
  Newline();
  Number = -123456;
  Printstring(_imp_str_literal("    -123456"));
  Newline();
  Write(-123456, 10);
  Newline();
  Write(Number, 10);
  Newline();
  Spaces(4);
  Write(-123456, 1);
  Newline();
  Spaces(4);
  Write(-123456, -1);
  Newline();
  Spaces(4);
  Write(-123456, 0);
  Newlines(2);
  Printstring(_imp_str_literal("Opening THREE Files on different streams."));
  Newline();
  Openoutput(1, _imp_str_literal("$One"));
  Openoutput(2, _imp_str_literal("$Two"));
  Openoutput(3, _imp_str_literal("$Three"));
  Selectoutput(1);
  Printstring(_imp_str_literal("This is file ONE"));
  Newline();
  Closeoutput();
  Selectoutput(2);
  Printstring(_imp_str_literal("This is file TWO"));
  Newline();
  Closeoutput();
  Selectoutput(3);
  Printstring(_imp_str_literal("This is file THREE"));
  Newline();
  Closeoutput();
  Selectoutput(0);
  Printstring(
      _imp_str_literal("Each file has been written to and then closed."));
  Newlines(2);
  exit(0);
  return (1);
}