home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s005 / 52.ddi / AUTOCAL.SM$ / AUTOCAL.SMM
Encoding:
INI File  |  1993-10-26  |  22.3 KB  |  1,484 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _default.sty
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     3
  10.     5
  11.     Helvetica
  12.     2818
  13.     1029
  14.     514
  15.     514
  16.     1026
  17.     Helv
  18.     2818
  19.     1029
  20.     514
  21.     770
  22.     1026
  23.     Times New Roman
  24.     514
  25.     774
  26.     1029
  27.     517
  28.     1027
  29. [revisions]
  30.     0
  31. [recfile]
  32.     
  33.     *
  34.     1
  35.     1
  36.     3
  37.     8
  38.     0
  39.     0
  40. [lang]
  41.     1
  42. [desc]
  43.     All defines for macros
  44.     
  45.     
  46.     
  47.     
  48.     751666112
  49.     6
  50.     750620291
  51.     55
  52.     0
  53.     0
  54.     0
  55.     0
  56.     0
  57.     
  58.     
  59.     
  60.     
  61.     
  62.     
  63.     1
  64. [prn]
  65.     QMS-PS 810
  66. [port]
  67.     NW:\\SPEEDY\QMS
  68. [fopts]
  69.     0
  70.     1
  71.     0
  72.     0
  73. [lnopts]
  74.     2
  75.     Body Text
  76.     1
  77. [docopts]
  78.     5
  79.     2
  80. [GramStyle]
  81.     
  82. [tag]
  83.     Outline5
  84.     1
  85.     [fnt]
  86.         Times New Roman
  87.         200
  88.         0
  89.         49152
  90.     [algn]
  91.         1
  92.         1
  93.         216
  94.         0
  95.         0
  96.     [spc]
  97.         33
  98.         0
  99.         1
  100.         0
  101.         0
  102.         1
  103.         100
  104.     [brk]
  105.         4
  106.     [line]
  107.         8
  108.         0
  109.         1
  110.         0
  111.         0
  112.         1
  113.         1
  114.         144
  115.         144
  116.         1
  117.     [spec]
  118.         0
  119.         5
  120.         
  121.         0
  122.         1
  123.         1
  124.         0
  125.         16
  126.         0
  127.         0
  128.     [nfmt]
  129.         272
  130.         1
  131.         3
  132.         .
  133.         ,
  134.         $
  135.     Outline5
  136.     0
  137.     0
  138. [tag]
  139.     Outline4
  140.     1
  141.     [fnt]
  142.         Times New Roman
  143.         200
  144.         0
  145.         49152
  146.     [algn]
  147.         1
  148.         1
  149.         216
  150.         0
  151.         0
  152.     [spc]
  153.         33
  154.         0
  155.         1
  156.         0
  157.         0
  158.         1
  159.         100
  160.     [brk]
  161.         4
  162.     [line]
  163.         8
  164.         0
  165.         1
  166.         0
  167.         0
  168.         1
  169.         1
  170.         144
  171.         144
  172.         1
  173.     [spec]
  174.         0
  175.         4
  176.         
  177.         0
  178.         1
  179.         1
  180.         0
  181.         16
  182.         0
  183.         0
  184.     [nfmt]
  185.         272
  186.         1
  187.         3
  188.         .
  189.         ,
  190.         $
  191.     Outline4
  192.     0
  193.     0
  194. [tag]
  195.     Outline3
  196.     1
  197.     [fnt]
  198.         Times New Roman
  199.         200
  200.         0
  201.         49152
  202.     [algn]
  203.         1
  204.         1
  205.         216
  206.         0
  207.         0
  208.     [spc]
  209.         33
  210.         0
  211.         1
  212.         0
  213.         0
  214.         1
  215.         100
  216.     [brk]
  217.         4
  218.     [line]
  219.         8
  220.         0
  221.         1
  222.         0
  223.         0
  224.         1
  225.         1
  226.         144
  227.         144
  228.         1
  229.     [spec]
  230.         0
  231.         3
  232.         
  233.         0
  234.         1
  235.         1
  236.         0
  237.         16
  238.         0
  239.         0
  240.     [nfmt]
  241.         272
  242.         1
  243.         3
  244.         .
  245.         ,
  246.         $
  247.     Outline3
  248.     0
  249.     0
  250. [tag]
  251.     Outline2
  252.     1
  253.     [fnt]
  254.         Times New Roman
  255.         200
  256.         0
  257.         49152
  258.     [algn]
  259.         1
  260.         1
  261.         216
  262.         0
  263.         0
  264.     [spc]
  265.         33
  266.         0
  267.         1
  268.         0
  269.         0
  270.         1
  271.         100
  272.     [brk]
  273.         4
  274.     [line]
  275.         8
  276.         0
  277.         1
  278.         0
  279.         0
  280.         1
  281.         1
  282.         144
  283.         144
  284.         1
  285.     [spec]
  286.         0
  287.         2
  288.         
  289.         0
  290.         1
  291.         1
  292.         0
  293.         16
  294.         0
  295.         0
  296.     [nfmt]
  297.         272
  298.         1
  299.         3
  300.         .
  301.         ,
  302.         $
  303.     Outline2
  304.     0
  305.     0
  306. [tag]
  307.     Title
  308.     8
  309.     [fnt]
  310.         Helvetica
  311.         280
  312.         0
  313.         49153
  314.     [algn]
  315.         1
  316.         1
  317.         0
  318.         0
  319.         0
  320.     [spc]
  321.         33
  322.         0
  323.         1
  324.         144
  325.         72
  326.         1
  327.         100
  328.     [brk]
  329.         16
  330.     [line]
  331.         8
  332.         0
  333.         1
  334.         0
  335.         0
  336.         1
  337.         1
  338.         144
  339.         144
  340.         1
  341.     [spec]
  342.         0
  343.         1
  344.         
  345.         0
  346.         1
  347.         1
  348.         0
  349.         0
  350.         0
  351.         0
  352.     [nfmt]
  353.         272
  354.         1
  355.         2
  356.         .
  357.         ,
  358.         $
  359.     Title
  360.     0
  361.     0
  362. [tag]
  363.     Body Text
  364.     2
  365.     [fnt]
  366.         Times New Roman
  367.         240
  368.         0
  369.         49152
  370.     [algn]
  371.         1
  372.         1
  373.         0
  374.         0
  375.         0
  376.     [spc]
  377.         33
  378.         0
  379.         1
  380.         0
  381.         0
  382.         1
  383.         100
  384.     [brk]
  385.         4
  386.     [line]
  387.         8
  388.         0
  389.         1
  390.         0
  391.         0
  392.         1
  393.         1
  394.         144
  395.         144
  396.         1
  397.     [spec]
  398.         0
  399.         0
  400.         
  401.         0
  402.         1
  403.         1
  404.         0
  405.         0
  406.         0
  407.         0
  408.     [nfmt]
  409.         280
  410.         1
  411.         2
  412.         .
  413.         ,
  414.         $
  415.     Body Text
  416.     0
  417.     0
  418. [lay]
  419.     Standard
  420.     513
  421.     [rght]
  422.         15840
  423.         12240
  424.         1
  425.         1440
  426.         1440
  427.         1
  428.         1440
  429.         1440
  430.         0
  431.         1
  432.         0
  433.         1
  434.         0
  435.         2
  436.         1
  437.         1440
  438.         10800
  439.         12
  440.         1
  441.         720
  442.         1
  443.         1440
  444.         1
  445.         2160
  446.         1
  447.         2880
  448.         1
  449.         3600
  450.         1
  451.         4320
  452.         1
  453.         5040
  454.         1
  455.         5760
  456.         1
  457.         6480
  458.         1
  459.         7200
  460.         1
  461.         7920
  462.         1
  463.         8640
  464.     [frght]
  465.     [lyfrm]
  466.         0
  467.         13184
  468.         0
  469.         14400
  470.         12240
  471.         15840
  472.         0
  473.         1
  474.         1
  475.         0 0 0 0 0 0 0
  476.         0
  477.         16777215
  478.         0
  479.     [frmlay]
  480.         15840
  481.         12240
  482.         1
  483.         1440
  484.         792
  485.         1
  486.         14472
  487.         1440
  488.         0
  489.         1
  490.         0
  491.         0
  492.         0
  493.         0
  494.         1
  495.         1440
  496.         10800
  497.         2
  498.         2
  499.         4680
  500.         3
  501.         9360
  502.     [txt]
  503. <:s>
  504.  
  505. >
  506.     [hrght]
  507.     [lyfrm]
  508.         0
  509.         11136
  510.         0
  511.         0
  512.         12240
  513.         1440
  514.         0
  515.         1
  516.         1
  517.         0 0 0 0 0 0 0
  518.         0
  519.         16777215
  520.         0
  521.     [frmlay]
  522.         1440
  523.         12240
  524.         1
  525.         1440
  526.         72
  527.         1
  528.         792
  529.         1440
  530.         0
  531.         1
  532.         0
  533.         0
  534.         0
  535.         0
  536.         1
  537.         1440
  538.         10800
  539.         2
  540.         2
  541.         4680
  542.         3
  543.         9360
  544.     [txt]
  545. <:s>
  546.  
  547. >
  548. [elay]
  549. [lay]
  550.     1
  551.     1537
  552.     [rght]
  553.         15840
  554.         12240
  555.         1
  556.         1440
  557.         1440
  558.         1
  559.         1440
  560.         1440
  561.         0
  562.         0
  563.         16777215
  564.         1
  565.         0
  566.         2
  567.         1
  568.         1440
  569.         10800
  570.         12
  571.         1
  572.         720
  573.         1
  574.         1440
  575.         1
  576.         2160
  577.         1
  578.         2880
  579.         1
  580.         3600
  581.         1
  582.         4320
  583.         1
  584.         5040
  585.         1
  586.         5760
  587.         1
  588.         6480
  589.         1
  590.         7200
  591.         1
  592.         7920
  593.         1
  594.         8640
  595.     [hrght]
  596.     [lyfrm]
  597.         0
  598.         11136
  599.         0
  600.         0
  601.         12240
  602.         1440
  603.         0
  604.         1
  605.         1
  606.         0 0 0 0 0 0 0
  607.         0
  608.         16777215
  609.         0
  610.     [frmlay]
  611.         1440
  612.         12240
  613.         1
  614.         1440
  615.         72
  616.         1
  617.         792
  618.         1440
  619.         0
  620.         0
  621.         16777215
  622.         0
  623.         0
  624.         0
  625.         1
  626.         1440
  627.         10800
  628.         1
  629.         3
  630.         9360
  631.     [txt]
  632. <:s><:#P30670848,P943718>
  633.  
  634. >
  635.     [frght]
  636.     [lyfrm]
  637.         0
  638.         13184
  639.         0
  640.         14400
  641.         12240
  642.         15840
  643.         0
  644.         1
  645.         1
  646.         0 0 0 0 0 0 0
  647.         0
  648.         16777215
  649.         0
  650.     [frmlay]
  651.         15840
  652.         12240
  653.         1
  654.         1440
  655.         792
  656.         1
  657.         14472
  658.         1440
  659.         0
  660.         0
  661.         16777215
  662.         0
  663.         0
  664.         0
  665.         1
  666.         1440
  667.         10800
  668.         2
  669.         2
  670.         4680
  671.         3
  672.         9360
  673.     [txt]
  674. <:s><:#P30670848,P943718>
  675.  
  676. >
  677. [elay]
  678. [l1]
  679.     1
  680. [edoc]
  681. @Function@<:s><:#P30670848,P943718>'declares & defines
  682.  
  683. @Function@<:s><:#P30670848,P943718><:X3,0;Include "amixlate.sam!autocal">'autocal defines
  684.  
  685. @Outline2@<:s>declare monther(Month,year);
  686.  
  687. @Outline2@<:s>declare countchars(string, char);
  688.  
  689. @Outline2@<:s>define SPACE    " "
  690.  
  691. @Outline2@<:s>define NULL    ""
  692.  
  693. @Outline2@<:s>define LISTSEP    ","
  694.  
  695. @Outline2@<:s>define SUNDAY_STYLE "Sunday"
  696.  
  697. @Outline2@<:s>define DATE_STYLE "Date"
  698.  
  699. @Outline2@<:s>define CALEACHLINE    "<:f200,2Times New Roman,194,194,194><[>Tab]<:f,,>{Su}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{M}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Tu}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{W}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Th}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{F}<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Sa}")
  700.  
  701. @Outline2@<:s>define CALTOPLINE    "{Year}<[>ctrle]<[>Tab]{Month}<[>tab]{Year}<[>ctrle]"
  702.  
  703. @Outline2@<:s>define INISECT_STARTUP    "StartUp"
  704.  
  705. @Outline2@<:s>define INIKEY_YEARS    "Years"
  706.  
  707. @Outline2@<:s>define INIFILE    "amical.ini"
  708.  
  709. @Outline2@<:s>define APR    "April"
  710.  
  711. @Outline2@<:s>define AUG    "August"
  712.  
  713. @Outline2@<:s>define DEC    "December"
  714.  
  715. @Outline2@<:s>define FEB    "February"
  716.  
  717. @Outline2@<:s>define JAN    "January"
  718.  
  719. @Outline2@<:s>define JUL    "July"
  720.  
  721. @Outline2@<:s>define JUN    "June"
  722.  
  723. @Outline2@<:s>define MAR    "March"
  724.  
  725. @Outline2@<:s>define MAY    "May"
  726.  
  727. @Outline2@<:s>define NOV    "November"
  728.  
  729. @Outline2@<:s>define OCT    "October"
  730.  
  731. @Outline2@<:s>define SEP    "September"
  732.  
  733. @Outline2@<:s>define ERR_FORSTYLESHEETONLY    "This macro is for the _CALMON style sheet.  To use it, choose File/New and leave Run macro selected."
  734.  
  735. @Outline2@<:s>define ERR_CANTFINDINI    "Cannot find amical.ini"
  736.  
  737. @Outline2@<:s>define WEEKTXT    "week"
  738.  
  739. @Outline2@<:s>define WEEK5TXT    "week5"
  740.  
  741. @Outline2@<:s>define WEEK6TXT    "week6"<:X~3,0;Include "amixlate.sam!autocal">
  742.  
  743. @Function@<:s><:#P30670848,P943718>function main()
  744.  
  745. @Outline2@<:s><:#P30670848,P786432>'verify this is a clean untitled
  746.  
  747. @Outline3@<:s><:#P30670848,P786432>if (GetOpenFileName$() !=NULL or Filechanged(0,0) != 0)    ' and IsNewWave() =0
  748.  
  749. @Outline3@<:s><:#P30670848,P786432>    message(ERR_FORSTYLESHEETONLY)
  750.  
  751. @Outline3@<:s><:#P30670848,P786432>    exit function
  752.  
  753. @Outline3@<:s><:#P30670848,P786432>endif
  754.  
  755. @Outline2@<:s><:#P30670848,P786432>rmac=GetRunningMacroFile$()
  756.  
  757. @Outline2@<:s><:#P30670848,P786432>LayoutMode()
  758.  
  759. @Outline2@<:s><:#P30670848,P786432>FullPageView()
  760.  
  761. @Outline2@<:s><:#P30670848,P786432>setdlgcallback(0,"{rmac}!initdlg")
  762.  
  763. @Outline2@<:s><:#P30670848,P786432>Stat1=DialogBox("autocal.dlg", "Heymon")
  764.  
  765. @Outline3@<:s><:#P30670848,P786432>IF Stat1=0
  766.  
  767. @Outline3@<:s><:#P30670848,P786432>    EXIT FUNCTION
  768.  
  769. @Outline3@<:s><:#P30670848,P786432>ENDIF
  770.  
  771. @Outline2@<:s><:#P30670848,P786432>Month1=GetDialogField$(9500)
  772.  
  773. @Outline2@<:s><:#P30670848,P786432>Year1=GetDialogField$(9501)
  774.  
  775. @Outline2@<:s><:#P30670848,P786432><+!>'year1 = "1993"
  776.  
  777. @Outline2@<:s><:#P30670848,P786432><-!>'hourglass(1)
  778.  
  779. @Outline2@<:s><:#P30670848,P786432>Monther(Month1,Year1)
  780.  
  781. @Outline2@<:s><:#P30670848,P786432>'Hourglass(0)
  782.  
  783. @Outline2@<:s><:#P30670848,P786432>end function
  784.  
  785. @Function@<:s><:#P30670848,P943718>function Monther(Month,Year)
  786.  
  787. @Outline2@<:s><:#P30670848,P786432>monthandyear=strcat$(month, SPACE, year)
  788.  
  789. @Outline2@<:s><:#P30670848,P786432>type("<[>ctrlhome]<[>right]")
  790.  
  791. @Outline2@<:s><:#P30670848,P786432>Type( CALTOPLINE)
  792.  
  793. @Outline2@<:s><:#P30670848,P786432>'Type( "<[>Home]<[>Home]<[>Down]<[>Down]")
  794.  
  795. @Outline2@<:s><:#P30670848,P786432>Type( "<[>right]<[>Down]")
  796.  
  797. @Outline2@<:s><:#P30670848,P786432>for i = 1 to 6
  798.  
  799. @Outline2@<:s><:#P30670848,P786432>    thisweek=strcat$(WEEKTXT, i)
  800.  
  801. @Outline2@<:s><:#P30670848,P786432>    weeknums=GetProfileString$(MonthAndYear, thisweek, INIFILE)
  802.  
  803. @Outline2@<:s><:#P30670848,P786432>    'week 5 handler
  804.  
  805. @Outline3@<:s><:#P30670848,P786432>    goto debug
  806.  
  807. @Outline3@<:s><:#P30670848,P786432>    if thisweek=WEEK5TXT and weeknums= NULL
  808.  
  809. @Outline3@<:s><:#P30670848,P786432>        Type( "<[>SHIFTDown]<[>SHIFTRight]<[>SHIFTRight]<[>SHIFTRight]<[>SHIFTRight]<[>SHIFTRight]" )
  810.  
  811. @Outline3@<:s><:#P30670848,P786432>        'AnswerMsgBox(6)
  812.  
  813. @Outline3@<:s><:#P30670848,P786432>        DeleteColumnRow(0  )
  814.  
  815. @Outline3@<:s><:#P30670848,P786432>        break
  816.  
  817. @Outline3@<:s><:#P30670848,P786432>    endif
  818.  
  819. @Outline3@<:s><:#P30670848,P786432>    debug:
  820.  
  821. @Outline2@<:s><:#P30670848,P786432>    'week 6 handler
  822.  
  823. @Outline3@<:s><:#P30670848,P786432>    if thisweek=WEEK6TXT
  824.  
  825. @Outline3@<:s><:#P30670848,P786432>        if weeknums = NULL
  826.  
  827. @Outline3@<:s><:#P30670848,P786432>            break
  828.  
  829. @Outline3@<:s><:#P30670848,P786432>        endif
  830.  
  831. @Outline3@<:s><:#P30670848,P786432>        'type("<[>left]<[>home]<[>home]")
  832.  
  833. @Outline3@<:s><:#P30670848,P786432>        for connectday= 1 to 7
  834.  
  835. @Outline3@<:s><:#P30670848,P786432>            connectdate=strfield$(weeknums, connectday, LISTSEP)
  836.  
  837. @Outline3@<:s><:#P30670848,P786432>            if connectdate = NULL
  838.  
  839. @Outline3@<:s><:#P30670848,P786432>                break
  840.  
  841. @Outline3@<:s><:#P30670848,P786432>            endif
  842.  
  843. @Outline3@<:s><:#P30670848,P786432>            ConnectCells()
  844.  
  845. @Outline3@<:s><:#P30670848,P786432>            type("<[>shiftright]")
  846.  
  847. @Outline3@<:s><:#P30670848,P786432>            TurnOn=16+32
  848.  
  849. @Outline3@<:s><:#P30670848,P786432>            TurnOff=0
  850.  
  851. @Outline3@<:s><:#P30670848,P786432>            LineStyle=1
  852.  
  853. @Outline3@<:s><:#P30670848,P786432>            StaySame=CellShade + Outline
  854.  
  855. @Outline3@<:s><:#P30670848,P786432>            TableLines(TurnOn, TurnOff, StaySame, LineStyle, CellShade)
  856.  
  857. @Outline3@<:s><:#P30670848,P786432>            Type("<[>CTRLRight]<[>right]")
  858.  
  859. @Outline3@<:s><:#P30670848,P786432>        next
  860.  
  861. @Outline3@<:s><:#P30670848,P786432>        type("<[>up]<[>home]<[>home]<[>home]<[>down]")        'may not need <[>up] at beginning
  862.  
  863. @Outline3@<:s><:#P30670848,P786432>    endif
  864.  
  865. @Outline2@<:s><:#P30670848,P786432>    Su=strfield$(weeknums, 1, LISTSEP)
  866.  
  867. @Outline2@<:s><:#P30670848,P786432>    M=strfield$(weeknums, 2, LISTSEP)
  868.  
  869. @Outline2@<:s><:#P30670848,P786432>    Tu=strfield$(weeknums, 3, LISTSEP)
  870.  
  871. @Outline2@<:s><:#P30670848,P786432>    W=strfield$(weeknums, 4, LISTSEP)
  872.  
  873. @Outline2@<:s><:#P30670848,P786432>    Th=strfield$(weeknums, 5, LISTSEP)
  874.  
  875. @Outline2@<:s><:#P30670848,P786432>    F=strfield$(weeknums, 6, LISTSEP)
  876.  
  877. @Outline2@<:s><:#P30670848,P786432>    Sa=strfield$(weeknums, 7, LISTSEP)
  878.  
  879. @Outline2@<:s><:#P30670848,P786432>    'Type(CALEACHLINE)
  880.  
  881. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<:f,,>{Su}")
  882.  
  883. @Outline2@<:s><:#P30670848,P786432>    SetStyle(SUNDAY_STYLE)
  884.  
  885. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{M}")
  886.  
  887. @Outline2@<:s><:#P30670848,P786432>    SetStyle(DATE_STYLE)
  888.  
  889. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Tu}")
  890.  
  891. @Outline2@<:s><:#P30670848,P786432>    SetStyle(DATE_STYLE)
  892.  
  893. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{W}"<:f200,2Times New Roman,194,194,194>)
  894.  
  895. @Outline2@<:s><:#P30670848,P786432>    <:f,,>SetStyle(DATE_STYLE)
  896.  
  897. @Outline2@<:s><:#P30670848,P786432>    if {Th} = "" and thisweek=WEEK6TXT
  898.  
  899. @Outline2@<:s><:#P30670848,P786432>        break
  900.  
  901. @Outline2@<:s><:#P30670848,P786432>    endif
  902.  
  903. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Th}")
  904.  
  905. @Outline2@<:s><:#P30670848,P786432>    SetStyle(DATE_STYLE)
  906.  
  907. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{F}"<:f200,2Times New Roman,194,194,194>)
  908.  
  909. @Outline2@<:s><:#P30670848,P786432>    <:f,,>SetStyle(DATE_STYLE)
  910.  
  911. @Outline2@<:s><:#P30670848,P786432>    Type("<:f200,2Times New Roman,194,194,194><[>Tab]<[>Tab]<:f,,>{Sa}")
  912.  
  913. @Outline2@<:s><:#P30670848,P786432>    SetStyle(DATE_STYLE)
  914.  
  915. @Outline2@<:s><:#P30670848,P786432>    ' Type( "<[>Home]<[>Home]<[>Down]<[>Down]")
  916.  
  917. @Outline2@<:s><:#P30670848,P786432>    if thisweek != WEEK5TXT
  918.  
  919. @Outline2@<:s><:#P30670848,P786432>        Type( "<[>right]<[>Down]")
  920.  
  921. @Outline2@<:s><:#P30670848,P786432>    else
  922.  
  923. @Outline2@<:s><:#P30670848,P786432>        Type("<[>right]")
  924.  
  925. @Outline2@<:s><:#P30670848,P786432>    endif
  926.  
  927. @Outline2@<:s><:#P30670848,P786432>next
  928.  
  929. @Outline2@<:s><:#P30670848,P786432>Type("<[>ctrlhome]")
  930.  
  931. @Outline2@<:s><:#P30670848,P786432>END FUNCTION
  932.  
  933. @Function@<:s><:#P30670848,P943718>function initdlg(hdlg, id, value)
  934.  
  935. @Outline2@<:s><:#P30670848,P786432>whichyears=GetProfileString$(INISECT_STARTUP, INIKEY_YEARS, INIFILE)
  936.  
  937. @Outline2@<:s><:#P30670848,P786432>numyears=countchars(whichyears, LISTSEP)
  938.  
  939. @Outline2@<:s><:#P30670848,P786432>if whichyears = ""
  940.  
  941. @Outline2@<:s><:#P30670848,P786432>    message(<:ZDDE_BookMark3>ERR_CANTFINDINI<:Z~DDE_BookMark3>)
  942.  
  943. @Outline2@<:s><:#P30670848,P786432>    'return -1
  944.  
  945. @Outline2@<:s><:#P30670848,P786432>    exit function
  946.  
  947. @Outline2@<:s><:#P30670848,P786432>endif
  948.  
  949. @Outline2@<:s><:#P30670848,P786432>'exit function
  950.  
  951. @Outline2@<:s><:#P30670848,P786432>ignorekeyboard(2)
  952.  
  953. @Outline2@<:s><:#P30670848,P786432>'Fill Edit boxes with current Month and Year.
  954.  
  955. @Outline2@<:s><:#P30670848,P786432>
  956.  
  957. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,StrField$(FormatDate$(Now(),"c"), 2, " "))
  958.  
  959. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9501,StrField$(FormatDate$(Now(),"c"), 3, " "))
  960.  
  961. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,JAN)
  962.  
  963. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,FEB)
  964.  
  965. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,MAR)
  966.  
  967. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,APR)
  968.  
  969. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,MAY)
  970.  
  971. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,JUN)
  972.  
  973. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,JUL)
  974.  
  975. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,AUG)
  976.  
  977. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,SEP)
  978.  
  979. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,OCT)
  980.  
  981. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,NOV)
  982.  
  983. @Outline3@<:s><:#P30670848,P786432>Setdlgitemtext(hdlg, 9500,DEC)
  984.  
  985. @Outline2@<:s><:#P30670848,P786432>for y= 1 to numyears
  986.  
  987. @Outline2@<:s><:#P30670848,P786432>    Setdlgitemtext(hdlg, 9501,strfield$(whichyears, y, LISTSEP))
  988.  
  989. @Outline2@<:s><:#P30670848,P786432>next
  990.  
  991. @Outline3@<:s><:#P30670848,P786432>'Setdlgitemtext(hdlg, 9501,YEAR94    )
  992.  
  993. @Outline3@<:s><:#P30670848,P786432>'Setdlgitemtext(hdlg, 9501,YEAR95    )
  994.  
  995. @Outline2@<:s><:#P30670848,P786432>'return 1
  996.  
  997. @Outline2@<:s><:#P30670848,P786432><:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DlgSetListBoxIndex(hdlg, 9500, <:ZBookmark2>0<:Z~Bookmark2>)
  998.  
  999. @Outline2@<:s><:#P30670848,P786432><:R1,15,1,0,1,720,1,1440,1,2160,1,2880,1,3600,1,4320,1,5040,1,5760,1,6480,1,7200,1,7920,1,8640,1,9360,1,10080,>DlgSetListBoxIndex(hdlg, 9501, <:ZBookmark3>0<:Z~Bookmark3>)
  1000.  
  1001. @Outline2@<:s><:#P30670848,P786432>end function
  1002.  
  1003. @Function@<:s><:#P30670848,P943718>function countchars(string, char)
  1004.  
  1005. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>j = 1
  1006.  
  1007. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>i = 0
  1008.  
  1009. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>while(1)
  1010.  
  1011. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>    k = strchr(j, string, Char)
  1012.  
  1013. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>    if k = -1
  1014.  
  1015. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>        break
  1016.  
  1017. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>    endif
  1018.  
  1019. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>    i = i + 1
  1020.  
  1021. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>    j = k + 1
  1022.  
  1023. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>wend
  1024.  
  1025. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>return i
  1026.  
  1027. @Outline2@<:s><:#P30670848,P786432><:R1,13,1,1080,1,1800,1,2520,1,3240,1,3960,1,4680,1,5400,1,6120,1,6840,1,7560,1,8280,1,9000,1,9720,>end function
  1028.  
  1029. @Function@<:s><:#P30670848,P943718><:ZDDE_BookMark7>DIALOG Heymon
  1030.  
  1031. @Outline2@<:s><:#P30670848,P786432>-2134376448 6 93 58 136 50 "" "" "Monthly Calendar"
  1032.  
  1033. @Outline2@<:s><:#P30670848,P786432>FONT 8 "Helv"
  1034.  
  1035. @Outline2@<:s><:#P30670848,P786432>4 6 27 10 1000 1342177280 "static" "Month :" 0 
  1036.  
  1037. @Outline2@<:s><:#P30670848,P786432>8 21 23 10 1001 1342177280 "static" "Year :" 0 
  1038.  
  1039. @Outline2@<:s><:#P30670848,P786432>31 4 52 40 9500 1344339979 "combobox" "" 0 
  1040.  
  1041. @Outline2@<:s><:#P30670848,P786432>31 19 52 40 9501 1344339979 "combobox" "" 0 
  1042.  
  1043. @Outline2@<:s><:#P30670848,P786432>91 3 40 14 1 1342242817 "button" "OK" 0 
  1044.  
  1045. @Outline2@<:s><:#P30670848,P786432>91 19 40 14 2 1342242816 "button" "Cancel" 0 
  1046.  
  1047. @Outline2@<:s><:#P30670848,P786432>END DIALOG<:Z~DDE_BookMark7>
  1048. >
  1049.  
  1050. [Embedded]
  1051. 00018143
  1052. >
  1053. [macsum4] 5 39
  1054. main 0 0 5 31
  1055. Monther 575 2 18 52
  1056. initdlg 2762 3 4 126
  1057. countchars 3835 2 4 161
  1058. Heymon 4168 0 65535 174
  1059. [macse]
  1060. 14 main
  1061. 29 0 main
  1062. 17 2
  1063. 16 _$$2GetOpenFileName$
  1064. 13
  1065. 7 ""
  1066. 18 1
  1067. 16 _$$2FileChanged 0 0
  1068. 13
  1069. 5 0
  1070. 18 1
  1071. 1 2
  1072. 11 00000250
  1073. 17 3
  1074. 0 3 "This macro is for the _CALMON style sheet.  To use it, choose File/New and leave Run macro selected."
  1075. 6 0
  1076. 15
  1077. 9
  1078. 17 6
  1079. 29 1 rmac
  1080. 0 802
  1081. 13
  1082. 8 1
  1083. 17 7
  1084. 2 210 1
  1085. 17 8
  1086. 2 201 1
  1087. 17 9
  1088. 0 41 0 "{1}!initdlg"
  1089. 17 10
  1090. 29 2 Stat1
  1091. 0 26 "autocal.dlg" "Heymon"
  1092. 13
  1093. 8 2
  1094. 17 11
  1095. 6 2
  1096. 5 0
  1097. 18 0
  1098. 11 00000446
  1099. 6 0
  1100. 15
  1101. 9
  1102. 17 14
  1103. 29 3 Month1
  1104. 0 27 9500
  1105. 13
  1106. 8 3
  1107. 17 15
  1108. 29 4 Year1
  1109. 0 27 9501
  1110. 13
  1111. 8 4
  1112. 17 18
  1113. 16 Monther "{3}" "{4}"
  1114. 6 0
  1115. 15
  1116. 17 20
  1117. 9
  1118. 14 Monther
  1119. 29 0 Month
  1120. 29 1 Year
  1121. 29 2 Monther
  1122. 17 1
  1123. 29 3 monthandyear
  1124. 0 16 "{0}" " " "{1}"
  1125. 13
  1126. 8 3
  1127. 17 2
  1128. 0 6 "[16420][39]"
  1129. 17 3
  1130. 0 6 "{1}[16453][9]{0}[9]{1}[16453]"
  1131. 17 5
  1132. 0 6 "[39][40]"
  1133. 29 4 i
  1134. 5 1
  1135. 8 4
  1136. 17 6
  1137. 5 6
  1138. 6 4
  1139. 18 2
  1140. 12 00000294
  1141. 10 00002146
  1142. 5 1
  1143. 6 4
  1144. 3 0
  1145. 8 4
  1146. 10 00000213
  1147. 17 7
  1148. 29 5 thisweek
  1149. 0 16 "week" "{4}"
  1150. 13
  1151. 8 5
  1152. 17 8
  1153. 29 6 weeknums
  1154. 0 286 "{3}" "{5}" "amical.ini"
  1155. 13
  1156. 8 6
  1157. 17 10
  1158. 10 00000593
  1159. 17 11
  1160. 6 5
  1161. 7 "week5"
  1162. 18 0
  1163. 6 6
  1164. 7 ""
  1165. 18 0
  1166. 1 1
  1167. 11 00000593
  1168. 17 12
  1169. 0 6 "[4136][4135][4135][4135][4135][4135]"
  1170. 17 14
  1171. 16 _$$1DeleteColumnRow 0
  1172. 17 15
  1173. 10 00002146
  1174. 17 19
  1175. 6 5
  1176. 7 "week6"
  1177. 18 0
  1178. 11 00001248
  1179. 17 20
  1180. 6 6
  1181. 7 ""
  1182. 18 0
  1183. 11 00000692
  1184. 17 21
  1185. 10 00002146
  1186. 29 7 connectday
  1187. 5 1
  1188. 8 7
  1189. 17 24
  1190. 5 7
  1191. 6 7
  1192. 18 2
  1193. 12 00000801
  1194. 10 00001213
  1195. 5 1
  1196. 6 7
  1197. 3 0
  1198. 8 7
  1199. 10 00000719
  1200. 17 25
  1201. 29 8 connectdate
  1202. 0 20 "{6}" "{7}" ","
  1203. 13
  1204. 8 8
  1205. 17 26
  1206. 6 8
  1207. 7 ""
  1208. 18 0
  1209. 11 00000914
  1210. 17 27
  1211. 10 00001213
  1212. 17 29
  1213. 16 _$$5ConnectCells
  1214. 17 30
  1215. 0 6 "[4135]"
  1216. 17 31
  1217. 29 9 TurnOn
  1218. 5 16
  1219. 5 32
  1220. 3 0
  1221. 8 9
  1222. 17 32
  1223. 29 10 TurnOff
  1224. 5 0
  1225. 8 10
  1226. 17 33
  1227. 29 11 LineStyle
  1228. 5 1
  1229. 8 11
  1230. 17 34
  1231. 29 12 StaySame
  1232. 5 64
  1233. 5 2
  1234. 3 0
  1235. 8 12
  1236. 17 35
  1237. 16 _$$2TableLines "{9}" "{10}" "{12}" "{11}" 64
  1238. 17 36
  1239. 0 6 "[16423][39]"
  1240. 10 00000768
  1241. 17 38
  1242. 0 6 "[38][36][36][36][40]"
  1243. 17 40
  1244. 29 13 Su
  1245. 0 20 "{6}" 1 ","
  1246. 13
  1247. 8 13
  1248. 17 41
  1249. 29 14 M
  1250. 0 20 "{6}" 2 ","
  1251. 13
  1252. 8 14
  1253. 17 42
  1254. 29 15 Tu
  1255. 0 20 "{6}" 3 ","
  1256. 13
  1257. 8 15
  1258. 17 43
  1259. 29 16 W
  1260. 0 20 "{6}" 4 ","
  1261. 13
  1262. 8 16
  1263. 17 44
  1264. 29 17 Th
  1265. 0 20 "{6}" 5 ","
  1266. 13
  1267. 8 17
  1268. 17 45
  1269. 29 18 F
  1270. 0 20 "{6}" 6 ","
  1271. 13
  1272. 8 18
  1273. 17 46
  1274. 29 19 Sa
  1275. 0 20 "{6}" 7 ","
  1276. 13
  1277. 8 19
  1278. 17 48
  1279. 0 6 "[9]{13}"
  1280. 17 49
  1281. 16 _$$1SetStyle "Sunday"
  1282. 17 50
  1283. 0 6 "[9][9]{14}"
  1284. 17 51
  1285. 16 _$$1SetStyle "Date"
  1286. 17 52
  1287. 0 6 "[9][9]{15}"
  1288. 17 53
  1289. 16 _$$1SetStyle "Date"
  1290. 17 54
  1291. 0 6 "[9][9]{16}"
  1292. 17 55
  1293. 16 _$$1SetStyle "Date"
  1294. 17 56
  1295. 6 17
  1296. 7 ""
  1297. 18 0
  1298. 6 5
  1299. 7 "week6"
  1300. 18 0
  1301. 1 1
  1302. 11 00001868
  1303. 17 57
  1304. 10 00002146
  1305. 17 59
  1306. 0 6 "[9][9]{17}"
  1307. 17 60
  1308. 16 _$$1SetStyle "Date"
  1309. 17 61
  1310. 0 6 "[9][9]{18}"
  1311. 17 62
  1312. 16 _$$1SetStyle "Date"
  1313. 17 63
  1314. 0 6 "[9][9]{19}"
  1315. 17 64
  1316. 16 _$$1SetStyle "Date"
  1317. 17 66
  1318. 6 5
  1319. 7 "week5"
  1320. 18 1
  1321. 11 00002114
  1322. 17 67
  1323. 0 6 "[39][40]"
  1324. 10 00002133
  1325. 17 69
  1326. 0 6 "[39]"
  1327. 10 00000261
  1328. 17 72
  1329. 0 6 "[16420]"
  1330. 6 2
  1331. 15
  1332. 17 73
  1333. 9
  1334. 14 initdlg
  1335. 29 0 hdlg
  1336. 29 1 id
  1337. 29 2 value
  1338. 29 3 initdlg
  1339. 17 1
  1340. 29 4 whichyears
  1341. 0 286 "StartUp" "Years" "amical.ini"
  1342. 13
  1343. 8 4
  1344. 17 2
  1345. 29 5 numyears
  1346. 16 countchars "{4}" ","
  1347. 13
  1348. 8 5
  1349. 17 3
  1350. 6 4
  1351. 7 ""
  1352. 18 0
  1353. 11 00000267
  1354. 17 4
  1355. 0 3 "Cannot find amical.ini"
  1356. 6 3
  1357. 15
  1358. 9
  1359. 17 9
  1360. 0 32 2
  1361. 17 12
  1362. 0 772
  1363. 13
  1364. 0 770 [X] "c"
  1365. 13
  1366. 0 20 [X] 2 " "
  1367. 13
  1368. 0 43 "{0}" 9500 [X]
  1369. 17 13
  1370. 0 772
  1371. 13
  1372. 0 770 [X] "c"
  1373. 13
  1374. 0 20 [X] 3 " "
  1375. 13
  1376. 0 43 "{0}" 9501 [X]
  1377. 17 14
  1378. 0 43 "{0}" 9500 "January"
  1379. 17 15
  1380. 0 43 "{0}" 9500 "February"
  1381. 17 16
  1382. 0 43 "{0}" 9500 "March"
  1383. 17 17
  1384. 0 43 "{0}" 9500 "April"
  1385. 17 18
  1386. 0 43 "{0}" 9500 "May"
  1387. 17 19
  1388. 0 43 "{0}" 9500 "June"
  1389. 17 20
  1390. 0 43 "{0}" 9500 "July"
  1391. 17 21
  1392. 0 43 "{0}" 9500 "August"
  1393. 17 22
  1394. 0 43 "{0}" 9500 "September"
  1395. 17 23
  1396. 0 43 "{0}" 9500 "October"
  1397. 17 24
  1398. 0 43 "{0}" 9500 "November"
  1399. 17 25
  1400. 0 43 "{0}" 9500 "December"
  1401. 29 6 y
  1402. 5 1
  1403. 8 6
  1404. 17 26
  1405. 6 5
  1406. 6 6
  1407. 18 2
  1408. 12 00000935
  1409. 10 00001002
  1410. 5 1
  1411. 6 6
  1412. 3 0
  1413. 8 6
  1414. 10 00000853
  1415. 17 27
  1416. 0 20 "{4}" "{6}" ","
  1417. 13
  1418. 0 43 "{0}" 9501 [X]
  1419. 10 00000902
  1420. 17 32
  1421. 0 62 "{0}" 9500 0
  1422. 17 33
  1423. 0 62 "{0}" 9501 0
  1424. 6 3
  1425. 15
  1426. 17 34
  1427. 9
  1428. 14 countchars
  1429. 29 0 string
  1430. 29 1 char
  1431. 29 2 countchars
  1432. 17 1
  1433. 29 3 j
  1434. 5 1
  1435. 8 3
  1436. 17 2
  1437. 29 4 i
  1438. 5 0
  1439. 8 4
  1440. 17 3
  1441. 5 1
  1442. 11 00000295
  1443. 17 4
  1444. 29 5 k
  1445. 0 13 "{3}" "{0}" "{1}"
  1446. 13
  1447. 8 5
  1448. 17 5
  1449. 6 5
  1450. 5 -1
  1451. 18 0
  1452. 11 00000230
  1453. 17 6
  1454. 10 00000295
  1455. 17 8
  1456. 6 4
  1457. 5 1
  1458. 3 0
  1459. 8 4
  1460. 17 9
  1461. 6 5
  1462. 5 1
  1463. 3 0
  1464. 8 3
  1465. 10 00000104
  1466. 17 11
  1467. 6 4
  1468. 15
  1469. 9
  1470. 6 2
  1471. 15
  1472. 17 12
  1473. 9
  1474. DIALOG Heymon
  1475. -2134376448 6 93 58 136 50 "" "" "Monthly Calendar" 
  1476. FONT 8 "Helv" 
  1477. 4 6 27 10 1000 1342177280 "static" "Month :" 0 
  1478. 8 21 23 10 1001 1342177280 "static" "Year :" 0 
  1479. 31 4 52 40 9500 1344339979 "combobox" "" 0 
  1480. 31 19 52 40 9501 1344339979 "combobox" "" 0 
  1481. 91 3 40 14 1 1342242817 "button" "OK" 0 
  1482. 91 19 40 14 2 1342242816 "button" "Cancel" 0 
  1483. 00018168
  1484.