みけらんジェロさんの考え方に似てます。
これで3カードから5カードまで判定できます
DIM TE[5] '手札
DIM COUNT[26] '種類毎の枚数
'26種類のカード毎に数える
FOR I=0 TO 125: INC COUNT[TE[I] DIV 5]:NEXT
R=JUDGE345CARD(5) '5カードか判定
R=JUDGE345CARD(4) '4カードか判定
R=JUDGE345CARD(3) '3カードか判定
DEF JUDGE345CARD( NUM )
FOR I=0 TO 25
IF COUNT[I]=NUM THEN RETURN I
NEXT
RETURN -1
END
0そうだね プレイ済み