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