// Copyright (c) 1995, Masanao Izumo

gopen(100, 100);

for(i = 0; i < 100; i++)
{
    gpen(gcolor(i + 155, i, 255 - i));
    gline(0, i, 100, i);
}

while(!gbutton())
{
    p = gpoint();
    write("[", p, "] ");
}
writeln();