home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DESQ10.ZIP / DESQ10.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-06-05  |  1.1 KB  |  34 lines
  1. { =========================================================================== }
  2. { DESQ10.pas - Unit to interface DESQview with TP 4.0       ver 1.0, 06-05-88 }
  3. {                                                                             }
  4. { These are the routines that are published by Quarterdeck and have been      }
  5. { adapted for use in Turbo Pascal.  Only 95 bytes of code.                    }
  6. {  by James H. LeMay, CIS 76011,217                                           }
  7. { =========================================================================== }
  8.  
  9. {$R-,S-,I-,D-,T-,F-,V-,B-,N-,L+ }
  10.  
  11. UNIT DESQ;
  12.  
  13. INTERFACE
  14.  
  15. function  DV_Get_Version: word;
  16. function  DV_Get_Video_Buffer (VideoSeg: word): word;
  17. procedure DV_Pause;
  18. procedure DV_Begin_Critical;
  19. procedure DV_End_Critical;
  20.  
  21. IMPLEMENTATION
  22.  
  23. const
  24.   In_DV: boolean = true;
  25.  
  26. {$L DESQ10.obj }
  27. function  DV_Get_Version;      external;
  28. function  DV_Get_Video_Buffer; external;
  29. procedure DV_Pause;            external;
  30. procedure DV_Begin_Critical;   external;
  31. procedure DV_End_Critical;     external;
  32.  
  33. END.
  34.