高校一年くらいで習うのかな
数字の組み合わせだったような
いやいや
whitespaceの字句解析のデバッグ用に書きました
配列のサイズがあんま自由じゃないんで
追記：そういえばＨＳＰは配列の大きさは大きくなりますなｗ
ノート命令に書き込んでから配列に代入してます
sdim _4note,10000 notesel _4note s="s" t="t" n="n" tmp1=s gosub *sub_d tmp1=t gosub *sub_d tmp1=n gosub *sub_d notesave "stn5.txt" sdim ar_stn5,8,notemax repeat notemax tmp_get="" noteget tmp_get,cnt ar_stn5.cnt=tmp_get loop stop *sub tmps=tmp1+tmp2+tmp3+tmp4+s tmpt=tmp1+tmp2+tmp3+tmp4+t tmpn=tmp1+tmp2+tmp3+tmp4+n noteadd tmps,-1,0 noteadd tmpt,-1,0 noteadd tmpn,-1,0 return *sub_b tmp4=s gosub *sub tmp4=t gosub *sub tmp4=n gosub *sub return *sub_c tmp3=s gosub *sub_b tmp3=t gosub *sub_b tmp3=n gosub *sub_b return *sub_d tmp2=s gosub *sub_c tmp2=t gosub *sub_c tmp2=n gosub *sub_c return
これは初稿でサブルーチンを利用して繰り返してます
逆にコレ書いた後なんで
繰り返しでも書けました