language-Modula2-0.1: examples/Modula-2_Libraries/PMOS/def/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.