defchar(n[10],c);
cls(); gotoxy(1,1);
print("filename: "); scan("%s",n);
if(OpenIn(addr(n)), block(
  print("*** Datei konnte nicht geffnet werden !"),
  halt())
);
if(OpenOut("xxx.xxx"), block(
  print("*** Datei konnte nicht geffnet werden !"),
  halt())
);
while(not(eof()), block(
  scan(file,"%c",c),
  if (c = 'x', c:='!'),
  print("%c",c),
  print(file,"%c",c))
);
CloseIn();
CloseOut().
