projects/Stacker/test/rot.st

   1 #
   2 # DUP test
   3 #
   4 FORWARD success;
   5 FORWARD failure;
   6 : phase4 0 = IF success ELSE failure ENDIF ;
   7 : phase3 2 = IF phase4 ELSE failure ENDIF ;
   8 : phase2 3 = IF phase3 ELSE failure ENDIF ;
   9 : MAIN 0 1 2 3 ROT 1 = IF phase2 ELSE failure ENDIF ;