Program EkranOku; {EKRANOKU.PAS}

Uses Crt, Dos, Turbo3;

Var
  EkrMem  : longint;
  ScrFile : string;
  dosScr  : file;
  ch      : char;
  ekr     : array[0..3999] of byte;
  i       : integer;

Begin
  {ekran mono mu renkli mi}
  If LastMode=7 then EkrMem:=$B000
                else EkrMem:=$B800;
  {ekrandaki g”rnty sakla}
  for i:=0 to 3999 do
      ekr[i]:=Mem[EkrMem:i];
  ScrFile:='';
  {parametreyi aktar}
  ScrFile:=ParamStr(1);
  {parametre yoksa}
  if ScrFile='' then
     begin
     Writeln;
     Writeln('EKRANOKU [ekrandosyas]');
     Writeln('EKRANOKU sonuc.scr');
     Writeln;
     Halt;
     end;
  {dosyay a‡}
  Assign(dosScr,ScrFile);
  Reset(dosScr,1);
  {dosya a‡lamyorsa}
  if ioresult<>0 then
     begin
     Writeln;
     Writeln('Dosya okuma iŸleminde hata oldu!');
     Writeln;
     Halt;
    end;
  {dosyadaki ekran g”rntsn ekranda g”ster}
  BlockRead(dosScr,Mem[EkrMem:0],4000);
  {dosyay kapat}
  Close(dosScr);
  {enter'e baslmasn bekle}
  repeat
    read(kbd,ch);
    sound(666); delay(10); nosound;
  until ch=#13;
  {eski ekran g”rntsn geri getir}
  for i:=0 to 3999 do
      Mem[EkrMem:i]:=ekr[i];
End.