Topspeed_JPI/TS-V3/EXAMPLES/GLOBALS.DEF

DEFINITION MODULE Globals;
(*
        Copyright (C) 1988,1989 Jensen & Partners International
*)

IMPORT Window, Btree;

CONST
        ClientFileName = "Clients.DAT";
        ItemsFileName  = "Items.DAT";

TYPE
   CharSet = SET OF CHAR;
   FileKey = ARRAY[0..9] OF CHAR;

VAR
        TaxRate     : LONGREAL;     (* state tax rate on sales *)

        DisplayFore, DisplayBack,  (* field names *)
        DataFore, DataBack,     (* field information *)
        DisplayBorder,          (* window border *)
        PromptFore, PromptBack  (* "system" prompts *)
        : Window.Color;

        ClientFile, ItemFile : Btree.FHandle;
        ClientData, ItemData, ClientIndex,
        NameIndex, ItemIndex : Btree.IHandle;

        oldWin,
        TitleWin, DisplayWin : Window.WinType;

        StoreName : ARRAY[0..60] OF CHAR;

PROCEDURE Beep();
(**       Sound a tone at the user      **)

PROCEDURE WriteAt( row, col : CARDINAL;  txt : ARRAY OF CHAR);
(**       Write a string to the current window at the given position.   **)

PROCEDURE GetMenu( Prompt : ARRAY OF CHAR;  OKChars : CharSet;
                   VAR ch : CHAR);
(**       Put up a prompt and accept one of the "ok" characters         **)

PROCEDURE Compare( key1, key2 : ADDRESS ) : Btree.CmpRes;
(**       compare two strings - used for Btree file insertion      **)

PROCEDURE UpdateTitle( All : BOOLEAN );
(**       Update the date and time block        **)

END Globals.