ÿWPCFûÿ(8CalendarMaker üParagraph 1~ ü ü0~~ü1~~ü2~~ üClear these Variables~ ü7~~ü8~6~ü9~~ üAssign "6" to Variable 8~ üParagraph 2: Take the month and check:~ (ü1~ Enter Month (1 - 12) --> ~ üPrompt at bottom of scrn~ üÿ<1|ÿ>12~ üIf Variable 1 is less than 1 or if Variable 2 is less than 12...~ €Month %€ÿ%€ is out of range € ü...then tab over, type "Month" and place Variable 1 in bold, and...~ €press ENTER and try againü ütype this message, pause~ &€nn üü üexit doc, quit macro.~ üParagraph 3: Take the year and check:~ (ü2~ Enter Year (1980 - 2099) --> ~ üPrompt at bottom of scrn~ üÿ<1980|ÿ>2099~ üIf Variable 2 (year) is less than 1980 or if it is more than 2099...~ €Year %€ÿ%€ is out of range € ü...make message that the year is out of range~ €press ENTER and try againü ü...and pause~ &€nn üü üExit doc, quit macro~ üParagraph 4: Save original date into 'dd'~ ,€ID2/1/4 € € € üChange date format in Setup~ 0€T €H€TSdd € üUse date feature to type out current date and save it as file "DD"~ &€nn üExit doc w/out saving~ üParagraph 5: Make date file "d1"~ ÿ-01-ÿ € üPlace first of month between month and year Variables~ H€TSd1 € üSave new date as "d1"~ &€nn üExit doc w/out saving~ üParagraph 6: Make batch file for getting beginning day of month~ date < d1 > nul € date < d1 > d1 € date < dd > nul € del dd >nul € cls € H€TSgetdate.bat € üSave as ASCII file "getdate.bat"~ &€nn üExit doc w/out saving~ üParagraph 7: Run batch file "getdate.bat" for calendar info~ D€Cgetdate.bat € üUse Shell DOS command to run batch file~ &€nn üExit doc w/out saving~ üParagraph 8: Take day information~ H€TRd1 € üRetrieve "d1" file~ S€S€S€ üMove cursor to day name~ ;€€€€,ü39 € üBlock day name and assign to Variable 9~ ,€ID3 1, 4 € € € üReset date format in Setup~ &€nn üExit w/out saving~ üParagraph 9: Assign the month to Var 1 and end day to Var 7~ üÿ=1~ü1~January~ü7~31~ü üIf the month is "1" assign to Variable 1 the name "January" and assign Variable 7 the number "31" as the last day of month...~ üÿ=2~ü1~February~ü7~29~ü üÿ=3~ü1~March~ü7~31~ü üÿ=4~ü1~April~ü7~30~ü üÿ=5~ü1~May~ü7~31~ü üÿ=6~ü1~June~ü7~30~ü üÿ=7~ü1~July~ü7~31~ü üÿ=8~ü1~August~ü7~31~ü üÿ=9~ü1~September~ü7~30~ü üÿ=10~ü1~October~ü7~31~ü üÿ=11~ü1~November~ü7~30~ü üÿ=12~ü1~December~ü7~31~ü üÿ%4!=0&"ÿ"="February"~ü7~28~ü üOn a leap year give Feb a last day of 28~ ü" ÿ"="Fri"&ÿ>30~ü8~7~ü üIf the first day of year (Var 9) is a Friday and the last day of the year (Var 7) is beyond the 30th, add a row to the calendar table (Variable 8)~ ü" ÿ"="Sat"&ÿ>29~ü8~7~ü üParagraph 10: Make calendar title in Equations~ @€ECEfunc {ÿ}~ÿ üGo into Equations editor and enter month (Var 1) and year (Var 2)~ ,€1y2236&€&€&€HCSA&€ üSet text in 36-pt type~ € € € € € € üExit Equations editor~ üParagraph 11: Make calendar table~ >€TC7 €ÿ €&€ üCreate table w/7 columns and number of rows assigned to Variable 8~ ü0~Sun~Mon~Tue~Wed~Thu~Fri~Sat~~ üFor each column, type one of the following day names in subsequent fashion...~ 1€%€ÿ €ü ü...and center and bold each day of week~ € € €€ üAdd three lines per row~ € € €€ € € €€ € € €€ € € €€ € € €€ üParagraph 12: Fill in the date~ €€€ üGo to top of document~ !€ ÿ!€€ üSearch for 1st day of week (Variable 9) and move cursor into cell immediately beneath~ ü0~1~ÿ~1~ üFor Variable 0, start w/ number 1, end with value of Variable 7 (last day of month), adding incrementally by 1...~ %€ ÿ %€ €ü ü...and bold the generated number, placing a space before and after the number~ € €y üGo down to next row and delete any text~ üParagraph 13: Clear immediate files and all variables~ $€ € üList files~ ngetdate.bat €Q€y üFind and delete "getbatch.bat" file~ nd1 €Q€y&€ üFind and delete "d1" file, exit~ ü0~~ü1~~ü2~~ü7~~ü8~~ü9~~ üClear Variables of any values~ üParagraph 14: Option to highlight some particular date(s)~ ü0~Calendar is done! Do you want to emphasize some date? (Y/N)~ üPlace message on screen~ ü"ÿ"="N"|"ÿ"="n"~Y€üq~ü üIf response is N or n, go to top of page, start q label, end macro~ üParagraph 15: Emphasize the date chosen~ _€ üCreate page break~ €%€Please enter date, using space between two dates € €(example: 5 10 25) then ENTER € € €start below the line:%€_€ üAbove text entered onto page 2~ üü * ;€Y€Z€,ü30 € üAfter dates are entered, mark place with *, block dates, enter them into Variable 0~ €€€Z€ €yQ€ €y üDelete message and page break~ ÿY€Z€ üWrite Variable 0 to bottom of page~ üParagraph 16: Make shade on the date chosen~ üL~ ;€S€,ü30 € üBlock date to be shaded and enter into Variable 0~ €P€Y€ üDelete date~ ü"ÿ"="* "~üq~ü üIf Variable 0 is the *, run Label q to end macro~ !€ ÿ!€>€LSO>€ üOtherwise search for date, go into Table edit, shade current cell and exit Table edit screen~ Z€ üGo to next page (beginning of list of dates to shade)~ üL~ üLoop Label L~ üParagraph 17: Delete space in front of date~ üq~ ü0~~ üClear Var 0 of values~ 9€n%€ !€%€!€ üEliminate space preceding each date~ Y€ üGo to top of calendar~ ü üEnd macro~