home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Secrets / Secrets2.iso / Utility / Calendar / Command / SETUP.EXE / WEEK1B.CC1 < prev    next >
Encoding:
INI File  |  1997-06-12  |  3.6 KB  |  144 lines
  1. [OPTIONS]
  2. ; Week1b.cc1 written by Kent Briggs
  3. ; n00 = year
  4. ; n01 = month
  5. ; n02 = day
  6. ; n03 = starting hour
  7. ; n04 = ending hour
  8. ; n05 = line color
  9. ; n06 = text color
  10. ; n07 = shading color
  11. ; n08 = day of week
  12. ; n09 = rows
  13. ; n10 = row height
  14. ; n11 = y value
  15. ; n12 = text height
  16. ; n13 = hour
  17. ; n14 = y2 value
  18. ; n15 = y3 value
  19. ; n16 = row height / 4
  20. ; n17 = julian day
  21. ; n18 = loop 1 to 7
  22. ; n19 = x value
  23. ; t00 = title
  24. ; t01 = footnote
  25. ; t02 = typeface
  26. ; t03 = date, AM/PM
  27. ; t04 = date range
  28. Orientation(Portrait)
  29. Option(t00,Text [t],"Title","Weekly Planner")
  30. Option(t01,Text [t],"Footnote","Printed by Calendar Commander")
  31. Option(n03,Number [n],"Starting hour",8)
  32. Option(n04,Number [n],"Ending hour",17)
  33. Option(n05,Color [n],"Line color",0)
  34. Option(n06,Color [n],"Text color",0)
  35. Option(n07,Color [n],"Shading color",$C0FFFF)
  36. Option(t02,Typeface [t],"Typeface","Times New Roman")
  37. [COMMANDS]
  38. DateNum(n00,Year)
  39. DateNum(n01,Month)
  40. DateNum(n02,Day)
  41. DateToJulian(n17,n00,n01,n02)
  42. ; Draw title, date, dow
  43. Font(t02,3,n06,0,1,0,0)
  44. Text(50,3,1,t00)
  45. DateText(t04,Month,Full,Capitalized,n01)
  46. TextVar(t04,append with," ")
  47. TextVar(t04,append with,n02)
  48. TextVar(t04,append with,", ")
  49. TextVar(t04,append with,n00)
  50. TextVar(t04,append with," - ")
  51. ; calc rows and row height
  52. NumVar(n09,set equal to,n04)
  53. NumVar(n09,increment by,1)
  54. NumVar(n09,decrement by,n03)
  55. NumVar(n10,set equal to,65)
  56. NumVar(n10,divide by,n09)
  57. NumVar(n16,set equal to,n10)
  58. NumVar(n16,divide by,4)
  59. NumVar(n09,multiply by,2)
  60. NumVar(n09,divide by,2)
  61. ; draw shaded area
  62. Pen(n05,2,0)
  63. Brush(n07,0)
  64. Rectangle(5,20,20,85,1)
  65. Brush($FFFFFF,1)
  66. ; calc text height
  67. NumVar(n12,set equal to,n10)
  68. NumVar(n12,multiply by,0.4)
  69. NumVar(n11,set equal to,20.5)
  70. NumVar(n14,set equal to,n11)
  71. NumVar(n14,increment by,n12)
  72. ; loop from start to end hour
  73. Block(While,n03,<=,n04)
  74.   ; calc AM or PM
  75.   NumVar(n13,set equal to,n03)
  76.   TextVar(t03,set equal to,"AM")
  77.   Block(If,n13,>,12)
  78.     NumVar(n13,decrement by,12)
  79.     TextVar(t03,set equal to,"PM")
  80.   EndBlock
  81.   Block(If,n13,=,12)
  82.     TextVar(t03,set equal to,"PM")
  83.   EndBlock
  84.   ; Draw hour
  85.   Font(t02,n12,n06,0,1,0,0)
  86.   Text(10,n11,1,n13)
  87.   Font(t02,1.25,n06,0,1,0,0)
  88.   Text(10,n14,1,t03)
  89.   ; Draw minutes
  90.   NumVar(n15,set equal to,n11)
  91.   NumVar(n15,decrement by,0.5)
  92.   Text(17,n15,1,":00")
  93.   NumVar(n15,increment by,n16)
  94.   Text(17,n15,1,":15")
  95.   NumVar(n15,increment by,n16)
  96.   Text(17,n15,1,":30")
  97.   NumVar(n15,increment by,n16)
  98.   Text(17,n15,1,":45")
  99.   ; increment hour and y offsets
  100.   NumVar(n03,increment by,1)
  101.   NumVar(n11,increment by,n10)
  102.   NumVar(n14,increment by,n10)
  103. EndBlock
  104. ; draw main grid
  105. Grid(5,20,95,85,1,n09,1)
  106. Grid(20,20,95,85,7,n09,1)
  107. Brush(n07,0)
  108. Rectangle(20,17,95,20,1)
  109. Brush($FFFFFF,1)
  110. NumVar(n18,set equal to,1)
  111. NumVar(n19,set equal to,25.357)
  112. Font(t02,2,n06,0,0,0,0)
  113. Block(While,n18,<=,7)
  114.   JulianToDate(n08,WeekDay,n17)
  115.   DateText(t03,Day of week,3-letter,Capitalized,n08)
  116.   TextVar(t03,append with,"-")
  117.   JulianToDate(n02,Day,n17)
  118.   TextVar(t03,append with,n02)
  119.   Text(n19,18.5,4,t03)
  120.   ; advance day
  121.   NumVar(n17,increment by,1)
  122.   NumVar(n18,increment by,1)
  123.   NumVar(n19,increment by,10.714)
  124. EndBlock
  125. NumVar(n17,decrement by,1)
  126. JulianToDate(n00,Year,n17)
  127. JulianToDate(n01,Month,n17)
  128. JulianToDate(n02,Day,n17)
  129. Brush($FFFFFF,1)
  130. ; draw date range
  131. DateText(t03,Month,Full,Capitalized,n01)
  132. TextVar(t04,append with,t03)
  133. TextVar(t04,append with," ")
  134. TextVar(t04,append with,n02)
  135. TextVar(t04,append with,", ")
  136. TextVar(t04,append with,n00)
  137. Font(t02,4,n06,0,0,0,0)
  138. Text(50,8,1,t04)
  139. ; draw notes and footnote
  140. Font(t02,2,n06,0,1,0,0)
  141. Text(5,86,0,"Notes:")
  142. Font(t02,1.5,n06,0,0,0,0)
  143. Text(50,98,7,t01)
  144.