<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>9</cardCount>
<cardID>5889</cardID>
<listID>7369</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>288</height>
</cardSize>
<script>ティZティテ、テイ^ テ「竏テォ竏榲①v4 1994.8HyperCard J2.1テォナ津「テサテァテ湘ゥ窶愿⑥テュテイテァテ湘・窶 テ⑦テ「zテ・ナ停\ テュツコテョツクテ①テ①テ①テ①テ①テ①テ①Naomi KoshikoNifty GGA02542on startupset cantAbort of stack (short name of this stack) to truepass startupend startupon openstackglobal nameJyushoroku,pasW,pasOk,pasSetput short name of this stack into nameJyushorokusetteiput the hilite of cd btn id 84 of cd "テェ窶コテュテ" into pasSetput false into pasOkput cd fld id 85 of cd "テェ窶コテュテ" into pasW--if not(hilite of cd btn id 83 of cd "テェ窶コテュテ") thenset cursor to handShowDialogend if--if pasSet thenif not pasOK thenif there is not a window "テ英テ厩テ嘉ィテ [テ栄" thenpalette "テ英テ厩テ嘉ィテ [テ栄"elseshow window "テ英テ厩テ嘉ィテ [テ栄"end ifhide window nameJyushorokuend ifelseput true into pasOKend ifend openstackon closestacksettei2end closestackon suspendstacksettei2end suspendstackon resumestacksetteiend resumestackon setteiglobal SaveUserLevelput the userlevel into SaveUserLevelset userlevel to 5if hilite of cd btn "テ嘉 テ泳テ嘉姪 [テッ¥テゥツカ" of cd "テェ窶コテュテ" is true thenshow menubarelsehide menubarend ifend setteion settei2global SaveUserLevelset userlevel to SaveUserLevelshow menubarend settei2on pas nplay "harpsichord" tempo 700 "a7"global nameJyushoroku,pasW,pW,pasOkif n is "c" thenput empty into pWelse if n is "ret" thenif pW is pasW thenshow window "テ英テ厩テ嘉ィテ [テ栄"close window "テ英テ厩テ嘉ィテ [テ栄"show window nameJyushorokuput true into pasOkput empty into pWexit to HyperCardelsedomenu "HyperCardティIテウマ\"end ifelseput n after pWend ifend pason closepaletteglobal pasOkif (hilite of cd btn id 84 of cd "テェ窶コテュテ") and (pasOk is not "OK") thenpalette "テ英テ厩テ嘉ィテ [テ栄"show window "テ英テ厩テ嘉ィテ [テ栄"end ifend closepaletteon insatuStackglobal nameJyushorokuput the short name of this stack into nameJyushorokuput (top of target)-10 into Tput (left of target) into Lget popup(L,T,cd fld id 102 of cd "テェ窶コテュテ",0)if item 1 of it is 0 then exit insatuStackif item 1 of it is 1 thenanswer file "テツォテテε 竏づアツコテ テ崚ァツクテ厩テ運テ叡テ丑テï」ソテゥgテウpテツオテ窶ケテ竏妥ツゥ" of type "STAK"if it is empty thenexit insatuStackend ifelseget item 2 of itend ifset cursor to watchif short name of this cd is not "ティZティテ、テイ^" then go cd "ティZティテ、テイ^"push this cdvisual effect iris open to inversego to stack it in a new windowend insatuStack-------テェ窶コテュテ凝嘉 テ泳テ嘉姪 [---------on goPrevvisual effect scroll rightgo previous cd of bg "ティZティテ、テイ^"end goPrevon goNextvisual effect scroll leftgo next cd of bg "ティZティテ、テイ^"end goNexton goRetglobal stNset cursor to watchgo to stack stNend goReton goMPrevvisual effect scroll rightgo previous marked cdend goMPrevon goMNextvisual effect scroll leftgo next marked cdend goMNexton goPrint1--テ「ツーティテォテツエテ テ崚ァツクglobal stNset cursor to watchgo to cd "print1" of stack stNend goPrint1on goPrint2--ティcティテォテツエテ テ崚ァツクglobal stNset cursor to watchgo to cd "print2" of stack stNend goPrint2on insatugoRetend insatuon goinsatugoRetend goinsatuon scldomenu "Scroll"end sclon mBarglobal mbarif mbar is not true and mbar is not false then put false into mbarput (not mbar) into mbarif mbar thenshow menubarelsehide menubarend ifend mBar-----sendテ嘉 テ泳テ嘉姪 [--on setFontgoRetend setFonton setSyokigoRetend setSyokion setPalegoRetend setPale----ティZティテ、テイ^テ雨テ [テ栄テ②テ映テ [テ運inテ竕暗ゥgテウp-------テャツクテウテ陛邃「テャヒ凖ッtテツゥテツォテツァテツゥテ荏テ宇テ叡テ丑function checkHiduke D,n,ns,L--Dテ①テャツクテウテ陛映テ [テ運--nテ①テャヒ凖ッtfld--nsテ①テッbfld--Lテ①テョNテウテ吐ldテテε嘉「テ韻テ嘉ャテェテョif (D is not empty) thenconvert D to secondsif the result is empty thenput D into bg fld nsconvert D to dateput D into bg fld nreturn trueend ifend ifput empty into bg fld nput empty into bg fld nsput empty into line L of bg fld "テョNテウテ"return falseend checkHiduke----------------------------</script>