%%% The Generator 
%%% It is always scheduled so the scheduler is never empty.
G1  	  TRIP  Send,Reuse,0	Reuse possible?
	  BZ    $255,1F		If not,
	  PUSHJ	$0,Allocate	\qquad allocate new coroutine,
	  GETA	$255,U1		\qquad point it to User,
	  TRIP	Start,$0,0	\qquad and start it.
	  TRIP	DelayI,0,0	to get values the same %%hide
1H	  PUSHJ	$0,InterTime	Determine time until next user.
	  TRIP	Delay,$0	Wait and
	  JMP	G1		start over.
%%%
Avail		GREG	     0
Allocate	ADDU	     $0,Free,Avail
		ADDU	     Avail,Avail,6*8
		POP	     1,0
%%off