/***************************************************************
		Copyright (c) Axon Research
 Project:  AXON2000
 FileName: UTIL.PRO
 Comments: A demo of Open Program action showing token colors
****************************************************************/
include "axon2000.inc"
include "axon2000.con"
include "hlptopic.con"

DATABASE - util
  stone_(INTEGER,STRING) % For Throw and Catch

PREDICATES
  throw(INTEGER,STRING)
  catch(INTEGER,STRING)

CLAUSES
  throw(Int,Str):-	% Can throw many in sequence
  	assertz(stone_(Int,Str)).

  catch(Int,Str):- retract(stone_(Int,Str)),!.
  catch(0,""):-!,  dlgErr("Nothing to catch").  		




