projects/Stacker/test/rot2.st

   1 #
   2 # ROT2 test
   3 #
   4 # Logic:  // w1 w2 w3 w4 w5 w6 -- w3 w4 w5 w6 w1 w2
   5 #
   6 FORWARD success;
   7 FORWARD failure;
   8 : try_0 0 = IF success ELSE failure ENDIF ;
   9 : try_3 3 = IF try_0 ELSE failure ENDIF ;
  10 : try_4 4 = IF try_3 ELSE failure ENDIF ;
  11 : try_5 5 = IF try_4 ELSE failure ENDIF ;
  12 : try_6 6 = IF try_5 ELSE failure ENDIF ;
  13 : try_1 1 = IF try_6 ELSE failure ENDIF ;
  14 : MAIN 0 1 2 3 4 5 6 ROT2 2 = IF try_1 ELSE failure ENDIF ;