{TEST.INC}

type
  scr = array [0..1023] of byte ;

var
  f : file of scr ;
  blk : scr ;
  i : integer ;

begin
  assign ( f, 'BITMAP.PIC' ) ;
  rewrite ( f ) ;
  for i:=0 to 1023 do
    blk[i] := 0 ;
  for i:=1 to 91 do
    write ( f, blk ) ;
  close (f)
end.