;--------------------------------------
;	rand p1,p2		[乱数発生]
;
;	p1=変数 ： 乱数を入れる配列変数
;	p2=0〜(0) ： 乱数の最低値
;
;	配列に重複のないように配列の数だけ
;	乱数を入れます
;--------------------------------------
#module
#deffunc rand val,int
	mref data,16
	mref start,1
	mref pval,1024
	title ""+start
	kazu=pval.2
	randomize
	repeat kazu
		rnd a,cnt+1
		data.cnt=data.a
		data.a=cnt+start
	loop
	return
#global

;--------------------------------------
;	ここから、サンプルプログラム
;	実際に使うときは削除してください
;-------------------------------------
num=20
dim a,num
rand a,100
repeat num
	mes ""+a.cnt
loop
stop