Oakland CPM Archive/oakcpm.iso/cpm/bbs/turbobbs.ark/MAILSYS.FIX

Text File | 1986-12-20 | 1KB | 32 lines

procedure messagesearch(first:byte; fromnum, tonum:integer; sectnum:byte);

  var
    loop: byte;
    inch: char;
    oldnum: integer;
    matched: boolean;

  begin
    matched := false;
    inch := null;
    loop := first;
    if loop = 0 then loop := 1;
    while cts and (loop <= count) and (inch <> 'Q') and (count <> 0) do begin
      oldnum := messtable[loop].number;
      if ((fromnum = 0) or (fromnum = messtable[loop].sender))
        and ((tonum = 0) or (tonum = messtable[loop].recver))
        and ((sectnum = 0) or (sectnum = messtable[loop].section))
        and not (secure(loop) and messtable[loop].private)
      then begin
        matched := true;
        cancelled := false;
        header(loop);
        inch := getcap('Read (Y/N/Quit)? ');
        if inch = 'Y' then readfile(loop);
      end;
      if messtable[loop].number = oldnum then loop := loop + 1;
    end;
    if cts and not matched then lineout('No messages found.');
  end;