sdim _4note,10000
notesel _4note
sdim youso,5,5
youso.0="s"
youso.1="t"
youso.2="n"
repeat 3
tmp1=youso.cnt
repeat 3
tmp2=youso.cnt
repeat 3
tmp3=youso.cnt
repeat 3
tmp4=youso.cnt
repeat 3
tmp5=youso.cnt
tmp=""+tmp1+tmp2+tmp3+tmp4+tmp5
noteadd tmp,-1,0
loop
loop
loop
loop
loop
notesave "stn5_b.txt"
sdim ar_stn5,8,notemax
repeat notemax
tmp_get=""
noteget tmp_get,cnt
ar_stn5.cnt=tmp_get
loop