home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWARS.ZIP / TXT2DAT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-08-07  |  2.3 KB  |  107 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. function stripblank(b:str): str;
  35.   var
  36.     temp : str;
  37.     nuke : integer;
  38. begin
  39.    temp := b;
  40.    while (pos(' ',temp)=1) do delete(temp,1,1);
  41.    stripblank := temp;
  42. end;
  43.  
  44. var
  45.  
  46.  
  47.     narly     : text;
  48.     userf     : file of user;
  49.     usernew   : file of user;
  50.     usert     : user;
  51.     userz     : user;
  52.     tfa       : string[41];
  53.     tfareal   : string[41];
  54.     tfb,tfc,
  55.     tfd,tfe,tff,tfg,
  56.     tfh,tfi,tfj,tfk,
  57.     tfl,tfr,tfp,tfm,
  58.     tfo,tfq,tft,tfv  : string[8];
  59.     tdoorpts  : string[20];
  60.     loop      :integer;
  61.  
  62.  
  63.  
  64. begin
  65.    assign(userf,'convert.dat');
  66.    rewrite(userf);
  67.    assign(narly,'newdata.txt');
  68.    reset(narly);
  69.    loop := 0;
  70.  
  71.    while loop < 1700 do
  72.    begin
  73.       read(narly,usert.fa);
  74.       usert.fa := stripblank(usert.fa);
  75.       read(narly,usert.fareal);
  76.       usert.fareal := stripblank(usert.fareal);
  77.       read(narly,usert.fb);
  78.       read(narly,usert.fc);
  79.       read(narly,usert.fd);
  80.       read(narly,usert.fe);
  81.       read(narly,usert.ff);
  82.       read(narly,usert.fg);
  83.       read(narly,usert.fh);
  84.       read(narly,usert.fi);
  85.       read(narly,usert.fj);
  86.       read(narly,usert.fk);
  87.       read(narly,usert.fl);
  88.       read(narly,usert.fr);
  89.       read(narly,usert.fp);
  90.       read(narly,usert.fm);
  91.       read(narly,usert.fo);
  92.       read(narly,usert.fq);
  93.       read(narly,usert.ft);
  94.       read(narly,usert.fv);
  95.       readln(narly,usert.doorpts);
  96.  
  97.       write(userf,usert);
  98.  
  99.       writeln('Loop # is ',loop);
  100.       loop := loop +1;
  101.    end;
  102.    for loop := 1 to 50 do
  103.      write(userf,usert);
  104.  
  105. close(userf);
  106. close(narly);
  107. end.