<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>7</cardCount>
<cardID>6499</cardID>
<listID>5556</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackObjStack "openStack"end openStackon closeStackObjStack "closeStack"end closeStack-------------------ﾃ⒣\ "ObjTxFile"-------------------on ObjTxFile Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6global rst------------------ﾃ懌\ "Read"--------------------<Path>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Read" thenput Agt1 into Pathif Path=empty thenanswer file "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃïｬﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃﾃ津竕暗｢竏ｫﾃ竕･ﾃﾂ｢" of type textif it=empty then return exput it into Pathend ifopen file Pathif the result ="File is already open." thenanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"&return&Path&return&"ﾃﾃ陛ｩgﾃｳpﾃｭﾃ愿竕暗竏"return exend ifread from file Path until EOFclose file Path-- ﾃ ﾃｴﾃ ﾃｴUGV "Path",Path-- ﾃ ﾃｶﾃ ﾃｶput it into rstreturn exend if------------------ﾃ懌\ "Read"------------------------------------ﾃ懌\ "Write"--------------------<Data>,<NmFile>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Write" thenput empty into NmFileput Agt1 into Dataput Agt2 into NmFileif NmFile<>empty then ask file "ﾃｯ竄ｬﾃｫ竏づ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺ" with NmFileelse ask file "ﾃｯ竄ｬﾃｫ竏づ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺ"if it=empty then return exput it into Pathopen file Pathif the result ="File is already open." thenanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"&return&Path&return&"ﾃﾃ陛ｩgﾃｳpﾃｭﾃ愿竕暗竏"return exend ifwrite Data to file Pathclose file Pathreturn exend if------------------ﾃ懌\ "Write"------------------end ObjTxFile--------------------ﾃ ﾂｰ "ObjTxFile"---------------------------------------ﾃ⒣\ "ObjCd"-------------------on ObjCd Sts,NmFlag,Agt1,Agt2,Agt3,Agt4------------------ﾃ懌\ "ClearPict"------------------if Sts="ClearPict" thenset editBkgnd to falsechoose select tooldomenu "Select All"domenu "Clear Picture"choose browse toolreturn exend if------------------ﾃ懌\ "ClearPict"------------------end ObjCd--------------------ﾃ ﾂｰ "ObjCd"---------------------------------------ﾃ⒣\ "ObjBg"-------------------on ObjBg Sts,NmFlag,Agt1,Agt2,Agt3,Agt4------------------ﾃ懌\ "ClearPict"------------------if Sts="ClearPict" thenset editBkgnd to truechoose select tooldomenu "Select All"domenu "Clear Picture"set editBkgnd to falsechoose browse toolreturn exend if------------------ﾃ懌\ "ClearPict"------------------end ObjBg--------------------ﾃ ﾂｰ "ObjBg"---------------------------------------ﾃ⒣\ "ObjFld"-------------------on ObjFld Sts,NmFlag,Agt1,Agt2,Agt3,Agt4global rst------------------ﾃ懌\ "setStdCh"------------------if Sts="setStdCh" thenput the selectedChunk into StdChif StdCh=empty then return exput word 2 of StdCh&","&word 4 of StdCh&","&word 6 to 8 of StdCh into TxUGV "StdCh",Txreturn exend if------------------ﾃ懌\ "setStdCh"------------------------------------ﾃ懌\ "getStdCh"------------------if Sts="getStdCh" thenput UGV("StdCh") into StdChif StdCh=empty then return exdo "select char "&item 1 of StdCh&" to "&item 2 of StdCh&"of "&item 3 of StdChUGV "StdCh",emptyreturn exend if------------------ﾃ懌\ "getStdCh"------------------------------------ﾃ懌\ "Find"------------------if Sts="Find" thenObjAsk "get",,"Ch","ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ",UGV("TxFind")if rst=empty then return exUGV "TxFind",rstObjFld "NextFind"-- put UGV("TFFind") into TFFind-- if TFFind<>true then-- ObjAsk "get",,"Ch","ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ",UGV("TxFind")-- if rst=empty then return ex-- put rst into TxFInd-- UGV "TxFind",TxFind-- find string TxFind-- UGV "InfoFound",the FoundChunk&","&ID of this cd-- UGV "TFFind",true-- return ex-- else-- find string UGV("TxFind")-- put the FoundChunk&","&ID of this cd into InfoFound-- if InfoFound=UGV("InfoFound") then-- UGV "TFFind",empty-- beep-- end if-- end ifreturn exend if------------------ﾃ懌\ "Find"------------------------------------ﾃ懌\ "NextFind"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="NextFind" thenput UGV("TxFind") into Txif Tx=empty then return exfind string Txput the result into rstreturn exend if------------------ﾃ懌\ "NextFind"------------------------------------ﾃ懌\ "Replace"------------------if Sts="Replace" thenglobal rstObjAsk "get",,"Ch","ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ",UGV("TxFind")if rst=empty then return exUGV "TxFind",rstput rst into TxFindObjAsk "get",,"Ch","ﾃｭuﾃ､竏妥･ﾃ",UGV("TxReplace")if rst=empty then return exUGV "TxReplace",rstput rst into TxReplaceanswer "" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" or "ﾃ､ﾃﾃｫSﾃ ﾃ催ｭv" or "ﾃｯﾃｮﾃｯ邃｢ﾃ ﾃ催ｭv"if it= "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then return exif it = "ﾃ､ﾃﾃｫSﾃ ﾃ催ｭv" then put "W" into WorPif it = "ﾃｯﾃｮﾃｯ邃｢ﾃ ﾃ催ｭv" then put "P" into WorPput number of this cd into NoCd1set lockMessages to trueput 0 into Ctset cursor to watchlock screenif WorP="P" thenrepeatObjFld "NextFind"if rst="Not Found" thenexit repeatend ifput the foundChunk into InfoFIndput TxReplace into char (word 2 of InfoFInd) to (word 4 of InfoFInd) of cd fld (word 8 of InfoFInd)add 1 to Ctend repeatend ifif WorP="W" thenrepeatObjFld "NextFind"if rst="Not Found" thenexit repeatend ifput the foundChunk into InfoFIndget char (word 2 of InfoFInd)-1 of cd fld (word 8 of InfoFInd)if ((it = " " or it=quote) or it=return) or (word 2 of InfoFInd)-1=0 thenget char (word 4 of InfoFInd)+1 of cd fld (word 8 of InfoFInd)put number of chars of cd fld (word 8 of InfoFInd) into NsChif ((it = " " or it=quote) or it=return) or NsCh>(word 4 of InfoFInd)+1 then put TxReplace into char (word 2 of InfoFInd) to (word 4 of InfoFInd) of cd fld (word 8 of InfoFInd)add 1 to Ctend ifend repeatend ifgo cd NoCd1unlock screenanswer Ct&"ﾃ･ﾂｬﾃｨﾃ､ﾃｭuﾃﾂｴﾃ､竏妥ﾂｶﾃ窶ｹﾃﾂｵﾃﾎｩ"return exend if------------------ﾃ懌\ "Replace"------------------end ObjFld--------------------ﾃ ﾂｰ "ObjFld"---------------------------------------ﾃ⒣\ "ObjStack"-------------------on ObjStack Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6------------------ﾃ懌\ "LockScpt"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="LockScpt" thenset cantAbort of this stack to trueset cantPeek of this stack to truereturn exend if------------------ﾃ懌\ "LockScpt"------------------------------------ﾃ懌\ "openStack"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="openStack" thengo cd (bg fld "NoCdClose" of cd 1 of bg "about")return exend if------------------ﾃ懌\ "openStack"------------------------------------ﾃ懌\ "closeStack"------------------if Sts="closeStack" thenput number of this cd into bg fld "NoCdClose" of cd 1 of bg "about"return exend if------------------ﾃ懌\ "closeStack"------------------------------------ﾃ懌\ "ReadOnly"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="ReadOnly" thenanswer "ﾃ謁ﾃ [ﾃ姥ﾃ 竅ﾃｬﾃﾃ陰ﾃ韻ﾃ嘘ﾃ嘉ｬﾃï｣ｿﾃｯ¥ﾃｩﾂｶﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" or "ﾃﾃ陛ﾂ｢" or "ﾃﾂ｢ﾃﾂ｢ﾃﾂｶ"if it = "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then return exif it = "ﾃﾃ陛ﾂ｢" thenput true into TFShowBtnput "ﾃｬﾃ淌ｱﾃｦ,ﾃｯsﾃｬﾃ淌ｱﾃｦ,ﾃｭ竏妥ｯﾋ堙･`,ﾃ､竄ｬﾃ窶ｺﾃﾃε窶 ﾃﾃ暗ｭ竏妥ｯﾋ堙･`,ﾃ鰻ﾃ嘉嘉栄ﾃ右" into TxStyput ItemsToLines(TxSty) into TxStyput ShowList(TxSty,"ﾃ閲ﾃ運ﾃ嘉ｬﾃ厩ﾃ運ﾃ韻ﾃ嘉｣" ,false,false,"OK,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣",0) into rstif line 1 of rst = "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" then return exput "transparent,opaque,rect,roundrect,shadow" into TxStyput item (line 2 of rst) of TxSty into Styput "Cd1,PrevFast,Prev,Next,NextFast,CdNs" into Txput number of items of Tx into NsItemrepeat with A=1 to NsItemset icon of bg btn (item A of Tx) to (item A of Tx)set style of bg btn (item A of Tx) to Styend repeatelseput false into TFShowBtnend ifput 0 into NoLnBaseput script of this stack into Txput bg fld "ListReadOnlyStk" of cd 1 of bg "About" into Listput number of lines of List into NsLnrepeat with A=1 to NsLnput line A of List into Tgput item 1 of Tg into Sput item 2 of Tg into Eput E-S+1 into Nsput S-NoLnBase into Sdelete line S to S+Ns-1 of Txadd Ns to NoLnBaseend repeatset script of this stack to Txreset menubarput 0 into NoLnBaseput script of bg "Memo" into Txput bg fld "ListReadOnlyBg" of cd 1 of bg "About" into Listput number of lines of List into NsLnrepeat with A=1 to NsLnput line A of List into Tgput item 1 of Tg into Sput item 2 of Tg into Eput E-S+1 into Nsput S-NoLnBase into Sdelete line S to S+Ns-1 of Txadd Ns to NoLnBaseend repeatif TFShowBtn=true then delete line 270 to 300 of Txset script of bg "Memo" to Txput number of cd flds into NsFldrepeat with A=1 to NsFldset lockText of cd fld A to trueend repeatanswer "ﾃ嘉 ﾃ嘉ﾃﾃεｯ窶愿ｨWﾃ｣@ﾃｮ¥ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾎｩ"return exend if------------------ﾃ懌\ "ReadOnly"------------------------------------ﾃ懌\ "Redraw"--------------------<Data>,<NmFile>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Redraw" thenObjBg "ClearPict"put number of cds of this bg into NsPageput width of cd window into WdWdput height of cd window into HgWdput 2 into Deput WdWd-De*NsPage into Wdput HgWd-De*NsPage into Hgchoose line toolrepeat with A=1 to NsPageput WdWd-A*De into Rput HgWd-A*De into Btmdrag from R-Wd,Btm to R,Btmdrag from R,Btm-Hg to R,Btmend repeatchoose browse toolreturn exend if------------------ﾃ懌\ "Redraw"------------------end ObjStack--------------------ﾃ ﾂｰ "ObjStack"---------------------------------------ﾃ⒣\ "ObjMenu"-------------------on ObjMenu Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6------------------ﾃ懌\ "Reset"------------------global rstif Sts="Reset" thenlock screen-- reset menubarif there is a menu "ﾃｯ窶愿ｨW" then-- delete menu "ﾃｯ窶愿ｨW"repeat 9if there is a menuItem 7 of menu "ﾃｯ窶愿ｨW" then delete menuItem 7 of menu "ﾃｯ窶愿ｨW"end repeat-- if there is a menuItem 8 of menu "ﾃｯ窶愿ｨW" then delete menuItem 8 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 9 of menu "ﾃｯ窶愿ｨW" then delete menuItem 9 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 10 of menu "ﾃｯ窶愿ｨW" then delete menuItem 10 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 11 of menu "ﾃｯ窶愿ｨW" then delete menuItem 11 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 12 of menu "ﾃｯ窶愿ｨW" then delete menuItem 12 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 13 of menu "ﾃｯ窶愿ｨW" then delete menuItem 13 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 14 of menu "ﾃｯ窶愿ｨW" then delete menuItem 14 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem 15 of menu "ﾃｯ窶愿ｨW" then delete menuItem 15 of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem "ﾃｪVﾃ｣Kﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW" then delete menuItem "ﾃｪVﾃ｣Kﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem "ﾃ嘘ﾃ鋭ﾃ [ﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW" then delete menuItem "ﾃ嘘ﾃ鋭ﾃ [ﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem "ﾃ雨ﾃ [ﾃ栄ﾃｧﾃ古ｨﾃｺ" of menu "ﾃｯ窶愿ｨW" then delete menuItem "ﾃ雨ﾃ [ﾃ栄ﾃｧﾃ古ｨﾃｺ" of menu "ﾃｯ窶愿ｨW"-- if there is a menuItem "ﾃ雨ﾃ叡ﾃ曳ﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW" then delete menuItem "ﾃ雨ﾃ叡ﾃ曳ﾃ雨ﾃ [ﾃ栄" of menu "ﾃｯ窶愿ｨW"end ifif there is a menu "ﾃε溪王ﾅｸ" thenif there is a menuItem "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺ..." of menu "ﾃε溪王ﾅｸ" then delete menuItem "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ古ｨﾃｺ..." of menu "ﾃε溪王ﾅｸ"end ifif there is a menu "竏ｫïｬ≫" then delete menu "竏ｫïｬ≫"-- if there is a menu "ﾂｬ竏槐ｸ" then delete menu "ﾂｬ竏槐ｸ"if there is a menu "ﾂｵﾃïｬﾂｺïｬ≫┐竏照" then delete menu "ﾂｵﾃïｬﾂｺïｬ≫┐竏照"-- if there is a menu "ﾃδｴ窶ｺﾆ" then delete menu "ﾃδｴ窶ｺﾆ"if there is a menu "ﾎｩﾂｿ竕､ﾅｸ" thenif there is a menuItem "ﾃﾂｪﾃﾃεｫﾂｺ..." of menu "ﾎｩﾂｿ竕､ﾅｸ" then delete menuItem "ﾃﾂｪﾃﾃεｫﾂｺ..." of menu "ﾎｩﾂｿ竕､ﾅｸ"end ifunlock screenreturn exend if------------------ﾃ懌\ "Reset"------------------------------------ﾃ懌\ "Create"------------------if Sts="Create" thenglobal rstObjMenu "Reset"lock screen-- ﾃ ﾃｴﾃ ﾃｴput "ﾃｯ窶愿ｨW" into Txput item 1 of Tx into NmFlagif there is a menu NmFlag thenput createMenuItems(NmFlag) into LstItemput number of lines of LstItem into Ns1put createMenuMsgs(NmFlag) into ListMgput number of lines of ListMg into Ns2put LstItem after menu NmFlag with menuMsg ListMgend if-- ﾃ ﾃｶﾃ ﾃｶput "ﾃ･ﾃｼﾃｧﾄｱ,ﾃ嘉 ﾃ嘉ﾃε溪王ﾅｸ,ﾃｬoﾃｲ^&About" into Txrepeat with A=1 to Number of items of Txput item A of Tx into NmFlagif there is a menu NmFlag then next repeatcreate menu NmFlagput createMenuItems(NmFlag) into LstItemput number of lines of LstItem into Ns1put createMenuMsgs(NmFlag) into ListMgput number of lines of ListMg into Ns2put LstItem into menu NmFlag with menuMsg ListMgend repeatObjMenu "setCmdChar",,"ﾃｪVﾃ｣Kﾃ謁ﾃ [ﾃ姥","ﾃｯ窶愿ｨW","N"ObjMenu "setCmdChar",,"ﾃ･ﾃｼﾃｧﾄｱ...","ﾃ･ﾃｼﾃｧﾄｱ","F"ObjMenu "setCmdChar",,"ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ","ﾃ･ﾃｼﾃｧﾄｱ","G"ObjMenu "setCmdChar",,"ﾃｭuﾃ､竏...","ﾃ･ﾃｼﾃｧﾄｱ","R"unlock screenreturn exend if------------------ﾃ懌\ "Create"------------------------------------ﾃ懌\ "setCheck"------------------if Sts="setCheck" thenif NmFlag= "ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳" thenlock screenif there is a menuItem Agt2 of menu "ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳" then set checkMark of menuItem Agt2 of menu "ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳" to trueif there is a menuItem Agt1 of menu "ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳" then set checkMark of menuItem Agt1 of menu "ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳" to truereturn exend ifif NmFlag= "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" thenlock screenif there is a menuItem Agt2 of menu "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" then set checkMark of menuItem Agt2 of menu "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" to trueif there is a menuItem Agt1 of menu "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" then set checkMark of menuItem Agt1 of menu "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" to truereturn exend ifend if------------------ﾃ懌\ "setCheck"------------------------------------ﾃ懌\ "setEnabled"------------------if Sts="setEnabled" thenif there is a menuItem Agt1 of menu Agt2 thenset enabled of menuItem Agt1 of menu Agt2 to Agt3end ifreturn exend if------------------ﾃ懌\ "setEnabled"------------------------------------ﾃ懌\ "Default"--------------------<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>,<>if Sts="Default" thenreturn exend if------------------ﾃ懌\ "Default"------------------------------------ﾃ懌\ "setCmdChar"------------------if Sts="setCmdChar" then-- <MenuItem>,<Menu>,<char>if there is a MenuItem Agt1 of menu Agt2 then set cmdChar of MenuItem Agt1 of menu Agt2 to Agt3return exend if------------------ﾃ懌\ "setCmdChar"------------------------------------ﾃ懌\ "Return"------------------if Sts="Return" thenreset menuBarreturn exend if------------------ﾃ懌\ "Return"------------------------------------ﾃ懌\ "openStack"------------------if Sts="openStack" thenObjMenu "Return"ObjMenu "Create"ObjMenu "setEnabled",,"ﾃ謁ﾃ [ﾃ厩ﾃ曳ﾃ謁ﾃ [ﾃ姥","ﾃｯ窶愿ｨW",falsereturn exend if------------------ﾃ懌\ "openStack"------------------end ObjMenufunction createMenuItems NmFlagif NmFlag= "ﾃｯ窶愿ｨW" then-- return "ﾃｪVﾃ｣Kﾃ謁ﾃ [ﾃ姥"&return&"ﾃ謁ﾃ [ﾃ姥ﾃｧﾃ古ｨﾃｺ..."return "--"&return&"ﾃｪVﾃ｣Kﾃ謁ﾃ [ﾃ姥"&return&"ﾃ謁ﾃ [ﾃ姥ﾃｧﾃ古ｨﾃｺ..."end ifif NmFlag= "ﾃ･ﾃｼﾃｧﾄｱ" thenRETURN "ﾃ･ﾃｼﾃｧﾄｱ..." &return&"ﾃｩﾃｼﾃï｣ｿﾃ･ﾃｼﾃｧﾄｱ"& RETURN & "ﾃｭuﾃ､竏..."end ifif NmFlag= "ﾃ嘉 ﾃ嘉ﾃε溪王ﾅｸ" thenreturn "ﾃε溪王ﾅｸﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ..."&return& "ﾃﾂｱﾃﾃε謁ﾃ [ﾃ姥ﾃﾃεε溪王ﾅｸﾃｨﾃｫﾃﾂｴﾃﾃｦﾃﾂｵ..."&return& "ﾃｫSﾃ謁ﾃ [ﾃ姥ﾃﾃεε溪王ﾅｸﾃｨﾃｫﾃﾂｴﾃﾃｦﾃﾂｵ..."&return&"--"&return&"ﾃ嘉､ﾃ [ﾃ栄ﾃ迂ﾃ嘉ｬﾃ嘉､ﾃ [ﾃ｢ﾂｪ..."end ifif NmFlag= "ﾃｬoﾃｲ^&About" thenreturn "ﾃｬoﾃｲ^&About"end ifend createMenuItemsfunction createMenuMsgs NmFlagif NmFlag= "ﾃｯ窶愿ｨW" then-- return "ObjPage New"&return&"ObjPage Delete"return empyu&return&"ObjPage New"&return&"ObjPage Delete"end ifif NmFlag= "ﾃ･ﾃｼﾃｧﾄｱ" then-- RETURN "ﾃｫSﾃ謁ﾃ [ﾃ姥ﾃ･ﾃｼﾃｧﾄｱ" & RETURN & ﾂｬ-- "ﾃﾂｱﾃﾃε謁ﾃ [ﾃ姥ﾃ･ﾃｼﾃｧﾄｱ"return "ObjFld Find"&return&"ObjFld NextFind"&return&"ObjFld Replace"end ifif NmFlag= "ﾃ嘉 ﾃ嘉ﾃε溪王ﾅｸ" thenreturn "ObjMemo Read"&return& "send ""e&"ObjPage Write,,This""e&" to this bg"&return&"send ""e&"ObjPage Write,,All""e&" to this bg"&return&""&return&"ObjStack ReadOnly"end ifif NmFlag= "ﾃｬoﾃｲ^&About" thenreturn "ObjRegist SctMenu"end ifend createMenuMsgs--------------------ﾃ ﾂｰ "ObjMenu"---------------------------------------ﾃ⒣\ "ObjRegist"-------------------on ObjRegist Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6global rst------------------ﾃ懌\ "SctMenu"------------------if Sts="SctMenu" thengo cd 1 of bg "About"-- ObjAsk "Get","ﾃｬoﾃｲ^"-- if "error" is in rst then return ex-- Regist rstreturn exend if------------------ﾃ懌\ "SctMenu"------------------end ObjRegist--------------------ﾃ ﾂｰ "ObjRegist"---------------------------------------ﾃ⒣\ "ObjAsk"-------------------on ObjAsk Sts,NmFlag,Agt1,Agt2,Agt3,Agt4,Agt5,Agt6global rstput empty into rstput Agt1 into Styput Agt2 into Txput Agt3 into Defaultput Agt4 into NumMinput Agt5 into NumMax------------------ﾃ懌\ "Get"------------------if Sts="Get" then-- <Nm>,<Sty| Num|Int|Point|Rect|TF|Date|Char>,<Default>,<NumMin>,<NumMax>ask Tx with Defaultif the result="Cancel" then put empty into rstput it into rstreturn exend if------------------ﾃ懌\ "Get"------------------end ObjAsk--------------------ﾃ ﾂｰ "ObjAsk"--------------------------------------------------------------------------on UGV NmVar,Crput NmVar&id of card window into Nmdo "global "&Nmdo "put Cr into "&Nm-- do "put Agt1&""e&",""e&"&Agt2&""e&",""e&"&Agt3&""e&",""e&"&Agt4&""e&",""e&"&Agt5&""e&",""e&"&Agt6&""e&",""e&"&Agt7&""e&",""e&"&Agt8point&""e&",""e&"&Agt9&""e&",""e&"&Agt10 into "&Nmend UGVfunction UGV GVput GV&id of card window into Nmdo "global "&Nmreturn value(Nm)end UGV</script>
