'=========================================================================
	' Personal Calendar (PC) Program
	'  Copyright (c) 1985-1990, Paul Munoz-Colman.  All Rights Reserved.
	'    Version 14.10
	'     31 Oct 1990
	'	Shareware $25
	'=========================================================================
	'			DOS File CAL1.BI
	'  INCLUDE File for Array and Common Variable Definitions for CALx.BAS
	'=========================================================================
	'  Written For IBM PCs & Compatibles Under MS DOS 3.30 on a Northgate 486
	'   Compiled By Microsoft Professional BASIC 7.10, Linker Version 5.10
	'=========================================================================
	'  Note -- Tabs in the source file are in positions 6,11,16,21,26,...
	'========================================================================
	DEFINT A-Z
	OPTION BASE 1
	'=========================================================================
	'  $DYNAMIC
	'	Dynamic Arrays (DIM'd in Main Module Due to Large Size)
	COMMON SHARED WindowBuffer()			' MhWind Screen Buffer
	'=========================================================================
	'  Declare all other variables as
	'  $STATIC
	'=========================================================================
	DECLARE SUB ApptToMenu (EntryPoint)
	DECLARE FUNCTION ASCIIN$ (ASCIIZString$)
	DECLARE FUNCTION ASCIIZ$ (ASCIIString$)
	DECLARE SUB AutoStart ()
	DECLARE SUB BigChars (CharRow%, CharColumn%, CharLin$)
	DECLARE SUB BlankError ()
	DECLARE SUB BlankFatal ()
	DECLARE FUNCTION BlankFill$ (ToBlankFill$)
	DECLARE SUB BoxDraw (BoxType, BoxTop, BoxBottom, BoxLeft, BoxRight)
	DECLARE SUB BuildMenuDate(BuildEventDate$)
	DECLARE SUB BuildMenuLine ()
	DECLARE SUB CheckDate (DateToValidate$)
	DECLARE SUB ClearLast3 ()
	DECLARE SUB ClearLast4 ()
	DECLARE SUB ClearOverdueTable ()
	DECLARE SUB ClearScreenNormal (ClearTimerDesired)
	DECLARE SUB CloseFiles ()
	DECLARE SUB ColorDecode (CColorAttribute)
	DECLARE SUB CombineDateTime ()
	DECLARE SUB CompressApptFile (ShrinkNumber)
	DECLARE SUB ComputePendingValue (AlarmValue#, PendingValue#)
	DECLARE SUB ControlledInput (CBoxRow, CBoxColumn, CMessageRow, _
		CMessageColumn, CLength, CMessageText$, CInputResponse$, _
		NumlockRequest, CFilenameShow, CScreenBottomsShow, CHoldAtEnd)
	DECLARE SUB Credits (WhichLine)
	DECLARE SUB DayDate (DatetoIndex$)
	DECLARE FUNCTION DirectoryExist(DirectoryName$)
	DECLARE SUB DirectReturnCheck ()
	DECLARE SUB DisplayApptFilename ()
	DECLARE SUB DOSBIOSServices ()
	DECLARE SUB DoShell (ShellCommand$)
	DECLARE SUB DOSShell (DOSEntry)
	DECLARE SUB EndItAll ()
	DECLARE SUB ErrorHandler ()
	DECLARE SUB EscapeLine ()
	DECLARE SUB EscapeLineDelete ()
	DECLARE SUB EventErrorMessage ()
	DECLARE FUNCTION FileExist (ExistFilename$)
	DECLARE SUB FileFormat ()
	DECLARE SUB FileList ()
	DECLARE SUB FileListGet ()
	DECLARE SUB GenerateGreeting (GrLines)
	DECLARE SUB GenGreetingScreen1 ()
	DECLARE SUB GetApptRecord (Pointer)
	DECLARE SUB GetFilenameLength ()
	DECLARE SUB GetOptions ()
	DECLARE SUB Help ()
	DECLARE SUB IncrementDate (DateToIncrement$)
	DECLARE SUB InitPrinter ()
	DECLARE FUNCTION InString (Lin1$, Lin2$)
	DECLARE SUB Instructions ()
	DECLARE SUB KeyStuff (KeyFunction)
	DECLARE SUB KillAFile (KillFilename$)
	DECLARE SUB Kolors (WhichSetting)
	DECLARE FUNCTION Leap (LeapInput)
	DECLARE SUB LprintString (PrintString$, HoldPrint)
	DECLARE SUB MainSub (MainEntryPoint)
	DECLARE SUB MajorBeeper ()
	DECLARE SUB MenuDriver (MMenuSize, MMenuChoice, MMenuRow, MReqMenuColumn, _
	  MMenuSingleLine, MMenuSpecialExit, MScreenBottomsShow, MFilenameShow)
	DECLARE SUB Mh80x25 ()
	DECLARE SUB Mh80x43 (Ecode43%)
	DECLARE SUB Mh80x50 (Ecode50%)
	DECLARE SUB MhBackwardInstr (Pointer%, Start%, Lin1$, Lin2$)
	DECLARE SUB MhBox (InsideColr%, Box%, BoxColr%, Page%, TopRow%, _
		LeftColumn%, BottomRow%, RightColumn%)
	DECLARE SUB MhChars (CharsPage%, CharsRow%, CharsColumn%, ChColr%, ChLin$)
	DECLARE SUB MhColorAttribute (Colr%, Foreground%, BackGround%)
	DECLARE SUB MhDir (Operation%, Drive%, Directory$, DirEcode%)
	DECLARE SUB MhDirExist (DirName$, DirEcode%)
	DECLARE SUB MhDisk (Drive%, Directory$, FreeDisk&, TotalSpace&, DiskEcode%)
	DECLARE SUB MhDisplay (DispMode%, DispColumns%, DispRows%, Memory%, _
		DisplayType%)
	DECLARE SUB MhDos2 (DosEcode%, IntNo%, ES%, SI%, DI%, AH%, AL%, BH%, BL%, _
		CH%, CL%, DH%, DL%)
	DECLARE SUB MhDver (Major%, Minor%)
	DECLARE SUB MhFileExist (SomeFilename$, ExistEcode%)
	DECLARE SUB MhGetKbStatus1 (IInsertstate%, CCaps%, NNum%, _
		SScroll%, AAlt%, CCtrl%, LLeft%, RRight%)
	DECLARE SUB MhGetKbStatus2 (IInsertpressing%, CCaps%, NNum%, _
		SScroll%, AAlt%, CCtrl%, LLeft%, RRight%)
	DECLARE SUB MhHexToInt (HHexString$, EBytes2%)
	DECLARE SUB MhInstat (KKshift%, KKscan%, KKascii%)
	DECLARE SUB MhInstr (Pointer%, Start%, Lin1$, Lin2$)
	DECLARE SUB MhIntToString (Lin$, Number%)
	DECLARE SUB MhKill (SomeFilename$, KillEcode%)
	DECLARE SUB MhLprint (PrinterNumber%, Lin$, CharsPrinted%, LprintEcode%)
	DECLARE SUB MhLset (Destin$, Source$)
	DECLARE SUB MhMidString (Destin$, DestinMid%, Chars%, Source$, SourceMid%)
	DECLARE SUB MhNotBackwardInstr (Pointer%, Start%, Lin$, Char%)
	DECLARE SUB MhNotInstr (Pointer%, Start%, Lin$, Char%)
	DECLARE SUB MhRename (OldName$, NewName$, RenameEcode%)
	DECLARE SUB MhScr (Lin$, Page%, Row%, Column%, Colr%)
	DECLARE SUB MhSetKbStatus (Insertset%, CCaps%, NNum%, SScroll%)
	DECLARE SUB MhString (Lin$, FillChar%)
	DECLARE SUB MhToggleBits (Lin$, Value%)
	DECLARE SUB MhWind (Colr%, DDtaseg%, Operation%, Page%, TopRow%, _
		LeftColumn%, BottomRow%, RightColumn%,BBufferNumber%, WWindBytes%, _
		WWindEcode%)
	DECLARE SUB MinorBeeper ()
	DECLARE SUB MoveApptRecords (FileStart, MoveStart, MoveEnd, MoveIncr, _
		MoveOrigin, MoveTarget, MoveFlag, BlankFlag, BlankAt)
	DECLARE SUB Myd2 (Destin$, DestinStart%, Chars%, Source$)
	DECLARE SUB NotesHistory (NotesorHistory$)
	DECLARE FUNCTION NumberError (NumberTest$)
	DECLARE SUB OpenAppts ()
	DECLARE SUB Options ()
	DECLARE SUB PageEject ()
	DECLARE SUB PlayAlarmWarning (WarningSet)
	DECLARE SUB PlayStuff (PlayString$)
	DECLARE SUB PopLine ()
	DECLARE SUB PopLineDelete ()
	DECLARE SUB PoppedOverCheck ()
	DECLARE SUB PrepareforError ()
	DECLARE SUB PrepareforFatal ()
	DECLARE SUB PrepareforMessage ()
	DECLARE SUB PrintCalendar ()
	DECLARE SUB PrintCopy ()
	DECLARE SUB ProcessAlarm ()
	DECLARE SUB PutApptRecord (Pointer)
	DECLARE SUB QuickSort (Low, High)
	DECLARE SUB QuitLine ()
	DECLARE SUB QuitLineDelete ()
	DECLARE FUNCTION RandInt% (Lower, Upper)
	DECLARE SUB ReadCalauto ()
	DECLARE SUB ReadCalautoGet ()
	DECLARE SUB ReadCalDOS ()
	DECLARE SUB ReadCalDOSGet ()
	DECLARE SUB ReadCalexcl ()
	DECLARE SUB ReadCalexclGet ()
	DECLARE SUB ReadCalfig ()
	DECLARE SUB ReadCalfigGet ()
	DECLARE SUB ReadCalinit (EntryPoint)
	DECLARE SUB ReadCalmusic ()
	DECLARE SUB ReadCalmusicGet ()
	DECLARE SUB ReadCalres ()
	DECLARE SUB ReadCalresGet ()
	DECLARE SUB ReadCalser ()
	DECLARE SUB RefreshEventsNotes ()
	DECLARE SUB RepackApptRecord ()
	DECLARE SUB RestoreCalKeyState ()
	DECLARE SUB RestoreDOSKeyState ()
	DECLARE SUB ReturnLine ()
	DECLARE SUB ReturnLineDelete ()
	DECLARE SUB SaveCurrentDirectory (EntryPoint)
	DECLARE SUB SaveDOSKeyState ()
	DECLARE SUB ScreenBottoms ()
	DECLARE SUB ScreenBottomsDelete ()
	DECLARE SUB SequenceEventsTable ()
	DECLARE SUB SetArrays ()
	DECLARE SUB SetColors ()
	DECLARE SUB SetCurrentDirectory (EntryPoint)
	DECLARE SUB SetDateTime ()
	DECLARE SUB SetDateTimeGet (WhichType, DateTimeChange$)
	DECLARE SUB SetOptions ()
	DECLARE SUB SetVideoPage (Why)
	DECLARE SUB SetVideoMode (Why)
	DECLARE SUB ShowErase (EKolor, EScreenRow, EScreenColumn, _
		EraseFirst, ShowString$)
	DECLARE SUB ShowIt (IKolor,ShowRow, ShowColumn, ShowString$)
	DECLARE SUB ShowMult (MKolor, ScreenMultRow, MScreenColumn, EraseFirst, _
		ScreenMultLines)
	DECLARE SUB ShowOverduePage ()
	DECLARE SUB Snooze (Secs!)
	DECLARE SUB SrAutoScreenSave (FileName$, Ecode%)
	DECLARE SUB SrCancelAutoScreenSave ()
	DECLARE SUB SrCancelShell ()
	DECLARE SUB SrCancelUseAnyKey ()
	DECLARE SUB SrCheckEMS (Ecode%)
	DECLARE SUB SrForceFile0 ()
	DECLARE SUB SrNoSnow ()
	DECLARE FUNCTION SrOverDos% ()
	DECLARE SUB SrPopDown (Kscan%, Kshift%, Ecode%)
	DECLARE SUB SrReleaseMem (Ecode%)
	DECLARE SUB SrReleaseTimeY ()
	DECLARE SUB SrResetHotkey (Kscan%, Kshift%)
	DECLARE SUB SrResidentBatch (CmndLine$, Ecode%)
	DECLARE SUB SrResidentShell (CmndLine$, Ecode%)
	DECLARE FUNCTION SrScreenSaved% ()
	DECLARE SUB SrSetBusyWait (Ticks%)
	DECLARE SUB SrSetCom (Port%, Ecode%)
	DECLARE SUB SrSetDiskSwap (FileName$, Ecode%)
	DECLARE SUB SrSetId (IDName$, IDNumber%, Ecode%)
	DECLARE SUB SrSetPokeChar (Ascii%)
	DECLARE SUB SrSetTimeY (Month%, Day%, Year%, Hour%, Minute%)
	DECLARE SUB SrSetUserMem (Bytes&)
	DECLARE SUB SrSetVideoMode (Mode%)
	DECLARE SUB SrUseErrorTable ()
	DECLARE SUB StayResInitialization (EntryPoint)
	DECLARE SUB StayResKeyShiftList ()
	DECLARE SUB StayResKeyName ()
	DECLARE SUB StayResOptions (OSrAutoOptions)
	DECLARE SUB StayResPopDown ()
	DECLARE FUNCTION Strng$ (RptTimes%, FillChar%)
	DECLARE SUB Titles (NumberofLines)
	DECLARE SUB UnpackApptRecord ()
	DECLARE SUB UpdateClockScreen ()
	DECLARE SUB ValidateEventDate ()
	DECLARE SUB ValidateUser (WhichLine)
	DECLARE SUB VideoMonitorType ()
	DECLARE SUB WindowInit ()
	DECLARE SUB WindowRestore ()
	DECLARE SUB WindowSave ()
	DECLARE SUB WriteCalauto ()
	DECLARE SUB WriteCalDOS ()
	DECLARE SUB WriteCalexcl ()
	DECLARE SUB WriteCalfig ()
	DECLARE SUB WriteCalmusic ()
	DECLARE SUB WriteCalres ()
	DECLARE SUB WritetoHistory ()
	DECLARE SUB YearAdjust (YeartoAdjust, AdjustedYear$)
	DECLARE FUNCTION ZeroFill$ (ToZeroFill$)
	'=========================================================================
  	TYPE AlarmType
		Alarm 	AS DOUBLE
		Warning 	AS DOUBLE
		Sequence 	AS INTEGER
 	END TYPE
	'=========================================================================
	DIM 	Alarms(300) 			AS AlarmType,_			
		CalendarColumns(3),_
		CalendarImage(8)		AS STRING*80,_
		CalendarMonths(3),_
		CalendarYears(3),_
		ClockGraphics(3)		AS STRING*63,_
		ColorChoices(8),_
		ColorPairUses$(7),_
		ColorPairTypes$(2),_
		Colors$(16),_
		DateEdit(4),_
		DateEditLimits(4),_
		DayNames$(7),_
		EditInstructions(8,4)	AS STRING*33,_
		EpsonCodes(50),_
		EventInput(4)			AS STRING*47,_
		EventInstructions1(3)	AS STRING*27,_
		EventInstructions2(3)	AS STRING*22,_
		EventNoteSharedIns(3)	AS STRING*31,_
		EventOrder(300),_
		EventWindow(9)			AS STRING*80,_
		ExcludefromHistory$(2),_
		FirstDays(3),_
		FunctionScanCodes(4,10),_
		HotKeyNames$(16),_
		HPIIPCodes(50),_
		I4019Codes(50),_
		IBMCodes(50),_
		JulianDays(12),_
		LightDay(600),_
		MenuColors(20),_
		MenuLines(20)			AS STRING*80,_
		MenuLinesSave$(20),_
		MonthLength(12),_
		MonthNames$(12),_
		NoteInput(4)			AS STRING*47,_ 
		NoteInstructions1(4)	AS STRING*27,_	
		NoteInstructions2(3)	AS STRING*22,_
		PendingEvents(300),_
		PrinterCodes(50),_
		ScreenModes$(20),_	
		ScreenTitles$(5),_
		SoundLevels$(4)
	'=========================================================================
	'  Static Arrays (DIM'd before Common)
	'   Strings
	COMMON SHARED _
		CalendarImage()	AS STRING*80,_	 'Calendar Image
		EditInstructions() 	AS STRING*33,_	 'Edit Instructions
		MenuLines()		AS STRING*80,_	 'Menu Text
		MenuLinesSave$(),_			'Menu Text Save
		ClockGraphics()	AS STRING*63,_	' Graphics for Clock Display
		ColorPairUses$(),_			' Color Pairs Usage
		ColorPairTypes$(),_			' Color Pair Type (Foregrnd,Bckgrnd)
		Colors$(),_				' Names of Colors
		DayNames$(),_				' Names of Days of the Week
		EventInput() AS STRING*47,_	' Edit Input Instructions
		EventInstructions1()	AS STRING*27,_	' Event Instructions 1
		EventInstructions2()	AS STRING*22,_	' Event Instructions 2
		EventNoteSharedIns()	AS STRING*31,_ ' Event/Note Instructions 3
		EventWindow() AS STRING*80,_	' Event Window on Clock Screen (speed)
		ExcludefromHistory$(),_		' Event Texts to Exclude From History
		HotKeyNames$(),_			' Ctrl/Alt/Shift part of Hot Key Name
		MonthNames$(),_			' Names of the Months
		NoteInput() AS STRING*47,_	' Note Editing Instructions
		NoteInstructions1()	AS STRING*27,_	' Note Instructions 1
		NoteInstructions2()	AS STRING*22,_	' Note Instructions 2
		ScreenModes$(),_			' Names of Graphic Screen Modes
		ScreenTitles$(),_			' Titles For Screens
		SoundLevels$()				' Names of Sound Choices
	'=========================================================================
	'  Numerics
	COMMON SHARED  _
		Alarms() AS AlarmType,_		' Numeric Table of Event Date/Times
		CalendarColumns(),_			' Screen Column for 3 Calendars
		CalendarMonths(),_			' Months for 3 Calendars
		CalendarYears(),_			' Years for 3 Calendars
		ColorChoices(),_			' Color Choices
		DateEdit(),_				' Numeric Date Parts to Validate
		DateEditLimits(),_			' Numeric Date Validation Limits
		EpsonCodes(),_				' WANG Printer Codes Table
		EventOrder(),_				' Sorted Order of Events
		FirstDays(),_				' 1st Days of Week for Calendars
		FunctionScanCodes(),_		' Scan Codes for F1 to F12
		HPIIPCodes(),_				' HP IIP/III Laser Printer Codes Table
		I4019Codes(),_				' IBM 4019 Laser Printer Codes Table
		IBMCodes(),_				' IBM Color Printer Codes Table
		JulianDays(),_				' Days per Month Cumulative
		LightDay(),_				' Calendar Emphasis Day X/Y Pairs
		MenuColors(),_				' Special Menu Colors Array
		MonthLength(),_			' Number of Days in Each Month
		PrinterCodes(),_			' Chosen Printer Codes Table
		PendingEvents()			' Event Numbers to Warn (Blink) For
	'=========================================================================
	' Non-Array Common Variables
	COMMON SHARED  _
		AH%,_					' MhDos2 variable
		AL%,_					' MhDos2 variable
		Alarm$,_					' Default Alarm Music
		AlarmMusicPlayed,_			' Alarm Music Has Been Played
		AllowInsertMode,_			' Disable(no)/Enable(yes) Insert Mode
		AllowPopDateTime,_			' Pop Up if Something There to Pop On
		AllowPopDateTimeSave,_		' Save of auto pop if disabling
		Alt,_					' State of Alt Key
		ApptBuffer$,_				' I/O Buffer for Appointment File
		ApptFile,_				' Appointment File In-Use Indicator
		ApptFilename$,_			' Name of Appointment File
		ApptFilenameOverdue$,_		' Name of Appt File's Overdue File
		ApptMasterRec$,_			' Password/Options Record of Appt File
		ApptPassword$,_			' Appointment File Password
		AutoMode$,_				' Autostart Mode Indicator External
		AutoStarted,_				' Whether Automatic Startup Happening
		AutostartMode,_			' Autostart Mode Internal Numeric
		AvailablePrinters$,_		' String with Printer Choices
		AvailableStringSpace&,_		' Last value of Fre("")
		BH%,_					' MhDos2 variable
		BL%,_					' MhDos2 variable
		Blank0$,_					' Null String
		Blank1$,_					' 1 Blank Space
		Blank2$,_					' 2 Blank Spaces
		Blank3$,_					' 3 Blank Spaces
		Blank4$,_					' 4 Blank Spaces
		Blank8$,_					' 8 Blank Spaces
		Blank12$,_				' 12 Blank Spaces
		Blank80$,_				' 80 Blank Spaces
		BoxColumn,_				' Column for Controlled Input
		BoxRow,_					' Row for Controlled Input
		BoxWidth,_				' Menu Box Size (-2)
		Bsp,_					' Backspace Key
		Buffer80$,_				' Help File I/O Buffer
		CH%,_					' MhDos2 variable
		CL%,_					' MhDos2 variable
		CalendarDate$,_			' Requested Date for Center Calendar
		CalendarDay,_				' Numeric Day for Calendar
		CalendarMonth,_			' Numeric Month for Calendar
		CalendarStartColumn,_		' Left Column for Calendar Display
		CalendarStartRow,_			' First Row for Calendar Display
		CalendarYear,_				' Numeric Year for Calendar
		CalMode,_					' PC's Video Mode (mono or color text)
		Caps,_					' State of Caps from Mh Key Tester
		CapsDOS,_					' State of Caps in DOS
		CapsHold,_				' Caps Lock Previous State
		Chb,_					' Emphasis Color Background
		Chf,_					' Emphasis Color Foreground
		Chime$,_					' Default Music for Hourly Chimes
		ChimeCount,_
		Chold,_					' Cursor Column Position
		Cib,_					' Mono Emphasis Color Background
		Cif,_					' Mono Emphasis Color Foreground
		Cl1b,_					' 1st Normal Color Background
		Cl1f,_					' 1st Normal Color Foreground
		Cl2b,_					' 2nd Normal Color Background
		Cl2f,_					' 2nd Normal Color Foreground
		Cl3b,_					' 3rd Normal Color Background
		Cl3f,_					' 3rd Normal Color Foreground
		Cl4b,_					' 4th Normal Color Background
		Cl4f,_					' 4th Normal Color Foreground
		Cl5b,_					' 5th Normal Color Background
		Cl5f,_					' 5th Normal Color Foreground
		Cl6b,_					' 6th Normal Color Background
		Cl6f,_					' 6th Normal Color Foreground
		ClockColumn,_
		ClockPositionGraphic$,_
		ClockSeparatorGraphic$,_
		ClockRow,_				' Location of Clock Row
		ClockScreen,_				' On Clock Screen Indicator
		ClockScreenPrint,_			' Print While On Clock Screen Indicator
		ColorAttribute,_			' Current Mh Color Attribute
		ColorBackground,_			' Current Background Color
		ColorCRT,_				' Color Display Indicator
		ColorForeground,_			' Current Foreground Color
		Column1,_					' Position of Instructions Column 1
		Column2,_					' Position of Instructions Column 2
		Column3,_					' Position of Instructions Column 3
		Column4,_					' Position of Instructions Column 4
		Columns,_					' Size of Calendar (columns)
		CombinedDateTime#,_			' 12-digit Date/Time of Unpacked Event
		CopyFilename$,_			' ASCII Filename for Copy
		CountedDay&,_				' Number of Days Since 0000 For Date
		Ctrl,_					' State of Control Key
		CurrentDateTime#,_			' Numeric Form of Date and Time
		CurrentDateTime$,_
		CurrentDay,_
		CurrentDayOfWeek,_
		CurrentEvent,_				' Current Event Item
		CurrentEventLine$,_			' Current Event (Menu Format)
		CurrentEventRecord$,_		' Current Event (File Format)
		CurrentHistory,_			' Current History Line Item
		CurrentHour,_				' Current Hour
		CurrentHourPosition,_
		CurrentMinute,_			' Current Minute
		CurrentMonth,_
		CurrentNote,_				' Current Note
		CurrentNoteHist,_			' Current Note/History Record
		CurrentQuarter,_
		CurrentSecond,_			' Current Second
		CurrentStackSize&,_			' Size of the Stack
		CurrentTime$,_				' Current Time (HHMMSS)
		CurrentVideoMode,_			' Present screen mode
		CurrentVideoPage,_			' Present screen page
		CurrentYear,_
		CursorColumn,_				' Cursor location column
		CursorRow,_				' Cursor location row
		CursorStart,_				' Cursor Start Line (See Main Module)
		CursorState,_				' Cursor On (1) or Off (0)
		CursorStop,_				' Cursor Stop Line (13)
		DI%,_					' MhDos2 variable
		DH%,_					' MhDos2 variable
		DL%,_					' MhDos2 variable
		DateFromDOS$,_				' Copy of Date$
		DateValidation,_			' Whether Date/Time is Legal
		DebugRequested,_			' Whether Command$ is non-null
		Del,_					' Delete Key
		DirectoryReturn$,_			' Current Directory in Program (ASCIIZ)
		DirectorySet$,_			' Directory To Restore by MhDir (ASCIIZ)
		DirectoryUser$,_			' User's Current Directory (ASCIIZ)
		DirectReturn,_				' Direct Return to Clock Screen
		DisplayColumns,_			' Current number of columns
		DisplayFilename$,_			' Filename on Clock Screen
		DisplayRows,_				' Current number of rows
		DOS2x,_					' Whether Earlier than DOS 3.0
		DOSBackground,_			' Original DOS Background Color
		DOSColor,_				' Original DOS Color Attribute
		DOSCommand$,_				' Prestored DOS Command for F7
		DOSCursorBit,_				' CH and 32 from MhDos2 Int 10 Fn 3
		DOSCursorColumn,_			' Column where User Cursor Is
		DOSCursorPage,_			' Screen Page for User Screen
		DOSCursorRow,_				' Row where User Cursor Is
		DOSCursorStart,_			' Start Scan Line for User Cursor
		DOSCursorState,_			' DOS Cursor On (1) or Off (0)
		DOSCursorStop,_			' End Scan Line for User Cursor
		DosEcode%,_				' MhDos2 variables
		DOSForeground,_			' Original DOS Foreground Color
		DownArrow$,_				' Down-Arrow Character
		DriveReturn,_				' Current Drive in Program
		DriveSet,_				' Drive to Change to by MhDir
		DriveUser,_				' Current User's Drive
		Dtaseg					' Segment Address
	COMMON SHARED  _
		ES%,_					' MhDos2 variable
		EarlyPopDownFailed,_		' TSR Before Init'd Had Error
		East,_					' Right Arrow
		EchoSuppression,_			' Password Suppression Indicator
		Ecode,_					' Mh Error Code
		EditingEvents,_			' Event Menu Width Flag
		EditingNotes,_				' Note Menu Width Flag
		EditLineLabel$,_			' Day Label for Event Menu Line
		EditPagesize,_				' Size of Event/Note/History Page
		EgaBytes!,_				' Size of EGA Screen Save
		EgaBytes2%,_				' Converted integer value of EgaBytes!
		EgaFilename$,_				' Screen Save File Name (ASCIIN)
		EgaFilename2$,_			' Screen Save File Name (ASCIIZ)
		EgaFilePath$,_				' Complete Save File Path (ASCIIN)
		EgaFilePath2$,_			' Complete Save File Path (ASCIIZ)
		EndKey,_					' End Key
		Enter,_					' Enter (Return) Key
		EnteredPassword$,_			' User's Perception of Appt Password
		ErrMsgPlacement,_			' Screen Row For Error Message Print
		ErrorLine,_				' Program Line Where Error Occurred
		ErrorLine1$,_				' Error Message Line 1
		ErrorLine2$,_				' Error Message Line 2
		ErrorMessageToWrite,_		' Whether Main Menu to Write Error
		ErrorNumber,_				' BASIC Error Number
		ErrorSwitch,_				' Error Condition Flag
		Esc,_					' Escape Key
		EventDate$,_				' Full Date of Event
		EventDateTime$,_			' Full Date + Time of Event (String)
		EventDay$,_				' Day of Event
		EventHour$,_				' Hour of Event
		EventInstructions3		AS STRING*80,_ ' Event Instructions 3
		EventLimRepeat$,_			' Event Limited Repeat Count
		EventMinute$,_				' Minute of Event
		EventMonth$,_				' Month of Event
		EventPageCounter,_			' Which Page of Events to Change
		EventRepeat$,_				' Event Repeat Type
		EventSizeCode$,_			' Event File Format Switch
		EventsScheduled$,_			' Screened Number of Events Scheduled
		EventsScheduled,_			' Number of Events Scheduled
		EventTableSize,_			' Default Number of Events
		EventTableStable,_			' State of Event Table
		EventText$,_				' Text of Event
		EventTime$,_				' Time of Event
		EventtoHistory,_			' Whether History Write is an Event
		EventValidationError,_		' Whether Date/Time is Legal Error
		EventYear$,_				' Year of Event
		EventYear1st2$,_			' Event 1st 2 digits of Year
		EverResident$,_			' Ever Popped Down
		ExitKeys,_				' Allow Exit Keys to Work Immediately
		F1,_						' Function Key 1 (Accept Event)
		F2,_						' Function Key 2 (Resequence)
		F3,_						' Function Key 3 (Event Edit On-Screen)
		F4,_						' Function Key 4 (Note Edit On-Screen)
		F5,_						' Function Key 5 (Instruction Pop-Back)
		F5HelpRow,_				' Place for Clock Screen Help Prompt
		F6,_						' Function Key 6 (DOS Shell)
		F7,_						' Function Key 7 (DOS Prestored Command)
		False$,_					' Logical No
		FatalError,_				' Flag which Causes File Closings
		FileName$,_				' Mh File Name
		FilenameLength,_			' Real Length of Appointment File Name
		FilenameShow,_				' Option to Display Filename
 		FilenumAppt,_				' File number of Appointment File
		FilenumApptSort,_			' File number of Event Temporary File
		FilenumAuto,_				' File number of Automatic Start File
		FileNumber,_				' File number for Mh routines
		FilenumCopy,_				' File number of ASCII Copy File
		FilenumDOS,_				' File number of DOS Command File
		FilenumError,_				' File number of Error Message File
		FilenumExcl,_				' File number of History Exclude File
		FilenumFig,_				' File number of Color Choice File
		FilenumHelp,_				' File number of Help Text File
		FilenumInit,_				' File number of Initialization File
		FilenumMusic,_				' File number of Music Choice File
		FilenumNewAppt,_			' File number of New Appt File
		FilenumOverdue,_			' File number of Overdue Appts
		FilenumRes,_				' File number of Stay-Res Option File
		FilenumSer,_				' File number of Registration Info
		FillLength,_				' Menu Line Trailing End
		FirstTimeClock,_			' 1st Time Clock Is Displayed
		FooterAction$,_			' Note/Event Movement in Footer
		FooterRecall,_				' Instruction Footer Recall In Progress
		FooterSize,_				' Size of Clock Footer
		ForceDate,_				' Force Date/Time Entry On Prog Start
		FromOverduePage,_			' Return to clock from overflow or not
		GetPath$,_				' Path to use by MhDir
		HardSnooze,_				' Prevent snooze from interruption
		HighestValue#,_			' High Long Value
		HilitColumn,_				' Screen Column for Hilit Day
		HilitDay$,_				' Text for Hilit Day
		HilitRow,_				' Screen Row for Hilit Day
		HistoryBuffer$,_			' Text to Write to History
		HoldAtEnd,_				' Input Routine Flag to Not Exit
		HomeKey,_					' Home Key
		Hyphen$,_					' Literal "-"
		InclHistory,_				' Numeric of IncludeHistory$
		InclNotes,_				' Numeric of IncludeNotes$
		IncludeHistory$,_			' Include History in Print/Copy Flag
		IncludeNotes$,_			' Include Notes in Print/Copy Flag
		IndexedDay,_
		InHelp,_					' Processing Help for KeyStuff
		InitialSound$,_			' Initial Setting of Sound
		InMenu,_					' On a Menu Screen
		InPopDown,_				' Pop Down In Progress--avoid recursion
		InputResponse$,_			' Response to Request for Input
		InputString$,_				' Mh Input String
		Ins,_					' Insert Key
		Insrt%,_					' Insert State in Cal
		InsertCursorStart,_			' Top Line of Cursor for Insert Mode
		InsertDOS%,_				' Insert State in DOS
		InsertPressing%,_			' Whether Insert Key Being Pressed
		InterruptNumber%,_			' MhDos2 variable
		JulianDate&,_				' Returned Julian Date from DayDate
		Kascii,_					' ASCII Code of Waiting Key
		KasciiIn,_				' ASCII Code of Waiting Key MhInStat
		KeyBits,_					' Condition of Key Flag Byte
		KeyCursor,_				' KeyStuff Cursor Move Request
		KeyCursorOff,_				' KeyStuff Cursor Move/Off Request
		KeyDelayedExit,_			' Ctrl-Break and Ctrl-Esc Switch
		KeyMaskReset,_				' Caps and Num Lock Reset Mask
		KeyNumOn,_				' KeyStuff Turn Numlock On Request
		KeyNumOff,_				' KeyStuff Turn Numlock Off Request
		KeyShiftTrap,_				' Key Trap Indicator of Which Trap
		KeySingle,_				' KeyStuff Single Key Request
		KeyStatus,_				' KeyStuff Status Request if Changed
		KeyStatusAbs,_ 			' KeyStuff Status under All Cases
		Keystroke$,_				' General Saved Keystroke
		KeyTimerInit,_				' Timer Display Force Flag
		KeyTrapEnabled,_			' Enable Editing Key Trap
		KeyWait,_					' KeyStuff Wait for Key Request
		Kolor,_					' Sub Kolors Argument for Show Routines
		Kscan,_					' Scan Code of Waiting Key
		KscanIn,_					' Scan Code of Waiting Key MhInStat
		KscanRes,_				' Kshift for StayResident
		Kshift,_					' Shift Code of Waiting Key
		KshiftIn,_				' Shift Code of Waiting Key MhInStat
		KshiftRes					' Kshift for StayResident
	COMMON SHARED  _
		Left,_					' State of Left-Arrow Key
		LeftArrow$,_				' West-Arrow Character
		Length,_					' Size of Input Routine Returned Value
		LightTable,_				' Light Day Pointer
		LimitedsLeft,_				' Limited Event Count Remaining
		LimSep$,_					' Separator in Event Display Line
		LoopCounter,_				' Counter through Main Timer Loop
		LoopCounterShow,_			' Whether to Show Loop Counter
		LprintEcode%,_				' Line Printer Error from MhLprint
		LprintJobOver,_			' Whether Output Finished (close print)
		LprintTerminate,_			' Whether User Wants Print Aborted
		MainMenuAuto,_				' Main Menu Auto
		MainMenuClock,_			' Main Menu Clock Only
		MainMenuColor,_			' Main Menu Set Colors
		MainMenuCopy,_				' Main Menu Copy File
		MainMenuCreate,_			' Main Menu New File
		MainMenuDate,_				' Main Menu Change Date/Time
		MainMenuDelete,_			' Main Menu Delete File
		MainMenuDOS,_				' Main Menu DOS Session
		MainMenuHelp,_				' Main Menu Help
		MainMenuLastEntry,_			' Main Menu Direct Return Position
		MainMenuList,_				' Main Menu List Files
		MainMenuOptions,_			' Main Menu Options
		MainMenuPrint,_			' Main Menu Print File
		MainMenuRow,_				' Screen Row For Main Menu Start
		MainMenuUse,_				' Main Menu Use File
		MemoryLeft&,_
		MemoryOK&,_
		MemoryNeeded&,_
		MemoryResident,_			' Is the Program Memory-Resident ?
		MemoryResidentShell,_		' Is SrResidentShell In Progress ?
		Menu1,_					' Main Menu Choice
		MenuCancelled,_			' Exited From Menu Mode
		MenuChoice,_				' Numeric Position of Menu Choice
		MenuColorBack,_			' Menu Color Background
		MenuColorFore,_			' Menu Color Foreground
		MenuColumn,_				' Screen Column for Menu
		MenuEntryChosen,_			' Enter Key From Menu to Choose
		MenuExit,_				' Menu Escape Condition Switch
		MenuNormalExit,_			' No Special Exit Taken
		MenuRecursiveReturn,_		' Return to Menu after Recursive Use
		MenuRow,_					' Screen Row for Menu
		MenuSingleLine,_			' Reprint only Current Menu Line
		MenuSize,_				' Number of Menu Entries
		MenuSpecialExit,_			' Menu Exit other than Escape
		MenuSrOpt,_				' Stay Res Options Menu Choice
		MenuWidth,_				' Width of MenuLine
		MessageColumn,_			' Screen Column for Input Routine
		MessageRow,_				' Screen Row for Input Routine
		MessageText$,_				' Text for Input Routine Prompt
		MonoCRT,_					' Monochrome Monitor
		MovingClockTick$,_
		N0,_					' Numeric
		N1,_					' Numeric
		N2,_					' Numeric
		N3,_					' Numeric
		N4,_					' Numeric
		N5,_					' Numeric
		N6,_					' Numeric
		N7,_					' Numeric
		N8,_					' Numeric
		N9,_					' Numeric
		N10,_					' Numeric
		N11,_					' Numeric
		N12,_					' Numeric
		N13,_					' Numeric
		N14,_					' Numeric
		N15,_					' Numeric
		N16,_					' Numeric
		N17,_					' Numeric
		N18,_					' Numeric
		N19,_					' Numeric
		N20,_					' Numeric
		N21,_					' Numeric
		N22,_					' Numeric
		N23,_					' Numeric
		N24,_					' Numeric
		N25,_					' Numeric
		N26,_					' Numeric
		N27,_					' Numeric
		N28,_					' Numeric
		N29,_
		N30,_
		N32,_					' Numeric
		N34,_					' Numeric
		N38,_
		N39,_					' Numeric
		N40,_					' Numeric
		N42,_					' Numeric
		N43,_					' Numeric
		N45,_					' Numeric
		N48,_					' Numeric
		N49,_					' Numeric
		N50,_					' Numeric
		N52,_
		N53,_
		N54,_
		N58,_
		N60,_
		N62,_					' Numeric
		N63,_					' Numeric
		N64,_					' Numeric
		N68,_
		N70,_
		N71,_
		N72,_
		N74,_
		N75,_
		N80,_					' Numeric
		N99,_					' Numeric
		Nm1,_					' Numeric
		Nm2,_					' Numeric
		Nm3,_					' Numeric
		NewGuy,_					' New User Indicator for Auto-Help
		No,_						' Numeric No
		NoHistEndDefault,_			' Set History At End
		Noo$,_					' Literal "No"
		NormalCalendars,_			' Normal Calendars are Displayed
		North,_					' Up-Arrow Key
		NoteInstructions3	AS STRING*53,_ ' Note Instructions 3
		NoteSize,_				' Note Window Size on Clock Footer
		NoteSizeCode$,_			' Note File Format Switch
		NullEvent$,_				' Event Line with only - - :'s
		NullEventOld$,_			' Event Line with old format
		Num,_					' State of Num from Mh Key Tester
		NumberofEvents,_			' Maximum Number of Events
		NumberofHotFKeys,_			' How Many F Keys to Pop Down
		NumberofHotCKeys,_			' How Many Cntrl/Alt/Shift Combinations
		NumberofNotes,_			' Maximum Number of Notes
		NumDOS,_					' Num State in DOS
		NumHold,_					' Num Lock Previous State
		Offset,_					' Offset within MhDtaseg
		OldNumberEvents,_			' Events Before Requested Change
		OldNumberNotes,_			' Notes Before Requested Change
		OnEditPage,_				' Flag for Caps/Num Colors
		OnOverduePage,_			' Flag for Caps/Num Placement
		OnScreen,_				' On Clock Screen Editing Switch
		OnScreenFirst,_			' On Screen Editing Instruction Refresh
		OtherCalendars,_			' Other than Normal Calendars Displayed
		OverdueCount,_				' Number of Overdue Events to Show
		OverstrikeCursorStart,_		' Top Line of Cursor For Overstrike
		Partition AS DOUBLE,_		' Sort Variable
		PathLegalChars$,_			' Characters valid in BASIC Path Names
		PathLegalLength,_			' Length of PathLegalChars$
		Pending,_					' Number of Minutes for Warning Music
		PgDn,_					' Page Down Key
		PgUp,_					' Page Up Key
		PoppedUpOverDOS,_			' Resident and operating over DOS Prompt
		PoppedUpOverProgram,_		' Resident and operating over Program
		PopWait,_					' Delayed Pop Down Flag
		PopWaitHold,_				' Delayed Pop Down Flag Previous Value
		PreviousDate$,_
		PreviousHour,_
		PreviousMinute,_
		PreviousQuarter,_
		PreviousSecond,_
		PrevQuarterPosition,_
		PrimitiveState,_			' Whether Startup is Complete
		PrinterLineCount,_			' How many lines are printed on page
		PrinterLineLimit,_			' Limit on printed page size
		PrinterPause$,_			' Whether to stop between printer pages
		PrintingReport,_			' Printing Report In Progress Switch
		PrintorCopy$,_				' Print or Copy Appt File Switch
		PriorInsert,_				' Previous Value of Insert Pressed
		Prnt,_					' Print Key
		ProgramVersion$			' Program Version Number
	COMMON SHARED  _
		ReadBytes,_				' Number of Bytes Read By Mh Routine
		RedisplayCalendars,_		' Calendar Refresh Switch
		RedisplayNotesEvents,_		' Clock Screen Footer Refresh Switch
		RefreshInstructions,_		' Instruction Refresh Switch
		RegiData$,_				' Encoded Registration Value
		RegiName$,_				' User Name
		RegiOK,_					' Regi Info Valid
		RegiSerial$,_				' Serial Number
		Registered,_				' Whether a Registered Copy
		ReqMenuColumn,_			' Requested Menu Column
		Rescheduling,_				' Indicates Rescheduling in Progress
		ResEcode,_				' Ecode from StayResident
		ResHold,_					' Memory-Resident State Change
		ReturnMessage$,_			' Date/Event Validation Error Message
		ReturnPath$,_				' Current Drive and Path for DOS Shell
		Rhold,_					' Cursor Row Position
		Right,_					' State of Right-Arrow Key
		RightArrow$,_				' East-Arrow Character
		Rows,_					' Size of calendar (rows)
		SI%,_					' MhDos2 variable
		ScreenBottomsShow,_			' Option to Display Screen Bottoms
		ScreenColumn,_				' Screen Column
		ScreenPage,_				' Current Screen Page Number (0)
		ScreenRow,_				' Screen Row
		ScreenSize,_				' Size of Screen Display
		ScreenTag$,_				' Sound Level or Day Name Screen Label
		Scroll,_					' State of Scroll from Mh Key Tester
		ScrollDOS,_				' State of Scroll in DOS
		SelectedPrinter$,_			' Selected "W"ANG or "I"BM Printer
		ShellEcode,_				' Ecode from SrResidentShell or Batch
		SortHigh,_				' Sort Upper Limit for QuickSort
		SortLow,_					' Sort Lower Limit for QuickSort
		SoundLevel,_				' Sound Choice
		South,_					' Down Arrow Key
		SpecialExitAllowed,_		' Menu Special Exits Allowed
		SpecialExitDelete,_			' Menu Delete Key For Item Delete
		SpecialExitDisallowed,_		' Menu Special Exits Not Allowed
		SpecialExitEndKey,_			' Menu End Key For Last Page
		SpecialExitF2,_			' Menu F2 For Event Resequencing
		SpecialExitHomeKey,_		' Menu Home Key For 1st Page
		SpecialExitInsert,_			' Menu Insert Key For Item Insertion
		SpecialExitPgDn,_			' Menu Page Down For Next Page
		SpecialExitPgUp,_			' Menu Page Up For Previous Page
		SrActualSwapPath$,_			' Real Swap Path
		SrAutoOptions,_			' Stay Res Options on 1st Pop Try
		SrAutoPopDown,_
		SrAutoPopDownHappened,_
		SrAutoPopDownReady,_
		SrDay,_					' Pop Day
		SrDiskSwapped,_			' Disk Swapping Actually Occurred
		SrDiskSwapping,_			' Disk Swap Enable.
		SrDontUseEMS,_				' Disk Swap or EMS Enable
		SrEMS,_					' EMS Available If Requested
		SrHotKeyName$,_			' English Name of Defined Hot Key
		SrHour,_					' Pop Hour
		SrKscanHot,_				' Scan Code of Hot Key for PopUp
		SrKshiftHot,_				' Shift Code of Hot Key for PopUp
		SrMhIDName,_				' ID Name of this Program (CAL)
		SrMhIDNumber,_				' MicroHelp ID For This Program (1006)
		SrMinute,_				' Pop Minute
		SrMonth,_					' Pop Month
		SrOptionsChosen,_			' Whether Options Ever Set for TSR Mode
		SrPokeCharCode%,_			' ASCII Code of Pop Up Char for CALPOPUP
		SrPopDateTime,_			' Pop on Date/Time Flag
		SrPopNormal,_				' Pop down with auto pop if wanted
		SrPopSpecial,_				' Pop down with auto pop disabled
		SrPopTime#,_				' Time to Pop On
		SrPopupOnlyIfScreenSaved,_	' Don't disturb non-standard screens
		SrScanChoice,_				' Choice of Hot Key Scan Code in List
		SrSetUserMemCalled,_		' Whether SETMEM has happened
		SrShellCommand$,_			' SrResidentShell command less cr
		SrSnowCheck,_        		' Snow Check Mode
		SrSwapPath$,_				' Path that the "swap" files will write.
		SrSwapPathAdjusted$,_		' Swap path ending with "\"
		SrWhichFList,_				' Which F Key List Scan Code is In
		SrYear,_					' Pop Year
		StartingHistory,_			' Appt File Position for History
		StartingNote,_				' Appt File Position for Notes
		StartupScreen,_			' On the Startup Screen
		StartupScreenHold,_			' During Startup Screen (interrupted)
		Subnum,_					' Sequence Number of SUB For Error Msg
		SwapEcode,_				' Disk Swapping Successful Flag
		Tabb,_					' Tab Key
		TextSize,_				' Size of Event Description
		ThisMenuLine,_				' Number of Current Menu Line
		TimeBlock,_
		TimerDesired,_				' Whether to Show Timer Box
		TimerDisplaySuppress,_		' Date/Time On Menu Suppression Switch
		TimerHold!,_				' Timer Display Hold Value
		TimerSave!,_				' Timing Signature for Calendars
		TodayBright,_				' Today's Position Lit
		TodaysDate$,_				' Today's Date
		TodaysDay,_				' Today's Day of the Week
		TodaysJulianDate&,_
		True$,_					' Logical Yes
		UpArrow$,_				' Up-Arrow Character
		UpdatingCalauto,_			' Calauto.Dat Expansion Switch for Msg
		UpdatingCalfig,_			' Calfig.Dat Expansion Switch for Msg
		UpdatingCalres,_			' Calres.Dat Creation Flag for Msg
		UseDiskSwap$,_				' Calres.Dat Use Disk Swapping Flag
		UseEMS$,_					' Calres.Dat Use EMS Memory Flag
		UserColumns,_				' User's number of columns
		UserMode,_				' User's Video Mode
		UserRows,_				' User's number of rows 43 or 50-line
		UserPath$,_				' User's Drive and Directory
		UserPopDateTime$,_			' Calres.Dat Pop on Date/Time Flag
		UserSavePage,_				' User Screen Page to Save
		ValidSizes$,_				' Size Codes For Event/Notes
		Warning$,_				' Music for Pending Event Warning
		WeekBreak$,_				' Option to Separate Weeks on Print
		WeekendScheduling$,_		' Whether Daily Events Span Weekends
		West,_					' Left Arrow Key
		WhichColor,_				' Which Color is Chosen
		WhichEvent,_				' Which Event is Chosen
		WhichExpansion$,_			' Expand Events or Expand Notes Flag
		WholeClock,_				' Whether Whole Clock Screen Is Printed
		WindowInitted,_			' Whether Window Manager Initialized
		WindowLine$,_				' Line of Footer to be Displayed
		WindDtaseg,_				' Location of WindowBuffer
		WriteBytes,_				' Number of Bytes Written By Mh Routine
		Yes,_					' Numeric Yes
		Yess$,_					' Literal "Yes"
		Zeroo$,_					' Literal "0"
		ZeroLine AS STRING*80		' Line of ASCII Zeros
	'========================================================================
	'==========================  End of INCLUDE (CAL1.BI)  ==================
	'========================================================================