//Press <F5> to compile and run.

U0 NetOfDots()
{
    I64  i;
    CDC *dc = DCAlias;

    DocClear;
    dc->color = RED;
    for (i = 0; i < 480; i += 20)
        GrLine(dc, i, 0, 0, 480 - i, 3);
    DCDel(dc);
    PressAKey;
    DCFill;
}

NetOfDots;  //Run when #included