procedure CopyScreen(x1, y1, x2, y2, x3, y3: Integer);
Kopiert einen Bildausschnitt direkt. Dabei werden beliebige Überlappungen
korrekt behandelt.
x1, y1, x2, y2 sind die Koordinaten des zu kopierenden Rechtecks in
Turbo-Vision-Notation. x3, y3 sind die Zielkoordinaten.
Die Prozedur beachtet Gr.ClipRect und arbeitet auf den
durch SourcePage und DestPage angegebenen
Seiten.