home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win31 / Mm220 / MM220.LZH / BLOKCOPY.MAC next >
Text File  |  1996-05-16  |  542b  |  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.