.FUNCT ZPROB,BASE
ZERO? LUCKY /?ELS5
RANDOM 100
GRTR? BASE,STACK /TRUE
RFALSE
?ELS5: RANDOM 300
.FUNCT PICK-ONE,FROB
GET FROB,0
RANDOM STACK
GET FROB,STACK
RSTACK
.ENDI