#author("2018-01-17T05:39:09+09:00","","")
[[簡単言語]]
**ＮＯ＿６１３ [#i2e14132]
久しぶりに　簡単言語Sampleうｐしましたｗ~
配列は2次元なんですけど~
いらないと思いますが~
indexと異なるかもなのでｗ~


 goto *@f
 #deffunc num_rgst_init
 	dim ar_num,256,2
 	return
 #deffunc num_rgst_num int p_index,int p_num,int p_line
 	ar_num.p_index.0=p_num
 	ar_num.p_index.1=p_line
 	return
 #deffunc num_rgst_dump
 	repeat 16
 	logmes "num  "+cnt+":"+ar_num.cnt.0
 	logmes "line "+cnt+":"+ar_num.cnt.1
 	loop
 	return
 *@
 	num_rgst_init
 	flag_on_line_search=1
 	hoge_pc=1
 // case 1: pos
 my_line=int(__LINE__)
 	if flag_on_line_search==1{
	 	num_rgst_num hoge_pc,hoge_pc,my_line
 		hoge_pc++
 	}
 	if flag_on_label_search==1{
 	}
 	
 	if flag_on_do==1{
 		pos 150,0
 	}
 // case 2: mes
 my_line=int(__LINE__)
 	if flag_on_line_search==1{
	 	num_rgst_num hoge_pc,hoge_pc,my_line
 		hoge_pc++
 	}
 	if flag_on_label_search==1{
 	}
 	
 	if flag_on_do==1{
 		mes "ボタンを押してください"
 	}	
 	num_rgst_dump