Liren Large Software Subsidy 18/18.iso/w/w380/3.ddi/STYMACR2.CMZ/AUTOCAL.SMM

INI File | 1992-06-11 | 27.0 KB | 2,034 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    HP LaserJet IIISi
[port]
    LPT2:
[lang]
    1
[desc]
    Accessed from a power field in _calmon.sty to automate monthly calendars.




    708329117
    123
    677005541
    71584087
    7
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    3
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        TimesNewRomanPS
        200
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Function
    3
    [fnt]
        TimesNewRomanPS
        200
        0
        49153
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        244
        1
        0
        0
        1
        100
    [brk]
        68
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Header
    4
    [fnt]
        TimesNewRomanPS
        200
        0
        49153
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Header
    0
    0
[tag]
    Remark
    5
    [fnt]
        TimesNewRomanPS
        200
        255
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Remark
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        4
        1
        720
        1
        1440
        1
        2160
        1
        2880
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
Creator: Powell H. Smith

<:R1,1,3,9270,>Date of Creation: 06/22/91    Release 7M

>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        0
    [txt]
>
[elay]
[l1]
    0
[pg]
    7
    53 0 24 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    107 0 21 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    161 0 44 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    215 0 14 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    269 0 21 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    323 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    334 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#480,9360>'ATTENTION : If you change the name of the calendar style sheet, _calmon.sty, you must change the blue text on this page to the new  name you have chosen.

<:#197,9360><:f160,2Tms Rmn,194,0,0>'WARNING : If you modify the contents in _calmon.sty, this macro may not function properly!<:f>

<:#197,9360><:f160,2Tms Rmn,194,0,0>'WARNING: This macro is for use with "MM/DD/YY" format ONLY!<:f>

<:#240,9360>

<:#240,9360>FUNCTION AutoCal()

<:#240,9360>SingleStep(0)

@Remark@<:#240,9360>'Declaration of Variables

<:#240,9360>DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>

<:#240,9360>DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>

<:#240,9360>DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>

<:#240,9360>DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>

<:#240,9360>DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>

<:#240,9360>DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>

<:#240,9360>DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>

<:#240,9360>DEFSTR ChkLen  <:f160,2Tms Rmn,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.<:f>

<:#240,9360>DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>

<:#240,9360>DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>

<:#240,9360>DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>'This contains the number of MDI windows open when starting macro.

@Remark@<:#240,9360>'Declaration of Functions.

<:#240,9360>DECLARE BuildDate(M,Y,N)

<:#240,9360>DECLARE FillCalendar(F,L)

<:#240,9360>DECLARE CheckLeap(M,Y,N)

<:#240,9360>DECLARE AdjustTable()

<:#240,9360>SingleStep(0)

<:#240,9360>NW=IsNewWave()

<:#240,9360>IF NW = 0

<:#240,9360>    <:f200,2TimesNewRomanPS,255,0,0>'Check for no windows open.<:f>

<:#240,9360>    TotalWindows = GetOpenfileCount()

<:#240,9360>    IF TotalWindows = 0

<:#240,9360>        Message("Click on File/New and choose _calmon.sty with contents to run this macro.")

<:#240,9360>        EXIT FUNCTION

<:#240,9360>    ENDIF

@Remark@<:#240,9360>    'Check for error in running macro.

<:#240,9360>    CurDocName = GetDocInfo$(1)

<:#240,9360>    CurStyleSheet = GetDocInfo$(3)

<:#240,9360>    IF CurDocName <<<;> "(Untitled)" OR CurStyleSheet <<<;> "<:f160,2Tms Rmn,0,0,255>_CALMON.STY<:f>"

<:#240,9360>        Message("Click on File/New and choose _calmon.sty with contents to run this macro.")

<:#240,9360>        EXIT FUNCTION

<:#240,9360>    ENDIF

<:#240,9360>ENDIF

