home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWARS.ZIP / LOOKSECT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-29  |  1.9 KB  |  80 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.  
  15. var
  16.  
  17.  
  18.     userf     : file of user;
  19.     userrec   : user;
  20.     usert     : user;
  21.     ans       : char;
  22.     sect      : integer;
  23.     done      : boolean;
  24.     newff,
  25.     newfg,
  26.     newfo     : integer;
  27.  
  28. begin
  29.    assign(userf,'twdata.dat');
  30.    reset(userf);
  31.    clrscr;
  32.    done := FALSE;
  33.    while not done do
  34.    begin
  35.       write('Which record ');
  36.       readln(sect);
  37.       if sect = 0 then done := TRUE;
  38.       seek(userf,sect);
  39.       read(userf,userrec);
  40.       writeln('Name -> ',userrec.fa);
  41.       writeln('N-Real > ',userrec.fareal);
  42.       with userrec do
  43.       begin
  44.         writeln('Fb reg  ',fb);
  45.         writeln('Fc reg  ',fc);
  46.         writeln('Fd reg  ',fd);
  47.         writeln('Fe reg  ',fe);
  48.         writeln('Ff reg  ',ff);
  49.         writeln('Fg reg  ',fg);
  50.         writeln('Fh reg  ',fh);
  51.         writeln('Fi reg  ',fi);
  52.         writeln('Fj reg  ',fj);
  53.         writeln('Fk reg  ',fk);
  54.         writeln('Fl reg  ',fl);
  55.         writeln('Fr reg  ',fr);
  56.         writeln('Fp reg  ',fp);
  57.         writeln('      Fm reg  ',fm);
  58.         writeln('Fo reg  ',fo);
  59.         writeln('Fq reg  ',fq);
  60.         writeln('Ft reg  ',ft);
  61.         writeln('Fv reg  ',fv);
  62.         writeln('Doorpts ',doorpts);
  63.       end;
  64.     if NOT done then
  65.      begin
  66.         write('Zap it?  ');
  67.         readln(newff);
  68.         if newff = 1032 then
  69.         begin
  70.         userrec.fp :=0;
  71.         userrec.ft :=0;
  72.  
  73.         seek(userf,sect);
  74.         write(userf,userrec);
  75.         end;
  76.  
  77.      end;
  78.    end;
  79. close(userf);
  80. end.