home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / MATH / ULTRA101.ZIP / DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-03-26  |  1.8 KB  |  80 lines
  1. { This program calls the various ULTRA routines as a test }
  2.  
  3. {$X+}
  4. {$ifndef i32}    uses ultra;
  5. {$else}        uses ultra32;
  6. {$endif}
  7.  
  8. var i:integer;
  9. begin
  10.   writeln;
  11.   writeln('A Sample Printout:');
  12.  
  13.   write('Signed Double: ');
  14.   rinit(1234567,7654321);
  15.   for i:=1 to 10000 do
  16.   if (i<2) or (i=10000) then write(dvni:32:15) else dvni;
  17.   writeln;
  18.  
  19.   write('Unsigned Dble: ');
  20.   rinit(1234567,7654321);
  21.   for i:=1 to 10000 do
  22.   if (i<2) or (i=10000) then write(duni:32:15) else duni;
  23.   writeln;
  24.  
  25.   write('Signed Single: ');
  26.   rinit(1234567,7654321);
  27.   for i:=1 to 10000 do
  28.   if (i<4) or (i=10000) then write(vni:16:7) else vni;
  29.   writeln;
  30.  
  31.   write('Uns. Single:   ');
  32.   rinit(1234567,7654321);
  33.   for i:=1 to 10000 do
  34.   if (i<4) or (i=10000) then write(uni:16:7) else uni;
  35.   writeln;
  36.  
  37.   write('Signed 4 byte: ');
  38.   rinit(1234567,7654321);
  39.   for i:=1 to 10000 do
  40.   if (i<4) or (i=10000) then write(i32bit:16) else i32bit;
  41.   writeln;
  42.  
  43.   write('Uns. 4 byte:   ');
  44.   rinit(1234567,7654321);
  45.   for i:=1 to 10000 do
  46.   if (i<4) or (i=10000) then write(i31bit:16) else i31bit;
  47.   writeln;
  48.  
  49.   write('Signed 2 byte: ');
  50.   rinit(1234567,7654321);
  51.   for i:=1 to 10000 do
  52.   if (i<8) or (i=10000) then write(i16bit:8) else i16bit;
  53.   writeln;
  54.  
  55.   write('Uns. 2 byte:   ');
  56.   rinit(1234567,7654321);
  57.   for i:=1 to 10000 do
  58.   if (i<8) or (i=10000) then write(i15bit:8) else i15bit;
  59.   writeln;
  60.  
  61.   write('Signed byte:   ');
  62.   rinit(1234567,7654321);
  63.   for i:=1 to 10000 do
  64.   if (i<16) or (i=10000) then write(i8bit:4) else i8bit;
  65.   writeln;
  66.  
  67.   write('Uns. byte:     ');
  68.   rinit(1234567,7654321);
  69.   for i:=1 to 10000 do
  70.   if (i<16) or (i=10000) then write(i7bit:4) else i7bit;
  71.   writeln;
  72.  
  73.   write('Random bits:   ');
  74.   rinit(1234567,7654321);
  75.   for i:=1 to 10000 do
  76.   if (i<32) or (i=10000) then write(ord(i1bit):2) else i1bit;
  77.   writeln;
  78.  
  79. end.
  80.