Program Tplot;
uses Dos, Crt;

Procedure plot(x,y: integer; Color: Byte); External;
{$L plot.obj}

procedure SetMode(Mode : byte);
var
  Regs : Registers;
begin
  with Regs do
  begin
    AH := 0;
    AL := Mode;
  end;
  Intr($10, Regs);
end; { SetMode }

Var
  Row: Integer;
  Col: Integer;
  Color: Byte;


Begin
   SetMode($13);
   color:=0;
   For Row:= 0 to 319 do
     For Col := 0 to 199 do Begin
       Plot(row,col,Color);
       inc(color);
     end;
     readln;
     TextMode(LastMode);
end.