手元のバージョンでは30行目ぐらい(ACLS,XSCREEN,VARの直後)に FOR I=0 TO 511:SPSET I,0:SPOFS I,-256,-256:NEXT と書くと3.1.0でも動くようになりました。何ステージかクリアしてみましたが、特に問題なさそうです。