home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / MULC.C$ / MULC.bin
Text File  |  1991-04-05  |  507b  |  24 lines
  1. // mulmix.c
  2. // Mixed-language program example for demonstrating
  3. // Windows support in Microsoft FORTRAN 5.1
  4.  
  5. #include <stdio.h>
  6. #ifdef NULL
  7. #undef NULL
  8. #endif
  9.  
  10. #include <windows.h>
  11.  
  12. void _fortran PRINTRESULTS( long *, long *, long * );
  13.  
  14. void _fortran PRINTRESULTS( long *Num1, long *Num2, long *Result )
  15.   {
  16.     char szBuffer[128];
  17.  
  18.     wsprintf( szBuffer, "%ld * %ld = %ld",
  19.               *Num1, *Num2, *Result );
  20.     MessageBox ( NULL, szBuffer, "Result", MB_OK );
  21.  
  22.     return;
  23.   }
  24.