home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0408.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-07-31  |  572 b   |  23 lines
  1. /* This module will make a call to an external routine in the */
  2. /* driving Turbo Pascal program that will make a call to a    */
  3. /* routine in Turbo Pascal's Run Time Library.                */
  4.  
  5. #include "savesidi.h"
  6.  
  7. extern WORD PasDosVersion();
  8. extern long PasDiskFree (WORD drive);
  9. extern long PasDiskSize (WORD drive);
  10.  
  11. void startupc (long far *free, long far *size, WORD far *ver)
  12. {
  13.   save_sidi;
  14.   *ver = PasDosVersion();
  15.   rest_sidi;
  16.   save_sidi;
  17.   *free = PasDiskFree (0);
  18.   rest_sidi;
  19.   save_sidi;
  20.   *size = PasDiskSize (0);
  21.   rest_sidi;
  22. }
  23.