HPADÐÿÿ0|JCard_Files”””L„åj醀åjPk +Template\KTemplate&L-27-1991G.ìže9(z€¼oÅÊL ‡Vr^handler cancel; begin go to pad "pad"; end; handler findtext; begin global lastfind; ask "Find what?" with lastfind; if it is empty then exit; put it into lastfind; find part it; if the result is "not found" then answer "Can't find ^"" & it & "^"." with "Ok"; end; Handler Help; begin go to pg id 8 of pad "daily.hlp"; end;šr€}ï 7pad *$ findtext7lastfindFind what? XTX+*XlastfindXXXX X knot foundX  :+ Ok".XCan't find ",, XU*7daily.hlp“8’*»p×ùßHandler Select; begin put the currentline of me into cl; if shiftkey() is down then Long_Note cl else if ctrlkey() is down then reminder cl else begin answer "Reminder or Long Note" with "Reminder","Long Note","Cancel"; case it of "Long Note" : Long_Note cl; "Reminder" : Reminder cl; Otherwise :; end; end; end; handler mark; begin end; Handler keypress(k); begin if not fkeys(k) then pass; end; function fkeys(k); begin get key(k); if it is not "Enter" and it is in "abcedfghijklmnopqurstuwxyz" then begin put the currentline of me into cl; record it; playback; Reminder cl; return true; end else return false; end;Òžùþöæû €‚7f€g Ú c XXX‚äX  :+   long_note;:$½‚äX  :+   reminder;:$•CancelLong NoteReminderReminder or Long Note XUX$$RLong Note+   long_note;:$ÓÿReminder+   reminder;:$«ÿ*7*87X  fkeys;:y/*$fkeys87X   W: XXXabcedfghijklmnopqurstuwxyz wEnter .1Ef€g Ú c XXX    ü:X  ý:   reminder;:9$9*P‡  -(ÚžTimes±‡±‡±‡±‡±‡±‡‡‡‡‡‡‡‡‡¡p‡Øžpÿ‡P‡`1N_Date±‡±‡±‡±‡±‡±‡‡ÚÄÄÄÄÄÄA!cpÌžpÿW,<4Handler Select; Begin changeday 2; End; Òž<72  changeday;:*H8;Lžÿ ddddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿW ,<4Handler Select; Begin changeday 3; End; Òž<73  changeday;:*HCFTž¢  Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿW,<4Handler Select; Begin changeday 4; End; Òž<74  changeday;:*H8;\žEddddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿU *:2Handler Select; Begin changeday 5; End;Òž:75  changeday;:*HCFdžè Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿU*:2Handler Select; Begin changeday 6; End;Òž:76  changeday;:*H 8;lž‰ddddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿU *:2Handler Select; Begin changeday 7; End;Òž:77  changeday;:*HCFtž* Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿñšª¢Handler Select; Begin global dte; set the lockscreen to true; put fld "_date" into dte; go to pad "monthly"; send "setit" dte to pad; end; Òžª7X " PX_date&##dteXXXmonthly dtesetit ‰*H‡  LžË2-Monthly‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p2yÌ6t„|Handler Select; Begin get field "_date"; go to pad "yearly"; put the last word of it into fld "_date"; End; Òž„7X_date&##XXXXyearly XXl——? X_date&X X*H‡ „ž3-Yearlyn‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p3zP‡PTime Links‡±‡±‡±‡‡ÚÄÄÄÄÄÄ!pžpÿ>(80Handler Select; Begin go home; End; Òž87‹*H‡JOžrHomeutton‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿB%5-Handler Select; Begin help; End; Ò57X  ï:*H‡EM˜žüF1=Helpon‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿŒHandler Select; Begin set the lockscreen to true; get the date; convert it to short4 date; go to pg "template"; if it is in field "date links" then go to pg it of background "Card_files" else put the longdate into fld "_date"; End; Òž7X " PX  :XXXXXXXŠtemplateXdate links&##XwCard_filesXƒ$X  :X_date&X X*H%ô¶šŠ4-Todayddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p4{D'7/Handler Select; Begin cancel; End; Ò777X  :*H‡EH¨žb¼eutton‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿpP‡@,žòChecks‡±‡±‡±‡±‡±‡‡‡‡‡‡‡‡‡!p‡¨žpÿ‡P0PNotes for the dayngeday;:$3  pÿXœšÿ2íäôìHandler Select; Begin get the seconds; convert it to dateitems; add -1 to item 3 of it; convert it to short4 date; ask "Delete all messages prior to:" with it; if it is empty then exit; put it into lst; set the name of background button ID 29 to "Deleting Old..."; show background button ID 29; set the lockscreen to true; convert lst to seconds; hide background button ID 29; go to page "daily2" of pad "dprint"; send "deleteold" lst to this page; end;Òžô7X  :XXXXXXXŠ1[XX3 XVXXXŠXDelete all messages prior to: XTX+*X XXXX29O  XDeleting Old... PX29O  *R PX " P XXŠX29O  *S Pdprint“daily2’ deleteold` ‰*H(3Äž 5-Delete Old±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p5|L'7/Handler Select; Begin findtext; End;Òž77X findtext;:*H6;žÙ6-Finde Old±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p6}¡CSKhandler select; begin answer "Print appointments for" & item 2 of fld "_Date" & "?"; if it is not "ok" then exit; set the name of background button ID 29 to "Printing..."; set the printer to on; show background button ID 29; set the lockscreen to true; put fld "_date" into ldate; put fld "checks" into checks; put fld "times" into reminders; put fld "notes for the day" into notesforday; put fld "Time Links" into links; push this page; go to page "Daily" of pad "dprint"; send "PrintDay" ldate, checks,reminders,notesforday,links to this page; end;ÒžS7?X_Date&##X2Print appointments for,,XXUokX.*X29O  XPrinting... PX Ñ ‚à PX29O  *R PX " PX_date&## XXXXchecks&## XXXXtimes&## XXXXnotes for the day&## XXXXTime Links&## XXX`]dprint“Daily’     PrintDay` ‰*H‡üœq1-Printy‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p1xH =Deleting Old...hangeday;:$3 5vGGpÿ+% ‡š¼¢handler changeday(d); begin set the lockscreen to true; get field "_date"; go to page "Template"; put it into field "_date"; send "select" to button id d; end; handler domenu(d); begin if d = "Next" then changeday 3 else if d = "Previous" then changeday 2 else if d is "delete page" or d is "new page" then exit else pass; end; Handler Reminder(x); begin put Line x of fld "Times" into holder; ask "Enter Reminder" with trim(holder); if it is empty then exit; put it into line x of field "Times"; end; Handler Long_Note(x); begin put item x of "8:00a,8:30a,9:00a,9:30a,10:00a,10:30a,11:00a,11:30a,12:00p,12:30p,1:00p,1:30p,2:00p,2:30p,3:00p,3:30p,4:00p,4:30p,5:00p" into tmp; If line x of fld "Checks" is not "û" then begin set the lockscreen to true; put "û" into line x of fld "Checks"; put fld "_date" into dt; convert dt to short4 date; put tmp & "," & dt into line x of fld "Time Links"; go to pad "Reminder"; send "domenu" "new Page" to hyperPAD; set the name of this page to tmp&","&dt; convert dt to long date; put dt into fld "_Date"; put tmp into fld "_Time"; set the focus to fld "_Note"; set the lockscreen to false; end else begin set the lockscreen to true; put fld "_date" into dt; convert dt to short4 date; go to page tmp & "," & dt of pad "Reminder"; end; end; €ž¼è) €¥ €%$ changeday87X " PX_date&## XXXTemplate X_date&X XselectXXO ‰*87NextX+3  changeday;:$OPreviousX+2  changeday;:$&new pageX+delete pageX+2*$/*$ reminder87XTimes&##XX XXX    6:Enter Reminder  T +* XTimes&XX X*$ long_note878:00a,8:30a,9:00a,9:30a,10:00a,10:30a,11:00a,11:30a,12:00p,12:30p,1:00p,1:30p,2:00p,2:30p,3:00p,3:30p,4:00p,4:30p,5:00pXX XXXûXChecks&##XX.ûX " PûXChecks&XX XX_date&## XXX XXŠ , ,,XTime Links&XX XReminder new PagedomenuX‰`  X , ,, P XXŠ X_Date&X X X_Time&X XX_Note& hX " P$HX " PX_date&## XXX XXŠ , ,,Reminder“’*O%&‚ HyperPAD 2.2© Brightbi‚l-Roberts & Co.‚± Daily Pla‚ner¿±Ú¬Ä¿Ú Ä¿³ 8:‚0a¥ ‚³ ‚³ 8:30a¤ ‚³ ‚³ 9:‚0a¥ ‚³Notes for day:’‚³ 9:30a¥ ³Ã Ä´³ 10:‚0a¤ ‚³Œ “‚³ 10:30a¤ ‚³Œ “‚³ ‚1:‚0a¤ ‚³Œ “‚³ ‚1:30a¤ ‚³Œ “‚³ 12:‚0p¤ ‚³Œ “‚³ 12:30p¤ ‚³ ‚³ 1:‚0p¥ ‚³ ‚³ 1:30p¥ ‚³ ‚³ 2:‚0p¥ ³Ã Ä ´³ 2:30p¥ ‚³Day‚ Ž‚³ 3:‚0p¥ ‚³„ ‚³ 3:30p¥ ‚³MonthŽ‚³ 4:‚0p¥ ‚³„ ‚³ 4:30p¥ ‚³Year Ž‚³ 5:‚0p¥ ‚³ ³À¬ÄÙÀ ÄÙÐ Use PGUP/PGDN to go betw‚en days, ENTER to set an a‚p ointment.‘Ðp‚‡0¿‡ÿÿÿÿÿÿÿÿÿÿÿÿÿíÐ0e@¨Ï(#[ ­ X û ž?à¾Ö ²@¨üN'^Äpq“yhandler select; begin set the lockscreen to true; new_day the currentline of me; set the lockscreen to false; end; handler Mark; begin end; Handler keypress(k); begin if not fkeys(k) then pass; end; function fkeys(k); begin get key(k); if it is not "Enter" and it is in "abcedfghijklmnopqurstuwxyz" then begin put the currentline of me into cl; set the lockscreen to true; _newday; set the focus to field "Times"; hilite line cl of field "Times"; send "keypress" k to fld "Times"; set the lockscreen to false; return true; end else return false; end;Òž“þÇæÌN€‚ê7X " Pf€g Ú c  new_day;:X " P*7*87X  fkeys;:y/*$fkeys87X   W: XXXabcedfghijklmnopqurstuwxyz wEnter .1}f€g Ú c XXXX " PX _newday;:XTimes& hXTimes&X  \XkeypressXTimes& ‰X " P9$9*P‡ -ž‡+Times±‡±‡±‡±‡±‡±‡‡‡‡‡‡‡‡‡¡p‡äœšpÿ‡_6F>handler select; begin domenu "previous"; end; ÒžF7previous   è:*H8;èÂ7Ÿ/ddddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿS.>6handler select; begin domenu "next"; end; Òž>7next   è:*HCFxžJ0 Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿY*:2handler select; begin change -1,2,3 end; Òž:71[23  change;:*H8;øÂ7é0dddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿW)91handler select; begin change 1,2,4 end; Òž97124  change;:*HCF˜žŽ1 Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿY*:2handler select; begin change -1,1,5 end; Òž:71[15  change;:*H8;Â712ddddddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿW)91handler select; begin change 1,1,6 end; Òž97116  change;:*HCFžÖ2Button‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1GGpÿòp­¥Handler Select; Begin set the lockscreen to true; put fld "_date" into dte; push this page; go to pad "monthly"; send "setit" dte to pad; end; Òž­7X " PX_date&## XXX`]monthly setit ‰*H‡ üžy32-Monthly‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p2yÌ6t„|Handler Select; Begin get fld "_date"; go to pad "yearly"; put the last word of it into field "_date"; End; Òž„7X_date&##XXXXyearly XXl——? X_date&X X*H‡ Œž·43-Yearlyn‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p3zP‡ @1N_Date±‡±‡±‡±‡±‡±‡‡ÚÄÄÄÄÄÄA p\ÚpÿP‡ ,Date Links‡±‡±‡±‡‡ÚÄÄÄÄÄÄ!pÜžpÿPÓãÛHandler Select; Begin get the date; convert it to short4 date; if ","&it&"," is in field "date links" then go to pg it of background "Card_files" else put the longdate into fld "_date"; End; Òžã7X  :XXXXXXXŠXdate links&##,X,,,wCard_filesXƒ$X  :X_date&X X*H %@žs64-Todayddddd±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p4{>(80Handler Select; Begin go home; End; Òž87‹*H‡ JO8Â78Homeutton‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿspBRJHandler Select; Begin answer "Nothing to Print" with "Ok"; end;ÒR7OkNothing to Print XU*H‡ðÀ™81-Printy‡±‡±‡±‡‡ÚÄÄÄÄÄÄ1 p1xB%5-Handler Select; Begin help; End; Ò57X  ï:*H‡EMŒžX9F1=Helpon‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿD'7/Handler Select; Begin cancel; End; Ò777X  :*H‡EHˆžæ9¼eutton‡±‡±‡±‡ÄÄÄÄÄÂÄÄ1GGpÿÝóåHandler keypress(k); begin get key(k); if it is "ENTER" or it is "CTRL+V" then exit; if not fkeys(k) then pass; end; function fkeys(k); begin get key(k); if length(it)=1 then begin put the currentline of me into cl; set the lockscreen to true; _newday; set the focus to field "notes for the day"; send "keypress" k to fld "notes for the day"; set the lockscreen to false; return true; end else return false; end;æžóN€‚E87X   W: XXXCTRL+V +ENTER +2*X  fkeys;:y/*$fkeys87X   W: XXX1    :+~f€g Ú c XXXX " PX _newday;:Xnotes for the day& hXkeypressXnotes for the day& ‰X " P9$9*P0P൚v:Notes for the daychange;:$7 pÿuÈœšÿ( Handler Select; Begin get the seconds; convert it to dateitems; add -1 to item 3 of it; convert it to short4 date; ask "Delete all messages prior to:" with it; if it is empty then exit; put it into lst; go to pg 1 of background "card_files"; set the name of background button ID 29 to "Deleting Old..."; show background button ID 29; set the lockscreen to true; convert lst to seconds; hide background button ID 29; go to page "daily2" of pad "dprint"; send "deleteold" lst to this page; end;Òž7X  :XXXXXXXŠ1[XX3 XVXXXŠXDelete all messages prior to: XTX+*X XXXcard_files1ƒX29O  XDeleting Old... PX29O  *R PX " P XXŠX29O  *S Pdaily2dprint“’ deleteold` ‰*H(3LžÎ=5-Delete Old±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p5|L'7/Handler Select; Begin findtext; End;Òž77X findtext;:*H6;žBA6-Finde Old±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡1 p6}‡^€fhandler domenu(d); begin if d is "next" then change 4,1,2 else if d = "previous" then change 4,-1,1 else if d is "delete page" or d is "new page" then exit else pass; end; Handler Change(x,y,z); Begin set the lockscreen to true; put field "_date" into tmp; convert tmp to dateitems; if x is 4 then add y to item 3 of tmp else begin put 1 into item 3 of tmp; add x to item y of tmp; end; convert tmp to short4 date; put ","&tmp&"," into index; if index is in field "date links" then go to page tmp; set the focus to background button z; convert tmp to long date; put tmp into field "_date"; End; handler _newday; begin put field "Times" into stuff; get fld "_date"; convert it to short4 date; put ","&it&"," after fld "date Links"; go to the last page of background "CARD_FILES"; send "domenu" "New Page" to hyperpad; put stuff into field "times"; set the name of this pg to it; convert it to long date; put it into fld "_date"; end; Handler New_Day(cl); begin _newday; hilite line cl of fld "times"; send "select" to fld "times"; end;螀€€ú€Ë87nextX+412  change;:$SpreviousX+41[1  change;:$&new pageX+delete pageX+2*$/*$change87X " PX_date&## XXX XXŠ4X+  X3 XV$(1 X3 XX X  XV XXŠ, ,,, XXXXdate links&## w X M h XXŠ X_date&X X*$ _newday7XTimes&## XXXX_date&##XXXXXXXŠ,X,,,Xdate Links&X  CARD_FILES…ƒNew PagedomenuX‰ Xtimes&X X`  XX PXXXŠXX_date&X X*$ new_day87X _newday;:Xtimes&XX \selectXtimes& ‰*d:&‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚± Daily Pla‚ner¿±Ú¬Ä¿Ú Ä¿³ 8:‚0a¥ ‚³  ‚³ 8:30a¤ ‚³ ‚³ 9:‚0a¥ ‚³Notes for day:‚ ‚³ 9:30a¥ ³Ã Ä´³ 10:‚0a¤ ‚³“ ‚³ 10:30a¤ ‚³“ ‚³ ‚1:‚0a¤ ‚³ † ‚³ ‚1:30a¤ ‚³‡ … † ‚³ 12:‚0p¤ ‚³‡ … † ‚³ 12:30p¤ ‚³‡ …” ‚³ 1:‚0p¥ ‚³‡ … „‚³ 1:30p¥ ‚³‡ …” ‚³ 2:‚0p¥ ³Ã Ä ´³ 2:30p¥ ‚³Dayƒ ‚³ 3:‚0p¥ ‚³  ‚³ 3:30p¥ ‚³ MonthŽ ‚³ 4:‚0p¥ ‚³  ‚³ 4:30p¥ ‚³ Year ‚³ 5:‚0p¥ ‚³„ œ³À¬ÄÙÀ ÄÙ1-PrintÉ Use PGUP/PGDN to go betw‚en days, ENTER to set an a‚p ointment.‘Ðp‚‡0¿‡ÿÿÿÿÿÿÿÿÿÿÿÿÿíÐ0]@ÚAöH%M/0Ÿ0D1ç1Œ2/3m4…5Ï5!6Å7O89œ9,:|=ø@A'€Hˆž ‡ €H‡ €H€H! ÿÿ»KäKúKL'€h̸š e€Ho€H€H€H%ÿÿILrLˆLžL´L