home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR2 / CALPOR.ZIP / AUTOCAL2.SMM < prev   
INI File  |  1991-11-19  |  24KB  |  2,042 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     This macro is accessed from a power field in ~cal-mon2.sty to automate processing monthly calendars in portrait. 
  17.     
  18.     
  19.     
  20.     
  21.     690621446
  22.     87
  23.     677005541
  24.     71583984
  25.     7
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [tag]
  50.     Body Text
  51.     2
  52.     [fnt]
  53.         TimesNewRomanPS
  54.         200
  55.         0
  56.         49152
  57.     [algn]
  58.         1
  59.         1
  60.         0
  61.         0
  62.         0
  63.     [spc]
  64.         33
  65.         273
  66.         1
  67.         0
  68.         0
  69.         1
  70.         100
  71.     [brk]
  72.         4
  73.     [line]
  74.         8
  75.         0
  76.         1
  77.         0
  78.         1
  79.         1
  80.         1
  81.         10
  82.         10
  83.         1
  84.     [spec]
  85.         0
  86.         0
  87.         
  88.         0
  89.         1
  90.         1
  91.         0
  92.         0
  93.         0
  94.         0
  95.     [nfmt]
  96.         272
  97.         1
  98.         3
  99.         .
  100.         ,
  101.         $
  102.     Body Text
  103.     0
  104.     0
  105. [tag]
  106.     Function
  107.     3
  108.     [fnt]
  109.         TimesNewRomanPS
  110.         200
  111.         0
  112.         49153
  113.     [algn]
  114.         1
  115.         1
  116.         0
  117.         0
  118.         0
  119.     [spc]
  120.         33
  121.         244
  122.         1
  123.         0
  124.         0
  125.         1
  126.         100
  127.     [brk]
  128.         68
  129.     [line]
  130.         8
  131.         0
  132.         1
  133.         0
  134.         1
  135.         1
  136.         1
  137.         10
  138.         10
  139.         1
  140.     [spec]
  141.         0
  142.         0
  143.         
  144.         0
  145.         1
  146.         1
  147.         0
  148.         0
  149.         0
  150.         0
  151.     [nfmt]
  152.         272
  153.         1
  154.         3
  155.         .
  156.         ,
  157.         $
  158.     Body Text
  159.     0
  160.     0
  161. [tag]
  162.     Header
  163.     4
  164.     [fnt]
  165.         TimesNewRomanPS
  166.         200
  167.         0
  168.         49153
  169.     [algn]
  170.         4
  171.         1
  172.         0
  173.         0
  174.         0
  175.     [spc]
  176.         33
  177.         273
  178.         1
  179.         0
  180.         0
  181.         1
  182.         100
  183.     [brk]
  184.         4
  185.     [line]
  186.         8
  187.         0
  188.         1
  189.         0
  190.         1
  191.         1
  192.         1
  193.         10
  194.         10
  195.         1
  196.     [spec]
  197.         0
  198.         0
  199.         
  200.         0
  201.         1
  202.         1
  203.         0
  204.         0
  205.         0
  206.         0
  207.     [nfmt]
  208.         272
  209.         1
  210.         3
  211.         .
  212.         ,
  213.         $
  214.     Header
  215.     0
  216.     0
  217. [tag]
  218.     Remark
  219.     5
  220.     [fnt]
  221.         TimesNewRomanPS
  222.         200
  223.         255
  224.         49152
  225.     [algn]
  226.         1
  227.         1
  228.         0
  229.         0
  230.         0
  231.     [spc]
  232.         33
  233.         273
  234.         1
  235.         0
  236.         0
  237.         1
  238.         100
  239.     [brk]
  240.         4
  241.     [line]
  242.         8
  243.         0
  244.         1
  245.         0
  246.         1
  247.         1
  248.         1
  249.         10
  250.         10
  251.         1
  252.     [spec]
  253.         0
  254.         0
  255.         
  256.         0
  257.         1
  258.         1
  259.         0
  260.         0
  261.         0
  262.         0
  263.     [nfmt]
  264.         272
  265.         1
  266.         3
  267.         .
  268.         ,
  269.         $
  270.     Remark
  271.     0
  272.     0
  273. [lay]
  274.     Standard
  275.     513
  276.     [rght]
  277.         15840
  278.         12240
  279.         1
  280.         1440
  281.         1440
  282.         1
  283.         1440
  284.         1440
  285.         0
  286.         1
  287.         0
  288.         1
  289.         0
  290.         2
  291.         1
  292.         1440
  293.         10800
  294.         4
  295.         1
  296.         720
  297.         1
  298.         1440
  299.         1
  300.         2160
  301.         1
  302.         2880
  303.     [hrght]
  304.     [lyfrm]
  305.         1
  306.         11200
  307.         0
  308.         0
  309.         12240
  310.         1440
  311.         0
  312.         1
  313.         3
  314.         1 0 0 0 0 0 0
  315.         0
  316.         0
  317.         1
  318.     [frmlay]
  319.         1440
  320.         12240
  321.         1
  322.         1440
  323.         72
  324.         1
  325.         792
  326.         1440
  327.         0
  328.         1
  329.         0
  330.         1
  331.         1
  332.         0
  333.         1
  334.         1440
  335.         10800
  336.         0
  337.     [txt]
  338. Creator: Powell H. Smith.  Adapted to Portrait by GBD  (Page <:P11,1,> of 6)
  339.  
  340. Date of Creation: 06/22/91 (for full details see Autocal.smm)
  341.  
  342. >
  343.     [frght]
  344.     [lyfrm]
  345.         1
  346.         13248
  347.         0
  348.         14400
  349.         12240
  350.         15840
  351.         0
  352.         1
  353.         3
  354.         1 0 0 0 0 0 0
  355.         0
  356.         0
  357.         2
  358.     [frmlay]
  359.         15840
  360.         12240
  361.         1
  362.         1440
  363.         792
  364.         1
  365.         14472
  366.         1440
  367.         0
  368.         1
  369.         0
  370.         1
  371.         1
  372.         0
  373.         1
  374.         1440
  375.         10800
  376.         0
  377.     [txt]
  378. >
  379. [elay]
  380. [l1]
  381.     0
  382. [pg]
  383.     7
  384.     53 0 21 4 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  385.     107 0 35 4 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  386.     161 0 44 4 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  387.     215 0 37 4 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  388.     269 0 28 4 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  389.     323 0 0 4 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  390.     334 0 10 1029 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  391. [edoc]
  392. 'ATTENTION : If you change the name of the calendar style sheet, ~calmon2.sty, you must change the blue text on this page to the new  name you have chosen. 
  393.  
  394. <:f160,2Tms Rmn,194,0,0>'WARNING : If you modify the contents in ~calmon2.sty, this macro may not function properly!<:f>
  395.  
  396.  
  397. FUNCTION AutoCal()
  398.  
  399. SingleStep(0)
  400.  
  401. @Remark@'Declaration of Variables
  402.  
  403. DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>
  404.  
  405. DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>
  406.  
  407. DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>
  408.  
  409. DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>
  410.  
  411. DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>
  412.  
  413. DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>
  414.  
  415. DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>
  416.  
  417. 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>
  418.  
  419. DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>
  420.  
  421. DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>
  422.  
  423. DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>This contains the number of MDI windows open when starting macro.
  424.  
  425. @Remark@'Declaration of Functions.
  426.  
  427. DECLARE BuildDate(M,Y,N)
  428.  
  429. DECLARE FillCalendar(F,L)
  430.  
  431. DECLARE CheckLeap(M,Y,N)
  432.  
  433. DECLARE AdjustTable()
  434.  
  435. @Remark@<:f200,2TimesNewRomanPS,255,0,0>'Check for no windows open.<:f>
  436.  
  437. TotalWindows = GetOpenfileCount()
  438.  
  439. IF TotalWindows = 0
  440.  
  441.     Message("This style will change your View to Full Page. To see how it works see Autocal.smm.")  
  442.  
  443.     EXIT FUNCTION
  444.  
  445. ENDIF
  446.  
  447. @Remark@'Check for error in running macro.
  448.  
  449. CurDocName = GetDocInfo$(1)
  450.  
  451. CurStyleSheet = GetDocInfo$(3)
  452.  
  453. IF CurDocName <<<;> "(Untitled)" OR CurStyleSheet <<<;> "<:f160,2Tms Rmn,0,0,255>~calmon2.sty<:f>"
  454.  
  455.     Message("This style will change your View to Full Page. To see how it works see Autocal.smm.")  
  456.  
  457.     EXIT FUNCTION
  458.  
  459. ENDIF
  460.  
  461. @Remark@'Fill Edit boxes with current Month and Year.
  462.  
  463. FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." "))
  464.  
  465. FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." "))
  466.  
  467. FillEdit(9500,"January")
  468.  
  469. FillEdit(9500,"February")
  470.  
  471. FillEdit(9500,"March")
  472.  
  473. FillEdit(9500,"April")
  474.  
  475. FillEdit(9500,"May")
  476.  
  477. FillEdit(9500,"June")
  478.  
  479. FillEdit(9500,"July")
  480.  
  481. FillEdit(9500,"August")
  482.  
  483. FillEdit(9500,"September")
  484.  
  485. FillEdit(9500,"October")
  486.  
  487. FillEdit(9500,"November")
  488.  
  489. FillEdit(9500,"December")
  490.  
  491. FillEdit(9501,"1980")
  492.  
  493. FillEdit(9501,"1981")
  494.  
  495. FillEdit(9501,"1982")
  496.  
  497. FillEdit(9501,"1983")
  498.  
  499. FillEdit(9501,"1984")
  500.  
  501. FillEdit(9501,"1985")
  502.  
  503. FillEdit(9501,"1986")
  504.  
  505. FillEdit(9501,"1987")
  506.  
  507. FillEdit(9501,"1988")
  508.  
  509. FillEdit(9501,"1989")
  510.  
  511. FillEdit(9501,"1990")
  512.  
  513. FillEdit(9501,"1991")
  514.  
  515. FillEdit(9501,"1992")
  516.  
  517. FillEdit(9501,"1993")
  518.  
  519. FillEdit(9501,"1994")
  520.  
  521. FillEdit(9501,"1995")
  522.  
  523. FillEdit(9501,"1996")
  524.  
  525. FillEdit(9501,"1997")
  526.  
  527. FillEdit(9501,"1998")
  528.  
  529. FillEdit(9501,"1999")
  530.  
  531. LayoutMode()
  532.  
  533. FullPageView()
  534.  
  535. TryAgain:
  536.  
  537. @Remark@'Call Dialog box for data entry and get data from edit boxes.
  538.  
  539. Stat1=DialogBox("." "Heymon")
  540.  
  541. Month1=GetDialogField$(9500)
  542.  
  543. Year1=GetDialogField$(9501)
  544.  
  545. @Remark@'Check for Cancel.
  546.  
  547. IF Stat1=0
  548.  
  549.     EXIT FUNCTION
  550.  
  551. ENDIF
  552.  
  553. @Remark@'Check for error in entry.
  554.  
  555. IF Year1 << 1980 OR Year1 <;> 1999
  556.  
  557.     Message("Year must be in the range 1980 to 1999.")
  558.  
  559.     FillEdit(9500,Month1)
  560.  
  561.     FillEdit(9501,Year1)
  562.  
  563.     GOTO TryAgain
  564.  
  565. ENDIF
  566.  
  567. ChkLen = LEN(Year1)
  568.  
  569. IF ChkLen<<<;>4
  570.  
  571.     Message("Year must be in the format, YYYY (Ex. '1991')")
  572.  
  573.     FillEdit(9500,Month1)
  574.  
  575.     FillEdit(9501,Year1)
  576.  
  577.     GOTO TryAgain
  578.  
  579. 'ELSEIF Year1<<1980 OR Year1<;>1999
  580.  
  581.     Message("Year must be in a range from 1980 to 1999.")
  582.  
  583.     FillEdit(9500,Month1)
  584.  
  585.     FillEdit(9501,Year1)
  586.  
  587.     GOTO TryAgain
  588.  
  589. ENDIF
  590.  
  591. @Remark@'Convert month to lower case and process.
  592.  
  593. LMonth=LCase$(Month1)
  594.  
  595. IF LMonth= "january" 
  596.  
  597.     NMonth="01/01/"
  598.  
  599.     LastDay=31
  600.  
  601.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  602.  
  603.     FillCalendar(FirstDayWeek,LastDay)
  604.  
  605. ELSEIF LMonth= "february"  
  606.  
  607.     NMonth="02/01/"
  608.  
  609.     LastDay=CheckLeap(Month1,Year1,NMonth)
  610.  
  611.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  612.  
  613.     FillCalendar(FirstDayWeek,LastDay)
  614.  
  615. ELSEIF LMonth= "march"
  616.  
  617.     NMonth="03/01/"
  618.  
  619.     LastDay=31
  620.  
  621.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  622.  
  623.     FillCalendar(FirstDayWeek,LastDay)
  624.  
  625. ELSEIF LMonth= "april"  
  626.  
  627.     NMonth="04/01/"
  628.  
  629.     LastDay=30
  630.  
  631.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  632.  
  633.     FillCalendar(FirstDayWeek,LastDay)
  634.  
  635. ELSEIF LMonth= "may"  
  636.  
  637.     NMonth="05/01/"
  638.  
  639.     LastDay=31
  640.  
  641.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  642.  
  643.     FillCalendar(FirstDayWeek,LastDay)
  644.  
  645. ELSEIF LMonth= "june"  
  646.  
  647.     NMonth="06/01/"
  648.  
  649.     LastDay=30
  650.  
  651.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  652.  
  653.     FillCalendar(FirstDayWeek,LastDay)
  654.  
  655. ELSEIF LMonth= "july"
  656.  
  657.     NMonth="07/01/"
  658.  
  659.     LastDay=31
  660.  
  661.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  662.  
  663.     FillCalendar(FirstDayWeek,LastDay)
  664.  
  665. ELSEIF LMonth= "august"  
  666.  
  667.     NMonth="08/01/"
  668.  
  669.     LastDay=31
  670.  
  671.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  672.  
  673.     FillCalendar(FirstDayWeek,LastDay)
  674.  
  675. ELSEIF LMonth= "september"  
  676.  
  677.     NMonth="09/01/"
  678.  
  679.     LastDay=30
  680.  
  681.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  682.  
  683.     FillCalendar(FirstDayWeek,LastDay)
  684.  
  685. ELSEIF LMonth= "october"  
  686.  
  687.     NMonth="10/01/"
  688.  
  689.     LastDay=31
  690.  
  691.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  692.  
  693.     FillCalendar(FirstDayWeek,LastDay)
  694.  
  695. ELSEIF LMonth= "november"  
  696.  
  697.     NMonth="11/01/"
  698.  
  699.     LastDay=30
  700.  
  701.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  702.  
  703.     FillCalendar(FirstDayWeek,LastDay)
  704.  
  705. ELSEIF LMonth= "december"  
  706.  
  707.     NMonth="12/01/"
  708.  
  709.     LastDay=31
  710.  
  711.     FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  712.  
  713.     FillCalendar(FirstDayWeek,LastDay)
  714.  
  715. @Remark@'Check for error in Month entry
  716.  
  717. ELSE 
  718.  
  719.     Message ("This is not a valid month.  Please try again.")
  720.  
  721.     FillEdit(9500,Month1)
  722.  
  723.     FillEdit(9501,Year1)
  724.  
  725.     GOTO TryAgain
  726.  
  727. ENDIF
  728.  
  729.  
  730. END FUNCTION
  731.  
  732.  
  733. Function BuildDate(Month1,Year1,NMonth)
  734.  
  735. DEFSTR CDate
  736.  
  737. DEFSTR NDate
  738.  
  739. DEFSTR NDays
  740.  
  741. DEFSTR WDate
  742.  
  743. DEFSTR DateRef
  744.  
  745. DEFSTR TYear
  746.  
  747. @Remark@'Extract last two digits of date for processing.
  748.  
  749. TYear=Mid$(Year1,3,2)
  750.  
  751. CDate=StrCat$(NMonth,TYear) 
  752.  
  753. DateRef="01/01/90"
  754.  
  755. NDays=DateDiff(CDate,DateRef)
  756.  
  757. NDate=NDays*86400+631224000
  758.  
  759. WDate=FormatDate$(NDate,"f")
  760.  
  761. BuildDate=StrField$(WDate,1," ")
  762.  
  763. Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}")
  764.  
  765. END FUNCTION
  766.  
  767.  
  768. FUNCTION FillCalendar(FirstDayWeek,LastDay)
  769.  
  770. DEFSTR DayNum
  771.  
  772. DEFSTR Column
  773.  
  774. DEFSTR Row
  775.  
  776. DEFSTR Row2
  777.  
  778. DEFSTR Row3
  779.  
  780. DEFSTR R1
  781.  
  782. DEFSTR R2
  783.  
  784. DEFSTR R3
  785.  
  786. DEFSTR R4
  787.  
  788. Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )
  789.  
  790. DayNum=1
  791.  
  792. IF FirstDayWeek="Sunday"
  793.  
  794.     FOR R1=1 TO 6
  795.  
  796.         Type("{DayNum}<[>Right]<[>Right]")
  797.  
  798.         DayNum=DayNum + 1
  799.  
  800.     NEXT
  801.  
  802. ELSEIF FirstDayWeek="Monday"
  803.  
  804.     Type("<[>Right]<[>Right]")
  805.  
  806.     FOR R1=1 TO 5
  807.  
  808.         Type("{DayNum}<[>Right]<[>Right]")
  809.  
  810.         DayNum=DayNum + 1
  811.  
  812.     NEXT
  813.  
  814. ELSEIF FirstDayWeek="Tuesday"
  815.  
  816.     Type("<[>Right]<[>Right]<[>Right]<[>Right]")
  817.  
  818.     FOR R2=1 TO 4
  819.  
  820.         Type("{DayNum}<[>Right]<[>Right]")
  821.  
  822.         DayNum=DayNum + 1
  823.  
  824.     NEXT
  825.  
  826. ELSEIF FirstDayWeek="Wednesday"
  827.  
  828.     Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  829.  
  830.     FOR R3=1 TO 3
  831.  
  832.         Type("{DayNum}<[>Right]<[>Right]")
  833.  
  834.         DayNum=DayNum + 1
  835.  
  836.     NEXT
  837.  
  838. ELSEIF FirstDayWeek="Thursday"
  839.  
  840.     Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  841.  
  842.     FOR R4=1 TO 2
  843.  
  844.         Type("{DayNum}<[>Right]<[>Right]")
  845.  
  846.         DayNum=DayNum + 1
  847.  
  848.     NEXT
  849.  
  850. ELSEIF FirstDayWeek="Friday"
  851.  
  852.     Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  853.  
  854.     Type("{DayNum}<[>Right]<[>Right]")
  855.  
  856.     DayNum=DayNum + 1
  857.  
  858. ELSEIF FirstDayWeek="Saturday"
  859.  
  860.     Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  861.  
  862. ENDIF
  863.  
  864. Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  865.  
  866. DayNum=DayNum + 1
  867.  
  868. FOR Column=2 <++>to<-+> 5
  869.  
  870.     FOR Row= 1 <++>to<-+> 6
  871.  
  872.         Type("{DayNum}<[>Right]<[>Right]")
  873.  
  874.         DayNum=DayNum + 1
  875.  
  876.         IF DayNum <;> LastDay
  877.  
  878.             EXIT FUNCTION
  879.  
  880.         ENDIF
  881.  
  882.     NEXT 
  883.  
  884.     IF Column=5 AND DayNum<<LastDay
  885.  
  886.         Type("{DayNum}")
  887.  
  888.         DayNum=DayNum + 1
  889.  
  890.         Type("<[>Right]")
  891.  
  892.         AdjustTable()
  893.  
  894.         FOR Row2=1 TO 7
  895.  
  896.             FOR Row3=1 TO 2
  897.  
  898.                 Type("<[>Right]")
  899.  
  900.                 TurnOn=TopSide
  901.  
  902.                 TurnOff=0
  903.  
  904.                 StaySame=CellShade + Outline
  905.  
  906.                 TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)
  907.  
  908.             NEXT
  909.  
  910.             Type("{DayNum}")
  911.  
  912.             DayNum=DayNum + 1
  913.  
  914.             IF DayNum <;>= LastDay
  915.  
  916.                 BREAK
  917.  
  918.             ENDIF
  919.  
  920.         NEXT
  921.  
  922.     ELSEIF DayNum = LastDay
  923.  
  924.         Type("{DayNum}<[>CtrlHome]")
  925.  
  926.         BREAK
  927.  
  928.     ELSE
  929.  
  930.         Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  931.  
  932.     ENDIF
  933.  
  934.     DayNum=DayNum + 1
  935.  
  936. NEXT
  937.  
  938. END FUNCTION
  939.  
  940.  
  941. FUNCTION CheckLeap(Month1,Year1,NMonth)
  942.  
  943. DEFSTR CDate
  944.  
  945. DEFSTR NDate
  946.  
  947. DEFSTR NDays
  948.  
  949. DEFSTR WDate
  950.  
  951. DEFSTR DateRef
  952.  
  953. DEFSTR TYear
  954.  
  955. DEFSTR LNDate
  956.  
  957. DEFSTR LeapDate
  958.  
  959. @Remark@'Extract last two digits of date for processing.
  960.  
  961. TYear=Mid$(Year1,3,2)
  962.  
  963. CDate=StrCat$(NMonth,TYear) 
  964.  
  965. DateRef="01/01/90"
  966.  
  967. NDays=DateDiff(CDate,DateRef)
  968.  
  969. NDate=NDays*86400+631224000
  970.  
  971. LNDate=NDate +  2419200
  972.  
  973. LeapDate=FormatDate$(LNDate,"a")
  974.  
  975. LeapNum=StrField$(LeapDate,1,"/")
  976.  
  977. IF LeapNum=3
  978.  
  979.     CheckLeap=28
  980.  
  981. ELSE 
  982.  
  983.     CheckLeap=29
  984.  
  985. ENDIF
  986.  
  987. END FUNCTION
  988.  
  989.  
  990. FUNCTION AdjustTable()
  991.  
  992. SizeColumnRow(-32768 -32768 936 -32768  )
  993.  
  994. Type( "<[>Up]" )
  995.  
  996. SizeColumnRow(-32768 -32768 936 -32768  )
  997.  
  998. Type( "<[>Down]" )
  999.  
  1000. ConnectCells( )
  1001.  
  1002. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1003.  
  1004. ConnectCells( )
  1005.  
  1006. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1007.  
  1008. ConnectCells( )
  1009.  
  1010. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1011.  
  1012. ConnectCells( )
  1013.  
  1014. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1015.  
  1016. ConnectCells( )
  1017.  
  1018. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1019.  
  1020. ConnectCells( )
  1021.  
  1022. Type( "<[>CTRLRight]<[>CTRLRight]" )
  1023.  
  1024. ConnectCells( )
  1025.  
  1026. Type("<[>CTRLRight]<[>Up]")
  1027.  
  1028. END FUNCTION
  1029.  
  1030.  
  1031. @Remark@'Dialog Box Section
  1032.  
  1033. DIALOG Heymon
  1034.  
  1035. -2134376448 6 93 58 136 50 "" "" "Monthly Calendar"
  1036.  
  1037. FONT 8 "Helv"
  1038.  
  1039. 4 6 27 10 1000 1342177280 "static" "Month :" 0 
  1040.  
  1041. 8 21 23 10 1001 1342177280 "static" "Year :" 0 
  1042.  
  1043. 31 4 52 40 9500 1344339979 "combobox" "" 0 
  1044.  
  1045. 31 19 52 40 9501 1344339979 "combobox" "" 0 
  1046.  
  1047. 91 3 40 14 1 1342242817 "button" "OK" 0 
  1048.  
  1049. 91 19 40 14 2 1342242816 "button" "Cancel" 0 
  1050.  
  1051. END DIALOG
  1052.  
  1053. >
  1054.  
  1055. [Embedded]
  1056. 00014017
  1057. >
  1058. [macsum] 6
  1059. AutoCal 0 0 23 3
  1060. BuildDate 4940 3 7 172
  1061. FillCalendar 5415 2 13 190
  1062. CheckLeap 8359 3 10 277
  1063. AdjustTable 8980 0 1 302
  1064. Heymon 9456 0 -1 324
  1065. [macse]
  1066. 14 AutoCal
  1067. 0 4 0
  1068. 17 3
  1069. 29 1 Month1
  1070. 17 4
  1071. 29 2 Year1
  1072. 17 5
  1073. 29 3 LMonth
  1074. 17 6
  1075. 29 4 NMonth
  1076. 17 7
  1077. 29 5 Stat1
  1078. 17 8
  1079. 29 6 FirstDayWeek
  1080. 17 9
  1081. 29 7 LastDay
  1082. 17 10
  1083. 29 8 ChkLen
  1084. 17 11
  1085. 29 9 CurStyleSheet
  1086. 17 12
  1087. 29 10 CurDocName
  1088. 17 13
  1089. 29 11 TotalWindows
  1090. 29 12 This
  1091. 29 13 contains
  1092. 29 14 the
  1093. 29 15 number
  1094. 29 16 of
  1095. 29 17 MDI
  1096. 29 18 windows
  1097. 29 19 open
  1098. 29 20 when
  1099. 29 21 starting
  1100. 29 22 macro.
  1101. 17 15
  1102. 17 16
  1103. 17 17
  1104. 17 18
  1105. 17 20
  1106. 0 1050
  1107. 13
  1108. 8 11
  1109. 17 21
  1110. 6 11
  1111. 5 0
  1112. 18 0
  1113. 11 00000599
  1114. 17 22
  1115. 0 3 "This style will change your View to Full Page. To see how it works see Autocal.smm."
  1116. 6 0
  1117. 15
  1118. 9
  1119. 17 26
  1120. 0 279 1
  1121. 13
  1122. 8 10
  1123. 17 27
  1124. 0 279 3
  1125. 13
  1126. 8 9
  1127. 17 28
  1128. 6 10
  1129. 7 "(Untitled)"
  1130. 18 1
  1131. 6 9
  1132. 7 "~calmon2.sty"
  1133. 18 1
  1134. 1 2
  1135. 11 00000842
  1136. 17 29
  1137. 0 3 "This style will change your View to Full Page. To see how it works see Autocal.smm."
  1138. 6 0
  1139. 15
  1140. 9
  1141. 17 33
  1142. 0 772
  1143. 13
  1144. 0 770 [X] "c"
  1145. 13
  1146. 0 20 [X] 2. " "
  1147. 13
  1148. 0 31 9500 [X]
  1149. 17 34
  1150. 0 772
  1151. 13
  1152. 0 770 [X] "c"
  1153. 13
  1154. 0 20 [X] 3. " "
  1155. 13
  1156. 0 31 9501 [X]
  1157. 17 35
  1158. 0 31 9500 "January"
  1159. 17 36
  1160. 0 31 9500 "February"
  1161. 17 37
  1162. 0 31 9500 "March"
  1163. 17 38
  1164. 0 31 9500 "April"
  1165. 17 39
  1166. 0 31 9500 "May"
  1167. 17 40
  1168. 0 31 9500 "June"
  1169. 17 41
  1170. 0 31 9500 "July"
  1171. 17 42
  1172. 0 31 9500 "August"
  1173. 17 43
  1174. 0 31 9500 "September"
  1175. 17 44
  1176. 0 31 9500 "October"
  1177. 17 45
  1178. 0 31 9500 "November"
  1179. 17 46
  1180. 0 31 9500 "December"
  1181. 17 47
  1182. 0 31 9501 "1980"
  1183. 17 48
  1184. 0 31 9501 "1981"
  1185. 17 49
  1186. 0 31 9501 "1982"
  1187. 17 50
  1188. 0 31 9501 "1983"
  1189. 17 51
  1190. 0 31 9501 "1984"
  1191. 17 52
  1192. 0 31 9501 "1985"
  1193. 17 53
  1194. 0 31 9501 "1986"
  1195. 17 54
  1196. 0 31 9501 "1987"
  1197. 17 55
  1198. 0 31 9501 "1988"
  1199. 17 56
  1200. 0 31 9501 "1989"
  1201. 17 57
  1202. 0 31 9501 "1990"
  1203. 17 58
  1204. 0 31 9501 "1991"
  1205. 17 59
  1206. 0 31 9501 "1992"
  1207. 17 60
  1208. 0 31 9501 "1993"
  1209. 17 61
  1210. 0 31 9501 "1994"
  1211. 17 62
  1212. 0 31 9501 "1995"
  1213. 17 63
  1214. 0 31 9501 "1996"
  1215. 17 64
  1216. 0 31 9501 "1997"
  1217. 17 65
  1218. 0 31 9501 "1998"
  1219. 17 66
  1220. 0 31 9501 "1999"
  1221. 17 67
  1222. 2 210 1
  1223. 17 68
  1224. 2 201 1
  1225. 17 71
  1226. 0 26 "." "Heymon"
  1227. 13
  1228. 8 5
  1229. 17 72
  1230. 0 27 9500
  1231. 13
  1232. 8 1
  1233. 17 73
  1234. 0 27 9501
  1235. 13
  1236. 8 2
  1237. 17 75
  1238. 6 5
  1239. 5 0
  1240. 18 0
  1241. 11 00001983
  1242. 6 0
  1243. 15
  1244. 9
  1245. 17 79
  1246. 6 2
  1247. 5 1980
  1248. 18 5
  1249. 6 2
  1250. 5 1999
  1251. 18 3
  1252. 1 2
  1253. 11 00002168
  1254. 17 80
  1255. 0 3 "Year must be in the range 1980 to 1999."
  1256. 17 81
  1257. 0 31 9500 "{1}"
  1258. 17 82
  1259. 0 31 9501 "{2}"
  1260. 17 83
  1261. 10 00001846
  1262. 17 85
  1263. 0 14 "{2}"
  1264. 13
  1265. 8 8
  1266. 17 86
  1267. 6 8
  1268. 5 4
  1269. 18 1
  1270. 11 00002485
  1271. 17 87
  1272. 0 3 "Year must be in the format, YYYY (Ex. '1991')"
  1273. 17 88
  1274. 0 31 9500 "{1}"
  1275. 17 89
  1276. 0 31 9501 "{2}"
  1277. 17 90
  1278. 10 00001846
  1279. 17 92
  1280. 0 3 "Year must be in a range from 1980 to 1999."
  1281. 17 93
  1282. 0 31 9500 "{1}"
  1283. 17 94
  1284. 0 31 9501 "{2}"
  1285. 17 95
  1286. 10 00001846
  1287. 17 98
  1288. 0 17 "{1}"
  1289. 13
  1290. 8 3
  1291. 17 99
  1292. 6 3
  1293. 7 "january"
  1294. 18 0
  1295. 11 00002700
  1296. 17 100
  1297. 7 "01/01/"
  1298. 8 4
  1299. 17 101
  1300. 5 31
  1301. 8 7
  1302. 17 102
  1303. 16 BuildDate "{1}" "{2}" "{4}"
  1304. 13
  1305. 8 6
  1306. 17 103
  1307. 16 FillCalendar "{6}" "{7}"
  1308. 10 00004920
  1309. 17 104
  1310. 6 3
  1311. 7 "february"
  1312. 18 0
  1313. 11 00002919
  1314. 17 105
  1315. 7 "02/01/"
  1316. 8 4
  1317. 17 106
  1318. 16 CheckLeap "{1}" "{2}" "{4}"
  1319. 13
  1320. 8 7
  1321. 17 107
  1322. 16 BuildDate "{1}" "{2}" "{4}"
  1323. 13
  1324. 8 6
  1325. 17 108
  1326. 16 FillCalendar "{6}" "{7}"
  1327. 10 00004920
  1328. 17 109
  1329. 6 3
  1330. 7 "march"
  1331. 18 0
  1332. 11 00003105
  1333. 17 110
  1334. 7 "03/01/"
  1335. 8 4
  1336. 17 111
  1337. 5 31
  1338. 8 7
  1339. 17 112
  1340. 16 BuildDate "{1}" "{2}" "{4}"
  1341. 13
  1342. 8 6
  1343. 17 113
  1344. 16 FillCalendar "{6}" "{7}"
  1345. 10 00004920
  1346. 17 114
  1347. 6 3
  1348. 7 "april"
  1349. 18 0
  1350. 11 00003291
  1351. 17 115
  1352. 7 "04/01/"
  1353. 8 4
  1354. 17 116
  1355. 5 30
  1356. 8 7
  1357. 17 117
  1358. 16 BuildDate "{1}" "{2}" "{4}"
  1359. 13
  1360. 8 6
  1361. 17 118
  1362. 16 FillCalendar "{6}" "{7}"
  1363. 10 00004920
  1364. 17 119
  1365. 6 3
  1366. 7 "may"
  1367. 18 0
  1368. 11 00003475
  1369. 17 120
  1370. 7 "05/01/"
  1371. 8 4
  1372. 17 121
  1373. 5 31
  1374. 8 7
  1375. 17 122
  1376. 16 BuildDate "{1}" "{2}" "{4}"
  1377. 13
  1378. 8 6
  1379. 17 123
  1380. 16 FillCalendar "{6}" "{7}"
  1381. 10 00004920
  1382. 17 124
  1383. 6 3
  1384. 7 "june"
  1385. 18 0
  1386. 11 00003660
  1387. 17 125
  1388. 7 "06/01/"
  1389. 8 4
  1390. 17 126
  1391. 5 30
  1392. 8 7
  1393. 17 127
  1394. 16 BuildDate "{1}" "{2}" "{4}"
  1395. 13
  1396. 8 6
  1397. 17 128
  1398. 16 FillCalendar "{6}" "{7}"
  1399. 10 00004920
  1400. 17 129
  1401. 6 3
  1402. 7 "july"
  1403. 18 0
  1404. 11 00003845
  1405. 17 130
  1406. 7 "07/01/"
  1407. 8 4
  1408. 17 131
  1409. 5 31
  1410. 8 7
  1411. 17 132
  1412. 16 BuildDate "{1}" "{2}" "{4}"
  1413. 13
  1414. 8 6
  1415. 17 133
  1416. 16 FillCalendar "{6}" "{7}"
  1417. 10 00004920
  1418. 17 134
  1419. 6 3
  1420. 7 "august"
  1421. 18 0
  1422. 11 00004032
  1423. 17 135
  1424. 7 "08/01/"
  1425. 8 4
  1426. 17 136
  1427. 5 31
  1428. 8 7
  1429. 17 137
  1430. 16 BuildDate "{1}" "{2}" "{4}"
  1431. 13
  1432. 8 6
  1433. 17 138
  1434. 16 FillCalendar "{6}" "{7}"
  1435. 10 00004920
  1436. 17 139
  1437. 6 3
  1438. 7 "september"
  1439. 18 0
  1440. 11 00004222
  1441. 17 140
  1442. 7 "09/01/"
  1443. 8 4
  1444. 17 141
  1445. 5 30
  1446. 8 7
  1447. 17 142
  1448. 16 BuildDate "{1}" "{2}" "{4}"
  1449. 13
  1450. 8 6
  1451. 17 143
  1452. 16 FillCalendar "{6}" "{7}"
  1453. 10 00004920
  1454. 17 144
  1455. 6 3
  1456. 7 "october"
  1457. 18 0
  1458. 11 00004410
  1459. 17 145
  1460. 7 "10/01/"
  1461. 8 4
  1462. 17 146
  1463. 5 31
  1464. 8 7
  1465. 17 147
  1466. 16 BuildDate "{1}" "{2}" "{4}"
  1467. 13
  1468. 8 6
  1469. 17 148
  1470. 16 FillCalendar "{6}" "{7}"
  1471. 10 00004920
  1472. 17 149
  1473. 6 3
  1474. 7 "november"
  1475. 18 0
  1476. 11 00004599
  1477. 17 150
  1478. 7 "11/01/"
  1479. 8 4
  1480. 17 151
  1481. 5 30
  1482. 8 7
  1483. 17 152
  1484. 16 BuildDate "{1}" "{2}" "{4}"
  1485. 13
  1486. 8 6
  1487. 17 153
  1488. 16 FillCalendar "{6}" "{7}"
  1489. 10 00004920
  1490. 17 154
  1491. 6 3
  1492. 7 "december"
  1493. 18 0
  1494. 11 00004788
  1495. 17 155
  1496. 7 "12/01/"
  1497. 8 4
  1498. 17 156
  1499. 5 31
  1500. 8 7
  1501. 17 157
  1502. 16 BuildDate "{1}" "{2}" "{4}"
  1503. 13
  1504. 8 6
  1505. 17 158
  1506. 16 FillCalendar "{6}" "{7}"
  1507. 10 00004920
  1508. 17 161
  1509. 0 3 "This is not a valid month.  Please try again."
  1510. 17 162
  1511. 0 31 9500 "{1}"
  1512. 17 163
  1513. 0 31 9501 "{2}"
  1514. 17 164
  1515. 10 00001846
  1516. 6 0
  1517. 15
  1518. 17 167
  1519. 9
  1520. 14 BuildDate
  1521. 29 0 Month1
  1522. 29 1 Year1
  1523. 29 2 NMonth
  1524. 29 3 BuildDate
  1525. 17 1
  1526. 29 4 CDate
  1527. 17 2
  1528. 29 5 NDate
  1529. 17 3
  1530. 29 6 NDays
  1531. 17 4
  1532. 29 7 WDate
  1533. 17 5
  1534. 29 8 DateRef
  1535. 17 6
  1536. 29 9 TYear
  1537. 17 8
  1538. 0 15 "{1}" 3 2
  1539. 13
  1540. 8 9
  1541. 17 9
  1542. 0 16 "{2}" "{9}"
  1543. 13
  1544. 8 4
  1545. 17 10
  1546. 7 "01/01/90"
  1547. 8 8
  1548. 17 11
  1549. 0 769 "{4}" "{8}"
  1550. 13
  1551. 8 6
  1552. 17 12
  1553. 6 6
  1554. 5 86400
  1555. 4 0
  1556. 5 631224000
  1557. 3 0
  1558. 8 5
  1559. 17 13
  1560. 0 770 "{5}" "f"
  1561. 13
  1562. 8 7
  1563. 17 14
  1564. 0 20 "{7}" 1 " "
  1565. 13
  1566. 8 3
  1567. 17 15
  1568. 0 6 "[16420]{1}[9]{0}[9]{1}"
  1569. 6 3
  1570. 15
  1571. 17 16
  1572. 9
  1573. 14 FillCalendar
  1574. 29 0 FirstDayWeek
  1575. 29 1 LastDay
  1576. 29 2 FillCalendar
  1577. 17 1
  1578. 29 3 DayNum
  1579. 17 2
  1580. 29 4 Column
  1581. 17 3
  1582. 29 5 Row
  1583. 17 4
  1584. 29 6 Row2
  1585. 17 5
  1586. 29 7 Row3
  1587. 17 6
  1588. 29 8 R1
  1589. 17 7
  1590. 29 9 R2
  1591. 17 8
  1592. 29 10 R3
  1593. 17 9
  1594. 29 11 R4
  1595. 17 10
  1596. 0 6 "[16420][40][40][39]"
  1597. 17 11
  1598. 5 1
  1599. 8 3
  1600. 17 12
  1601. 6 0
  1602. 7 "Sunday"
  1603. 18 0
  1604. 11 00000484
  1605. 5 1
  1606. 8 8
  1607. 17 13
  1608. 5 6
  1609. 6 8
  1610. 18 2
  1611. 12 00000405
  1612. 10 00000471
  1613. 5 1
  1614. 6 8
  1615. 3 0
  1616. 8 8
  1617. 10 00000323
  1618. 17 14
  1619. 0 6 "{3}[39][39]"
  1620. 17 15
  1621. 6 3
  1622. 5 1
  1623. 3 0
  1624. 8 3
  1625. 10 00000372
  1626. 10 00001766
  1627. 17 17
  1628. 6 0
  1629. 7 "Monday"
  1630. 18 0
  1631. 11 00000721
  1632. 17 18
  1633. 0 6 "[39][39]"
  1634. 5 1
  1635. 8 8
  1636. 17 19
  1637. 5 5
  1638. 6 8
  1639. 18 2
  1640. 12 00000642
  1641. 10 00000708
  1642. 5 1
  1643. 6 8
  1644. 3 0
  1645. 8 8
  1646. 10 00000560
  1647. 17 20
  1648. 0 6 "{3}[39][39]"
  1649. 17 21
  1650. 6 3
  1651. 5 1
  1652. 3 0
  1653. 8 3
  1654. 10 00000609
  1655. 10 00001766
  1656. 17 23
  1657. 6 0
  1658. 7 "Tuesday"
  1659. 18 0
  1660. 11 00000967
  1661. 17 24
  1662. 0 6 "[39][39][39][39]"
  1663. 5 1
  1664. 8 9
  1665. 17 25
  1666. 5 4
  1667. 6 9
  1668. 18 2
  1669. 12 00000888
  1670. 10 00000954
  1671. 5 1
  1672. 6 9
  1673. 3 0
  1674. 8 9
  1675. 10 00000806
  1676. 17 26
  1677. 0 6 "{3}[39][39]"
  1678. 17 27
  1679. 6 3
  1680. 5 1
  1681. 3 0
  1682. 8 3
  1683. 10 00000855
  1684. 10 00001766
  1685. 17 29
  1686. 6 0
  1687. 7 "Wednesday"
  1688. 18 0
  1689. 11 00001227
  1690. 17 30
  1691. 0 6 "[39][39][39][39][39][39]"
  1692. 5 1
  1693. 8 10
  1694. 17 31
  1695. 5 3
  1696. 6 10
  1697. 18 2
  1698. 12 00001148
  1699. 10 00001214
  1700. 5 1
  1701. 6 10
  1702. 3 0
  1703. 8 10
  1704. 10 00001063
  1705. 17 32
  1706. 0 6 "{3}[39][39]"
  1707. 17 33
  1708. 6 3
  1709. 5 1
  1710. 3 0
  1711. 8 3
  1712. 10 00001113
  1713. 10 00001766
  1714. 17 35
  1715. 6 0
  1716. 7 "Thursday"
  1717. 18 0
  1718. 11 00001494
  1719. 17 36
  1720. 0 6 "[39][39][39][39][39][39][39][39]"
  1721. 5 1
  1722. 8 11
  1723. 17 37
  1724. 5 2
  1725. 6 11
  1726. 18 2
  1727. 12 00001415
  1728. 10 00001481
  1729. 5 1
  1730. 6 11
  1731. 3 0
  1732. 8 11
  1733. 10 00001330
  1734. 17 38
  1735. 0 6 "{3}[39][39]"
  1736. 17 39
  1737. 6 3
  1738. 5 1
  1739. 3 0
  1740. 8 3
  1741. 10 00001380
  1742. 10 00001766
  1743. 17 41
  1744. 6 0
  1745. 7 "Friday"
  1746. 18 0
  1747. 11 00001658
  1748. 17 42
  1749. 0 6 "[39][39][39][39][39][39][39][39][39][39]"
  1750. 17 43
  1751. 0 6 "{3}[39][39]"
  1752. 17 44
  1753. 6 3
  1754. 5 1
  1755. 3 0
  1756. 8 3
  1757. 10 00001766
  1758. 17 45
  1759. 6 0
  1760. 7 "Saturday"
  1761. 18 0
  1762. 11 00001766
  1763. 17 46
  1764. 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
  1765. 17 48
  1766. 0 6 "{3}[39][40][39]"
  1767. 17 49
  1768. 6 3
  1769. 5 1
  1770. 3 0
  1771. 8 3
  1772. 5 2
  1773. 8 4
  1774. 17 50
  1775. 5 5
  1776. 6 4
  1777. 18 2
  1778. 12 00001915
  1779. 10 00002925
  1780. 5 1
  1781. 6 4
  1782. 3 0
  1783. 8 4
  1784. 10 00001833
  1785. 5 1
  1786. 8 5
  1787. 17 51
  1788. 5 6
  1789. 6 5
  1790. 18 2
  1791. 12 00002007
  1792. 10 00002121
  1793. 5 1
  1794. 6 5
  1795. 3 0
  1796. 8 5
  1797. 10 00001925
  1798. 17 52
  1799. 0 6 "{3}[39][39]"
  1800. 17 53
  1801. 6 3
  1802. 5 1
  1803. 3 0
  1804. 8 3
  1805. 17 54
  1806. 6 3
  1807. 6 1
  1808. 18 3
  1809. 11 00002108
  1810. 6 2
  1811. 15
  1812. 9
  1813. 10 00001974
  1814. 17 58
  1815. 6 4
  1816. 5 5
  1817. 18 0
  1818. 6 3
  1819. 6 1
  1820. 18 5
  1821. 1 1
  1822. 11 00002761
  1823. 17 59
  1824. 0 6 "{3}"
  1825. 17 60
  1826. 6 3
  1827. 5 1
  1828. 3 0
  1829. 8 3
  1830. 17 61
  1831. 0 6 "[39]"
  1832. 17 62
  1833. 16 AdjustTable
  1834. 5 1
  1835. 8 6
  1836. 17 63
  1837. 5 7
  1838. 6 6
  1839. 18 2
  1840. 12 00002357
  1841. 10 00002748
  1842. 5 1
  1843. 6 6
  1844. 3 0
  1845. 8 6
  1846. 10 00002275
  1847. 5 1
  1848. 8 7
  1849. 17 64
  1850. 5 2
  1851. 6 7
  1852. 18 2
  1853. 12 00002449
  1854. 10 00002634
  1855. 5 1
  1856. 6 7
  1857. 3 0
  1858. 8 7
  1859. 10 00002367
  1860. 17 65
  1861. 0 6 "[39]"
  1862. 17 66
  1863. 29 12 TurnOn
  1864. 5 16
  1865. 8 12
  1866. 17 67
  1867. 29 13 TurnOff
  1868. 5 0
  1869. 8 13
  1870. 17 68
  1871. 29 14 StaySame
  1872. 5 64
  1873. 5 2
  1874. 3 0
  1875. 8 14
  1876. 17 69
  1877. 2 632 1 "{12}" "{13}" "{14}" 1 64
  1878. 10 00002416
  1879. 17 71
  1880. 0 6 "{3}"
  1881. 17 72
  1882. 6 3
  1883. 5 1
  1884. 3 0
  1885. 8 3
  1886. 17 73
  1887. 6 3
  1888. 6 1
  1889. 18 2
  1890. 11 00002735
  1891. 17 74
  1892. 10 00002748
  1893. 10 00002324
  1894. 10 00002885
  1895. 17 77
  1896. 6 3
  1897. 6 1
  1898. 18 0
  1899. 11 00002855
  1900. 17 78
  1901. 0 6 "{3}[16420]"
  1902. 17 79
  1903. 10 00002925
  1904. 10 00002885
  1905. 17 81
  1906. 0 6 "{3}[39][40][39]"
  1907. 17 83
  1908. 6 3
  1909. 5 1
  1910. 3 0
  1911. 8 3
  1912. 10 00001882
  1913. 6 2
  1914. 15
  1915. 17 85
  1916. 9
  1917. 14 CheckLeap
  1918. 29 0 Month1
  1919. 29 1 Year1
  1920. 29 2 NMonth
  1921. 29 3 CheckLeap
  1922. 17 1
  1923. 29 4 CDate
  1924. 17 2
  1925. 29 5 NDate
  1926. 17 3
  1927. 29 6 NDays
  1928. 17 4
  1929. 29 7 WDate
  1930. 17 5
  1931. 29 8 DateRef
  1932. 17 6
  1933. 29 9 TYear
  1934. 17 7
  1935. 29 10 LNDate
  1936. 17 8
  1937. 29 11 LeapDate
  1938. 17 10
  1939. 0 15 "{1}" 3 2
  1940. 13
  1941. 8 9
  1942. 17 11
  1943. 0 16 "{2}" "{9}"
  1944. 13
  1945. 8 4
  1946. 17 12
  1947. 7 "01/01/90"
  1948. 8 8
  1949. 17 13
  1950. 0 769 "{4}" "{8}"
  1951. 13
  1952. 8 6
  1953. 17 14
  1954. 6 6
  1955. 5 86400
  1956. 4 0
  1957. 5 631224000
  1958. 3 0
  1959. 8 5
  1960. 17 15
  1961. 6 5
  1962. 5 2419200
  1963. 3 0
  1964. 8 10
  1965. 17 16
  1966. 0 770 "{10}" "a"
  1967. 13
  1968. 8 11
  1969. 17 17
  1970. 29 12 LeapNum
  1971. 0 20 "{11}" 1 "/"
  1972. 13
  1973. 8 12
  1974. 17 18
  1975. 6 12
  1976. 5 3
  1977. 18 0
  1978. 11 00000584
  1979. 17 19
  1980. 5 28
  1981. 8 3
  1982. 10 00000602
  1983. 17 21
  1984. 5 29
  1985. 8 3
  1986. 6 3
  1987. 15
  1988. 17 23
  1989. 9
  1990. 14 AdjustTable
  1991. 29 0 AdjustTable
  1992. 17 1
  1993. 2 634 1 -32768 -32768 936 -32768
  1994. 17 2
  1995. 0 6 "[38]"
  1996. 17 3
  1997. 2 634 1 -32768 -32768 936 -32768
  1998. 17 4
  1999. 0 6 "[40]"
  2000. 17 5
  2001. 2 635 1
  2002. 17 6
  2003. 0 6 "[16423][16423]"
  2004. 17 7
  2005. 2 635 1
  2006. 17 8
  2007. 0 6 "[16423][16423]"
  2008. 17 9
  2009. 2 635 1
  2010. 17 10
  2011. 0 6 "[16423][16423]"
  2012. 17 11
  2013. 2 635 1
  2014. 17 12
  2015. 0 6 "[16423][16423]"
  2016. 17 13
  2017. 2 635 1
  2018. 17 14
  2019. 0 6 "[16423][16423]"
  2020. 17 15
  2021. 2 635 1
  2022. 17 16
  2023. 0 6 "[16423][16423]"
  2024. 17 17
  2025. 2 635 1
  2026. 17 18
  2027. 0 6 "[16423][38]"
  2028. 6 0
  2029. 15
  2030. 17 19
  2031. 9
  2032. DIALOG Heymon
  2033. -2134376448 6 93 58 136 50 "" "" "Monthly Calendar" 
  2034. FONT 8 "Helv" 
  2035. 4 6 27 10 1000 1342177280 "static" "Month :" 0 
  2036. 8 21 23 10 1001 1342177280 "static" "Year :" 0 
  2037. 31 4 52 40 9500 1344339979 "combobox" "" 0 
  2038. 31 19 52 40 9501 1344339979 "combobox" "" 0 
  2039. 91 3 40 14 1 1342242817 "button" "OK" 0 
  2040. 91 19 40 14 2 1342242816 "button" "Cancel" 0 
  2041. 00014042
  2042.