home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OBJOVR.ZIP / MAKEOBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-17  |  683 b   |  26 lines
  1. {$M 1024,0,0}
  2. uses
  3.   DOS, OBJTypes;
  4. var
  5.   BinaryDataFile : file of OBJitizedDataType;
  6.   OBJitizedData  : OBJitizedDataType;
  7.   I              : integer;
  8. begin
  9.   writeln ( 'MakeOBJ' );
  10.   writeln;
  11.   writeln ( 'Generating data to OBJitize ...' );
  12.  
  13.   for I := 1 to Max do
  14.     OBJitizedData [ I ] := sqrt ( I );
  15.  
  16.   writeln ( 'Creating data to file ...' );
  17.  
  18.   assign  ( BinaryDataFile, 'OBJitize.DAT' );
  19.   rewrite ( BinaryDataFile                 );
  20.   write   ( BinaryDataFile, OBJitizedData  );
  21.   close   ( BinaryDataFile                 );
  22.  
  23.   writeln ( 'Executing BinOBJ ...' );
  24.  
  25.   Exec ( 'c:\TP\BinOBJ.EXE', 'OBJitize.DAT OBJitize.OBJ OBJitizedDataLink' );
  26. end.