{ fibo.txt -- Algorithm #17: Fibonacci Random Numbers by Tom Swan
}

var
  List: array[1 .. 17] of WORD;
  I, J: Integer;

function NextRandom: Integer;
var
  K: Integer;
begin
  K <- List[I] + List[J];
  List[I] <- K;
  I <- I - 1;
  J <- J - 1;
  if I = 0 then I <- 17;
  if J = 0 then J <- 17;
  NextRandom <- K;
end;


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 10/04/1993   Time: 04:59 pm
*)



