home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / fmain.for < prev    next >
Encoding:
Text File  |  1990-12-04  |  338 b   |  15 lines
  1. C     Calls Power2 in FORTRAN.ASM
  2. C     Compile with:  FL FMAIN.FOR FORTRAN.OBJ
  3.  
  4.       INTERFACE TO INTEGER*2 FUNCTION POWER2(A, B)
  5.       INTEGER*2 A, B
  6.       END
  7.  
  8.       PROGRAM MAIN
  9.       INTEGER*2 POWER2
  10.       INTEGER*2 A, B
  11.       A = 3
  12.       B  = 5
  13.       WRITE (*, *) '3 TIMES 2 TO THE B OR 5 IS ',POWER2(A, B)
  14.       END
  15.