NUM_MAX=100 '配列の大きさ
SHUFFLE_NUM=20 '配列1箇所ごとのシャッフルの回数
DIM NUMBERS[NUM_MAX] '数字が格納される配列
FOR I=0 TO NUM_MAX-1 '1からNUM_MAXまで数値を格納
NUMBERS[I]=I+1
NEXT
FOR I=0 TO NUM_MAX-1 '配列の中身をランダムで入れ替える
FOR N=0 TO SHUFFLE_NUM
SWAP NUMBERS[N],NUMBERS[RND(NUM_MAX)]
NEXT
NEXT
FOR I=0 TO NUM_MAX-1 '試しにプリント
? NUMBERS[I];",";
NEXT
1そうだね プレイ済み