/********************************************************************************************
	Clean OS Windows library module version 1.2.1.
	This module is part of the Clean Object I/O library, version 1.2.1, 
	for the Windows platform.
********************************************************************************************/

/********************************************************************************************
	About this module:
	Routines useful for debugging. 
********************************************************************************************/
#include "cdebug_121.h"
#include "time.h"

int Rand (void)
{
	static int holdrand;
	static int randinited = 0;
    printf("Rand\n");

	if (!randinited)
	{
		holdrand = (int) 0; //GetTickCount ();
		randinited = -1;
	}

	holdrand = holdrand * 214013 + 2531011;

	return ((holdrand >> 16) & 0x7fff);
}

OS ConsolePrint (CLEAN_STRING cleanstr, OS os)
{
	char *cstr;
    printf("ConsolePrint\n");

	cstr = cstring (cleanstr);
	rprintf (cstr);
	return os;
}