home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 December / SOFM_Dec1995.bin / pc / os2 / vpascal / examples / bp7 / breakout / screen.dif < prev    next >
Text File  |  1995-10-31  |  791b  |  31 lines
  1. Comparing files BP7\SCREEN.PAS and VP\SCREEN.PAS
  2. ***** BP7\SCREEN.PAS
  3.    17:  uses Crt, Dos;
  4. ***** VP\SCREEN.PAS
  5.    17:  uses Crt, Dos {$IFDEF OS2}, Os2286 {$ENDIF}, Use32;
  6.  
  7. ***** BP7\SCREEN.PAS
  8.   131:  function Cursor.GetCursor : Integer;
  9. ***** VP\SCREEN.PAS
  10.   131:  {$IFDEF OS2}
  11.   132:
  12.   133:  function Cursor.GetCursor : Integer;
  13.   134:  var
  14.   135:    cX,cY: Word;
  15.   136:  begin
  16.   137:    VioGetCurPos(cY,cX,0);
  17.   138:    GetCursor := cY shl 8 + cX;
  18.   139:  end;
  19.   140:
  20.   141:  procedure Cursor.SetCursor(NewCursor : Integer);
  21.   142:  var
  22.   143:    cX,cY: Word;
  23.   144:  begin
  24.   145:    cX := Lo(NewCursor);
  25.   146:    cY := Hi(NewCursor);
  26.   147:    VioSetCurPos(cY,cX,0);
  27.   148:  end;
  28.   149:
  29.   150:  {$ELSE}
  30.   151:
  31.   152:  function Cursor.GetCursor : Integer;