@Remark@<:#240,9360>'Fill Edit boxes with current Month and Year.

<:#240,9360>FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." "))

<:#240,9360>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." "))

<:#240,9360>FillEdit(9500,"January")

<:#240,9360>FillEdit(9500,"February")

<:#240,9360>FillEdit(9500,"March")

<:#240,9360>FillEdit(9500,"April")

<:#240,9360>FillEdit(9500,"May")

<:#240,9360>FillEdit(9500,"June")

<:#240,9360>FillEdit(9500,"July")

<:#240,9360>FillEdit(9500,"August")

<:#240,9360>FillEdit(9500,"September")

<:#240,9360>FillEdit(9500,"October")

<:#240,9360>FillEdit(9500,"November")

<:#240,9360>FillEdit(9500,"December")

<:#240,9360>FillEdit(9501,"1980")

<:#240,9360>FillEdit(9501,"1981")

<:#240,9360>FillEdit(9501,"1982")

<:#240,9360>FillEdit(9501,"1983")

<:#240,9360>FillEdit(9501,"1984")

<:#240,9360>FillEdit(9501,"1985")

<:#240,9360>FillEdit(9501,"1986")

<:#240,9360>FillEdit(9501,"1987")

<:#240,9360>FillEdit(9501,"1988")

<:#240,9360>FillEdit(9501,"1989")

<:#240,9360>FillEdit(9501,"1990")

<:#240,9360>FillEdit(9501,"1991")

<:#240,9360>FillEdit(9501,"1992")

<:#240,9360>FillEdit(9501,"1993")

<:#240,9360>FillEdit(9501,"1994")

<:#240,9360>FillEdit(9501,"1995")

<:#240,9360>FillEdit(9501,"1996")

<:#240,9360>FillEdit(9501,"1997")

<:#240,9360>FillEdit(9501,"1998")

<:#240,9360>FillEdit(9501,"1999")

<:#240,9360>LayoutMode()

<:#240,9360>FullPageView()

<:#240,9360>TryAgain:

@Remark@<:#240,9360>'Call Dialog box for data entry and get data from edit boxes.

<:#240,9360>Stat1=DialogBox("." "Heymon")

<:#240,9360>Month1=GetDialogField$(9500)

<:#240,9360>Year1=GetDialogField$(9501)

@Remark@<:#240,9360>'Check for Cancel.

<:#240,9360>IF Stat1=0

<:#240,9360>    EXIT FUNCTION

<:#240,9360>ENDIF

@Remark@<:#240,9360>'Check for error in entry.

<:#240,9360>IF Year1 << 1980 OR Year1 <;> 1999

<:#240,9360>    Message("Year must be in the range 1980 to 1999.")

<:#240,9360>    FillEdit(9500,Month1)

<:#240,9360>    FillEdit(9501,Year1)

<:#240,9360>    GOTO TryAgain

<:#240,9360>ENDIF

<:#240,9360>ChkLen = LEN(Year1)

<:#240,9360>IF ChkLen<<<;>4

<:#240,9360>    Message("Year must be in the format, YYYY (Ex. '1991')")

<:#240,9360>    FillEdit(9500,Month1)

<:#240,9360>    FillEdit(9501,Year1)

<:#240,9360>    GOTO TryAgain

<:#240,9360>'ELSEIF Year1<<1980 OR Year1<;>1999

<:#240,9360>    Message("Year must be in a range from 1980 to 1999.")

<:#240,9360>    FillEdit(9500,Month1)

<:#240,9360>    FillEdit(9501,Year1)

<:#240,9360>    GOTO TryAgain

<:#240,9360>ENDIF

@Remark@<:#240,9360>'Convert month to lower case and process.

<:#240,9360>LMonth=LCase$(Month1)

<:#240,9360>IF LMonth= "january"

<:#240,9360>    NMonth="01/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "february"

<:#240,9360>    NMonth="02/01/"

