{ telnum.txt -- Algorithm #6: Telephonic Mnemonic by Tom Swan }

procedure Permute(n: Integer);
begin
  digit <- ValueOfChar(inString[n]);
  for i <- 1 to 3 do
  begin
    outString[n] <- TelDial[digit][i];
    if (n = Length(inString)) then
      Write(outString)
    else
      Permute(n + 1);
  end;
end;


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 02/13/1993   Time: 02:54 pm
*)
