language-Modula2-0.1: examples/Modula-2_Libraries/PMOS/sources/general/calculat.def

DEFINITION MODULE Calculator;

	(****************************************************************)
	(*								*)
	(*			Simple calculator			*)
	(*								*)
	(*  Programmer:		P. Moylan				*)
	(*  Last edited:	1 September 1993			*)
	(*  Status:		OK					*)
	(*								*)
	(****************************************************************)

PROCEDURE RunCalculator;

    (* Displays a calculator window on the screen; this can be operated	*)
    (* from the numeric keypad.  On exit, the calculator window is	*)
    (* closed.  However, calculation results are saved between		*)
    (* invocations of this procedure.					*)

END Calculator.