PROGRAM QNames;

USES
  Crt, DOS;

VAR
  F : TEXT;
  A : STRING;

PROCEDURE Convert (VAR S : STRING; NewLine : BOOLEAN);

VAR
  I : INTEGER;
BEGIN
  Writeln (F, A);

  FOR I := 1 to Length (S) DO
    S [I] := CHR (ORD (S [I]) + 128);

  IF NewLine THEN S := S + '\n';

  Writeln (F, A);
END;

BEGIN
  ASSIGN (F, 'QUAKE.STR');
  REWRITE (F);

  A := 'Cujo version 1.4';
  Convert (A, TRUE);

  A := 'by Jonathan E. Wright';
  Convert (A, TRUE);

  A := 'nelno@resurrection.com';
  Convert (A, TRUE);

  A := 'http:/trailerpark.com/phase1/nelno';
  Convert (A, FALSE);

  A := 'Cujo Server version 1.4';
  Convert (A, TRUE);

  CLOSE (F);
END.