.FUNCT	ZPROB,BASE
	ZERO?	LUCKY /?ELS5
	RANDOM	100
	GRTR?	BASE,STACK /TRUE
	RFALSE	
?ELS5:	RANDOM	300
	GRTR?	BASE,STACK /TRUE
	RFALSE	


	.FUNCT	PICK-ONE,FROB
	GET	FROB,0
	RANDOM	STACK
	GET	FROB,STACK
	RSTACK	

	.ENDI