HPAD6ÿÿ0|§ J‹)B¾‡”XÆ4Xž\³i 2?+BÉ~”XÆ4¬žØ³i5¹,Q‡2B:handler cancel; begin go to pad "project"; end;žB7project *ÖMZÖ ÿÿ“x# )>!$8JRdËU‹ìW‹F=u8Ä~Wš´‹ÈÄ~ &Ä=&ŠPQAQš‚ŽÂ‹øYXW&Ä=óª2Àªš¯¸ë¸_]Ëì 4N ¸ŽØº$´ Í!¸LÍ!VW¸ŽØ¾F¿Fè#_^šËVW¸ŽØ¾F¿Fè _^šË;÷sƒï‹ EtòÿëîÃ2ä.ÿ. °éôÿ°éïÿ°éêÿ°éåÿ°éàÿ°éÛÿ°éÖÿ°éÑÿ°éÌÿ° éÇÿ° éÂÿ° é½ÿ° é¸ÿ° é³ÿ°é®ÿ°é©ÿ°é¤ÿ°éŸÿ°éšÿ°é•ÿ°éÿ°é‹ÿ°é†ÿ°éÿ°é|ÿ°éwÿ°érÿ°émÿ°éhÿ° écÿ°!é^ÿ°"éYÿ°#éTÿ°$éOÿ°%éJÿ°&éEÿ°'é@ÿ°(é;ÿ°)é6ÿ°*é1ÿ°+é,ÿ°,é'ÿncharsThis program requires HyperPAD. $NCHARSÐÏP‡@ LTeamEvent±‡±‡±‡±‡‡‡‡‡‡‡‡‡!p‡pÿ‡W8?OGHandler Select; Begin go to previous page of this bg; End; ÒO7tˆ*H‡!$ž tutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡GGpÿ‡S8;KCHandler Select; Begin go to next page of this bg; End; ÒK7t‡*H‡'*$ž® tutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡GGpÿ‡l6=MEhandler select; begin edittask the currentLine of me; end;ÒžM7f€g Ú c  edittask;:*P‡N,žM Task List±‡±‡±‡±‡‡‡‡‡‡‡‡‡¡pÿ‡pÿ‡+6cykfunction searchList(pname); begin put field id 20 into data; put the number of lines of data into n; for i = 1 to n do begin put line i of data into l; if trim(char 21 to 38 of l) is pname then begin put field "TeamEvent" into t; put t & repeatChar(30-length(t)," ") & trim(char 40 to length(l) of l) after the last line of it; end; end; return it; end; handler select; begin set the lockScreen to true; put the currentLine of field id 12 into cLine; put line cline of field id 12 into mline; put trim(char 1 to 30 of mline) into mname; put trim(char 31 to length(mline) of mline) into desc; push this page; get empty; for i = 1 to the number of pages do begin go to page i; put searchList(mname) after the last line of it; end; if it is empty then begin pop page; answer "No tasks have been assigned to" && mname with "Ok"; end else begin go to pad "indiv"; put it into field "Tasks"; put mname into field "member"; put desc into field "Description"; end; end; €‚žyÒ$ searchlist87X20(## XXX A XXX1 XXX  6Ì X  XXXX X3821   6:+XTeamEvent&## XXX X    :40   6:    :30    Z: ,, Xl——A  1  XXX$(ÿ 9*7X " PX12(  Ú c XXXX12(##X  XXX X301   6: XXX X    :31   6: XXX`]XXXX1 XXXB 6K    searchlist;:XXl——A  1  XXX$¬ÿX+3^Ok No tasks have been assigned to- XU$Oindiv XXTasks&X X Xmember&X X XDescription&X X*P‡ N\ž Project Team‡±‡±‡‡‡‡‡‡‡‡‡¡pÿ‡ žpÿ‡¸¦¶®Handler Select; Begin ask "What is the team member's name?"; if it is empty then exit; if it is in field "Project Team" then answer "That person is already a member of the team." with "Ok" else begin put it into newname; ask "Description:"; if it is empty then exit; put newname & repeatChar(30 - length(newname),space) & it after the last line of field "Project Team"; end; End; Òž¶7What is the team member's name?XXTX+*XProject Team&##Xw;OkThat person is already a member of the team. XU$xX XXXDescription:XXTX+*X    :30    Z: ,,XProject Team&Xl——A  *H‡ $žŒ1-Add Member‡±‡±‡‡‡‡‡‡‡‡‡1‡p‡1xŒ¢”function deletecurrent; begin put the currentline of field "project team" into cline; get trim(char 1 to 30 of line cline of field id 12); answer "Ok to delete ^"" & it & "^" from the list?"; if it is not "Ok" then exit to hyperpad; return cline; end; Handler Select; Begin put the markedlines of field id 12 into lns; if lns is empty then put deletecurrent() into lns else begin answer "Ok to delete" && (the number of items of lns) && "people from the team?"; if it is not "Ok" then exit; end; put the number of items of lns into n; for i = n down to 1 do delete line (item i of lns) of field id 12; End; €‚ž¢ÒC$deletecurrent7Xproject team&  Ú c XXXX12(##X 301   6:XXXX" from the list?XOk to delete ",,XXUOkX.0* 9*7X12(  á c XXX +"X deletecurrent;: XXX$;people from the team? @Ok to delete--XXUOkX.* @ XXX  XXX1 41X12(X X  W1  XXX$Äÿ*H‡ ìž2-Delete Memberr‡‡‡‡‡‡‡‡1‡p‡2yO_WHandler Select; Begin global teamest; get the number of lines of field id 20; push this page; put fld "Project Team" into teamest; go to pad "sdate"; delete page field "Start Date"; delete page field "End Date"; delete page field "Leader"; delete page field "Task"; put it + 1 into page field "Which Line"; End;Òž_7X20(##AXXXX`]XProject Team&##teamestXXXsdate XStart Date%X WXEnd Date%X WXLeader%X WXTask%X W1XXWhich Line%X X*H‡ )¾šû3-Add TaskTask±‡‡‡‡‡‡‡‡‡1‡p‡3zB%5-Handler Select; Begin cancel; End;Òž57X  :*HCGôžW¼eutton0±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡‡1‡GGpÿ‡cüfunction deleteCurrent; begin put the currentline of field "task list" into cline; get line cline of fld "task list"; get char 40 to length(it) of it; answer "Ok to remove task ^"" & it & "^" from the list?"; if it is not "Ok" then exit to hyperpad; return cline; end; handler Select; begin get the markedLines of field id 20; if it is empty then get deletecurrent(); put the number of items of it into n; for i = n down to 1 do delete line (item i of it) of field "task list"; end;€‚žÒÈ$deletecurrent7Xtask list&  Ú c XXXXtask list&##X XXXXXXX   :40XXXX" from the list?XOk to remove task ",,XXUOkX.0* 9*7X20(  á cXXXXX+X deletecurrent;:XXXXX@ XXX  XXX1 46Xtask list&XXX  W1  XXX$¿ÿ*H‡9EHžå5-Delete Task±‡±‡‡‡‡‡‡‡‡‡1‡p‡5|B8%5-Handler Select; Begin help; End; Òž57X  ï:*H‡FNlž”!F1=Helpon‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡GGpÿ‡ø”¤œHandler Select; Begin get the markedLines of field id 20; if it is empty then get the currentLine of field id 20; editTask item 1 of it; End;Òž¤7X20(  á cXXXXX+X20(  Ú cXXXXXX1  edittask;:*H‡,6¨ž""4-Edit Taskask±‡‡‡‡‡‡‡‡‡1‡p‡4{<&6.Handler Select; Begin go home; End;Òž67‹*HIO<žf#Homeutton0±‡±‡±‡±‡±‡±‡±‡±‡±‡±‡‡1‡GGpÿ‡¬‡(>0handler help; begin go to pad "project.hlp"; end; handler editTask(cline); begin global teamest; if field id 20 is empty then get empty else get line cline of field id 20; push this page; put fld "Project Team" into teamest; go to pad "sdate"; put trim(char 1 to 8 of it) into page field "Start Date"; put trim(char 10 to 17 of it) into page field "End Date"; put trim(char 21 to 38 of it) into page field "Leader"; put trim(char 40 to length(it) of it) into page field "Task"; put cline into page field "Which Line"; end;ïž>€Q7project.hlp *$ edittask87X20(##+ XXX$X20(##XX XXX`]XProject Team&##teamestXXXsdate X81   6:XStart Date%X X X1710   6:XEnd Date%X X X3821   6:XLeader%X X X    :40   6:XTask%X XXXWhich Line%X X*í]Œ‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚‚± Task ListñÐ ÚËÄ¿Ü ³Project:³ۂÃËÄ´Û‚³ Starting: Ending:ƒ Member:Œ Task:ž³Û‚³Ë³Û‚³Ë³Û‚³Ë³Û‚³Ë³Û‚³Ë³Û‚³Ë³Û‚³Ë³Û‚ÃËÄ´Û‚³Member Name:‘ Description: ³Û‚³ÌÛ‚³ÌÛ‚³ÌÛ‚ÀËÄÙÛƒÍßÿóPre‚s TAB to highlight a bu‚t on, then pre‚s ENTER.Ðp‚‡‹0ÿ‡•‡Í€‚‡Í€‚‡Í€‚‡Ë0€‚‡̇€‚‡̇€‚‡̇€‚‡̇€‚‡̇€‚‡̇€‚‡Í€‚‡Í€‚‡Ë0€‚‡Í€‚‡Í€‚‡Í€‚‡Í€ƒ‡Í€ÿ‡¢‡ÐÐ0E@î#œ' ¹ d  » :F± ›J!Ø!#¤#"€Hhž Documentation €HTžŒ‹1/1/90 2/1/90 John Smith Outline User's Guide 2/2/90 3/1/90 Susan Jones Outline Reference Guide ¥ €H|ž‘John Smith Group Leader John Green Copy editor (consultant) Susan Jones Technical writerÿÿÒ)ö)˜*!€Hüž New Car Seat €HÈžŒ‹F1/1/90 2/1/90 John Smith Layout car seat ideas 2/4/90 2/16/90 Pete Fish Figure out government specs ” €H\ž€John Smith Project coordinator Pete Fish Engineer Roger Wilkins Engineerÿÿ^++#,