14行目のGCIRCLE命令の描画位置にBX[J],BY[J]とありますが 変数Jは使用されていないため常にBX[0],BY[0]を指定しています。 ここはBX[I],BY[I]ではないですか？