Edit file File name : cal.slc Content :.#*�" 32 ' CalDays ) CalMonths , CalStartWeek ) CalPrompt+,*�" 34 & months+ & months�) CalMonths�/ calendar_months,*�" 35 $ days+ $ days�' CalDays�- calendar_days,*�" 36 # day+ # day�, CalStartWeek�3 calendar_start_week,*�" 37 & prompt+ & prompt�) Cal Prompt�/ calendar_prompt���" 42 # Jan # Feb # Mar # Apr # May # Jun # Jul # Aug # Sep # Oct # Nov # Dec� / calendar_months��" 44 4 S M Tu W Th F S� - calendar_days��" 46! 0� 3 calendar_start_week��" 48 + Month Year:� / calendar_prompt,*�" 52 $ year +�" 54 $ year! 4EN $ year# 100EC�" 55 $ year# 400ENDw�" 52�/ cal_leap_year_p,*�" 59 % month # day $ year+*�" 61 ! d+�" 62" 31 % month! 1:; # day9�! d�" 63 % month! 2?.�" 65 ! d % month! 4;" 239" 10<:�! d��" 66 $ year� / cal_leap_year_p.�! d/c/c �" 68 ! dw�" 59�. cal_day_number,*�" 72 % month # day $ year+*�" 74 ! c % delta ! n ! a ! b+��" 76 % month # day $ year� . cal_day_number�! n�" 77�$ year�" 79 ! n $ year9 $ year! 4<9�! a�" 80 $ year# 100<! 3;�! c! 0�! b�" 81 ! c! 4E.! 1�! b/c�" 83 ! a ! b ! c! 4<9: , CalStartWeek:! 7Ew�" 72�/ cal_day_of_week,*�" 87 & indent % month $ year # day ) highlight+*�" 89 * month_name % first " nm " ny # max ! i $ istr+��" 92 % month! 1 $ year� / cal_day_of_week�% first�" 93 % month! 19�" nm�" 94 $ yea r�" ny�" 95 " nm" 13A.�" 96" 31�# max/.��" 98 " nm! 1 " ny� . cal_day_number� % month! 1 $ year� . cal_day_number:�# max/d�# 100�& indent�# 101 # bob��# 104 % month! 1: ) CalMonths!�* month_name��# 105 & indent� ' CalDays� & strlen� * month_name� & s trlen:! 5:! 2<9� + goto_column��# 106 * month_name� & insert 3 insert_single_space�� $ year� & string� & insert�# 107 & down_1. ' newline/b��# 110 & indent� + goto_column��# 111 ' CalDays� & insert�# 112 & down_1. ' newline/b��# 115 % first! 3; & inden t9� + goto_column.�# 116! 1�! i/. ! i # max>/.�! i/.�# 118 % first! 7A.�# 120 & down_1.�# 121 # eol ' newline/b��# 123 & indent� + goto_column�# 124! 0�% first/c�# 128 # day ! iA ) highlightC.�# 130 # day" 10=.��# 131 # * � & insert/.��# 133 # ** � & insert/d/.��# 135 $ %2d ! i� ' vinsert/d�# 136�% first/g�" 87�. cal_make_month,*�# 144 ! t ! n ! m & months % month * month_name # day $ year+�# 146 $ time�! t��# 147 ! t! 1" 32� / extract_element�* month_name�# 150 O Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec�& months.�# 152! 0�! m/. ! m" 12=/.�! m/.��# 154 & months ! m" 32� / extract_element�% month��# 155 * month_name % month� & strcmp.�# 156 ! m! 19�% monthv/b/g��# 161 ! t! 2" 32� / extract_element�# day�# 163! 0�! n��# 166 # day� & strlen! 0A.��# 168 ! t! 3" 32� / extract_element�# day�# 169! 1�! n/c��# 171 ! t! 4 ! n9" 32� / extract_element�$ year��# 173 $ year� ' integer % month�� # day ! 0� + strtrim_beg� ' integerw�# 142�, cal_get_date,*�# 177 * month_name+*�# 179 ! m+�� # 180 * month_name� & strlow�* month_name��# 182 * month_name� + String_Type}& strlow ) CalMonths� ) array_mapA� % where�! m��# 183 ! m� & length.��# 184! 0 ! m!! 19w/c��# 187 * month_name� ' integerw�# 177�1 cal_convert_month,*�# 193 ! t % month $ yea r & nlines & wlines $ obuf ' default+*�# 194 ( this_day * this_month ) this_year+��# 196 2 calendar_mode_hook� . run_mode_hooks�# 198 ' whatbuf�$ obuf�# 202 , cal_get_date�( this_day�* this_month�) this_year��# 203 % %s %d� * this_month! 1: ) CalMonths! ) this_year� ' sprintf�' default���# 205 ) CalPrompt ' default + Null_String� ) read_mini� ' strtrim�! t���# 207 ! t! 0" 32� / extract_element� 1 cal_convert_month�% month���# 208 ! t! 1" 32� / extract_element� ' integer�$ year��# 210 * *calendar*� ' pop2buf�! 0� , set_readonly , erase_buffer�# 214�% month % month! 0A." 12�% month�$ year/c��# 215! 0 % month $ year ( this_day�# 216 % month * this_monthA $ year ) this_yearAC��# 215 . cal_make_month�# 218�% month % month" 13A.! 1�% month�$ year/c�� # 219" 25 % month $ year ( this_day�# 220 % month * this_monthA $ year ) this_yearAC��# 219 . cal_make_month�# 222�% month % month" 13A.! 1�% month�$ year/c��# 223" 50 % month $ year ( this_day�# 224 % month * this_monthA $ year ) this_yearAC��# 223 . cal_make_month�# 228 ( nwindows! 2A.�# 230 # eob�$$ \n � + bskip_chars�# 231 ) what_line�# 114� + window_info:�& nlines�# 233 & nlines! 0?.�# 235 & nlines.� . enlarge_window� $ call/i/.��# 239 , other_window� $ call�# 240 & nlinesQ.� . enlarge_windo w� $ call/i��# 241 , other_window� $ call/d�# 243 # bob/c��# 246! 1� , set_readonly�! 0� 8 set_buffer_modified_flag�# 247 # bob� $ obuf� ' pop2buf��# 250 $ time� ' message�# 191�( calendar Save