home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / windows / win87emu / fpdll.c next >
Encoding:
C/C++ Source or Header  |  1993-03-09  |  591 b   |  37 lines
  1. #include <windows.h>
  2.  
  3. int FAR PASCAL LibMain (HANDLE hInstance,
  4.                         WORD   wDataSeg,
  5.                         WORD   wHeapSize,
  6.                         LPSTR  lpszCmdLine)
  7.    {
  8.  
  9.    if (wHeapSize != 0)   // Unlock the data segment
  10.       UnlockData (0);
  11.  
  12.    return (1);
  13.    }
  14.  
  15. int FAR PASCAL WEP (int nParameter)
  16.     {
  17.     return (1);
  18.     }
  19.  
  20.  
  21. int FAR PASCAL FPFunc(int x)
  22.   {
  23.    float a,b;
  24.  
  25.    a = x+1.5;
  26.    b = a*2.0;
  27.    return(a*b);
  28.    }
  29.  
  30. int FAR PASCAL SqrtFunc(int x)
  31.    {
  32.    float a;
  33.  
  34.    a := x;
  35.    a := sqrt(a);
  36.    return(a);
  37.    }