home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / pascal / fastmove / limtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-02  |  448 b   |  19 lines
  1. program FastMove_Test;
  2.  
  3. uses nolimit;
  4.  
  5. var
  6.     testreal    :    real;
  7.     adr        :    longint;
  8.  
  9. begin
  10.     writeln;
  11.     adr:=longint(seg(testreal)) shl 4 + ofs(testreal);
  12.     setreal(adr,0,3.1415926536);
  13.     writeln('Word unterhalb 1 MByte auf linearer Adresse: ',adr);
  14.     writeln('normal: ',testreal:20:8,
  15.               ' Segmentfrei: ',getreal(adr,0):20:8);
  16.     write('oder jenseits der 1 MByte, jetzt als WORD:');
  17.     setword($100000,1234);
  18.     Writeln(getword($100000));
  19. end.