COBOL programmers answer call(spectrum.ieee.org)

       display
           "content-type: text/html"
           newline
       end-display.

    program PBook;
    type
      EntryRec = record
        Name: string[32];
        Phone: string[30];
      end;
    var
      Entries: File of EntryRec;
      Entry: EntryRec;
      C: Char;
      I: Longint;
    begin
      Assign(Entries, 'entries.dat');Reset(Entries);
      repeat
        Write('Phone book, what to do? (Enter, List, Modify, Quit) ');
        Readln(C); C:=UpCase(C);
        if C='E' then begin
          Write('Name: '); Readln(Entry.Name);
          Write('Phone: '); Readln(Entry.Phone);
          Seek(Entries, FileSize(Entries));
          Write(Entries, Entry);
        end else if C='L' then begin
          Seek(Entries, 0);
          while not Eof(Entries) do begin
            Read(Entries, Entry);
            Writeln('Name:', Entry.Name:32, ' Phone:', Entry.Phone:30);
          end;
        end else if C='M' then begin
          Write('Entry number (0..', FileSize(Entries) - 1,'): ');Readln(I);
          Seek(Entries, I);
          Read(Entries, Entry);
          Write('Name (', Entry.Name, '): ');Readln(Entry.Name);
          Write('Phone (', Entry.Phone, '): ');Readln(Entry.Phone);
          Seek(Entries, i);
          Write(Entries, Entry);
        end;
      until C='Q';
      Close(Entries);
    end.