(* Copyright (C) 2017-2023 Free Software Foundation, Inc. *) (* This file is part of GNU Modula-2. GNU Modula-2 is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with gm2; see the file COPYING. If not, write to the Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *) DEFINITION MODULE Options ; (*!m2pim+gm2*) (* Title : Options Author : Gaius Mulley System : GNU Modula-2 Date : Fri Sep 29 13:51:36 2017 Revision : $Version$ Description: provides a convenient module to collect and handle all user configurable defaults and options. *) VAR userTotalCorridorLength, (* user specified total amount of corridors. *) userMinCorridorLength, userMaxCorridorLength, (* user specified max/min corridor size. *) userMinRoomLength, userMaxRoomLength, (* user specified max/min room size. *) userX, userY : CARDINAL ; (* user defined maximum map size. *) (* HandleOptions - *) PROCEDURE HandleOptions ; END Options.