Compucolor.org – Virtual Media

Listing of file='RND.FOR;04' on disk='vmedia/forutil_1-sector.ccvf'

	REAL FUNCTION RND(X)
	REAL LAST
	DATA LAST/1.0/

	IF(X.NE.0.0) GOTO 10
	RND = LAST
	RETURN
   10	IF(X.LT.0.0) LAST = ABS(X)
	LAST = ALOG(LAST*3.1415927)
	LAST = ABS(LAST-INT(LAST))
	RND = LAST
	RETURN
	END