14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    17  *)

    17  *)

    18 

    18 

    19 unit uConsole;

    21 unit uConsole;

    20 interface

    22 interface

    21 uses uFloat;

    23 uses uFloat;

    23 const isDeveloperMode: boolean = true;

    25 const isDeveloperMode: boolean = true;

    24 type TVariableType = (vtCommand, vtLongInt, vthwFloat, vtBoolean);

    26 type TVariableType = (vtCommand, vtLongInt, vthwFloat, vtBoolean);

    25      TCommandHandler = procedure (var params: shortstring);

    27      TCommandHandler = procedure (var params: shortstring);

    26 

    28 

    27 procedure WriteToConsole(s: shortstring);

    29 procedure WriteToConsole(s: shortstring);