File Manager

#! /usr/bin/crm
#
#	calc.crm - desk calculator

# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.

window
output /Enter expressions.  Hit return to evaluate, empty line to exit\n      /
{
	isolate (:y:)
	input <byline> (:x:)
	match [:x:] /./
	{
		#   Eval once -- this one does variable subsitutions
		eval (:x:) /:+:x:/
		#   Eval again -- this one does the actual math
		eval (:y:) / :@::*:x:: /
		output /:*:y:\n      /
		trap (:z:) /.*/
		isolate (:y:)  /I couldn't evaluate ':*:x:' ./
		output /:*:y:\n/
		match [:z:] /\*WARNING\* \n(.*)\nI'll try/ (:: :R:)
		output /:*:R:\n\n      /
	}
	liaf
}