20 lines
220 B
Plaintext
20 lines
220 B
Plaintext
|
|
||
|
|
||
|
.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
|