!*! Updated on 15-Dec-92 at 8:47 PM by James A. Jarboe I V; edit time: 0:40:11
!*! Created on 01-Oct-91 at 12:58 PM by James A. Jarboe I V; edit time: 0:01:15
!************************************************************************
!                                                                       *
! TOOLBZ.BSI - Include file for symbolic definitions of TOOLBX opcodes. *
!                                                                       *
!************************************************************************
! TOOLBZ.BSI is an expanded version of TOOLBX.BSI that is included with
!            the ESP release. TOOLBZ.BSI is compatible with TOOLBX.BSI
!            only expanded.
!            TOOLBZ.BSI is to be used with the TOOLBZ.SBR xcall.
!
! TOOLBZ.SBR is an expanded version of TOOLBX.SBR that is included with
!            the ESP release. TOOLBZ.SBR is compatible with TOOLBX.SBR
!            up to the TBX'SQFLSZ. The remaining calls are inherent to 
!	     TOOLBZ.SBR and not included with AMOS's TOOLBX.SBR.
!
!	     TOOLBZ.SBR can be renamed to TOOLBX.SBR and it will remain
!            compatible with existing basic programs that use the 
!            TOOLBX.SBR xcall.
!
! Calling format:
!
!   xcall TOOLBZ, TBX'FLDCNT, SCREEN, RETURNFIELDCOUNT
!   xcall TOOLBZ, TBX'GETOLH, SCREEN, FIELDNUM, RETURNTEXT$
!   xcall TOOLBZ, TBX'SQFLSZ, FILE$, RETURNFILESIZE
!   xcall TOOLBZ, TBX'HIDFLD, SCREEN, FIELDNUM, FLAG
!                        FLAG =  TRUE  -> HIDE Field
!                        FLAG =  FALSE -> SHOW Field
!   xcall TOOLBZ, TBX'SKPFLD, SCREEN, FIELDNUM, FLAG
!                        FLAG =  TRUE  -> SKIP Field
!                        FLAG =  FALSE -> ALLOW Field
!   xcall TOOLBZ, TBX'SELFLD, SCREEN, FIELDNUM, FLAG
!                        FLAG =  TRUE  -> SELECT Field.
!                        FLAG =  FALSE -> DESELECT field.
!   xcall TOOLBZ, TBX'GETFLUF, SCREEN, FIELDNUM, RETFLAG
!			 RETFLAG = FLUF'HIDE   -> Field is Hidden.
!                        RETFLAG = FLUF'SKIP   -> Field is Skipped.
!                        RETFLAG = FLUF'SELECT -> Field is Selected.
!   xcall TOOLBZ, TBX'GETPUI, SCREEN, FIELDNUM, RETVALUE
!   xcall TOOLBZ, TBX'SETPUI, SCREEN, FIELDNUM, SETVALUE
!   xcall TOOLBZ, TBX'GETFID, SCREEN, PERMFIELDNUM, CURRENTFIELDNUM
!   xcall TOOLBZ, TBX'GETFPN, SCREEN, CURRENTFIELDNUM, PERMFIELDNUM
!
! Edit History:
!
![103] 13-Dec-92 Added GETFPN offset & call.            	/JAJ
![102] 12-Dec-92 Added GETFID offset & call.			/JAJ
![101] 27-Aug-91 Added GETPUI and SETPUI offsets & call.	/JAJ
![100] 02-Oct-90 Added HIDFLD, SKPFLD, SELFLD, GETFLUF
!
!*******************************
!                              *
!     TOOLBX opcode defs.      *
!                              *
!*******************************
! Call offset values for TOOLBZ.SBR
!
! Calling format is:
!   XCALL TOOLBZ, TBX'?????, SCREEN, ARG {, ARG }
! 
	MAP1 TBX'FLDCNT , F, 6, 200	! Get screen field count.
	MAP1 TBX'GETOLH , F, 6, 204	! Get field on-line-help text.
	MAP1 TBX'SQFLSZ , F, 6, 208	! Get size in bytes of seq. file.
	MAP1 TBX'HIDFLD , F, 6, 212	! Set Hide/show field status.
	MAP1 TBX'SKPFLD , F, 6, 216	! Set Skip/allow field status.
	MAP1 TBX'SELFLD , F, 6, 220	! Set Select/deselect field status.
	MAP1 TBX'GETFLUF, F, 6, 224	! Get field user flags.
	MAP1 TBX'GETPUI , F, 6, 228     ! Get Popup Item value.
	MAP1 TBX'SETPUI , F, 6, 232	! Set Popup Item value.
	MAP1 TBX'GETFID , F, 6, 236	! Get Field number via Perm ID Num.
	MAP1 TBX'GETFPN , F, 6, 240	! Get Perm ID Num via field.

!***********************
!                      *
!   Field User Flags   *
!                      *
!***********************
! Values returned from TBX'SELFLD call. Can be a single value or
! a logical sum of the following values.
!
	MAP1 FLUF'HIDE  , F, 6, 1	! Hide/Show setting.
	MAP1 FLUF'SKIP  , F, 6, 2	! Skip/Allow setting.
	MAP1 FLUF'SELECT, F, 6, 4	! Select/Deselect setting.


!***********************
!                      *
! Field Select Values  *
!                      *
!***********************
! Set Flag values for GTSCR.SBR fourth argument.
! Can be a single value or a logical sum of the following values.
! Example:
! ESP'FLSSEL = (ESP'FLSNEV or ESP'FLSSLM or ESP'FLSDBF)
!
! Format is:
!   xcall GTSCR, SCREEN, CHAR, FIELD, ESP'FLSSEL
!
MAP1  ESP'FLSSEL, f, 6 		      ! Current field Selection value.
MAP1  ESP'FLSDEC, f, 6,   512*65536   ! Use filler character as edit filler.
MAP1  ESP'FLSSLA, f, 6,  1024*65536   ! Allow selection of ALL fields.
MAP1  ESP'FLSNEV, f, 6,  2048*65536   ! DON'T evaluate expressions.
MAP1  ESP'FLSNRF, f, 6,  4096*65536   ! DON'T print report only fields.
MAP1  ESP'FLSDSL, f, 6,  8192*65536   ! Disable selection during select mode.
MAP1  ESP'FLSSLM, f, 6, 16384*65536   ! Select mode enabled.
MAP1  ESP'FLSDBF, f, 6, 32768*65536   ! Display blanked field(s).

!
! End of include file TOOLBZ.BSI


.