Quick Basic in Application

DECLARE SUB clrit ()
DEFINT A-Z               ‘ Default variable type is integer
TYPE MonthType
Number AS INTEGER     ‘ Number of days in the month
MName AS STRING * 9   ‘ Name of the month
END TYPE
DECLARE FUNCTION IsLeapYear% (N%)
DECLARE FUNCTION GetInput% (Prompt$, Row%, LowVal%, HighVal%)
DECLARE SUB PrintCalendar (Year%, Month%)
DECLARE SUB ComputeMonth (Year%, Month%, StartDay%, TotalDays%)
DIM MonthData(1 TO 12) AS MonthType
user$ [...]