DEF SPEND N SPCHR N,SPCHR(N) END DEFで命令化すると大変に捗りそうです