home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / GLOBESRC.ZIP / CFG2INC.PAS next >
Pascal/Delphi Source File  |  1993-05-30  |  740b  |  32 lines
  1.  
  2.  
  3. TYPE
  4.    TCfg = ARRAY [1..10] OF WORD;
  5.  
  6. VAR
  7.    fi  : FILE OF TCfg;
  8.    fo  : TEXT;
  9.    cfg : TCfg;
  10.    i   : INTEGER;
  11.  
  12. BEGIN
  13.    Assign(fi, 'GLOBE.DAT');
  14.    Reset(fi);
  15.  
  16.    Assign(fo, 'GLOBECFG.INC');
  17.    ReWrite(fo);
  18.    WriteLn(fo, ';  Default configurations for globe. ------------');
  19.    WriteLn(fo);
  20.    WriteLn(fo, ';     Phi    Alp    Rho IncPhi IncAlp IncRho GapPhi GapAlp  SizeH  SizeV');
  21.    Write  (fo, ';   --------------------------------------------------------------------');
  22.    WHILE NOT Eof(fi) DO BEGIN
  23.       Read(fi, cfg);
  24.       WriteLn(fo);
  25.       Write(fo, ' DW ', cfg[1] : 5);
  26.       FOR i := 2 TO 10 DO
  27.          Write(fo, ', ', cfg[i] : 5);
  28.    END;
  29.    WriteLn(fo);
  30.    Close(fo);
  31.    Close(fi);
  32. END.