似たようなプログラム作ってみました。LOCATE命令にZ軸がありますが、XSCREEN 0がないので3Dが機能していませんよ。