<:#240,9360>    LastDay=CheckLeap(Month1,Year1,NMonth)

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "march"

<:#240,9360>    NMonth="03/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "april"

<:#240,9360>    NMonth="04/01/"

<:#240,9360>    LastDay=30

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "may"

<:#240,9360>    NMonth="05/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "june"

<:#240,9360>    NMonth="06/01/"

<:#240,9360>    LastDay=30

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "july"

<:#240,9360>    NMonth="07/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "august"

<:#240,9360>    NMonth="08/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "september"

<:#240,9360>    NMonth="09/01/"

<:#240,9360>    LastDay=30

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "october"

<:#240,9360>    NMonth="10/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "november"

<:#240,9360>    NMonth="11/01/"

<:#240,9360>    LastDay=30

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>ELSEIF LMonth= "december"

<:#240,9360>    NMonth="12/01/"

<:#240,9360>    LastDay=31

<:#240,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)

<:#240,9360>    FillCalendar(FirstDayWeek,LastDay)

@Remark@<:#240,9360>'Check for error in Month entry

<:#240,9360>ELSE

<:#240,9360>    Message ("This is not a valid month.  Please try again.")

<:#240,9360>    FillEdit(9500,Month1)

<:#240,9360>    FillEdit(9501,Year1)

<:#240,9360>    GOTO TryAgain

<:#240,9360>ENDIF

<:#240,9360>

<:#240,9360>END FUNCTION

<:#240,9360>

<:#240,9360>Function BuildDate(Month1,Year1,NMonth)

<:#240,9360>DEFSTR CDate

<:#240,9360>DEFSTR NDate

<:#240,9360>DEFSTR NDays

<:#240,9360>DEFSTR WDate

<:#240,9360>DEFSTR DateRef

<:#240,9360>DEFSTR TYear

@Remark@<:#240,9360>'Extract last two digits of date for processing.

<:#240,9360>TYear=Mid$(Year1,3,2)

<:#240,9360>CDate=StrCat$(NMonth,TYear)

<:#240,9360>DateRef="01/01/90"

<:#240,9360>NDays=DateDiff(CDate,DateRef)

<:#240,9360>NDate=NDays*86400+631224000

<:#240,9360>WDate=FormatDate$(NDate,"f")

<:#240,9360>BuildDate=StrField$(WDate,1," ")

<:#240,9360>Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}")

<:#240,9360>END FUNCTION

<:#240,9360>

<:#240,9360>FUNCTION FillCalendar(FirstDayWeek,LastDay)

<:#240,9360>DEFSTR DayNum

<:#240,9360>DEFSTR Column

<:#240,9360>DEFSTR Row

<:#240,9360>DEFSTR Row2

<:#240,9360>DEFSTR Row3

<:#240,9360>DEFSTR R1

<:#240,9360>DEFSTR R2

<:#240,9360>DEFSTR R3

<:#240,9360>DEFSTR R4

<:#240,9360>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )

<:#240,9360>DayNum=1

<:#240,9360>IF FirstDayWeek="Sunday"

<:#240,9360>    FOR R1=1 TO 6

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>    NEXT

<:#240,9360>ELSEIF FirstDayWeek="Monday"

<:#240,9360>    Type("<[>Right]<[>Right]")

<:#240,9360>    FOR R1=1 TO 5

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>    NEXT

<:#240,9360>ELSEIF FirstDayWeek="Tuesday"

<:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")

<:#240,9360>    FOR R2=1 TO 4

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>    NEXT

<:#240,9360>ELSEIF FirstDayWeek="Wednesday"

<:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#240,9360>    FOR R3=1 TO 3

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>    NEXT

<:#240,9360>ELSEIF FirstDayWeek="Thursday"

<:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#240,9360>    FOR R4=1 TO 2

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>    NEXT

<:#240,9360>ELSEIF FirstDayWeek="Friday"

<:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#240,9360>    Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>    DayNum=DayNum + 1

