program GenerateCables;

uses Cables, Generate;

var
  C: Cable;
  ch: char;

procedure Init;
  begin
  writeln('Cable Generator') ;
  writeln
  end { Init } ;

begin
Init ;
GenerateCable(C) ;
while (C.M <> 0) and (C.N <> 0) do begin
  ShowCable(output, C, true) ;
  WriteCable(C) ;
  GenerateCable(C)
  end { while }
end.