First lets do some spring-cleaning, shall we?
J PN.NEXT 0
IF J: TR.P 1
Or in one line:
IF PN.NEXT 0: TR.P 1
You go back to the two line version like this:
J PN.NEXT 0
PROB 90: BRK
IF J: TR.P 1
Or with RND
J PN.NEXT 0
IF && J ! RND 9: TR.P 1
Not sure this one-liner will fit (away from my teletype):
IF && PN.NEXT 0 ! RND 9: TR.P 1
If you set the pattern somewhere else (or don’t change it somewhere else), you can loose the “0”:
IF && P.NEXT ! RND 9: TR.P 1