<:#240,9360>ELSEIF FirstDayWeek="Saturday"

<:#240,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")

<:#240,9360>ENDIF

<:#240,9360>Type("{DayNum}<[>Right]<[>Down]<[>Right]")

<:#240,9360>DayNum=DayNum + 1

<:#240,9360>FOR Column=2 <++>to<-+> 5

<:#240,9360>    FOR Row= 1 <++>to<-+> 6

<:#240,9360>        Type("{DayNum}<[>Right]<[>Right]")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>        IF DayNum <;> LastDay

<:#240,9360>            EXIT FUNCTION

<:#240,9360>        ENDIF

<:#240,9360>    NEXT

<:#240,9360>    IF Column=5 AND DayNum<<LastDay

<:#240,9360>        Singlestep(0)

<:#240,9360>        Type("{DayNum}")

<:#240,9360>        DayNum=DayNum + 1

<:#240,9360>        Type("<[>Right]")

<:#240,9360>        AdjustTable()

<:#240,9360>        FOR Row2=1 TO 7

<:#240,9360>            ConnectCells()

<:#240,9360>            FOR Row3=1 TO 2

<:#240,9360>                TurnOn=TopSide

<:#240,9360>                TurnOff=0

<:#240,9360>                StaySame=CellShade + Outline

<:#240,9360>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)

<:#240,9360>                Type("<[>CTRLRight]")

<:#240,9360>            NEXT

<:#240,9360>            Type("<[>CTRLLeft]")

<:#240,9360>            Type("{DayNum}")

<:#240,9360>            DayNum=DayNum + 1

<:#240,9360>            Type("<[>CTRLRight]")

<:#240,9360>            IF DayNum <;> LastDay

<:#240,9360>                BREAK

<:#240,9360>            ENDIF

<:#240,9360>        NEXT

<:#240,9360>    ELSEIF DayNum = LastDay

<:#240,9360>        Type("{DayNum}<[>CtrlHome]")

<:#240,9360>        BREAK

<:#240,9360>    ELSE

<:#240,9360>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")

<:#240,9360>    ENDIF

<:#240,9360>    DayNum=DayNum + 1

<:#240,9360>NEXT

<:#240,9360>END FUNCTION

<:#240,9360>

<:#240,9360>FUNCTION CheckLeap(Month1,Year1,NMonth)

<:#240,9360>DEFSTR CDate

<:#240,9360>DEFSTR NDate

<:#240,9360>DEFSTR NDays

<:#240,9360>DEFSTR WDate

<:#240,9360>DEFSTR DateRef

<:#240,9360>DEFSTR TYear

<:#240,9360>DEFSTR LNDate

<:#240,9360>DEFSTR LeapDate

@Remark@<:#240,9360>'Extract last two digits of date for processing.

<:#240,9360>TYear=Mid$(Year1,3,2)

<:#240,9360>CDate=StrCat$(NMonth,TYear)

<:#240,9360>DateRef="01/01/90"

<:#240,9360>NDays=DateDiff(CDate,DateRef)

<:#240,9360>NDate=NDays*86400+631224000

<:#240,9360>LNDate=NDate +  2419200

<:#240,9360>LeapDate=FormatDate$(LNDate,"a")

<:#240,9360>LeapNum=StrField$(LeapDate,1,"/")

<:#240,9360>IF LeapNum=3

<:#240,9360>    CheckLeap=28

<:#240,9360>ELSE

<:#240,9360>    CheckLeap=29

<:#240,9360>ENDIF

<:#240,9360>END FUNCTION

<:#240,9360>

<:#240,9360>FUNCTION AdjustTable()

<:#240,9360>SizeColumnRow(-32768 -32768 936 -32768  )

<:#240,9360>Type( "<[>Up]" )

<:#240,9360>SizeColumnRow(-32768 -32768 936 -32768  )

<:#240,9360>Type( "<[>Down]" )

