.#*�" 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��" 444  S  M Tu  W Th  F  S� - calendar_days��" 46! 0� 3 calendar_start_week��" 48+ Month Year:� / calendar_prompt,*�" 51 $ year
+�" 53 $ year! 4EN $ year# 100EC�" 54 $ year# 400ENDw�" 51�/ cal_leap_year_p,*�" 58 % month # day $ year+*�" 60 ! d+�" 61" 31 % month! 1:; # day9�! d�" 62 % month! 2?.�" 64 ! d % month! 4;" 239" 10<:�! d��" 65 $ year� / cal_leap_year_p.�! d/c/c
�" 67 ! dw�" 58�. cal_day_number,*�" 71 % month # day $ year+*�" 73 ! c % delta ! n ! a ! b+��" 75 % month # day $ year� . cal_day_number�! n�" 76�$ year�" 78 ! n $ year9 $ year! 4<9�! a�" 79 $ year# 100<! 3;�! c! 0�! b�" 80 ! c! 4E.! 1�! b/c�" 82 
! a ! b ! c! 4<9: , CalStartWeek:! 7Ew�" 71�/ cal_day_of_week,*�" 86 & indent % month $ year # day ) highlight+*�" 88 * month_name % first " nm " ny # max ! i $ istr+��" 91 % month! 1 $ year� / cal_day_of_week�% first�" 92 % month! 19�" nm�" 93 $ yea
r�" ny�" 94 " nm" 13A.�" 95" 31�# max/.��" 97 " nm! 1 " ny� . cal_day_number� % month! 1 $ year� . cal_day_number:�# max/d�" 99�& indent�# 100 # bob��# 103 % month! 1: ) CalMonths!�* month_name��# 104 & indent� ' CalDays� & strlen� * month_name� & st
rlen:! 5:! 2<9� + goto_column��# 105 * month_name� & insert 3 insert_single_space�� $ year� & string� & insert�# 106 & down_1. ' newline/b��# 109 & indent� + goto_column��# 110 ' CalDays� & insert�# 111 & down_1. ' newline/b��# 114 % first! 3; & indent
9� + goto_column.�# 115! 1�! i/. ! i # max>/.�! i/.�# 117 % first! 7A.�# 119 & down_1.�# 120 # eol ' newline/b��# 122 & indent� + goto_column�# 123! 0�% first/c�# 127 # day ! iA ) highlightC.�# 129 # day" 10=.��# 130#  * � & insert/.��# 132# ** � & 
insert/d/.��# 134$ %2d  ! i� ' vinsert/d�# 135�% first/g�" 86�. cal_make_month,*�# 142 ! t ! n ! m & months % month * month_name # day $ year+�# 144 $ time�! t��# 145 ! t! 1" 32� / extract_element�* month_name�# 148O Jan Feb Mar Apr May Jun Jul Aug 
Sep Oct Nov Dec�& months.�# 150! 0�! m/. ! m" 12=/.�! m/.��# 152 & months ! m" 32� / extract_element�% month��# 153 * month_name % month� & strcmp.�# 154 ! m! 19�% monthv/b/g��# 159 ! t! 2" 32� / extract_element�# day�# 161! 0�! n��# 164 # day� & 
strlen! 0A.��# 166 ! t! 3" 32� / extract_element�# day�# 167! 1�! n/c��# 169 ! t! 4 ! n9" 32� / extract_element�$ year��# 171 $ year� ' integer % month�� # day! 0� + strtrim_beg� ' integerw�# 140�, cal_get_date,*�# 175 * month_name+*�# 177 ! m+��#
 178 * month_name� & strlow�* month_name��# 180 * month_name� + String_Type}& strlow ) CalMonths� ) array_mapA� % where�! m��# 181 ! m� & length.��# 182! 0 ! m!! 19w/c��# 185 * month_name� ' integerw�# 175�1 cal_convert_month,*�# 191 ! t % month $ year
 & nlines & wlines $ obuf ' default+*�# 192 ( this_day * this_month ) this_year+��# 1942 calendar_mode_hook� . run_mode_hooks�# 196 ' whatbuf�$ obuf�# 200 , cal_get_date�( this_day�* this_month�) this_year��# 201% %s %d� * this_month! 1: ) CalMonths! )
 this_year� ' sprintf�' default���# 203 ) CalPrompt ' default + Null_String� ) read_mini� ' strtrim�! t���# 205 ! t! 0" 32� / extract_element� 1 cal_convert_month�% month���# 206 ! t! 1" 32� / extract_element� ' integer�$ year��# 208* *calendar*� ' p
op2buf�! 0� , set_readonly , erase_buffer�# 212�% month % month! 0A." 12�% month�$ year/c��# 213! 0 % month $ year ( this_day�# 214 % month * this_monthA $ year ) this_yearAC��# 213 . cal_make_month�# 216�% month % month" 13A.! 1�% month�$ year/c��#
 217" 25 % month $ year ( this_day�# 218 % month * this_monthA $ year ) this_yearAC��# 217 . cal_make_month�# 220�% month % month" 13A.! 1�% month�$ year/c��# 221" 50 % month $ year ( this_day�# 222 % month * this_monthA $ year ) this_yearAC��# 221 . 
cal_make_month�# 226 ( nwindows! 2A.�# 228 # eob�$$ \n	 � + bskip_chars�# 229 ) what_line�# 114� + window_info:�& nlines�# 231 & nlines! 0?.�# 233 & nlines.�. enlarge_window� $ call/i/.��# 237, other_window� $ call�# 238 & nlinesQ.�. enlarge_window
� $ call/i��# 239, other_window� $ call/d�# 241 # bob/c��# 244! 1� , set_readonly�! 0� 8 set_buffer_modified_flag�# 245 # bob� $ obuf� ' pop2buf��# 248 $ time� ' message�# 189�( calendar