Category : BASIC Source Code
Archive   : QB_CAL.ZIP
Filename : CALEND.BI

'Calendar program written for Quick Basic 4.5
'Use the Quick Basic environment to load Calend1.BAS. Then select
'File:Load File to load each of the other .BAS modules. Quick Basic
'will correctly compile the total program and name it Calend1.EXE. You
'can change the name to whatever you want. This file will be included
'automatically as each module is compiled.
'
'Calend.BI: Common Include file for all modules in Calendar program
DEFINT A-Z
CONST FALSE = 0, TRUE = NOT FALSE
'Box Names
CONST TitleBox = 1, HelpBox = 2, MonthBox = 3
CONST DiaryBox = 4, LCalendHelp = 5, LastBox = 11
'Color Constants
CONST Normal = 7, Background = 1, HighLight = 15
'Return Value Constants
CONST GoUp = 1, GoDn = 2, Done = 3

TYPE MonthType
day0 AS INTEGER
days AS INTEGER
Mname AS STRING * 9
END TYPE
TYPE BoxType
TopRow AS INTEGER
BotRow AS INTEGER
LftCol AS INTEGER
RtCol AS INTEGER
END TYPE

DIM DiaryLine(1 TO 20) AS STRING * 32, Month(1 TO 12) AS MonthType, Day$(6)
COMMON SHARED Jan0, TodayNum, Today&, FileOpen, CalenLink
COMMON SHARED DiaryLine() AS STRING * 32, Month() AS MonthType, Day$()
COMMON SHARED CurDay, CurYear, CurMonth, CurDayNum
COMMON SHARED LastMonth, LastYear, LastDay, LastRow, LastCol

DECLARE SUB Setup () 'In Calend1.BAS
DECLARE FUNCTION GetKey% ()
DECLARE FUNCTION YMD2Lday& (Y%, M%, D%) 'In Calend2.BAS
DECLARE FUNCTION Date2Lday& (D$)
DECLARE FUNCTION DayOfWeek% (Lday&)
DECLARE SUB WeekPos (Lday&, Week%, DayPos%)
DECLARE FUNCTION DayNumber (Lday&)
DECLARE FUNCTION LpDay% (Y%, M%)
DECLARE FUNCTION LpYear% (Y%)
DECLARE SUB InitBoxes () 'In Calend3.BAS
DECLARE SUB MakeBox (BoxNum%, Clr%)
DECLARE SUB NormalBox (BoxNum%)
DECLARE SUB HighLightBox (BoxNum%)
DECLARE SUB ClearBox (BoxNum%)
DECLARE SUB BoxCoords (BoxNum%, CallBox AS BoxType)
DECLARE SUB SetHelpBox ()
DECLARE SUB SetEditHelp ()
DECLARE SUB SetLCalendHelpBox ()
DECLARE SUB SetTitleBox ()
DECLARE SUB Calendar () 'In Calend4.BAS
DECLARE SUB SetCalendarScreen ()
DECLARE SUB OneMonth (Y%, M%, R%, C%)
DECLARE SUB HighlightDay (D%)
DECLARE SUB SelectDay (DayNum%)
DECLARE SUB SelectMonth (MonthNum%)
DECLARE SUB GetNewYear ()
DECLARE SUB LCalend (M%, Y%) 'In Calend5.BAS
DECLARE SUB SetLCalendScreen ()
DECLARE SUB DisplayLCalend (M%, Y%)
DECLARE FUNCTION GetNewLYear% ()
DECLARE SUB CreateFile (F$) 'In Calend6.BAS
DECLARE SUB OpenDatfile (F$)
DECLARE FUNCTION FileExists (F$)
DECLARE SUB OpenYear (Yr%)
DECLARE SUB ReadDay (DayNum%)
DECLARE SUB SaveDay ()
DECLARE SUB SetDiaryPage (Y%, M%, D%, DayNum%) 'In Calend7.BAS
DECLARE SUB EditDiary ()
DECLARE FUNCTION LineEdit (S$, Row%, Col%)
DECLARE FUNCTION GetNewLYear% ()