language-Modula2-0.1: examples/Modula-2_Libraries/PMOS/sources/games/tank/menu2.def

DEFINITION MODULE Menu2;
(*****************************************************************************)
(**  Menu routines to set up and start a game.                              **)
(*****************************************************************************)

TYPE playertype = (human,DumbComp,SmartComp);

TYPE initvalu = RECORD
              Wind: REAL;
              Sound:BOOLEAN;
              Trace:BOOLEAN;
              Play:BOOLEAN;
              ScreenRes:SHORTCARD;
              Player2:playertype;
              END (*RECORD*);

PROCEDURE BlastMenu():initvalu;

END Menu2.