home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
batch
/
sputils.zip
/
COPYRECT.DOC
< prev
next >
Wrap
Text File
|
1991-01-06
|
2KB
|
84 lines
CopyRect version 1.1 (C) Copyright SPETER SOFTWARE, December 1990.
This program:
* will copy all/part of a text screen to:
* a file; or
* another part of the screen; or
* another (non-visible) screen-page.
* will copy a previously saved screen-image file to:
* any part of the screen; or
* another (non-visible) screen-page.
The program was written in Borland's Turbo Pascal 5.5
Usage:
------
1: CopyRect [/h]
Output a help screen.
/h (optional)
2: CopyRect page1 x1 y1 x2 y2 page2 x3 y3
Copy screen area (x1,y1)-(x2,y2) on screen (page1) to screen area
(x3,y3) on screen (page2). When both screens are the same: make
sure the rectangle starting from (x3,y3) does not overlap the
original rectangle; if it does, then strange effects will result!
3: CopyRect page1 x1 y1 x2 y2 out-file
Copy screen area (x1,y1)-(x2,y2) on screen (page1) to the binary
screen-image file (out-file).
4: CopyRect in-file page2 x3 y3
Display screen-image file (in-file) at (x3,y3) on screen (page2).
pages are in the range [0..7] - depending on the display type;
x's are in the range [1..80];
y's are in the range [1..25];
in-file must be an existing file (name can include a path);
out-file must be an valid DOS file-name (can include a path).
Examples:
---------
1: CopyRect 0 1 1 80 25 1 1 1
Copy the whole of screen 0 (the default display screen) to screen 1
2: CopyRect 1 1 1 80 25 0 1 1
Copy screen 1 to screen 0 !
3: CopyRect 0 1 10 80 15 store
Copy lines 10-15 (inclusive) in the file "store".
4: CopyRect store 0 1 20
Display the file "store" starting at (1,20).
5: CopyRect 0 12 10 30 20 0 40 1
Copy lines 10-20 between columns 12 & 30 to (40,1).
When copying on the same screen make sure your rectangles don't overlap!
Correspondence:
---------------
Please address any comments to:
Stephen Peter
INTERNET:
steve@cad0.arch.unsw.oz.au
POST:
SPETER SOFTWARE
P.O. BOX 643
LANE COVE
NSW 2066
AUSTRALIA