title	Module from library HIFLOAT_6 : LBRAND
	name	('LBRAND')
	maclib	baselib.lib

; Build 16 bit random number

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 January 1989

; ENTRY	None

; EXIT	Reg BC holds 16 bit random number

	entry	random

	extrn	?random

random:
	call	?random		; Get random
	ld	b,l		; Copy into 16 bit
	ld	c,e
	ret

	end