home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm5 / mixed / famain.for < prev    next >
Encoding:
Text File  |  1988-08-11  |  190 b   |  12 lines
  1.  
  2.     INTERFACE TO INTEGER*2 FUNCTION POWER2(A,B)
  3.     INTEGER*2 A,B
  4.     END
  5. C
  6.     INTEGER*2 POWER2
  7.     INTEGER*2 A,B
  8.     A = 3
  9.     B = 5
  10.     WRITE (*,*) '3 times 2 to the power of 5 is ',POWER2(A,B)
  11.     END
  12.