Category : BASIC Source Code
Archive   : QB_CAL.ZIP
Filename : CALEND1.BAS

'Calend1.BAS Beginning of Calendar/Diary program
'$INCLUDE: 'Calend.Bi'
months:
DATA 31, January, 28, February, 31, March, 30, April
DATA 31, May, 30, June, 31, July, 31, August
DATA 30, September, 31, October, 30, November, 31, December
days:
DATA Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday

'Program starts here:
SetUp
OpenYear (Today& \ 10000)
Calendar
CLOSE
CLS
END

SUB SetUp 'Read data and set up the screen for today
RESTORE months
Total = 0
FOR Lp = 1 TO 12
READ Month(Lp).days, Month(Lp).Mname$
Month(Lp).day0 = Total
Total = Total + Month(Lp).days
NEXT Lp
RESTORE days
FOR Lp = 0 TO 6
READ Day$(Lp)
NEXT Lp
Today& = Date2Lday(DATE$)
Jan0 = DayOfWeek(YMD2Lday(Today& \ 10000 - 1, 12, 31))
InitBoxes
CalenLink = TRUE
COLOR Normal, Background
CLS
END SUB

FUNCTION GetKey 'Get keystroke from user. Return -1 * key for ext. ASCII
DO
Ch$ = INKEY$
LOOP WHILE Ch$ = ""
IF LEN(Ch$) = 1 THEN
GetKey = ASC(Ch$)
ELSE
GetKey = -1 * ASC(MID$(Ch$, 2))
END IF
END FUNCTION