home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 November / VPR9811A.BIN / OLS / mm98480 / mm98480.lzh / BLOKCUT.MAC < prev    next >
Text File  |  1998-01-26  |  557b  |  41 lines
  1. // 矩形ブロックの切り取り
  2. // blokcut.mac
  3. main()
  4. {
  5.     int xx, n, xb;
  6.     
  7.     if(Block != 3) // 矩形ブロックモードでなければ
  8.     {              // 行、文字ブロックの切り取り を呼ぶ
  9.       BlokCut();
  10.       return;
  11.     }
  12.     DispOff2();
  13.  
  14.     xb = Selcolm;
  15.     xx = -1;
  16.     if(Selcolm < DCol)
  17.       xx = DCol;
  18.     n = Line;
  19.     GoBlok();
  20.     if(Line < n)
  21.     {
  22.       n = Line;
  23.       GoBlok();
  24.     }
  25.     Global1 = 0;
  26.     Select(0);
  27.     while(Line > n)
  28.     {
  29.       Up();
  30.       GotoX(xb);
  31.       Select(2);
  32.       if(xx < 0)
  33.         REdge();
  34.       else
  35.         GotoX(xx);
  36.       BlokCut();
  37.       ++Global1;
  38.     }
  39.     DispOn();
  40. }
  41.