home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Secrets / Secrets2.iso / Utility / Calendar / Command / SETUP.EXE / MONTH2.CC1 < prev    next >
Encoding:
INI File  |  1997-06-12  |  2.8 KB  |  105 lines
  1. [OPTIONS]
  2. ; Month2.cc1 written by Kent Briggs
  3. ; n00 = year (user setting)
  4. ; n01 = month (user setting)
  5. ; n02 = x value
  6. ; n02 = y value
  7. ; n04 = loop 1 to 2
  8. ; n05 = line color option
  9. ; n06 = text color option
  10. ; n07 = y2 value
  11. ; n08 = y3 value
  12. ; n09 = day of the week
  13. ; n10 = last day in month
  14. ; n11 = rows (5 or 6)
  15. ; n12 = row height
  16. ; n13 = personal events checkbox
  17. ; n14 = holiday checkbox
  18. ; t00 = typeface option
  19. ; t01 = footnote option
  20. ; t02 = month, dow name
  21. Orientation(Portrait)
  22. Option(n05,Color [n],"Line color",0)
  23. Option(n06,Color [n],"Text color",0)
  24. Option(t00,Typeface [t],"Typeface","Times New Roman")
  25. Option(n13,Checkbox [n],"Personal events",1)
  26. Option(n14,Checkbox [n],"Holidays",1)
  27. Option(t01,Text [t],"Footnote","Printed by Calendar Commander")
  28. [COMMANDS]
  29. DateNum(n00,Year)
  30. DateNum(n01,Month)
  31. NumVar(n03,set equal to,2)
  32. NumVar(n04,set equal to,1)
  33. Pen(n05,3,0)
  34. Block(While,n04,<=,2)
  35.   NumVar(n07,set equal to,n03)
  36.   ; draw month and year
  37.   DateText(t02,Month,Full,Capitalized,n01)
  38.   Font(t00,5,n06,0,0,0,0)
  39.   Text(50,n03,1,t02)
  40.   NumVar(n07,increment by,5)
  41.   Font(t00,3,n06,0,0,0,0)
  42.   Text(50,n07,1,n00)
  43.   ; draw top dow block
  44.   NumVar(n07,increment by,3)
  45.   NumVar(n08,set equal to,n07)
  46.   NumVar(n08,increment by,2)
  47.   Brush(n05,0)
  48.   Rectangle(2,n07,98,n08,1)
  49.   Brush($FFFFFF,1)
  50.   ; draw main grid
  51.   NumVar(n07,increment by,37)
  52.   WeekDay(n09,n00,n01,1)
  53.   LastDay(n10,n00,n01)
  54.   NumVar(n12,set equal to,n10)
  55.   NumVar(n12,increment by,n09)
  56.   ; calc rows (5 or 6)
  57.   NumVar(n11,set equal to,5)
  58.   Block(If,n12,>,36)
  59.     NumVar(n11,increment by,1)
  60.   EndBlock
  61.   NumVar(n12,set equal to,35)
  62.   NumVar(n12,divide by,n11)
  63.   Grid(2,n08,98,n07,7,n11,1)
  64.   ; draw number grid
  65.   Font(t00,2.5,n06,0,0,0,0)
  66.   NumVar(n08,increment by,0.5)
  67.   NumGrid(3,n08,13.714,n12,7,n09,1,n10,0)
  68.   NumVar(n08,increment by,3)
  69.   Font(t00,1,n06,0,0,0,0)
  70.   ; personal events?
  71.   Block(If,n13,<>,0)
  72.     LoadEvents(n00,"Personal.ev1")
  73.     EventGrid(3,n08,13.714,n12,7,n09,1,n10,0,n01)
  74.   EndBlock
  75.   NumVar(n08,increment by,1)
  76.   ; holidays?
  77.   Block(If,n14,<>,0)
  78.     LoadEvents(n00,"Holiday.ev1")
  79.     EventGrid(3,n08,13.714,n12,7,n09,1,n10,0,n01)
  80.   EndBlock
  81.   ; draw days of the week
  82.   NumVar(n07,decrement by,36)
  83.   NumVar(n02,set equal to,8.857)
  84.   NumVar(n09,set equal to,1)
  85.   Font(t00,1.75,$FFFFFF,1,0,0,0)
  86.   Block(While,n09,<=,7)
  87.     DateText(t02,Day of week,3-letter,Capitalized,n09)
  88.     Text(n02,n07,4,t02)
  89.     NumVar(n09,increment by,1)
  90.     NumVar(n02,increment by,13.714)
  91.   EndBlock
  92.   ; advance to next month
  93.   NumVar(n04,increment by,1)
  94.   NumVar(n03,increment by,50)
  95.   ; advance month by 1
  96.   NumVar(n01,increment by,1)
  97.   Block(If,n01,=,13)
  98.     NumVar(n01,set equal to,1)
  99.     NumVar(n00,increment by,1)
  100.   EndBlock
  101.   ; draw footnote
  102.   Font(t00,1.5,n06,0,0,0,0)
  103.   Text(50,100,7,t01)
  104. EndBlock
  105.