home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / asmutil / usoftpd.zip / FAMAIN.FOR < prev    next >
Text File  |  1987-07-31  |  190b  |  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.