(****************************************************************************)
(*                                                                          *)
(* Bibliotheksmodul COL3.BIB; benoetigt COL1.BIB                            *)
(*                                                                          *)
(* save_screen(name:col_fname) : Speichert den Bildschirminhalt der         *)
(*                               aktuellen Schreibseite mit der Bezeichnung *)
(*                               NAME ab.                                   *)
(* load_screen(name:col_fname; f:byte) : Laedt ein mit Save_Screen          *)
(*                                       abgespeichertes File in die aktuelle *)
(*                                       Schreibseite; F ist wie bei PSet.  *)
(*                                                                          *)
(****************************************************************************)

type col_fname = string[14];

procedure save_screen(name:col_fname);
  var line    : array[0..255] of byte;
      i,j     : integer;
      colfile : file;
  begin
    assign(colfile,name); rewrite(colfile);
    for i:=0 to 255 do
      begin
        for j:=0 to 255 do line[j]:=pget(i,j);
        blockwrite(colfile,line,2);
      end;
    close(colfile);
  end;

procedure load_screen(name:col_fname; f:byte);
  var line    : array[0..255] of byte;
      i,j     : integer;
      colfile : file;
  begin
    assign(colfile,name); reset(colfile);
    for i:=0 to 255 do
      begin
        blockread(colfile,line,2);
        for j:=0 to 255 do pset(i,j,line[j],f);
      end;
    close(colfile);
  end;

