program ramtest;
var i : integer;

procedure fill_mem(blok:integer; byt:byte);
var i: integer;
begin
for i :=-32767 to 32767 do begin mem[blok:i] := byt end
end;

procedure comp_mem(sblok, dblok: integer);
var i : integer;
begin
for i := -32767 to 32767 do if mem[sblok:i] = mem[dblok:i] then
  else writeln(mem[sblok:i]:6,' =',mem[dblok:i]:6)
end;

begin
  i := 1;
  writeln('Testing RAM Memory: $9FFF to $5000.');
  fill_mem($9000,$5A);
  fill_mem($8000,$5A);
  fill_mem($7000,$5A);
  fill_mem($6000,$5A);
  fill_mem($5000,$5A);
  repeat
  comp_mem($9000,$7000);
  comp_mem($8000,$7000);
  comp_mem($6000,$7000);
  comp_mem($6000,$5000);
  comp_mem($5000,$7000);
  write(i,' ');
  i := succ(i)
  until i > 100;
  writeln;
  writeln(i-1,' iterations completed.')
end.