>>350
適当に作ってみた

randomize 
sdim zyukugo,4,15
dim table,6
zyukugo="1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"
a=1
repeat 6
table(cnt)=rnd(15)  ;乱数を記録しておく
loop
input a,32,,1
pos 32,0:mes "行目を           or"
pos 80,0:button gosub "選ぶ",*erabu
pos 200,0:button gosub "ランダム選択",*random
gosub *erabu
stop
*random
a=rnd(6)+1
*erabu
if (a<1)or(a>6):dialog "1〜6行目を選択しやがれこのウジ虫めが！":return
color 255,255,255:boxf 0,40,640,480
repeat 6
if cnt=(a-1){
    color ,,128:boxf 0,40+35*cnt,640,58+35*cnt
    color 255,255,255
    }else:color
pos 20,40+35*cnt:mes zyukugo(table(cnt))
loop
color:pos 20,300:mes "選んだ行:"+a+"\n数値"+zyukugo(table(a-1))
return