3D迷路

バグが多数あるようです。

1010 WIDTH 80,25:CONSOLE 0,25,0,1:CLS:RANDOMIZE VAL(RIGHT$(TIME$,2))
1030行 DEF FNX(DUMY)=P(X1,Y1-1)*10+P(X1,Y1+1)を削除
1040行 DEF FNY(DUMY)=P(X1+1,Y1)*10+P(X1-1,Y1)を削除
1310   IF S THEN W=P(X1+1,Y1)*10+P(X1-1,Y1) ELSE W=P(X1,Y1-1)*10+P(X1,Y1+1)
2230           IF P THEN PSET(84+I*16+(K MOD 16),(J-1)*8+(K\16),3)
2360         PUT@A(84+X*16,Y*8-8)-(100+X*16,Y*8),D%,OR:GOTO 2400
2370         PUT@A(84+X*16,Y*8-8)-(100+X*16,Y*8),L%,OR:GOTO 2400
2380         PUT@A(84+X*16,Y*8-8)-(100+X*16,Y*8),U%,OR:GOTO 2400
2390         PUT@A(84+X*16,Y*8-8)-(100+X*16,Y*8),R%,OR
2410     PUT@A(84+X*16,Y*8-8)-(100+X*16,Y*8),G%,PSET