REM: Include file for Hex Editor v1.9a PD 2001.

' set all default variable types.
DEFINT A-Z
REM $DYNAMIC

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

' declare ascii characters
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 arrays.
COMMON SHARED UndoByte() AS INTEGER, UndoPosition() AS LONG

' declare common program variables.
COMMON SHARED AsciiValue AS INTEGER, CurrentUndo AS INTEGER
COMMON SHARED CurrentWindow AS INTEGER, MaxUndos 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 SeekPosition AS LONG, StorePosition 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

' declare interrupt structure
COMMON SHARED InregsX AS RegTypeX, OutregsX AS RegTypeX

' declare constants.
CONST Nul=""
CONST False=0
CONST True=-1
CONST Version="v1.9a"
CONST Release="r1.0a"

' 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$)
