<script>on mouseWithinif the selectedChunk<>empty then return exput rect of me into Rctput number of cds of bg "Memo" into NsPageput item 3 of Rct/NsPage into Uput item 2 of loc of bg fld "NoPageJump" into Vshow bg fld "NoPageJump"set cursor to nonerepeatif the mouseLoc is not within Rct thenhide bg fld "NoPageJump"return exend ifif the mouse=down thengo cd NoPage of bg "Memo"-- return exend ifput the mouseH div U+1 into NoPageput NoPage into bg fld "NoPageJump"-- put trunc(NoPage*U-NoPage/2+0.5) into Hset loc of bg fld "NoPageJump" to the mouseH,Vend repeatend mouseWithin</script>
</part>
<part>
<id>36</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>180</left>
<top>0</top>
<right>213</right>
<bottom>17</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>italic</textStyle>
<textHeight>16</textHeight>
<name>NoPageJump</name>
<script></script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>279</left>
<top>319</top>
<right>421</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29484</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseWithinOBjObj "Within",name of meend mouseWithinon mouseUpend mouseUpon mouseDownObjPage "Go",,short name of meend mouseDownon mouseLeaveend mouseLeave</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>92</left>
<top>319</top>
<right>234</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5811</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseWithinOBjObj "Within",name of meend mouseWithinon mouseUpend mouseUpon mouseDownObjPage "Go",,short name of meend mouseDownon mouseLeaveend mouseLeave</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>40</left>
<top>319</top>
<right>88</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12010</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PrevFast</name>
<script>on mouseWithinOBjObj "Within",name of meend mouseWithinon mouseUpend mouseUpon mouseDownObjPage "Go",,short name of meend mouseDownon mouseLeaveend mouseLeave</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>319</top>
<right>36</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28124</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cd1</name>
<script>on mouseWithinput rect of me into Rct-- put number of cds of this bg into NsPage-- put item 3 of Rct/NsPage into U-- put item 2 of loc of bg fld "NoPageJump" into Vset icon of bg btn "Cd1" to "Cd1"set cursor to nonerepeatif the mouseLoc is not within Rct thenset icon of bg btn "Cd1" to 0mouseLeavereturn exend ifif the mouse=down thenmouseDown-- return exend ifend repeatend mouseWithinon mouseDownObjPage "Go",,"Cd1"end mouseDownon mouseLeaveend mouseLeave</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>425</left>
<top>319</top>
<right>473</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10911</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NextFast</name>
<script>on mouseWithinOBjObj "Within",name of meend mouseWithinon mouseUpend mouseUpon mouseDownObjPage "Go",,short name of meend mouseDownon mouseLeaveend mouseLeave</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>477</left>
<top>319</top>
<right>508</right>
<bottom>339</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>18628</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>CdNs</name>
<script>on mouseWithinOBjObj "Within",name of meend mouseWithinon mouseUpend mouseUpon mouseDownObjPage "Go",,short name of meend mouseDownon mouseLeaveend mouseLeave</script>
</part>
<name>Memo</name>
<script>-------------------ﾃ⒣\ "ObjMemo"-------------------on ObjMemo Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6global rst------------------ﾃ懌\ "Update"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Update" thenif NmFlag=empty then return exput 0 into HMaxput 0 into Ctif there is a cd fld NmFlag thenput number of lines of cd fld NmFlag into NsLnrepeat with A=1 to NsLnif line NsLn-A+1 of cd fld NmFlag=empty then add 1 to Ctelse exit repeatend repeatdelete line NsLn-Ct+1 to NsLn of cd fld NmFlagif cd fld NmFlag=empty thendelete cd fld NmFlagreturn exend ifsubtract Ct from NsLnrepeat with A=1 to NsLnselect after last char of line A of cd fld NmFlagput item 1 of the selectedLoc into Hput max(H,HMax) into HMaxend repeatput item 2 of the selectedLoc into Vput rect of cd fld NmFlag into Rctput HMax+5 into item 3 of Rctput V into item 4 of Rctset rect of cd fld NmFlag to Rctset style of cd fld NmFlag to transparentend ifput number of cd flds into NsFldrepeat with A=1 to NsFldset lockText of cd fld A to trueend repeat-- ObjMemo "mouseEnter","cd fld "&&NmFlagreturn exend if------------------ﾃ懌\ "Update"------------------------------------ﾃ懌\ "Select"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Select" thenreturn exend if------------------ﾃ懌\ "Select"------------------------------------ﾃ懌\ "Down"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Down" thenreturn exend if------------------ﾃ懌\ "Down"------------------------------------ﾃ懌\ "mouseEnter"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="mouseEnter" thenreturn exend if------------------ﾃ懌\ "mouseEnter"------------------------------------ﾃ懌\ "New"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="New" thenreturn exend if------------------ﾃ懌\ "New"------------------------------------ﾃ懌\ "Move"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Move" thenreturn exend if------------------ﾃ懌\ "Move"------------------------------------ﾃ懌\ "ChangeTextSize"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="ChangeTextSize" thenreturn exend if------------------ﾃ懌\ "Read"------------------end ObjMemo--------------------ﾃ ﾂｰ "ObjMemo"---------------------------------------ﾃ⒣\ "ObjNoPage"-------------------on ObjNoPage Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6------------------ﾃ懌\ "Update"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Update" thenput number of cds of bg "Memo" into NsPagerepeat with A=1 to NsPageput "-"&A&"-" into bg fld "NoPage" of cd A of bg "Memo"end repeatreturn exend if------------------ﾃ懌\ "Update"------------------------------------ﾃ懌\ "mouseDown"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="mouseDown" thenput number of cds of this bg into NsPageput "NoPage"&","&"Int"&","&">=1 <="&NsPage into Txrepeatask "ﾃ 竅ﾃｬﾃﾃ竏妥ﾃ暗謁ﾃ [ﾃ姥ﾃｮ窶佚ｧﾃ"&return&"(1ﾃ⑶"&NsPage&")"if it=empty or the result="Cancel" then return exput TFNormal(it,"NoPage",Tx) into TFif TF=false thenanswer "ﾃｮ窶佚ｧﾃ愿ﾃεｩwﾃｭﾃ凝邃｢ﾃ､窶佚 ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏" with "Cancel" or "OK"if it=empty or it="Cancel" thenreturn exend ifelseexit repeatend ifend repeatgo cd it of this bgreturn exend if------------------ﾃ懌\ "mouseDown"------------------end ObjNoPage--------------------ﾃ ﾂｰ "ObjNoPage"---------------------------------------ﾃ⒣\ "ObjPage"-------------------on ObjPage Sts,NmFlag,Agt1,Agt2,Agt3,Agt4global rst------------------ﾃ懌\ "Go"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Go" thenput Agt1 into Drcput number of cds of this bg into NsPageput (number of cd 1 of bg "Memo")-1 into NoCd1Memo--------if Drc="Cd1" thengo cd 1 of bg "Memo"return exend if--------if Drc="CdNs" thengo cd NsPage of bg "Memo"return exend if--------if Drc="Prev" thenput number of this cd-NoCd1Memo-1 into Noif No<=0 then put NsPage into Noend if----if Drc="PrevFast" thenrepeat until the mouse=Upwait 1 secsObjPage "Go",,"Prev"end repeatreturn exend if----if Drc="Next" thenput number of this cd-NoCd1Memo+1 into Noif No>NsPage then put 1 into Noend if----if Drc="NextFast" thenrepeat until the mouse=Upwait 1 secsObjPage "Go",,"Next"end repeatreturn exend if----go cd No+NoCd1Memoreturn exend if------------------ﾃ懌\ "Go"------------------------------------ﾃ懌\ "Write"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Write" thenreturn exend if------------------ﾃ懌\ "Write"------------------end ObjPagefunction ObjPage_UnifyTx Drc,Dlmtput empty into Cr-- get number of this cdput number of cd flds into NsFldif Drc="V" thenrepeat with A=1 to NsFldput A&","&top of cd fld A into line A of Listend repeatend ifif Drc="H" thenrepeat with A=1 to NsFldput A&","&left of cd fld A into line A of Listend repeatend ifsort lines of List numeric by item 2 of Eachrepeat with A=1 to NsFldput Dlmt&return&cd fld (item 1 of line A of List) after Crend repeatif Dlmt=return then delete char 1 of Crdelete char 1 of Crreturn Crend ObjPage_UnifyTx--------------------ﾃ ﾂｰ "ObjPage"---------------------------------------ﾃ⒣\ "ObjObj"-------------------on ObjObj Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6-- global rst,TFDown,TFUpput value(word 3 of NmFlag) into Nm------------------ﾃ懌\ "Within"------------------if Sts="Within" thenreturn exend if------------------ﾃ懌\ "Within"------------------end ObjObj--------------------ﾃ ﾂｰ "ObjObj"--------------------------------------------------------------------------on arrowKey Drcif the selectedChunk<>empty then pass arrowKeyif Drc="Right" then ObjPage "Go",,"Next"if Drc="Left" then ObjPage "Go",,"Prev"end arrowKey-- on mouseDown-- ObjMemo "Update",word 3 of the selectedField-- ObjMemo "New"-- end mouseDown--------------------------------------------on closeCardend closeCard</script>
