HPAD0| J DailyIncomingeHJ,tNoutgoingeHJ,tN?daily2ax~C,xaO.$handler flush(b); begin global lastline; put lastline + 1 into lastline; if lastline = 63 then begin print formfeed; put 1 into lastline; end; Print b; end; .$flush871lastlinelastlineXXX63lastline+}1lastlineXXXX}*dMZd /##2 22'85####!#$#8#J#R#d#ːːUVFFP#FV^&&v v-F~)FV FVFFF^&F t < tF9F~F9FFUFFV FVFFNN~| ^&? u~}FF~tFF^&F< tF)FHF |Ȍ^vـ8 t8 uIy^NFvvFF@P#vv v^&&WFHRP(- ^&7v^&@ ^&^v&@FFF9F|~~^v&4&@FV FF^]U~t]ːFFVF^&G&WFVF^&w&w#FF^&w&w#Fvv#^&w&7vvFVRP#vv#]ː 24#N#2 #2غ" !L!VW2ؾDD#_^VW2ؾDD _^;s Et2..  U~3I]UWV~v ߋN t2Ì^_]format2This program requires HyperPAD. $FORMAT>6(80handler select; begin go home; end; 87*HDJ Homeutton1GGpkG This pad intentional y left BLANK.߇@ Z  Handler PrintDay(ldate,checks,reminders,notesforday,links); Begin global lastline; put 1 into lastline; put " 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 timelist; put format(Notesforday,40,19) into notes; flush repchar(((80-length(ldate))/2)," ") & ldate & return & return; flush tab & "Todays Appointments:" & return; flush tab &"--------------------" & return & return; for x = 1 to 19 do begin flush tab; if line x of checks is not empty then flush "+" & item x of timelist & " " & line x of reminders & return else flush " " & item x of timelist & " " & line x of reminders & return end; flush return; flush tab & "Todays Notes:" & return; flush tab &"-------------" & return & return; for x = 1 to the number of lines of notes do begin flush Tab & line x of notes & return; end; flush return; for y = 1 to 19 do begin if line y of checks is not empty then begin flush Tab & "---> " & item y of timelist && line y of reminders & return; get line y of links; if it is not empty then begin push this page; go to pg it of pad "reminder"; put format(field "_Note",40,19) into note; for x = 1 to the number of lines of note do begin flush Tab & line x of note & return; end; pop page; flush return; end; end; end; set the printer to off; pop page; hide background button ID 29; set the lockscreen to false; END;$ printday871lastlineXXX 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 XXX 4019  format;: XXX X2X   :80 "   Z:,,,  flush;: Todays Appointments:,,  flush;: --------------------,,,  flush;:1 XXX19 6  flush;: X .9 X  X +,,,,  flush;:$6 X  X  ,,,,  flush;:1  XXX$K  flush;: Todays Notes:,,  flush;: -------------,,,  flush;:1 XXX A 68 X ,,  flush;:1  XXX$  flush;:1 XXX19 6+ X . X  X ---> ,,-,  flush;: X  XXX .`]reminder X_Note&##4019  format;: XXX1 XXX A 68 X ,,  flush;:1  XXX$^  flush;:1  XXX$X  P^X29O  *S PX " P* (  ?OGHandler PrintIn(_to,dte,MM,f,Ph,Sm,Lm); begin global lastline; put 1 into lastline; put format(Lm,60,100) into Lm; Flush Tab & " To: " & _To && " Date:" & dte & return; Flush Tab & "Mr/Ms: " & MM & return; Flush Tab & " Of: " & f & return; Flush Tab & " Num: " & Ph & return; Flush Tab & " MSG: " & Sm & return; Flush Tab & "Notes: " & return & return; for x = 1 to the number of lines of Lm do Flush Tab & Line x of Lm & Return; set the printer to off; pop page; hide background button "printing..."; set the lockscreen to false; end;(O$ printin871lastlineXXX 60100  format;: XXX  Date:X To: ,,-,,  flush;: Mr/Ms: ,,,  flush;:  Of: ,,,  flush;:  Num: ,,,  flush;:  MSG: ,,,  flush;: Notes: ,,,  flush;:1 XXX A 68 X ,,  flush;:1  XXX$X  P^Xprinting...M  *S PX " P*[Handler PrintOut(_to,_of,Phone,notes); begin global lastline; put 1 into lastline; put format(notes,60,100) into notes; flush return; flush Tab & "Outgoing Message Log" & return; flush Tab & "For:" && _to & return; flush Tab & " Of:" && _Of & return & return; for x = 1 to the number of lines of notes do begin flush Tab & line x of notes & return; end; flush return; set the printer to off; pop page; hide background button "printing..."; set the lockscreen to false; end; $ printout871lastlineXXX 60100  format;: XXX  flush;: Outgoing Message Log,,  flush;: XFor:,-,  flush;:  Of:,-,,  flush;:1 XXX A 68 X ,,  flush;:1  XXX$  flush;:X  P^Xprinting...M  *S PX " P* handler deleteold(xx); begin go to page 1 of background "Template" of pad "Daily"; get fld "Date Links"; put the number of items of it into n; for x = 1 to n do begin put item x of it into hld; if hld is not empty then begin convert hld to seconds; if hld <= xx then begin put empty into item x of fld "Date Links"; push this page; go to page item x of it of background "Card_files"; put fld "Time Links" into Tlinks; for y = 1 to the number of lines of Tlinks do begin put line y of Tlinks into hld2; if hld2 is not empty then begin put empty into line y of fld "Time links"; push this page; go to page hld2 of pad "Reminder"; send "Domenu" "Delete page" to HyperPAD; pop page; end; end; -------------------------------------------------------------------- if the number of pages = 2 then begin go to page "template"; put empty into field "_date"; set the startline of fld "times" to 1; put empty into fld "date links"; put empty into field "notes for the day"; put field "times" into t; go to the next pg; put empty into field "_date"; set the name of this page to empty; put t into fld "times"; put empty into field "checks"; set the startline of fld "times" to 1; put empty into fld "time links"; put empty into field "notes for the day"; -- set it up ------------------------------ go to page 1; get the seconds; convert it to long date; put it into t; put it into fld "_date"; convert it to short4 date; put ","&it&"," into fld "date links"; go to page 2; set the name of this page to it; put t into fld "_date"; go to page 1 of background "Card_files"; domenu "Compress"; send "select" to background button "4-Today"; set the lockscreen to false; exit; -------------------------------------------------------------------- end else send "Domenu" "Delete page" to HyperPAD; pop page; end; end; end; go to page 1 of background "Card_files"; domenu "Compress"; send "select" to background button "4-Today"; set the lockscreen to false; end;  $ deleteold87DailyTemplate1XDate Links&## XXX @ XXX1 XXX  6| X  XXX .F XXX 61XDate Links&X  X`]Card_files X XTime Links&## XXX1 XXX A 6 X  XXX .MXTime links&X  X`]Reminder Delete pageDomenuX^1  XXX$p2B+templateX_date&X XXtimes&  1 PXdate links&X XXnotes for the day&X XXtimes&## XXX<X_date&X X`  X P Xtimes&X XXchecks&X XXtimes&  1 PXtime links&X XXnotes for the day&X X1X  : XXX XX  XXX X_date&X X XX, ,,,Xdate links&X X2`  X  P X_date&X XCard_files1Compress   :selectX4-TodayM X " P*$Delete pageDomenuX^1  XXX$xCard_files1Compress   :selectX4-TodayM X " P*R