home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 June / Vpr9806a.iso / OLS / Windows / mm95430 / mm95430.lzh / BLOKINS.MAC < prev    next >
Text File  |  1998-03-03  |  782b  |  42 lines
  1. // 矩形ブロックの挿入
  2. // blokins.mac
  3. main()
  4. {
  5.     int xx, ei, ec;
  6.     
  7.     if(Global1 == 0) // 矩形ブロックのデータがなければ
  8.     {                // 行、文字ブロック挿入 を呼ぶ
  9.       BlokIns();
  10.       return;
  11.     }
  12.     DispOff2();
  13.  
  14.     xx = DCol - 1;
  15.     ei = Indent;
  16.     ec = CurPsPos;
  17.     SetCurPsPos(0); // 貼り付け後のカーソル位置は先頭
  18.     AIndent(0); // インデントオフ
  19.     while(Global1 > 0)
  20.     {
  21.       if(Tcode <= 1) // EOF or CR
  22.       {
  23.         REdge();
  24.         PutSpace(xx, 0);   // xx カーソル位置までをタブスペースで埋める
  25.         //PutSpace(xx, 1); // タブを使わずスペースのみで埋めるならこちらを使う
  26.         REdge();
  27.       }
  28.       BlokIns();
  29.       if(Linestat == -1) // ＥＯＦ行
  30.       {
  31.         REdge();
  32.         Ret();
  33.       }
  34.       else
  35.         Down();
  36.       --Global1;
  37.     }
  38.     SetCurPsPos(ec);
  39.     AIndent(ei);
  40.     DispOn();
  41. }
  42.