projects/Stacker/test/over2.st

   1 #
   2 # OVER2 test
   3 #
   4 # Logic: // w1 w2 w3 w4 -- w1 w2 w3 w4 w1 w2
   5 #
   6 FORWARD success;
   7 FORWARD failure;
   8 : try_0 0 = IF success ELSE failure ENDIF ;
   9 : try_1b 1 = IF try_0 ELSE failure ENDIF ;
  10 : try_2 2 = IF try_1b ELSE failure ENDIF ;
  11 : try_3 3 = IF try_2 ELSE failure ENDIF ;
  12 : try_4 4 = IF try_3 ELSE failure ENDIF ;
  13 : try_1a 1 = IF try_4 ELSE failure ENDIF ;
  14 : MAIN 0 1 2 3 4 OVER2 2 = IF try_1a ELSE failure ENDIF ;