0～9、A～Fまでで良ければ14行目を A=VAL("&H"+A$) とすれば0～15まで16種類のBGキャラクターが表示できます。 DATA命令のデータを10進数から16進数に解釈を変更して 表示しています。