change over to new error message format

[unix-history] / usr / src / usr.bin / pascal / libpc / SEED.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)SEED.c 1.5 %G%";

#include "h00vars.h"

long
SEED(value)
       long value;
{
       long tmp;

       tmp = _seed;
       _seed = value;
       return tmp;
}