該当する値を入れた配列を作り、調べる値がその配列の中にあるかどうかを確かめるという方法は。
//arrchk p1,p2
//整数の1次元配列p1の中にp2があったら1を、なかったら0を返す。
//
//arrchk_f p1,p2
//↑の実数配列版
//
//arrchk_s p1,p2
//↑の文字列配列版
#module
#defcfunc arrchk array ar1,int n1
tmp=n1
return arrchk_main(ar1,tmp)
#defcfunc arrchk_f array ar2,double n2
tmp=n2
return arrchk_main(ar2,tmp)
#defcfunc arrchk_s array ar3,str n3
tmp=n3
return arrchk_main(ar3,tmp)
#defcfunc arrchk_main array ar,var n
x=0
repeat length(ar)
if ar(cnt)=n : x=1 : break
loop
return x
#global
//整数の例
dim a,3
a=7,5,3
repeat 10
if arrchk(a,cnt) : mes cnt
loop
//文字列の例
//10個あるアイテムの中から、特定のアイテムが見つかったら何番目のアイテムなのかを表示
sdim item,64,10
item="りんご","みかん","ぶどう","メロン","なし","いちご","もも","びわ","いちじく","バナナ"
sdim b,64,3
b="いちご","もも","バナナ"
repeat 10
if arrchk_s(b,item(cnt)) : mes item(cnt)+":"+str(cnt+1)+"番目のアイテム"
loop