スペースを押すたびにサイコロを振り、履歴を配列変数に最大30件登録し、
オーバーした分は過去の分から消えていくというサンプルを作ってみました。
#const max 30 //履歴の最大数
dim past,max //履歴
p_num=0 //履歴の件数
dice=-1 //サイコロの目。-1の場合はまだ振っていない状態
randomize
onkey gosub *roll
stop
*roll
if iparam!=32 : return //スペースキーを押した時のみ反応
if dice!=-1 {
repeat max-1 : past(max-1-cnt)=past(max-2-cnt) : loop //履歴を後ろに1つシフト
//memcpy past,past,max*4-4,4,0 //たぶん↑よりもこちらの方が早い
past(0)=dice : p_num=limit(p_num+1,0,max) //件数はmaxは超えない
}
dice=(rnd(6)+1)+(rnd(6)+1) //6面サイコロを2つ振る
color 255,255,255 : boxf
color 0,0,0
pos 0,0 : mes "サイコロの目:"+strf("%2d",dice)
pos 0,40 : mes "履歴"
//履歴を表示
repeat p_num
pos 30*(cnt\10),20*(cnt/10)+60
mes strf("%2d",past(cnt))
loop
return