<:#240,9360>'ConnectCells( )

<:#240,9360>'Type( "<[>CTRLRight]<[>CTRLRight]" )

<:#240,9360>'ConnectCells( )

<:#240,9360>'Type("<[>CTRLLeft]")

<:#240,9360>'Type("<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]")

<:#240,9360>END FUNCTION

<:#240,9360>

@Remark@<:#240,9360>'Dialog Box Section

<:#240,9360>DIALOG Heymon

<:#240,9360>-2134376448 6 93 58 136 50 "" "" "Monthly Calendar"

<:#240,9360>FONT 8 "Helv"

<:#240,9360>4 6 27 10 1000 1342177280 "static" "Month :" 0

<:#240,9360>8 21 23 10 1001 1342177280 "static" "Year :" 0

<:#240,9360>31 4 52 40 9500 1344339979 "combobox" "" 0

<:#240,9360>31 19 52 40 9501 1344339979 "combobox" "" 0

<:#240,9360>91 3 40 14 1 1342242817 "button" "OK" 0

<:#240,9360>91 19 40 14 2 1342242816 "button" "Cancel" 0

<:#240,9360>END DIALOG

>

[Embedded]
00017966
>
[macsum] 6
AutoCal 0 0 13 4
BuildDate 4864 3 7 177
FillCalendar 5339 2 13 195
CheckLeap 8360 3 10 286
AdjustTable 8981 0 1 311
Heymon 9150 0 -1 324
[macse]
14 AutoCal
0 4 0
17 3
29 1 Month1
17 4
29 2 Year1
17 5
29 3 LMonth
17 6
29 4 NMonth
17 7
29 5 Stat1
17 8
29 6 FirstDayWeek
17 9
29 7 LastDay
17 10
29 8 ChkLen
17 11
29 9 CurStyleSheet
17 12
29 10 CurDocName
17 13
29 11 TotalWindows
17 15
17 16
17 17
17 18
17 19
0 4 0
17 20
29 12 NW
0 1317
13
8 12
17 21
6 12
5 0
18 0
11 00000764
17 23
0 1050
13
8 11
17 24
6 11
5 0
18 0
11 00000532
17 25
0 3 "Click on File/New and choose _calmon.sty with contents to run this macro."
6 0
15
9
17 29
0 279 1
13
8 10
17 30
0 279 3
13
8 9
17 31
6 10
7 "(Untitled)"
18 1
6 9
7 "_CALMON.STY"
18 1
1 2
11 00000764
17 32
0 3 "Click on File/New and choose _calmon.sty with contents to run this macro."
6 0
15
9
17 37
0 772
13
0 770 [X] "c"
13
0 20 [X] 2. " "
13
0 31 9500 [X]
17 38
0 772
13
0 770 [X] "c"
13
0 20 [X] 3. " "
13
0 31 9501 [X]
17 39
0 31 9500 "January"
17 40
0 31 9500 "February"
17 41
0 31 9500 "March"
17 42
0 31 9500 "April"
17 43
0 31 9500 "May"
17 44
0 31 9500 "June"
17 45
0 31 9500 "July"
17 46
0 31 9500 "August"
17 47
0 31 9500 "September"
17 48
0 31 9500 "October"
17 49
0 31 9500 "November"
17 50
0 31 9500 "December"
17 51
0 31 9501 "1980"
17 52
0 31 9501 "1981"
17 53
0 31 9501 "1982"
17 54
0 31 9501 "1983"
17 55
0 31 9501 "1984"
17 56
0 31 9501 "1985"
17 57
0 31 9501 "1986"
17 58
0 31 9501 "1987"
17 59
0 31 9501 "1988"
17 60
0 31 9501 "1989"
17 61
0 31 9501 "1990"
17 62
0 31 9501 "1991"
17 63
0 31 9501 "1992"
17 64
0 31 9501 "1993"
17 65
0 31 9501 "1994"
17 66
0 31 9501 "1995"
17 67
0 31 9501 "1996"
17 68
0 31 9501 "1997"
17 69
0 31 9501 "1998"
17 70
0 31 9501 "1999"
17 71
2 210 1
17 72
2 201 1
17 75
0 26 "." "Heymon"
13
8 5
17 76
0 27 9500
13
8 1
17 77
0 27 9501
13
8 2
17 79
6 5
5 0
18 0
11 00001905
6 0
15
9
17 83
6 2
5 1980
18 5
6 2
5 1999
18 3
1 2
11 00002090
17 84
0 3 "Year must be in the range 1980 to 1999."
17 85
0 31 9500 "{1}"
17 86
0 31 9501 "{2}"
17 87
10 00001768
17 89
0 14 "{2}"
13
8 8
17 90
6 8
5 4
18 1
11 00002407
17 91
0 3 "Year must be in the format, YYYY (Ex. '1991')"
17 92
0 31 9500 "{1}"
17 93
0 31 9501 "{2}"
17 94
10 00001768
17 96
0 3 "Year must be in a range from 1980 to 1999."
17 97
0 31 9500 "{1}"
17 98
0 31 9501 "{2}"
17 99
10 00001768
17 102
0 17 "{1}"
13
8 3
17 103
6 3
7 "january"
18 0
11 00002624
17 104
7 "01/01/"
8 4
17 105
5 31
8 7
17 106
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 107
16 FillCalendar "{6}" "{7}"
10 00004844
17 108
6 3
7 "february"
18 0
11 00002843
17 109
7 "02/01/"
8 4
17 110
16 CheckLeap "{1}" "{2}" "{4}"
13
8 7
17 111
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 112
16 FillCalendar "{6}" "{7}"
10 00004844
17 113
6 3
7 "march"
18 0
11 00003029
17 114
7 "03/01/"
8 4
17 115
5 31
8 7
17 116
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 117
16 FillCalendar "{6}" "{7}"
10 00004844
17 118
6 3
7 "april"
18 0
11 00003215
17 119
7 "04/01/"
8 4
17 120
5 30
8 7
17 121
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 122
16 FillCalendar "{6}" "{7}"
10 00004844
17 123
6 3
7 "may"
18 0
11 00003399
17 124
7 "05/01/"
8 4
17 125
5 31
8 7
17 126
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 127
16 FillCalendar "{6}" "{7}"
10 00004844
17 128
6 3
7 "june"
18 0
11 00003584
17 129
7 "06/01/"
8 4
17 130
5 30
8 7
17 131
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 132
16 FillCalendar "{6}" "{7}"
10 00004844
17 133
6 3
7 "july"
18 0
11 00003769
17 134
7 "07/01/"
8 4
17 135
5 31
8 7
17 136
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 137
16 FillCalendar "{6}" "{7}"
10 00004844
17 138
6 3
7 "august"
18 0
11 00003956
17 139
7 "08/01/"
8 4
17 140
5 31
8 7
17 141
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 142
16 FillCalendar "{6}" "{7}"
10 00004844
17 143
6 3
7 "september"
18 0
11 00004146
17 144
7 "09/01/"
8 4
17 145
5 30
8 7
17 146
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 147
16 FillCalendar "{6}" "{7}"
10 00004844
17 148
6 3
7 "october"
18 0
11 00004334
17 149
7 "10/01/"
8 4
17 150
5 31
8 7
17 151
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 152
16 FillCalendar "{6}" "{7}"
10 00004844
17 153
6 3
7 "november"
18 0
11 00004523
17 154
7 "11/01/"
8 4
17 155
5 30
8 7
17 156
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 157
16 FillCalendar "{6}" "{7}"
10 00004844
17 158
6 3
7 "december"
18 0
11 00004712
17 159
7 "12/01/"
8 4
17 160
5 31
8 7
17 161
16 BuildDate "{1}" "{2}" "{4}"
13
8 6
17 162
16 FillCalendar "{6}" "{7}"
10 00004844
17 165
0 3 "This is not a valid month.  Please try again."
17 166
0 31 9500 "{1}"
17 167
0 31 9501 "{2}"
17 168
10 00001768
6 0
15
17 171
9
14 BuildDate
29 0 Month1
29 1 Year1
29 2 NMonth
29 3 BuildDate
17 1
29 4 CDate
17 2
29 5 NDate
17 3
29 6 NDays
17 4
29 7 WDate
17 5
29 8 DateRef
17 6
29 9 TYear
17 8
0 15 "{1}" 3 2
13
8 9
17 9
0 16 "{2}" "{9}"
13
8 4
17 10
7 "01/01/90"
8 8
17 11
0 769 "{4}" "{8}"
13
8 6
17 12
6 6
5 86400
4 0
5 631224000
3 0
8 5
17 13
0 770 "{5}" "f"
13
8 7
17 14
0 20 "{7}" 1 " "
13
8 3
17 15
0 6 "[16420]{1}[9]{0}[9]{1}"
6 3
15
17 16
9
14 FillCalendar
29 0 FirstDayWeek
29 1 LastDay
29 2 FillCalendar
17 1
29 3 DayNum
17 2
29 4 Column
17 3
29 5 Row
17 4
29 6 Row2
17 5
29 7 Row3
17 6
29 8 R1
17 7
29 9 R2
17 8
29 10 R3
17 9
29 11 R4
17 10
0 6 "[16420][40][40][39]"
17 11
5 1
8 3
17 12
6 0
7 "Sunday"
18 0
11 00000484
5 1
8 8
17 13
5 6
6 8
18 2
12 00000405
10 00000471
5 1
6 8
3 0
8 8
10 00000323
17 14
0 6 "{3}[39][39]"
17 15
6 3
5 1
3 0
8 3
10 00000372
10 00001766
17 17
6 0
7 "Monday"
18 0
11 00000721
17 18
0 6 "[39][39]"
5 1
8 8
17 19
5 5
6 8
18 2
12 00000642
10 00000708
5 1
6 8
3 0
8 8
10 00000560
17 20
0 6 "{3}[39][39]"
17 21
6 3
5 1
3 0
8 3
10 00000609
10 00001766
17 23
6 0
7 "Tuesday"
18 0
11 00000967
17 24
0 6 "[39][39][39][39]"
5 1
8 9
17 25
5 4
6 9
18 2
12 00000888
10 00000954
5 1
6 9
3 0
8 9
10 00000806
17 26
0 6 "{3}[39][39]"
17 27
6 3
5 1
3 0
8 3
10 00000855
10 00001766
17 29
6 0
7 "Wednesday"
18 0
11 00001227
17 30
0 6 "[39][39][39][39][39][39]"
5 1
8 10
17 31
5 3
6 10
18 2
12 00001148
10 00001214
5 1
6 10
3 0
8 10
10 00001063
17 32
0 6 "{3}[39][39]"
17 33
6 3
5 1
3 0
8 3
10 00001113
10 00001766
17 35
6 0
7 "Thursday"
18 0
11 00001494
17 36
0 6 "[39][39][39][39][39][39][39][39]"
5 1
8 11
17 37
5 2
6 11
18 2
12 00001415
10 00001481
5 1
6 11
3 0
8 11
10 00001330
17 38
0 6 "{3}[39][39]"
17 39
6 3
5 1
3 0
8 3
10 00001380
10 00001766
17 41
6 0
7 "Friday"
18 0
11 00001658
17 42
0 6 "[39][39][39][39][39][39][39][39][39][39]"
17 43
0 6 "{3}[39][39]"
17 44
6 3
5 1
3 0
8 3
10 00001766
17 45
6 0
7 "Saturday"
18 0
11 00001766
17 46
0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
17 48
0 6 "{3}[39][40][39]"
17 49
6 3
5 1
3 0
8 3
5 2
8 4
17 50
5 5
6 4
18 2
12 00001915
10 00003002
5 1
6 4
3 0
8 4
10 00001833
5 1
8 5
17 51
5 6
6 5
18 2
12 00002007
10 00002121
5 1
6 5
3 0
8 5
10 00001925
17 52
0 6 "{3}[39][39]"
17 53
6 3
5 1
3 0
8 3
17 54
6 3
6 1
18 3
11 00002108
6 2
15
9
10 00001974
17 58
6 4
5 5
18 0
6 3
6 1
18 5
1 1
11 00002838
17 59
0 4 0
17 60
0 6 "{3}"
17 61
6 3
5 1
3 0
8 3
17 62
0 6 "[39]"
17 63
16 AdjustTable
5 1
8 6
17 64
5 7
6 6
18 2
12 00002371
10 00002825
5 1
6 6
3 0
8 6
10 00002289
17 65
2 635 1
5 1
8 7
17 66
5 2
6 7
18 2
12 00002479
10 00002667
5 1
6 7
3 0
8 7
10 00002397
17 67
29 12 TurnOn
5 16
8 12
17 68
29 13 TurnOff
5 0
8 13
17 69
29 14 StaySame
5 64
5 2
3 0
8 14
17 70
2 632 1 "{12}" "{13}" "{14}" 1 64
17 71
0 6 "[16423]"
10 00002446
17 73
0 6 "[16421]"
17 74
0 6 "{3}"
17 75
6 3
5 1
3 0
8 3
17 76
0 6 "[16423]"
17 77
6 3
6 1
18 3
11 00002812
17 78
10 00002825
10 00002338
10 00002962
17 81
6 3
6 1
18 0
11 00002932
17 82
0 6 "{3}[16420]"
17 83
10 00003002
10 00002962
17 85
0 6 "{3}[39][40][39]"
17 87
6 3
5 1
3 0
8 3
10 00001882
6 2
15
17 89
9
14 CheckLeap
29 0 Month1
29 1 Year1
29 2 NMonth
29 3 CheckLeap
17 1
29 4 CDate
17 2
29 5 NDate
17 3
29 6 NDays
17 4
29 7 WDate
17 5
29 8 DateRef
17 6
29 9 TYear
17 7
29 10 LNDate
17 8
29 11 LeapDate
17 10
0 15 "{1}" 3 2
13
8 9
17 11
0 16 "{2}" "{9}"
13
8 4
17 12
7 "01/01/90"
8 8
17 13
0 769 "{4}" "{8}"
13
8 6
17 14
6 6
5 86400
4 0
5 631224000
3 0
8 5
17 15
6 5
5 2419200
3 0
8 10
17 16
0 770 "{10}" "a"
13
8 11
17 17
29 12 LeapNum
0 20 "{11}" 1 "/"
13
8 12
17 18
6 12
5 3
18 0
11 00000584
17 19
5 28
8 3
10 00000602
17 21
5 29
8 3
6 3
15
17 23
9
14 AdjustTable
29 0 AdjustTable
17 1
2 634 1 -32768 -32768 936 -32768
17 2
0 6 "[38]"
17 3
2 634 1 -32768 -32768 936 -32768
17 4
0 6 "[40]"
6 0
15
17 10
9
DIALOG Heymon
-2134376448 6 93 58 136 50 "" "" "Monthly Calendar"
FONT 8 "Helv"
4 6 27 10 1000 1342177280 "static" "Month :" 0
8 21 23 10 1001 1342177280 "static" "Year :" 0
31 4 52 40 9500 1344339979 "combobox" "" 0
31 19 52 40 9501 1344339979 "combobox" "" 0
91 3 40 14 1 1342242817 "button" "OK" 0
91 19 40 14 2 1342242816 "button" "Cancel" 0
00017991