home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / SURFUTI3.ZIP / PREINIT.INC < prev    next >
Encoding:
Text File  |  1991-09-29  |  580 b   |  27 lines
  1. procedure INITIAL;
  2. { Initialize the necessary data for preprocessor }
  3.  
  4. begin
  5.   if (Paramcount = 3) then begin
  6.     if (Paramstr(1) = '/R') or (Paramstr(1) = '/r') then begin
  7.       Matl_reuse := TRUE;
  8.       Inparm := 2;
  9.       Outparm := 3;
  10.     end else
  11.       usage;
  12.   end else if (Paramcount = 2) then begin
  13.     Inparm := 1;
  14.     Outparm := 2;
  15.   end else
  16.     usage;
  17.  
  18.   Line_num := 0;
  19.   Nnodes := 0;
  20.   Nsurf := 0;
  21.   Continue := TRUE;
  22.  
  23.   writeln ('PREPROC: Converting file ',Paramstr(Inparm),' to file ',
  24.       Paramstr(Outparm));
  25.  
  26. end; { procedure INITIAL }
  27.