home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / masm / masm6 / mixed / qpmain.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1990-12-03  |  247 b   |  11 lines
  1. {$L QPEX.OBJ}
  2.  
  3. { Calls Power2 procedure in QPEX.ASM }
  4.  
  5. program  Asmtest( input, output );
  6. function POWER2( factor:integer; power:integer ): integer; external;
  7. begin
  8.     writeln( '3 times 2 to the power of 5 is ', POWER2( 3, 5 ) );
  9.  
  10. end.
  11.