home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 November
/
VPR9811A.BIN
/
OLS
/
mm98480
/
mm98480.lzh
/
RENKETU.MAC
< prev
next >
Wrap
Text File
|
1996-05-17
|
600b
|
34 lines
// [行連結マクロ]
// renketu.mac
//
// 整形した段落行を空白行の前までを連結します。
// 2行目以降の先頭の全角スペースは連結のさい自動的に削除します。
// カーソル位置を段落先頭行で実行して下さい。
//
main()
{
int n;
while(1)
{
KbHit();
if(Result == 0x1b) // [ESC]が押されたら中断
break;
REdge();
Right();
if(Tcode < 2) // CR か EOF なら終了
break;
n = 1;
while(Code == 0x8140) // 行先頭の全角スペース数を数える
{
++n;
Right();
}
while(n > 0) // 行先頭の全角スペースは削除
{
--n;
Bs();
}
}
}