bug0011.pp 175 B

12345678910111213
  1. var
  2. vga : array[0..320*200-1] of byte;
  3. procedure test(x,y : longint);
  4. begin
  5. vga[x+y mod 320]:=random(256);
  6. vga[x+y mod 320]:=random(256);
  7. end;
  8. begin
  9. end.