home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWARS.ZIP / DAT2TXT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-07  |  3.4 KB  |  148 lines
  1.  
  2. program looksect(input,output);
  3.  
  4.  
  5. type
  6.    user = record
  7.            fa                           : string[41];
  8.            fareal                       : string[41];
  9.            fb,fc,fd,fe,ff,fg            : integer;
  10.            fh,fi,fj,fk,fl,fr,fp         : integer;
  11.            fm,fo,fq,ft,fv               : integer;
  12.            doorpts                      : real;
  13.         end;
  14.    str = string[41];
  15.  
  16.  
  17.  
  18. FUNCTION ADDBLANK(B:STR;L:INTEGER): STR;
  19.  
  20.   VAR
  21.       I,J  : INTEGER;
  22.       TEMP : STR;
  23. BEGIN
  24.   TEMP := '                                         ';
  25.   ADDBLANK := B;
  26.   IF LENGTH(B) < L
  27.     THEN
  28.       BEGIN
  29.         I := L-LENGTH(B);
  30.         ADDBLANK := CONCAT(COPY(TEMP,1,I),B);
  31.       END;
  32. END;
  33.  
  34.  
  35.  
  36. var
  37.  
  38.  
  39.     narly     : text;
  40.     userf     : file of user;
  41.     usernew   : file of user;
  42.     usert     : user;
  43.     userz     : user;
  44.     tfa       : string[41];
  45.     tfareal   : string[41];
  46.     tfb,tfc,
  47.     tfd,tfe,tff,tfg,
  48.     tfh,tfi,tfj,tfk,
  49.     tfl,tfr,tfp,tfm,
  50.     tfo,tfq,tft,tfv  : string[8];
  51.     tdoorpts  : string[20];
  52.     loop      :integer;
  53.  
  54.  
  55.  
  56. begin
  57.    assign(userf,'twdata.dat');
  58.    reset(userf);
  59.    assign(narly,'newdata.txt');
  60.    rewrite(narly);
  61.    loop := 0;
  62.  
  63.    while loop < 1701 do
  64.    begin
  65.       read(userf,usert);
  66.       tfa   := '';
  67.       tfareal := '';
  68.       tfb := '        ';
  69.       tfc := '        ';
  70.       tfd := '        ';  tfe := ''; tff := ''; tfg :='';
  71.       tfh := '        ';  tfi := ''; tfj := ''; tfk :='';
  72.       tfl := '        ';  tfr := ''; tfp := ''; tfm :='';
  73.       tfo := '        ';  tfq := ''; tft := ''; tfv :='';
  74.       tdoorpts := '            ';
  75.       tfa     := addblank(usert.fa,41);
  76.       tfareal := addblank(usert.fareal,41);
  77.       write(narly,tfa);
  78.       write(narly,tfareal);
  79.       str(usert.fb,tfb);
  80.       str(usert.fc,tfc);
  81.       str(usert.fd,tfd);
  82.       str(usert.fe,tfe);
  83.       str(usert.ff,tff);
  84.       tfb := addblank(tfb,8);
  85.       tfc := addblank(tfc,8);
  86.       tfd := addblank(tfd,8);
  87.       tfe := addblank(tfe,8);
  88.       tff := addblank(tff,8);
  89.  
  90.       write(narly,tfb);
  91.       write(narly,tfc);
  92.       write(narly,tfd);
  93.       write(narly,tfe);
  94.       write(narly,tff);
  95.  
  96.       str(usert.fg,tfg);
  97.       str(usert.fh,tfh);
  98.       str(usert.fi,tfi);
  99.       str(usert.fj,tfj);
  100.       str(usert.fk,tfk);
  101.       str(usert.fl,tfl);
  102.       str(usert.fr,tfr);
  103.       tfg := addblank(tfg,8);
  104.       tfh := addblank(tfh,8);
  105.       tfi := addblank(tfi,8);
  106.       tfj := addblank(tfj,8);
  107.       tfk := addblank(tfk,8);
  108.       tfl := addblank(tfl,8);
  109.       tfr := addblank(tfr,8);
  110.  
  111.       write(narly,tfg);
  112.       write(narly,tfh);
  113.       write(narly,tfi);
  114.       write(narly,tfj);
  115.       write(narly,tfk);
  116.       write(narly,tfl);
  117.       write(narly,tfr);
  118.  
  119.       str(usert.fp,tfp);
  120.       str(usert.fm,tfm);
  121.       str(usert.fo,tfo);
  122.       str(usert.fq,tfq);
  123.       str(usert.ft,tft);
  124.       str(usert.fv,tfv);
  125.  
  126.       tfp := addblank(tfp,8);
  127.       tfm := addblank(tfm,8);
  128.       tfo := addblank(tfo,8);
  129.       tfq := addblank(tfq,8);
  130.       tft := addblank(tft,8);
  131.       tfv := addblank(tfv,8);
  132.       write(narly,tfp);
  133.       write(narly,tfm);
  134.       write(narly,tfo);
  135.       write(narly,tfq);
  136.       write(narly,tft);
  137.       write(narly,tfv);
  138.  
  139.       str(usert.doorpts,tdoorpts);
  140.       tdoorpts := addblank(tdoorpts,20);
  141.       write(narly,tdoorpts);
  142.       writeln(narly);
  143.       writeln('Loop # is ',loop);
  144.       loop := loop +1;
  145.    end;
  146. close(userf);
  147. close(narly);
  148. end.