28 IFFVTHENPRINT"Five of a kind!";:X=50:GOTO32ELSEIFFRTHENPRINT"Four of a kind!";:X=25:GOTO32
29 IFTR=-2OR(TRANDPR+S(4))THENPRINT"Full house!";:X=10:GOTO32ELSEIFTRTHENPRINT"Three of a kind!";:X=3:GOTO32ELSEIFPR=-2THENPRINT"Two pair!";:X=2:GOTO32
30 IFS(4)+V(11)=2ORS(4)+V(12)=2ORS(4)+V(13)=2ORS(4)+V(14)=2THENPRINT"Pair, jacks or better!";:X=1:GOTO32