home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 March / VPR9803A.ISO / OLS / Windows / MM95401 / mm95401.lzh / BLOKCOPY.MAC next >
Text File  |  1997-02-06  |  545b  |  40 lines
  1. // 矩形ブロックのコピー
  2. // blokcopy.mac
  3. main()
  4. {
  5.     int xx, n, xb;
  6.     
  7.     if(Block != 3)        // 矩形ブロックモードでなければ
  8.     {                    // 行、文字ブロックのコピー を呼ぶ
  9.       BlokCopy();
  10.       return;
  11.     }
  12.     xb = Selcolm;
  13.     xx = -1;
  14.     DispOff();
  15.     if(Selcolm < DCol)
  16.       xx = DCol;
  17.     n = Line;
  18.     Select(2);
  19.     GoBlok();
  20.     if(Line < n)
  21.     {
  22.       n = Line;
  23.       GoBlok();
  24.     }
  25.     Global1 = 0;
  26.     while(n < Line)
  27.     {
  28.       Up();
  29.       GotoX(xb);
  30.       Select(2);
  31.       if(xx < 0)
  32.         REdge();
  33.       else
  34.         GotoX(xx);
  35.       BlokCopy();
  36.       ++Global1;
  37.     }
  38.     DispOn();
  39. }
  40.