home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l291 / 6.ddi / MULC.C$ / MULC.bin
Encoding:
Text File  |  1991-04-05  |  507 b   |  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.