program DELETE_FILE;

// Makro vymaze soubor z disku

function OpenFile(var s : string[127];var x : short; y : short): short;
  external 'KRNL386.EXE' name 'OpenFile';

var 
  jmeno, zal : string[127];
  struct : short;
  ret : boolean;

begin
  jmeno := GetDocWndTittle;
  zal := jmeno;
  ret := Input_Box("Zadej jméno souboru", jmeno, 127);
  if ret then
  begin  
    if zal = jmeno then
      DocClose(kSaveNever);
    OpenFile(jmeno, struct, 512);
  end
  else beep;
end.