Shareware Overload/ShartewareOverload.cdr/games/jots.zip/J.INC

Text File | 1989-03-14 | 2KB | 92 lines

' 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