HPAD@c0|JЕЕҕʕϕΕΕΕʕ՝(ЕЕҕCp*L6T(4handler putdate(d); begin get item (item 2 of d) of "January,Februrary,March,April,May,June,July,August,September,October,November,December"; put " " & item 1 of d after it; put it into page field "Show Date"; end; handler setit(d); begin convert d to dateitems; put 1 into item 3 of d; put d into page field "_date"; changemonth 0; end; handler changemonth(dx); begin get page field "_date"; add dx to item 2 of it; convert it to dateitems; put it into page field "_date"; putdate it; put makemonth(item 2 of it,item 1 of it,item 7 of it) into field "Days"; end; Handler Help; begin go to pg id 12 of pad "daily.hlp"; end;h$ putdate87January,Februrary,March,April,May,June,July,August,September,October,November,DecemberXXX2 XXXXX1 , XX  XShow Date%X X*$setit87XXX1XX3 XXX_date%X X0  changemonth;:*$ changemonth87X_date%## XXXX X2 XV XX X_date%X X   putdate;: X2 X1 X7  makemonth;:XDays&X X*7daily.hlp12*JMZJ )!#'*>PXjUWVF~tFFVF^&_&&WFVF^&_&&WFVvFVFV~&=,tG&=u~F&* t&'vvvvF t^&,~uv tFFFv RP^_]ːː/!‹UV!]UN1V!r3]O!r3 t o:Tغ8 !L!VWؾZZ#_^VWؾZZ _^;s Et2..Uv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]whichitemFFFFFFFFThis program requires HyperPAD. $CMZC A<1*B4% &"-157;?BVhpUWظPFVv vHFvv FvvHF~u6F u Fd uF tFF ^ *FFVFVF~~!FFF¸ ^FNuF~|G~|^F& ^F& FvPvv FFFF9F~^&vv!RPvv _]ː }xs Rlb&غ@ !L!VWؾcc#_^VWؾcc _^;s Et2..'ːː%3d MakeMonthFFFFFFFFThis program requires HyperPAD. $WITEM MONTH@jP@6Days!p4pB%5-Handler Select; Begin help; End; 57X  :*HEM!F1=Helpon1GGpqhandler cancel; begin go to pad "daily"; end; handler domenu(d); begin if d is "next" then changemonth 1 else if d is "previous" then changemonth -1 else if d is not "first" and d is not "last" then pass; end;7daily *87nextX+1  changemonth;:$DpreviousX+1[  changemonth;:$lastX.firstX.1/*& HyperPAD 2.2 Brightbil-Roberts & Co. Monthly Planer $Use TAB to highlight a day, then pres ENTER, ALT for comands.p0ڇ0@"eH 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 [.>6Handler Select; Begin changemonth 1; End; >71  changemonth;:*H),xtutton 1 2 3 4 1GGp ]/?7Handler Select; Begin changemonth -1; End; ?71[  changemonth;:*H#&\eevutton 1 2 3 4 1GGp HNew Button"pH!New Button"pH#%New Button"pH')New Button"pH +-New Button"pH /1New Button"pH 35New Button"pH   New Button"pH  ! New Button"pH# % New Button"pH' ) New Button"pH+ - New Button"pH/ 1 New Button"pH3 5 New Button"pH  New Button"pH ! New Button"pH# % New Button"pH' ) New Button"pH+ - New Button"pH/ 1 New Button"pH3 5 New Button"pHNew Button"pH!New Button"pH#%New Button"pH')New Button"pH+-New Button"pH/1New Button"pH 35New Button"pH!New Button"pH"!New Button"pH##%New Button"pH$')New Button"pH%+-New Button"pH&/1New Button"pH'35New Button"pH(New Button"pH)!New Button"pH*#%New Button"pH+')New Button"pH,+-New Button"pH-/1New Button"pH.35New Button"p%0Hp1991,3,1,0,0,0,6P0,P_date!pp1H,t March 1991P1@6Show DateA!pphandler select; begin get pg fld "show date"; answer "Print appointments for" && it && "?"; if it is not "Ok" then exit; show pg button "Printing..."; set the lockscreen to true; get pg fld "_date"; put it into fst; convert fst to seconds; add 1 to item 2 of it; convert it to dateitems; add -1 to item 3 of it; convert it to dateitems; convert it to seconds; put it into lst; push this page; go to page 1 of background "Template" of pad "Daily"; get fld "Date Links"; for x = 1 to the number of items of it do begin put item x of it into hld; if hld is not empty then begin convert hld to seconds; if hld >= Fst and hld <= lst then begin go to page item x of it; send "Select" to button "1-Print"; end; end; end; pop page; hide pg button "Printing..."; set the lockscreen to false; end;7Xshow date%##XXXX?XPrint appointments for--XXUOkX.*XPrinting...L  *R PX " PX_date%##XXXXX XXX XX1XX2 XVXXX1[XX3 XVXXXXXXX XXX`]DailyTemplate1XDate Links&##XXXX1 XXXX@ 6{XX  XXX .G XX  6  41&XX SelectX1-PrintM 1  XXX$z^XPrinting...L  *S PX " P*H28%1-Printth 1 2 3 4 1p 1xt|Handler Select; Begin get page field "_date"; go to pad "yearly"; put item 1 of it into field "_date"; End; 7X_date%##XXXXyearly XX1X_date&X X*H3  (+2-Yearlyh 1 2 3 4 1p 2yFa)91Handler Select; Begin cancel; End; 797X  :*H5CG,ebern1GGp@a*:2Handler Select; Begin go home; End; :7*H6IO@,Homebern1GGpY-=5Handler Select; Begin setit date(); End; =7X  :  setit;:*H7r/-3-This Month 1 2 3 4 1p 3zH8 ;Printing...month;:$DpreviousX5GGphandler select; begin get page field "_date"; put item (item 2 of it) of "31,28,31,30,31,30,31,31,30,31,30,31" into lastday; if lastday is 28 and item 1 of it mod 4 is 0 and item 1 of it mod 100 is not 0 then add 1 to lastday; put item 7 of it into startday; put the id of the target - 3 - startday into d; if d <= lastday and d >= 1 then begin put d into item 3 of it; convert it to short4 date; go to page "Template" of pad "daily"; if ","&it&"," is in fld "date links" then go to pg it else begin convert it to long date; put it into fld "_date"; end; end; end;7X_date%##XXXX31,28,31,30,31,30,31,31,30,31,30,31XXX2 XXX0100XX1p.04XX1p+28 +11 1 XXXVXX7 XXX 3de ,c XXX1 4  61u XX3 XXXXdailyTemplateXdate links&##,X,,,wX$XXXXX_date&X X*unܲڃƒƒƒƒƒƒ۲SunMonTueWedThuFriSat۲ÃŃŃŃŃŃŃ۲۲ÃŃŃŃŃŃŃ۲۲ÃŃŃŃŃŃŃ۲۲ÃŃŃŃŃŃŃ۲۲ÃŃŃŃŃŃŃ۲۲ÃŃŃŃŃŃŃ۲۲۳.%2769 X6^<dB jH& p !N!!!,"v"" #T###2$Y$$$*+Y,,--