program run;{ run *.chn}
const forever: boolean = false;

var target: file;
    i     : integer;
begin
  repeat
    writeln('1. Monitor Printer Port');
    writeln('2. Calculate Dipole');
    write('Enter #: '); readln(i);
  case i of
    1: begin
      assign(target,'nft_diag.chn');
      chain(target);
      end;
    2: begin
      assign(target,'dipole.chn');
      chain(target);
      end;
    end {case }
   until forever
end.