REM: Include file for Hex Editor v2.2a PD 2002.

' initialize all default variables as integer.
DEFINT A-Z

' load all arrays during runtime.
REM $DYNAMIC

' get include files.
REM $INCLUDE: 'dta.bi'
REM $INCLUDE: 'qbx.bi'

' declare undo arrays.
COMMON SHARED UndoByte() AS INTEGER, UndoPosition() AS LONG

' declare undo variables.
COMMON SHARED MaxUndos AS LONG, CurrentUndo AS LONG

' declare marker array.
COMMON SHARED Markers() AS LONG

' declare marker variables.
COMMON SHARED CurrentMarker AS LONG
COMMON SHARED MaxMarkers AS LONG, MarkerCount AS LONG

' declare ascii character variables.
COMMON SHARED Hline AS INTEGER, Vline AS INTEGER
COMMON SHARED ULcorner AS INTEGER, URcorner AS INTEGER
COMMON SHARED LLcorner AS INTEGER, LRcorner AS INTEGER

' declare temporary file position variables.
COMMON SHARED TempPosition AS LONG, TempPosition1 AS LONG
COMMON SHARED TempPosition2 AS LONG, TempPosition3 AS LONG

' declare common program variables.
COMMON SHARED AsciiValue AS INTEGER, StatusMessage AS STRING
COMMON SHARED CurrentWindow AS INTEGER, CurrentWindow2 AS INTEGER
COMMON SHARED PageColumn AS INTEGER, PageRow AS INTEGER
COMMON SHARED ScreenDrawn AS INTEGER, ScreenRow AS INTEGER

' declare filename/file position variables.
COMMON SHARED DumpFile AS STRING, Filename AS STRING
COMMON SHARED FileByte AS STRING*1, FileBytePosition AS LONG
COMMON SHARED FileLength AS LONG, FilePage AS LONG
COMMON SHARED FilePosition AS LONG, FirstByte AS LONG
COMMON SHARED LastByte AS LONG, LastPage AS LONG
COMMON SHARED NewByte AS LONG, NextByte AS LONG
COMMON SHARED NextLine AS LONG, SeekPosition AS LONG
COMMON SHARED StorePosition AS LONG, NewPage AS LONG

' declare all long filename common variables.
COMMON SHARED ASCIIZ AS STRING*261, ASCIIZ2 AS STRING*261
COMMON SHARED Buffer AS STRING*1, ConfigFile AS STRING
COMMON SHARED BASIC.DTA.OFF AS INTEGER, BASIC.DTA.SEG AS INTEGER
COMMON SHARED DTAfile AS DTAtype, DTAactive AS INTEGER
COMMON SHARED ErrorTrap AS INTEGER, FileAttribute AS INTEGER
COMMON SHARED WindowsDetected AS INTEGER, Quote AS STRING

' declare interrupt structures.
COMMON SHARED InregsX AS RegTypeX, OutregsX AS RegTypeX

' declare author constants.
CONST Author="Erik Jon Oredson AS. CSci"
CONST Email="eoredson@yahoo.com"
CONST Urls="www.simtel.net www.filegate.net"

' declare constants.
CONST Nul=""
CONST False=0
CONST True=-1
CONST Version="v2.2a"
CONST Release="r1.0a"
CONST Publish="01/01/2002."
CONST Status="Public Domain"
CONST Program="Hex Editor for DOS"

' declare colors.
CONST Green=10
CONST Magenta=13
CONST Plain=7
CONST Red=12
CONST White=15
CONST Yellow=14

' declare bit constants.
CONST ReadOnlyBit=1
CONST HiddenBit=2
CONST SystemBit=4
CONST ArchiveBit=32

' declare functions.
DECLARE FUNCTION TrimSpaces$(V$)
DECLARE FUNCTION Conanicalize$(V$)
