BLANKFIELD

a=0
bad=3:quality=0 ’10段階評価
dim song(1001)

*main
a++
song(a)=”ツービートばっかりでロックなアレンジ”
if quality<=bad then goto *change
goto *main

end ‘活動終了

*change
while 自分.think!=”飽きる”
a++
song(a)=”トランスとかできもしないジャンルに手を出す”
if quality<=bad then exit for
wend
goto*main

‘いろいろ混在。最初はポケコンベーシックのつもりだったんだよ。それにしても++や+=がないのはめんどくさい。