/** rnd.c ******************/
/*                         */
/* by [RK]                 */
/*                         */
/* Copyright © 1988 by DgA */
/*                         */
/***************************/

/*
FIRM    : Digital Artists (DgA)
OBJECT  : rnd.c
RELEASE : 1.0
AUTHOR  : [RK]
DATE    : 05-29-1988
STATUS  : SECRET
*/

#include <exec/types.h>

static float random = 13;

float rnd()
 {
  random = (889*((long)(random))+23147)%2194647;

  return(random/2194647);
 }

initrnd()
 {
  UBYTE *HardPointer = 0xdff006;
  random = (float)*HardPointer;

  return;
 }