RANGET

Portability Subroutine: Returns the current seed.

Module: USE IFPORT

Syntax

CALL RANGET (seed)

seed
(Output) INTEGER(4). The current seed value.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB