import std.stdio;
import std.math;
import Dislin;

void main (string[] args)
{ int nl, nx, ny, i;
  int [20] ivec = [0,1111,1311,1421,1531,1701,1911,3111,3311,3421,
                    3531,3703,4221,4302,4413,4522,4701,5312,5502,5703];
  char *ctit = "Vectors";
  char [5] cnum;
    
  metafl ("xwin");
  disini ();
  color ("cyan");
  hwfont ();
  pagera ();

  height (60);
  nl = nlmess (ctit);
  nx = (2970 - nl) / 2;
  messag (ctit, nx, 200);

  height (50);
  nx = 300;
  ny = 400;

  for (i = 0; i < 20; i++)
  { if (i == 10) 
    { nx += 2970 / 2;
      ny  = 400;
    }

    nl = intcha (ivec[i], cast (char *) cnum);
    nl = nlmess (cast (char *) cnum);
    messag (cast (char *) cnum, nx-nl, ny - 25);

    vector (nx+100, ny, nx+1000, ny, ivec[i]);
    ny += 160;
  }

  disfin ();
}
