プログラム最後に def pn(x) return format$("P%DN%D", x and 127, x) return と追加した上で、全ての arpgo$=arpgo$+"N"+str$(x2[z2]) を arpgo$=arpgo$+pn(x2[z2]) と変更したら pan できました。 かなりいい具合です!!