その画面の部分ですが、FORや配列を使って DIM SN_B$[最大数+1] FOR I=0 TO 最大数:READ SN_B$[I]:NEXT DATA "ブリチィ","ブリティ","ブリウト"… 　などと書けば、何十分の１もコンパクトになりますよ。