home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BP7BUGS2.ZIP / TRASHSRC.ZIP / TEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-01-03  |  338 b   |  21 lines
  1. program test;
  2.  
  3. { This program just does longint multiplies and reports any errors.
  4.   If you use Prot386, you shouldn't see any. }
  5.  
  6. uses
  7.   { prot386, }
  8.   crt;
  9.  
  10. var
  11.   x,y,z : longint;
  12. begin
  13.   x := 20;
  14.   y := 6;
  15.   repeat
  16.     z := x*y;
  17.     if z <> 120 then
  18.       writeln('Longint error!  z=',z);
  19.   until keypressed;
  20. end.
  21.