maze.mz 401 B

1234567891011121314151617181920212223
  1. ## ## () ## ^^ ## ## ## ##
  2. ## H1 C2 S1 <> S2 H2 DN ##
  3. ## %U <> %D *2 %L IZ .. ##
  4. ## ## ## .. ## DN *3 ## ##
  5. ## ## ## %R C1 IZ () ## ##
  6. ## ## ## ## >/ *1
  7. ## () *3 *1 %L ()
  8. // Set divisor and dividend
  9. S1-> = 9
  10. S2-> = 24
  11. // Holding cells
  12. H1-> IF *1 THEN %R ELSE %N
  13. H2-> IF *2 THEN %R ELSE %N
  14. // Arithmetic
  15. DN-> -= 1
  16. IZ-> IF <= 0 THEN %D ELSE %U
  17. C1-> IF *3 THEN %D ELSE %R
  18. C2-> IF *3 THEN %U ELSE %D