projects/Stacker/test/shr.st

   1 #
   2 # SHR test
   3 #
   4 FORWARD success;
   5 FORWARD failure;
   6 : show_failure >d SPACE failure ;
   7 : MAIN 64 3 >> 8 = IF success ELSE show_failure ENDIF ;