home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0504.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  635 b   |  29 lines
  1. Program ViewCodeGeneration;
  2. { This is a sample program that shows how to use an Inline    }
  3. { statement to view the code generated by the compiler.  We   }
  4. { will also use DOS's debug utility to view the code that     }
  5. { the compiler has generated.                                 }
  6.  
  7. Uses
  8.   Crt;
  9.  
  10. Var
  11.   X,
  12.   I : Word;
  13.  
  14. Begin
  15.   ClrScr;
  16.   Writeln( 'This is a sample to show usage of an inline statement' );
  17.   I := 0;
  18.   Randomize;
  19.   X := Random( MaxInt );
  20.   Inline( $90/$90/$90 );
  21.   For I := 1 to 10 Do
  22.     X := X * I;
  23.   Inline( $90/$90/$90 );
  24.   Writeln( 'X = ', X );
  25.   Writeln( 'I = ', I );
  26.   Readln;
  27. End.
  28.  
  29.