HPAD 0|- J!s"BH~^4Xida "I.>6handler cancel; begin go to pad "pad"; end;>7pad *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. $FORMATH>(80Handler Select; Begin go home; End; 87*HIOP? Homeutton1GGpOB%5-Handler Select; Begin help; End; 57X  :*HFN F1=Helpon1GGpOK4D<Handler Select; Begin go to previous page; End; D7=*H"%`W meutton1GGpOG0@8Handler Select; Begin go to next page; End; @7<*H(+h meutton1GGpOP page number 00ppP Jnote'p@p Handler Select; Begin global lastfind; ask "Find what?" with lastfind; if it is empty then exit; put it into lastfind; find part it in field "note"; if the result is "not found" then answer "Can't find ^"" & it & "^"." with "Ok"; End;  7lastfindFind what? XTX+*XlastfindXXXX Xnote&  knot foundX  :+ Ok".XCan't find ",, XU*H &%1-Findon1 p1xo<RDhandler seperator(w); begin print "+"; print repchar(w - 2,"-"); print "+" & return; end; Handler Select; Begin answer "Ok to print this note?"; if it is not "Ok" then exit; set the printer to on; show button id 14; get the rect of field "note"; put item 3 of it - item 1 of it + 3 into wid; put item 4 of it - item 2 of it - 1 into h; print "+"; print repchar(wid - 2,"-"); print "+" & return; put format(field "note",wid - 4,1000) into notes; put max(h,the number of lines of notes) into numlines; for i = 1 to numlines do begin get "| " & line i of notes; print it; print repchar(wid - (length(it) + 1)," "); print "|" & return; end; print "+"; print repchar(wid - 2,"-"); print "+" & return & return; set the printer to off; hide button id 14; End;*R$ seperator87+}2X -   Z:} +,}*7Ok to print this note?XXUOkX.*X  PX14O  *R PXnote&  )cXXXX3XX1XX3  XXX1XX2XX4 XXX+}2  -   Z:} +,}Xnote&##4  1000  format;: XXX  A   : XXX1 XXX  6b X | ,XXXXX}1X   :     Z:} |,}1  XXX$+}2  -   Z:} +,,}X  PX14O  *S P*H  $2-Printn1 p2yH =Printing, please wait...5GGpP7JRevised on000pD'7/Handler Select; Begin cancel; End; 77X  :*H CG([eutton1GGpOOhandler select; begin put the userlevel into saved; set the userlevel to 3; set the focus to field "note"; record "{ALT+T}{ALT+O}"; playback; domenu "Import..."; set the userlevel to saved; end;7X %c XXXX %3 PXnote& h{ALT+T}{ALT+O}   :X  :Import...   :X %  P*H3-Import Text1 p3zEUMhandler Select; Begin set the lockscreen to true; get field "note"; if length(it) > 1 then begin push this page; go to page 1 of pad "Dprint"; put format(it,69,100) into it; pop page; put it into fld "Note"; put the userlevel into saved; set the userlevel to 3; set the focus to field "note"; record "{ALT+T}{ALT+O}" & "NOTE" & currentpage() & ".TXT"; playback; domenu "Export..."; set the userlevel to saved; end else answer "No text to export" with "Ok"; set the lockscreen to false; End;U7X " PXnote&##XXXX1X   :3`]Dprint1X69100  format;:XXXX^XXNote&X XX %c XXXX %3 PXnote& h.TXTX  7:NOTE{ALT+T}{ALT+O},,,   :X  :Export...   :X %  P$OkNo text to export XUX " P*H!-4-Export Text1 p4{qyhandler openpage; begin global saved_note; put "Note" && currentpage() && "of" && the number of pages into field "page number"; put field "note" into saved_note; end; handler closepage; begin global saved_note; if field "note" is not saved_note then put the date into field "revised on"; end; handler closepad; begin global saved_page; put empty into saved_page; pass; end; handler newpage; begin put the date into field "revised on"; set the focus to field "note"; end; handler help; begin go to pg id 7 of pad "note.hlp"; end; handler openpad; begin set the focus to field "note"; pass; end;4P7BofX  7:Note---Xpage number&X XXnote&##saved_noteXXX*7saved_noteXnote&##.X  :Xrevised on&X X*7saved_pageXXX/*7X  :Xrevised on&X XXnote& h*7note.hlp7*7Xnote& h/*&t HyperPAD 2.2 Brightbil-Roberts & Co. Notes DZ܃               ۂ ߃ 4Use TAB to highlight a field, F2 to edit, F10 for comands.p0ʀ0E@Q  7 u <  h  Note 1 of 2P Hn<;The quick brown fox dodged the bullet with grace and speed.|H7/20/90!"U" ~ h Note 2 of 2 HHa 7/19/90"""