#include "g:dhr.c"

int  ax,ay,c,n,m;
char xi,xo,yo,ans,colr;
char ch;
char scrn[16384];

main ()
{
  dhrmode = txt;
  grafix();
  grafmode (bw);
  clrgraf(0x7f);

  ax = 0;
  for (m = 0; m <= 183; m++) {
    ax = m*2;
    for (ay = 0; ay <= 191; ay++) {
      unplot (ax,ay);
      ax++;
      }
    }

  n = 567;
  for (m = 566; m >= 376; m--) {
    n = n-3;
    ax = n;
    for (ay = 0; ay <= 191; ay++) {
      unplot (ax,ay);
      ax--;
      }
    }

  Upload (&scrn[0]);
  grafmode (colour);
  grafix;
  for (colr = 0x00; colr <= 0x0f;colr++) {
    clrgraf (colr << 4);
    for (n = 0; n <= 31000; n++);
    for (n = 0; n <= 31000; n++);
    for (n = 0; n <= 31000; n++);
    for (n = 0; n <= 31000; n++);
    end;

  DownLoad (&scrn[0]);

  pause ();
  c = getchar();

  text ();
}