˜ Flag returned from dBTabl_Pick_Obj functions to indicate that a record is to be appended. See Choose_dBTabl, Pick_dBTabl, and Scan_dBTabl.  Appends the current record buffer contents to the dBase file. Call: ObjectName.Append Where: ObjectName is the child object name the programmer assigns for GS_dBase_DB. Result: Record is appended to the file.  Sets the flag in dBTabl_Pick_Objt to allow selection of an Append option. As a result, the last selection in each menu will be 'Append'. This will allow the user to create a new record. Call: ObjectName.Append_dBTabl(tf : boolean) Where: ObjectName is the child object name the programmer assigns for dBTabl_Pick_Obj. tf is a boolean true or false to allow or refuse the Append option in the menu. Result: Boolean flag dBTabl_Pick_Obj.AddRecOK is set to reflect the option passed as argument tf.  Clears the current record buffer contents. Call: ObjectName.Blank Where: ObjectName is the child object name the programmer assigns for GS_dBase_DB. Result: Record buffer is set to all blanks.  Contains the name of the window for the child object of GS_Wind_Objt. This is the name that will appear in the center of the box that is drawn.  Permits selection of an entry in a dbTabl Table that was previously created. Call: bool := ObjectName.Choose_dBTabl Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. bool is a boolean variable to hold the returned value. Result: Record is selected and read into the current record buffer from the dbTabl Tabl. If Append is selected, ObjectName.AddRec is set true. True is returned if a record or the Append option is selected. False is returned if Escape is pressed.  Method that closes a dBase file. Call: ObjectName.Close Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. Result: The file associated with the object is closed, header information is updated, and object file status is set to 'Not_Open'.  Method that will allow data entry from the keyboard to edit the string for length(string). Call: NewStr := ObjectName.EditString(OldStr, xLoc, yLoc, lght) Where: ObjectName is the child object assigned through GS_KeyI_Objt (or through GS_dBase_DB, which is a child of GS_KeyI_Objt). OldStr is the default string passed to EditString. This value will be displayed initially when the edit starts. xLoc is the integer column location on the screen where the edit field begins. yLoc is the integer ror location on the screen where the edit field begins. lgth is the integer length of the edit field. NewStr is a string variable of the correct size to hold the edited string that is returned. Result: The old string is edited and a new string is returned. Standard cursor key movements are allowed. If a non-cursor key is pressed as the first keypress, it is assumed a new value is to be entered and the old default value is erased from the screen. Pressing Escape will return the original value to the calling program.  Function method that accepts keyboard edits to a dBase record field. Call: NewStr := ObjectName.FieldAccept(FldStr, Titl, xLoc, yLoc) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. FldStr is a string holding the name of the record field to use. Titl is a string holding the prompt to be displayed in front of the field to be edited. xLoc is the column position on the screen to begin the prompt. yLoc is the row position on the screen to begin the prompt. NewStr is the returned string value for the field that is entered through the keyboard. Result: The record field specified by FldStr is displayed on the screen. A prompt value is shown in front of the field based on the value in Titl. For example, if FIELD1 in the dBase record contains 'TEST', and is 5 characters long, then: NewStr := ObjectName.FieldAccept('Field1','Name: ',5,5) will display: Name: TEST_ on the screen at xy position 5,5. The 'TEST_' will be highlighted and may be edited. If the field is Numeric, Date, or Logical, an edit will be done to ensure the value returned is appropriate. If the field is a Memo field, the user will be asked if they wish to edit the field. If the answer is 'Y', the memo edit routine will be called. If the edit is terminated with Ctrl-End, the memo field will be updated, and the new memo location returned.  Procedure method that displays a dBase record field on the screen. Call: ObjectName.FieldDisplay(FldStr, Titl, xLoc, yLoc) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. FldStr is a string holding the name of the record field to use. Titl is a string holding the prompt to be displayed in front of the field to be displayed. xLoc is the column position on the screen to begin the prompt. yLoc is the row position on the screen to begin the prompt. Result: The record field specified by FldStr is displayed on the screen. A prompt value is shown in front of the field based on the value in Titl. For example, if FIELD1 in the dBase record contains 'TEST', and is 5 characters long, then: NewStr := ObjectName.FieldAccept('Field1','Name: ',5,5) will display: Name: TEST_ on the screen at xy position 5,5.  Function method that displays all dBase record fields on the screen. Call: bool := ObjectName.FieldDisplayScreen Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. bool is a boolean variable that will be loaded with the value true if the method is exited by any keypress other than Escape. Bool will be false if Escape was pressed. Result: All fields in the record are displayed on the screen. One line per field is used. The field name is displayed as the title of the field. If there are more fields than lines available in the window, the display can be scrolled to view all lines. Memo fields will display "View?". Answer "y" if you wish to display the memo field. The following commands are available: Cursor Keys - Up, Down, PgUp, PgDn Next Line - Return Quit - F10 Abort - Escape  Function method that returns the value in a record field. The value returned will be the character string as it is stored in the dBase record. Call: NewStr := ObjectName.FieldGet(FldStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. NewStr is a string variable where the record field data will be placed. Trailing spaces will be included. Result: Field data in character format will be returned.  Procedure method that stores a value in a record field. The value stored will be the character string as it is stored in the dBase record. Call: ObjectName.FieldPut(FldStr, NewStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. NewStr is a string variable containing the data to be stored in the record field. If dealing with numeric fields, leading spaces must be added to match the field length. Result: Field data in character format will be stored in the current record.  Function method that displays and edits all all dBase record fields on the screen. Call: bool := ObjectName.FieldUpdateScreen Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. bool is a boolean variable that will be loaded with the value true if the method is exited by any keypress other than Escape. Bool will be false if Escape was pressed. Result: All fields in the record are displayed on the screen and may be iteedd. One line per field is used. The field name is displayed as the title of the field. If there are more fields than lines available in the window, the display can be scrolled to view all lines. Memo fields will display "Edit?". Answer "y" if you wish to edit the memo field. The following commands are available: Cursor Keys - Up, Down, PgUp, PgDn Next Line - Return Quit - F10 Delete/Undel - F9 Abort - Escape  End of File flag for the dBase III file. Will be true when there is an attempt to read beyond the last record.  Unit that handles keyboard input  Character variable holding the last key pressed upon return from the keyboard entry routines.  Boolean flag returned from keyboard entry routines to indicate the Escape key was pressed.  Unit that handles menus  Creates a bar menu (single line). Call: LgInt := GS_Pick_Line_Item(tabl, entrylth, numitems, hiliteitem) Where: tabl is an array of strings holding the menu items. entrylth is an integer holding the length of each entry. The length of an entry is the string length plus 1 for the length byte. For example, a tabl with entries of string[10] will have entrylth = 11. numitems is a longint holding the number of entries in the array. hiliteitem is a longint specifying which entry in the menu should be hilightlighted. LgInt is a longint variable that will hold the number of the selected menu item on return. Result: The menu will be displayed and the number of the selected item will be returned. If Escape is pressed, a zero will be returned.  Unit that creates and handles windows  Object used to process a window. It holds information on size, colors, whether to draw a box, the box name, and whether to save and restore the screen contents it overwrites.  Unit that handles dBase field retrieval, storage, and editing.  Child object of GS_dBase_DB. This is the primary object used to access dBase files.  Unit that creates tables from dBase III record fields  This object allows the programmer to create a menu of table entries for the records in the dBase file. Through the menu, the user may select a record, which will be automatically loaded into the current record buffer. Alternatively, the user may elect to append a new record to the dBase file.  Primary unit for accessing dBase files  Primary object for processing a dBase III file. It stores the field descriptors, header, record buffer, and status information. It is assigned as a child object of GS_KeyI_Objt to allow keyboard entry of data elements more quickly.  Method that reads a record from a dBase file. Call: ObjectName.GetRec(rnum) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. rnum is the record number to retrieve. There are four special constants that may be used: Next_Record - Read the next record Prev_Record - Read the previous record Top_Record - Read the first record in the file Bttm_Record - Read the last record in the file Result: The file associated with the object is accessed and the specified record is loaded into the current record buffer. Additionally, the DelFlag is set if required, and the File_EOF flag is set if at the end of the file.  Method that sets an index to a dBase file. Only one index is used in this version. Call: ObjectName.Index(filename) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. filename is the name of the index file (without the file extension) Result: The index is used to access all records. All calls that read or write records will ensure the index is used and updated.  Constructor that initializes GS_dBFld_Objt. Call: ObjectName.Init(filename) Where: ObjectName is the child object the programmer assigns for GS_dBFld_Objt. filename is the name of the dBase file. Result: The object is initialized. The file is tested for validity. If a memo file is needed, it is also initialized.  Method that initializes a windows object. Call: ObjectName.InitWin(xBegin, yBegin, xEnd, yEnd, ClrTx, ClrBg, ClrFg, ClrIvTx, ClrIvBg, DrawBox, WinName, SaveScreen) Where: ObjectName is the child object the programmer assigns for GS_Wind_Objt. xBegin is an integer beginning column position on the screen for the window. yBegin is an integer beginning row position on the screen for the window. xEnd is an integer ending column position on the screen for the window. yEnd is an integer ending row position on the screen for the window. ClrTx is the color to assign to text in the window. ClrBg is the background color for the window. ClrFg is the forground color for the window. This is the color the box outline and title will have. ClrIvTx is the color for text in the inverted mode. ClrIvBg is the background color in inverted mode. DrawBox is a boolean value indicating if a box should be drawn. If a box is drawn, the actual window will be inside the box, and not the window values passed to the method. WinName is the title to center in the top of the window. This will only be displayed if a box is drawn. SaveScreen is a boolean argument to save the screen contents before a window is displayed, and to restore the screen when the window is released. Result: A window object is initialized and may be set with WinSet and released with WinRel. It will use the colors that are established in the initialization process.  Initializes dBTabl_Pick_Obj. Call: ObjectName.Init_dBTabl Where: ObjectName is the child object name the programmer assigns for dBTabl_Pick_Obj. Result: dBTabl_Pick_Obj is initialized. A window object is created for later use (Pick_Win). AddRec and AddRecOK are set to false.  Constant (#27) for the Escape key code.  Constant (#73) for the PgUp key code. Used when the first character read is a zero, which indicates the extended key code is the second character.  Constant (-1) used as a token to dBase record reading routines. Indicates the routine should read the next available record from the dBase field.  Method that opens a dBase file. Call: ObjectName.Open Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. Result: The file associated with the object is opened, header information is updated, and object file status is set to 'Open'.  Used to build a dBTabl table containing entries for all records in the dBase file. The table is displayed as a menu, and the user may select a record to process. Call: bool := ObjectName.Pick_dBTabl(zfld) Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. zfld is the string containing the fields to be used to construct the table entry's contents. bool is a boolean variable to hold the result of the call to the method. If Escape is pressed, bool is false, otherwise it is true. Result: Record is selected and read into the current record buffer from the dbTabl Tabl. If Append is selected, ObjectName.AddRec is set true. True is returned if a record or the Append option is selected. False is returned if Escape is pressed.  Constant (-2) used by dBase file reading routines. Indicates the routine should read the record preceding the current record.  Method that writes a record to the dBase file. Call: ObjectName.PutRec(rNum) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. rNum is the record number to write the record data to. This will normally be the current record number (RecNumber). Using a record number less than 1 or greater than the number of records in the file will cause the record to be appended to the end of the file. Result: The record is written to the file associated with the object, and object file status is set to 'Updated'.  Longint variable holding the current record number.  Method that releases a window. Call: ObjectName.RelWin Where: ObjectName is the child object the programmer assigns for GS_Wind_Objt. Result: The window associated with the object is released, the window that was active before this window was set is activated, and the screen contents are restored if the option was initialized.  Resets dBTabl_Pick_Obj.Tabl by releasing table memory and reseting table flags. Call: ObjectName.Reset_dBTabl Where: ObjectName is the child object name the programmer assigns for dBTabl_Pick_Obj. Result: dBTabl_Pick_Obj.Tabl memory is released, Tabl is set to nil, Scn_Key is reset to show there is no key field, and Sel_Item is set to one, to setup for the next table creation.  Allows a dBTabl table to be constructed based on selecting specified records from the dBase file. The field used to determine the selection is tested, and a table entry is created if it matches. The table entry value is extracted based on a different argument, and does not have to contain the field used for selection. Call: bool := ObjectName.Scan_dBTabl(pfld, pcnd, zfld) Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. pfld is a string holding the name of the field to scan in dBase records. pcnd is the string to compare against the field found with pfld. zfld is the string field to build in the dBTabl Tabl for each record where the pfld field matches pcnd. bool is a boolean variable that will hold the result of the call to the method. If Escape is pressed, bool will be false, otherwise bool will be true. Result: Record is selected and read into the current record buffer from the dbTabl Tabl. If Append is selected, ObjectName.AddRec is set true. True is returned if a record or the Append option is selected. False is returned if Escape is pressed.  Method that opens a window. Call: ObjectName.SetWin Where: ObjectName is the child object the programmer assigns for GS_Wind_Objt. Result: The window associated with the object is opened. If applicable, the previous contents of the screen are saved for restoral when the window is released. The object pointer of the previous window is also saved so that window can be made active when this window is released.  Pointer to a dBTabl Table. This is a dynamic table based on the dBase file size and the length of the table entry. Each entry is a string of the correct length to hold the selected fields, plus four bytes at the end of each entry that hold the record number containing the entry.  Constant (-3) used by routines reading dBase files. Indicates the routine should read the first record in the file.  Stops further processing until a key is pressed. Call: WaitForKey Result: The program enters a loop waiting for a key to be pressed. The pressed key value will be returned as GS_KeyI_Chr;  Boolean flag to indicate whether the EditString method should wait for a Return key press when the string is filled. When true, the method will wait until Return is pressed. When false, the method will exit when the string is filled.  Boolean flag to indicate whether the current record is deleted. It will be true if the last record read has the delete flag (record position one) set to '*'.  Method that deletes a dBase record. Call: ObjectName.Delete Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. Result: The current record in the file associated with the object is 'deleted' by inserting an '*' in record position 1 and writing the record to disk. Note the record will not be physically deleted until the file is packed.  Method that undeletes a dBase record. Call: ObjectName.UnDelete Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. Result: The current record in the file associated with the object is 'undeleted' by inserting a ' ' (space) in record position 1 and writing the record to disk.  Method that creates a dBase file. Call: bool := Create(filename) Where: filename is the name of the dBase file to create (without the extension). bool is a boolean variable that will be true if the file is created, and false if the structure is empty or Escape was pressed. Result: A workscreen is displayed that allows the user to build a dBase file structure. If a memo field is part of the structure, a memo file is also created. Note this creates empty files. To use the file, an object must be initialized prior to data being loaded .  Method that builds a dBase index. Call: ObjectName.IndexTo(filename, formula) Where: ObjectName is the child object the programmer assigns for GS_dBFld_Objt. filename is a string (without extension) to assign as a file name for the index. formula is a string holding the field(s) to be used to make the index key. This procedure works best with character fields. Numeric and data fields use a floating point type double to store the key. Sorry, thats to maintain compatibility with the way dBase III works. Result: An index file is created based on the formula passed as an argument. Once all records are indexed, the index should be initialized through the Index(filename) method before use.  Method that packs a dBase file. Call: ObjectName.Pack Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. Result: The dBase file is read and all 'deleted' records are removed by writing 'undeleted' records sequentially and ignoring deleted records. Once all records are read and 'packed', the file is truncated to the new size required to hold the undeleted records. Recommend dBase files be saved prior to using Pack, since the deleted records are not recoverable.  Function method that displays and allows editing of all dBase record fields on the screen. The object flags will be reset to indicate this is a new record. The record buffer may optionally cleared or allowed to "carry" the information from the last record. Call: bool := ObjectName.FieldAppendScreen(ClrFlg) Where: ObjectName is the child object the programmer assigns for GS_dBase_DB. ClrFlg is a boolean indicator used to determine whether to clear or carry the information from the last record. If true, the entire record will be set to spaces. In any case, the memo fields will be set to spaces on entry. bool is a boolean variable that will be loaded with the value true if the method is exited by any keypress other than Escape. Bool will be false if Escape was pressed. Result: All fields in the record are displayed on the screen and may then be edited. One line per field is used. The field name is displayed as the title of the field. If there are more fields than lines available in the window, the display can be scrolled to view all lines. Memo fileds will display "Edit?". Answer "Y" to edit the memo field. The following commands are available: Cursor Keys - Up, Down, PgUp, PgDn Next Line - Return Quit - F10 Delete/Undel - F9 Abort - Escape  Function method that returns the value in a record field. The value returned will be the character string as it is stored in the dBase record. Call: NewStr := ObjectName.StringGet(FldStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. NewStr is a string variable where the record field data will be placed. Trailing spaces will be removed. Result: Field data in character format will be returned.  Function method that returns the value in a record field. The value returned will be the numeric value as it is stored in the dBase record. Call: NewNum := ObjectName.NumberGet(FldStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. NewNum is a type real variable where the record field data will be placed. Result: Field data in numeric real format will be returned.  Procedure method that loads the memo field into memory. The field will be stored into formatted lines. Call: ObjectName.MemoGet(BlkStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. BlkStr is the string containing the block number that begins the memo field in the .DBT file. Note this is a string value, not a numeric value. Result: The memo field data is loaded into memory. It may be retrieved with MemoGetLine. Function method that returns the number of memo lines that were created by MemoGet. Call: LinCnt := ObjectName.MemoLines Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. LinCnt is an integer variable where the number og memo lines will be placed. Result: Memo line count will be returned.  Function method that returns the value in a specified memo line. Call: NewStr := ObjectName.MemoGetLine(LinNum) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. LinNum is an integer containing the memo line number to be retrieved. NewStr is a string variable where the memo line will be placed. Result: The specified memo line will be returned.  Procedure method that sets the length to be used by memo lines. Call: ObjectName.MemoWidth(Width) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. Width is an integer containing the field width size to be used. Result: Memo line width will be set.  Initializes dBTabl_Pick_Obj. Call: ObjectName.Init_dBTabl(Fil, name, x1,y1,x2,y2, tx,bg,fg,itx,ibg) Where: Fil is the name of the child object of the dBase file. name is the name of the window which will be placed in the menu window border. x1,y1,x2,y2 are integer values for the size of the window to be used for menu selections. tx,bg,fg,itx,ibg are integer values for the colors to be used by the window. Normal text and background will be used to display menu selections. The foreground color will be used to draw the box around the window. Inverted text (itx) and background (ibg) will be used to highlight the current menu item in the window. ObjectName is the child object name the programmer assigns for dBTabl_Pick_Obj. Result: dBTabl_Pick_Obj is initialized. A window object is created for later use (Pick_Win). AddRec and AddRecOK are set to false.  Used to build a dBTabl table containing entries for all records in the dBase file. The difference between this command and Pick_dBTabl is that the table is built and control is returned to the user; no menu selection takes place. Call: ObjectName.Build_dBTabl(zfld) Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. zfld is the string containing the fields to be used to construct the table entry's contents. Result: A table of record items sorted by zfld sequence is built.  Used to search a dBTabl table for the first entry which matches a passed argument. When found, the matching record is read. Call: bool := ObjectName.Find_dBTabl(pcnd) Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. pcnd is the string containing the value to be used for the search criteria. bool is a boolean variable to hold the result of the call to the method. If no match is found, bool is false, otherwise it is true. Result: Record is selected and read into the current record buffer from the first entry matching the select criteria.  Used to search a dBTabl table for the next entry which matches a passed argument. When found, the matching record is read. Use Find_dBTabl for the first sellection, then FindNext_dBTabl for all others. Call: bool := ObjectName.FindNext_dBTabl(pcnd) Where: ObjectName is the child object name the programmer assigns for dbTabl_Pick_Obj. pcnd is the string containing the value to be used for the search criteria. bool is a boolean variable to hold the result of the call to the method. If no match is found, bool is false, otherwise it is true. Result: Record is selected and read into the current record buffer from the next entry matching the select criteria.  Internal flag that determines whether to allow appending of records to a dBTabl menu selection.  Unit containing the function to create a dBase III file structure.  Builds a dBase III file structure and creates the .DBF and .DBT files as necessary. Call: GS_dB3_Create(fName) Where: fName is the name to assign to the file. Result: The program allows the user to design a file structure and then creates the file.  Boolean value set true when an index file has been assigned.  Used to search an Index file for the first entry which matches a passed argument. When found, the matching record is read. Call: bool := ObjectName.Find(pcnd) Where: ObjectName is the child object name the programmer assigns for GS_dBase_DB. pcnd is the string containing the value to be used for the search criteria. bool is a boolean variable to hold the result of the call to the method. If no match is found, bool is false, otherwise it is true. Result: Record is selected and read into the current record buffer from the first entry matching the select criteria.  Character holding the type of the last field retrieved by methods in GS_dBFld_Objt.  Integer holding the decimal positions of the last field retrieved by methods in GS_dBFld_Objt.  Integer holding the length of the last field retrieved by methods in GS_dBFld_Objt.  Integer holding the field number of the last field retrieved by methods in GS_dBFld_Objt.  String holding the field name of the last field retrieved by methods in GS_dBFld_Objt.  Boolean flag set true in FieldAccept when the value returned is changed from the original value. Must be set false by the programmer initially. This is done automatically in FieldUpdateScreen.  This is an embedded virtual method to intercept any extended key codes to test for special actions. In this case function keys F9 and F10 are checked for. If they are not pressed, control is passed to the Check_Func_Keys method in GS_KeyI_Objt.  This is a virtual method to test for extended code key entries, as well as control keys. It handles cursor actions, Escape, Tab, and Return as part of the EditString method. Since it is virtual, child objects may insert their methods to override this method.  Function that returns the date field from a record Function method that returns the formatted date from a record date field. The value returned will be in MM/DD/YY format rather than the YYYYMMDD as it is stored in the dBase record. Call: NewStr := ObjectName.StringGet(FldStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. NewStr is a string variable where the formatted date field data will be placed. Result: The date in YY/MM/DD will be returned.  Function method that returns the boolean value from a record logical field. Call: Bool := ObjectName.StringGet(FldStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. Bool is a boolean variable where the record field data will be placed. Result: Boolean value for the logical field will be returned.  Creates a row menu Call: LgInt := GS_Pick_Row_Item(tabl, entrylth, numitems, hiliteitem) Where: tabl is an array of strings holding the menu items. entrylth is an integer holding the length of each entry. The length of an entry is the string length plus 1 for the length byte. For example, a tabl with entries of string[10] will have entrylth = 11. numitems is a longint holding the number of entries in the array. hiliteitem is a longint specifying which entry in the menu should be hilightlighted. LgInt is a longint variable that will hold the number of the selected menu item on return. Result: The menu will be displayed and the number of the selected item will be returned. If Escape is pressed, a zero will be returned. gth byte. For example, a tabl with entries of string[10] will have entrylth = 11. numitems is a longint holding the number of entries in the array. hiliteitem is a longint specifying whichSorts a table of items Call: GS_Pick_Item_Sort(tabl, entrylth, numitems) Where: tabl is an array of strings holding the menu items. entrylth is an integer holding the length of each entry. The length of an entry is the string length plus 1 for the length byte. For example, a tabl with entries of string[10] will have entrylth = 11. numitems is a longint holding the number of entries in the array. Result: The table will be sorted in ascending order.      ÿÿ !"#$%&'()*+,-./0123ÿÿÿÿ6789:;<=>?@ABCDEFGHIJÿÿLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽÿÿÿÿ“”•–—˜™š›œÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ§ÿÿ©ª«¬­®¯°ÿÿÿÿ³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóÿÿõö÷øùúÿÿüýþÿ Sets the size of the cursor to large or small, depending on the argument passed. Call: GS_Scrn_SetCursor(bool) Where: bool is a boolean true to set a large cursor, false for a small cursor. Result: The screen cursor is set to the size dictated by the passed argument. a tabl with entries of string[10] will have entrylth = 11. numitems is a longint holding the number of entries in the array. Result: The table will be sorted in ascending order. Turns the cursor off. Call: GS_Scrn_HideCursor Result: The screen cursor is turned off.  @ Find_dBTabl  GS_KeyI  GS_KeyI_Chr  GS_KeyI_Esc  GS_Pick R GS_Pick_Item_Sort  GS_Pick_Line_Item Q GS_Pick_Row_Item S GS_Scrn_SetCursor  GS_Wind  GetRecTurns the cursor on. Call: GS_Scrn_ShowCursor Result: The screen cursor is turned on.   UNIT C4 ¤i  OBJECT CH ¤i  REFERENCE C\ ¤i  COMMENTS Mb ¤i  AddRec Boolean DATA GS_dBTab dBTabl_Pick_Obj 2.8 1 Append Procedure RTNS GS_dBase GS_dBase_DB 2.8 2 Append_dBTabl Procedure RTNS Sounds the internal speaker for a duration and frequency passed by the arguments.. Call: SoundBell(time, freq) Where: time is an integer holding the number of miliseconds for the bell to sound. freq is an integer holding the frequency of the sound in hertz. Result: The internal speaker is sounded.  GS_Pick_Line_Item Q GS_Pick_Row_Item T GS_Scrn_HideCursor S GS_Scrn_SetCursor  GS_WinRetrieves a character from the keyboard. Call: ch := GS_KeyI_GetKey Where: ch is a character variable where the read character is returned. Result: The program waits until a keypress and returns the character to the calling program. If a function key is pressed, the boolean variable GS_KeyI_Fuc is set true, otherwise it is set false.  Procedure RTNS GS_dBase GS_dBase_DB 2.8 2 Append_dBTabl Procedure RTNS Boolean variable set true if a extended character key (function and cursor keys) is pressed during a call to GS_KeyI_GetKey. IT C4 ¤i  OBJECT CH ¤i  REFERENCE C\ ¤i  COMMENTS Mb ¤i  AddRec Boolean DATA GS_dBTab dBTabl_Pick_Obj 2.8 1 Append Procedure RTNS GS_dBase GS_dBase_DB 2.8 2 Append_dBTabl Procedure RTNS Unit to handle screen actions. (e.g., changing/hiding the cursor, moving screen data). ck R GS_Pick_Item_Sort  GS_Pick_Line_Item Q GS_Pick_Row_Item T GS_Scrn_HideCursor S GS_Scrn_SetCursor U GS_Scrn_ShowCursor  GS_Wind Q GS_Pick_Row_Item T GS_Scrn_HideCursor S GS_Scrn_SetCursor  GS_WinRetrieves the colors used by the current window Call: GS_Wind_GetColors(txn, bgn, fgn, txi, bgi) Where: txn is an integer variable that will hold the normal text color. bgn is an integer variable that will hold the normal background color. fgn is an integer variable that will hold the normal foreground color (used for highlighting). txi is an integer variable that will hold the text color used during inverted mode. bgi is an integer variable that will hold the text color used during inverted mode. Result: The current window color values will be stored in txn, bgn, fgn, txi, and bgi. ld the normal text color. bgn is an integer variable that will hold the normal background color. fgn is an integer variable that will hold the normal foreground color (used for highlighting). txi is an integer variable that will hold the text color used during inverted mode. bgi is an integer variablAssigns new colors to be used by the current window. Call: GS_Wind_SetColors(txn, bgn, fgn, txi, bgi) Where: txn is an integer variable holding the normal text color. bgn is an integer variable holding the normal background color. fgn is an integer variable holding the normal foreground color (used for highlighting). txi is an integer variable holding the text color used during inverted mode. bgi is an integer variable holding the text color used during inverted mode. Result: The current window color values will be set to the values in txn, bgn, fgn, txi, and bgi. eger variable holding the normal text color. bgn is an integer variable holding the normal background color. fgn is an integer variable holding the normal foreground color (used for highlighting). txi is an integer variable holding the text color used during inverted mode. bgi is an integer variable holding the text color Sets window colors to normal mode. Call: GS_Wind_SetNmMode Result: The current window color values will be set to the values for normal text and background. r. bgn is an integer variable holding the normal background color. fgn is an integer variable holding the normal foreground color (used for highlighting). txi is an integer variable holding the text color used during inverted mode. bgi is an integer variable holding the text color Sets window colors to inverted mode. Call: GS_Wind_SetIvMode Result: The current window color values will be set to the values for inverted text and background. 6 GS_Scrn Unit UNIT 127 GS_Wind_GetColors Procedure RTNS GS_Wind 128 GS_Wind_SetColors Procedure RTNS GS_Wind 130 GS_WinSets window colors to highligthed mode. Call: GS_Wind_SetFgMode Result: The current window color values will be set to the values for highlighted text (using foreground color) and background.   GS_dBFld  GS_dBFld_Objt  GS_dBTab  GS_dBase  GS_dBase_DB  GetRec # Kbd_PgUp $ Next_RFunction to convert a string to uppercase. Call: NewStr := AllCaps(OldStr) Where: OldStr is the string to be converted. NewStr is the string to hold the converted value. Result: A string converted to all uppercase values is returned. BFld  GS_dBFld_Objt  GS_dBTab  GS_dBase  GS_dBase_DB  GetRec $ Next_RFunction to remove leading spaces from a string. Call: NewStr := TrimL(OldStr) Where: OldStr is the string to be converted. NewStr is the string to hold the converted value. Result: A string with all leading spaces removed is returned.  Boolean DATA GS_dBTab dBTabl_Pick_Obj 2.8 1 Append Procedure RTNS GS_dBase GS_dBase_DB 2.8 2 Append_dBTabl Procedure RTNS Function to remove trailing spaces from a string. Call: NewStr := TrimR(OldStr) Where: OldStr is the string to be converted. NewStr is the string to hold the converted value. Result: A string with all trailing spaces removed is returned.  Boolean DATA GS_dBTab dBTabl_Pick_Obj 2.8 1 Append Procedure RTNS GS_dBase GS_dBase_DB 2.8 2 Append_dBTabl Procedure RTNS Function to convert a string in dBase date field (YYYYMMDD) format to a formatted date field (YY/MM/DD); Call: NewDate := StrDate(OldDate) Where: OldDate is the date string to be converted. NewDate is the string to hold the converted value. Result: A date string in YY/MM/DD format is returned.  0 WaitForKey 1 Wait_CR 4 UnDelete 0 WaitForKey 1 Wait_CFunction to convert a boolean value to a string containing 'T' or 'F'. Call: NewLogic := StrDate(bool) Where: bool is the boolean value to be converted. NewLogic is the string to hold the converted value. Result: A string hloding 'T' or 'F' is returned. ÿÿš › œ ž Ÿ   ¡ ¢ £ ÿÿ¥ ¦ § ¨ © ª « ¬ ­ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ÿÿÀ Á Â Ã Ä Å Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú ÿÿÜ Ý Þ ß à á ÿÿã ä å æ ç è ÿÿê ë ì í ÿÿï ð ñ ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ Function to convert a string in dBase date field (YYYYMMDD) format to a formatted date field (MM/DD/YY); Call: NewDate := StrDate(OldDate) Where: OldDate is the date string to be converted. NewDate is the string to hold the converted value. Result: A date string in MM/DD/YY format is returned.  0 WaitForKey 1 Wait_CR 4 UnDelete 0 WaitForKey 1 Wait_CFunction to convert a numeric value to a string. Call: NewNumber := StrNumber(OldNum, Lgth, Dcml) Where: OldNum is the numeric type real value to be converted. Lgth is the integer length to use for the string. Dcml is the integer value for number of decimal places. NewNumber is the string to hold the converted value. Result: A string holding the numeric value is returned.  Þ ß à á ÿÿã ä å æ ç è ÿÿê ë ì í ÿÿï ð ñ ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ Function to convert a boolean value to a string containing 'T' or 'F'. Call: NewLogic := StrLogic(bool) Where: bool is the boolean value to be converted. NewLogic is the string to hold the converted value. Result: A string holding 'T' or 'F' is returned. ÿš › œ ž Ÿ   ¡ ¢ £ ÿÿ¥ ¦ § ¨ © ª « ¬ ­ ® ¯ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ÿÿÀ Á Â Ã Ä Å Æ Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö × Ø Ù Ú ÿÿÜ Ý Þ ß à á ÿÿã ä å æ ç è ÿÿê ë ì í ÿÿï ð ñ ò ó ô õ ö ÷ ø ù ú û ü ý þ ÿ Function to return a substring from a string. As a function, this will allow the user to use the routine directly in other arguments such as write statements. Call: NewStr := SubStr(OldStr, Strt, Lgth) Where: OldStr is the string from which the substring is to be extracted. Strt is the integer number for the starting location within the string. Lgth is the integer number of positions to extract. NewStr is the string to hold the extracted value. Result: A string holding the substring value is returned. ill allow the user to use the routine directly in other arguments such as write statements. Call: NewStr := SubStr(OldStr, Strt, Lgth) Where: OldStr is the string from which the substring is to be extracted. Strt is the integer number for the starting location within the string. Lgth is the integer number of positions to extract. NewStr is the string to hold the extracted value. Unit holding string handling routines. ng. As a function, this will allow the user to use the routine directly in other arguments such as write statements. Call: NewStr := SubStr(OldStr, Strt, Lgth) Where: OldStr is the string from which the substring is to be extracted. Strt is the integer number for the starting location within the string. Lgth is the integer number of positions to extract. NewStr is the string to hold the extracted value. Procedure method that stores a date value in a record field. The value stored will be in the date format MM/DD/YY. It will be converted to the character string YYYYMMDD to be stored in the dBase record. Call: ObjectName.DatePut(FldStr, DatStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. DatStr is a string variable containing the date in MM/DD/YY format to be converted and stored in the record field. Result: The date in YYYYMMDD format will be stored in the current record in the specified field. D to be stored in the dBase record. Call: ObjectName.DatePut(FldStr, DatStr) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. DatStr is a string variable containing the date in MM/DD/YYProcedure method that stores a logic value in a record field. The value stored will be 'T' or 'F' depending on the boolean value passed. Call: ObjectName.LogicPut(FldStr, Bool) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. Bool is a boolean variable containing the logical condition to be converted and stored in the record field. Result: The boolean value will be converted to 'T' or 'F' and stored in the current record in the specified field.  the boolean value passed. Call: ObjectName.LogicPut(FldStr, Bool) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. Bool is a boolean variable containing the logical condition to be converted and stored in the record field. Result: Procedure method that stores a numeric value in a record field. The value stored will converted to a character string using the length and decimal places specitied for the field. Call: ObjectName.NumberPut(FldStr, RealVal) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. RealVal is a real variable containing the number to be converted and stored in the record field. Result: The numeric value will be converted to a character value of the length and decimal places required and stored in the current record in the specified field.  ObjectName.NumberPut(FldStr, RealVal) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. RealVal is a real variable containing the number to be converted and stored in thProcedure method that stores a string value in a record field. Call: ObjectName.StringPut(FldStr, StrVal) Where: ObjectName is the child object name the programmer assigns for GS_dBFld_Objt. FldStr is the string containing the field name for the field desired. StrVal is a string variable containing the string to be stored in the record field. Result: The string value will be stored in the current record in the specified field.