' J.Inc: Include file for all modules

DEFINT A-Z
' In Words.Bas:
			DECLARE SUB InitWordList ()
			DECLARE SUB PickAWord ()
			DECLARE FUNCTION SecretWord$ ()
			DECLARE FUNCTION WordExists% (Word$)
			DECLARE SUB AddWord (Word$)
			DECLARE SUB SaveWordList ()
			DECLARE SUB WordMaintenance ()
' In Guess.Bas:
			DECLARE SUB InitGuess ()
			DECLARE FUNCTION GuessAWord$ ()
' In GuesList.Bas:
			DECLARE SUB InitGuessList ()
			DECLARE SUB AddGuess (Word$)
			DECLARE SUB RedrawGuessList ()
			DECLARE FUNCTION GuessCount% ()
' In Score.Bas:
			DECLARE SUB InitScore ()
			DECLARE SUB AddToScore (Points%)
			DECLARE FUNCTION GuessScore (GuessNumber%)
' In UsedList.Bas:
			DECLARE SUB InitUsedList ()
			DECLARE SUB AddToUsedList (Word$)
' In PossList.Bas:
			DECLARE SUB InitPossList ()
			DECLARE SUB RemoveFromPossList (Word$)
			DECLARE SUB ChangePossList ()
			DECLARE FUNCTION PossibleLetterList$ ()
			DECLARE SUB RedrawPossList ()
' In KnwnList.Bas:
			DECLARE SUB InitKnownList ()
			DECLARE SUB ChangeKnownList ()
			DECLARE FUNCTION KnownList$ ()
'  In MsgBox.Bas:
			DECLARE SUB InitMessage ()
			DECLARE SUB PushMsg ()
			DECLARE SUB PopMsg ()
			DECLARE SUB ShowMessage (Msg$)
' In Boxes.Bas:
			DECLARE SUB InitBoxes ()
			DECLARE SUB MakeBox (BoxNum%, BoxColor%)
			DECLARE SUB NormalBox (BoxNum%)
			DECLARE SUB HighlightBox (BoxNum%)
			DECLARE SUB BoxCoords (BoxNum%, Box AS ANY)
' In Main.Bas:
			DECLARE SUB PlayAGame ()
			DECLARE SUB Pause ()
			DECLARE FUNCTION YesNo$ ()
' In Note.Bas:
			DECLARE SUB InitNotes ()
			DECLARE SUB MakeNotes ()
' In Menu.Bas:
			DECLARE SUB MainMenu ()
' In Instruct.Bas:
			DECLARE SUB Instructions()

CONST GuessListBox = 1     'Box IDs
CONST GuessBox = 2
CONST KnownBox = 3
CONST ScoreBox = 4
CONST PossListBox = 5
CONST UsedBox = 6
CONST NoteBox = 7
CONST MessageBox = 8
CONST MainMenuBox = 9
CONST MaintMenuBox = 10
CONST AnotherGameBox = 11
CONST MaxBox = AnotherGameBox

CONST Normal = 15          'Color IDs
CONST Dark = 7
CONST Exclude = 9
CONST Known = 14
CONST HighLight = 4
CONST Uncertain = 7
CONST Background = 1

CONST FALSE = 0
CONST TRUE = NOT FALSE

TYPE BoxType
	TopRow AS INTEGER
	BotRow AS INTEGER
	LftCol AS INTEGER
	RtCol  AS INTEGER
END TYPE