home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 November
/
VPR9811A.BIN
/
OLS
/
mm98480
/
mm98480.lzh
/
BLOKCUT.MAC
< prev
next >
Wrap
Text File
|
1998-01-26
|
557b
|
41 lines
// 矩形ブロックの切り取り
// blokcut.mac
main()
{
int xx, n, xb;
if(Block != 3) // 矩形ブロックモードでなければ
{ // 行、文字ブロックの切り取り を呼ぶ
BlokCut();
return;
}
DispOff2();
xb = Selcolm;
xx = -1;
if(Selcolm < DCol)
xx = DCol;
n = Line;
GoBlok();
if(Line < n)
{
n = Line;
GoBlok();
}
Global1 = 0;
Select(0);
while(Line > n)
{
Up();
GotoX(xb);
Select(2);
if(xx < 0)
REdge();
else
GotoX(xx);
BlokCut();
++Global1;
}
DispOn();
}