home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / asmutl / usoftpd.arc / BAMAIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-07-31  |  545 b   |  21 lines
  1. DEFINT A-Z
  2.  
  3. ' Function call for QuickBASIC, Version 4,
  4. '   and for future versions of Microsoft and IBM BASIC Compilers
  5. ' Comment out for older versions
  6.  
  7. DECLARE    FUNCTION Power2(A AS INTEGER, B    AS INTEGER)
  8. PRINT "3 times 2 to the power of 5 is ";
  9. PRINT Power2(3,5)
  10.  
  11. ' Subprogram equivalent to function for QuickBASIC, Versions 1, 2, and 3;
  12. '    for the Microsoft BASIC Compiler through Version 5.36
  13. '    for the IBM BASIC Compiler through Version 2.02
  14.  
  15. CALL Power2S(3, 5, C)
  16. PRINT "3 times 2 to the power of 5 is "; C
  17.  
  18. END
  19.  
  20.  
  21.