<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>2885</cardID>
<listID>8956</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>288</width>
<height>364</height>
</cardSize>
<script>テ 竏づアツコテ テ崚ァツクテ厩テ運テ叡テ丑v4 1992-94.8テァテ湘ゥ窶愿⑥テュテイテァテ湘・窶 テ⑦テ「zテ・ナ津ュツコテョツクテ①テ①テ①テ①テ①テ①テ①Naomi KoshikoNifty GGA02542on openstackif short name of this cd is not "hyousi" then exit openstackglobal stN,SaveUserLevel,SaveTextArrows,nameJyushorokuput the userlevel into SaveUserLevelset userlevel to 5mBar 1 --show menubarput the textArrows into SaveTextArrowsset textArrows to trueput short name of this stack into stNput nameJyushoroku into cd fld "nameJyushoroku" of cd "hyousi"put lastHCItem (":",nameJyushoroku) into cd fld "SNameJyushoroku"end openstackon closestackglobal SaveUserLevel,SaveTextArrowsset userlevel to SaveUserLevelset textArrows to SaveTextArrowspass closestackend closestackon suspendstackglobal SaveUserLevel,SaveTextArrowsset userlevel to SaveUserLevelset textArrows to SaveTextArrowspass suspendstackend suspendstackon resumestackglobal SaveUserLevel,SaveTextArrowsput the userlevel into SaveUserLevelmBar 1 --show nemubarshow menubarput the textArrows into SaveTextArrowsset textArrows to truepass resumestackend resumestackon pas nplay "harpsichord" tempo 700 "a7"global nameJyushoroku,pasW,pW,pasOk,stNif n is "c" thenput empty into pWelse if n is "ret" thenif pW is pasW thenput true into pasOkput empty into pWclose window "テ英テ厩テ嘉ィテ [テ栄"lock screenshow window nameJyushorokugo to stack stNelsedomenu "HyperCardティIテウマ\"end ifelseput n after pWend ifend pason mBar n--1テ①テ」竕 テェテ淌ッ¥テゥツカ--2テ①テェ窶コテュテ凝ツォテツョテテ--テア竕・テツオテ①テェテソテテ凝、竏妥ツカglobal mbarif mbar is not true and mbar is not false then put true into mbarif n is 1 thenput true into mbarelse if n is empty thenput (not mbar) into mbarend ifif mbar thenshow menubarelsehide menubarend ifend mBarfunction spC nput " " into cput empty into spif n is not 0 thenrepeat with i=1 to nput c after spend repeatend ifreturn spend spC-------------------テツ「テテ津竕・テツャ------------------on setSyoki--テ韻テ嘉 テ [テ姥テ雨テ [テ栄テテε液テ隠テ [テ嘉」テ栄テテεゥdテウlテï」ソテ テ崚ァツクテ「テ甘アツ テツゥテテテ韻テ嘉 テ [テ姥テ「テ甘アツ テテキglobal stN --テツアテテε厩テ運テ叡テ丑テテεアツコテォOif (short name of this stack is not stN) then exit setSyoki--lock screenrepeat with i=1 to (number of bg btns)show bg btn iend repeatrepeat with i=1 to (number of cd fields)set style of cd fld i of cd "print1" to rectangleset style of cd fld i of cd "print2" to rectangleend repeatrepeat with i=1 to (number of bg fields)set style of bg fld i to rectangleend repeatset style of bg fld "selectField" to shadowunlock screenend setSyoki--テゥテゥテツオテァツクテテon goTamesiput topLeft of bg btn "テテ陛邃「テツエ" into printHaniA --テ テ崚ァツクテョテ陛 テput bottomRight of bg btn "テテ陛邃「テツエ" into printHaniB --テ テ崚ァツクテョテ陛 テfCria--open printing with dialogprint this cd from printHaniA to printHaniB--beep---------setSyokiend goTamesion fCria--テ韻テ嘉 テ [テ姥テ雨テ [テ栄テテε液テ隠テ [テ嘉」テ栄テテεゥdテウlテï」ソテ韻テ嘉 テ [テ姥テ「テ甘アツ テツゥテテテ テ崚ァツクテ「テ甘アツ テテキglobal stNif (short name of this stack is not stN) then exit fCria--テ テ崚ァツクティテ「テ、ヒ凖ェ窶コテュテ凝①テ液テ隠テ [テ嘉」テ栄テャテエテï」ソテャテ淌アテヲテ窶ヲlock screenrepeat with i=1 to (number of bg btns)hide bg btn iend repeatrepeat with i=1 to (number of bg fields)set style of bg fld i to transparentend repeatrepeat with i=1 to (number of cd fields)set style of cd fld i of cd "print1" to transparentset showLines of cd fld i of cd "print1" to falseset style of cd fld i of cd "print2" to transparentset showLines of cd fld i of cd "print2" to falseend repeatunlock screenend fCria--テ テ崚ァツクon goinsatuglobal pA,pM,pO,pS,pR,pC,zum,stN,nameJyushoroku--,mukiput hilite of cd btn id 5 of cd "hyousi" into pA--テォSテニ津テε雨テ [テ栄テ テ崚ァツクput hilite of cd btn id 6 of cd "hyousi" into pM--テ厭テ [テ丑テ雨テ [テ栄テ テ崚ァツクput hilite of cd btn id 7 of cd "hyousi" into pO--テッ¥テゥツカテ雨テ [テ栄テテε窶コテ テ崚ァツクput hilite of cd btn id 22 of cd "hyousi" into pS--テ厩テ影テ叡テ益テ テ崚ァツクput hilite of cd btn id 23 of cd "hyousi" into pR--テイAテォツアテ テ崚ァツクput topLeft of bg btn "テテ陛邃「テツエ" into printHaniA --テ テ崚ァツクテョテ陛 テput bottomRight of bg btn "テテ陛邃「テツエ" into printHaniB --テ テ崚ァツクテョテ陛 テput true into pC --テ厩テ影テ叡テ益テ テ崚ァツクテ竕暗テε テ崚ァツクテ鵜テ嘉嘉嘉ャテ瓜テ嘉」テツゥテツォテツァテツゥテテε液テ嘉「テ碓put short name of this cd into nameThisCd --テ テ崚ァツクテ厩テ運テ叡テ丑テテεツアテテε雨テ [テ栄テテεアツコテォOテゥテ甘テ--テ テ崚ァツクティテ「テ、ヒ凖ェ窶コテュテ凝①テ液テ隠テ [テ嘉」テ栄テャテエテï」ソテャテ淌アテヲテ窶ヲfCria--if pO then--テ テ催アテ。テ テ崚ァツクput "テ テ崚ァツクティテ テウテケテュテ" into msgprint this cd from printHaniA to printHaniB--beep-----------ティIテウマ\テ厭テ [テ丑if pC thenlock screenpop cdset hilite of bg btn "zum" to truepush this cdgo to cd nameThisCd of stack stNend ifelselock screenpop cd --ティZティテ、テイ^テ雨テ [テ栄テテキif pM thenput the number of marked cds into maisuif maisu is 0 thenpush this cd --ティZティテ、テイ^テ雨テ [テ栄テï」ソテ厩テ運テ叡テ丑go to cd nameThisCd of stack stNanswer "テ厭テ [テ丑テ竕・テテ催ホゥテ雨テ [テ栄テ邃「テ窶 テテ凝窶ケテマ\テテ津③"setSyokiexit goinsatuend ifif not the marked of this card then go next marked cdanswer maisu & "テアテ。テテε厭テ [テ丑テ竕・テテ催ホゥテ雨テ [テ栄テ邃「テ窶 テテ凝窶ケテ竏妥③" with "テュテ愿ゥ~" or "テ テ崚ァツクテ、Jテゥn"elseput the number of cds in bg "ティZティテ、テイ^" into maisuanswer maisu & "テアテ。テテε雨テ [テ栄テ邃「テ窶 テテ凝窶ケテ竏妥③" with "テュテ愿ゥ~" or "テ テ崚ァツクテ、Jテゥn"end ifpush this cd --ティZティテ、テイ^テ雨テ [テ栄テï」ソテ厩テ運テ叡テ丑go to cd nameThisCd of stack stNunlock screenif it is "テュテ愿ゥ~" then--ティテ テウテケテュテ愿ゥツャhide msgsetSyokiexit goinsatuend if--put ticks() into T------------------テアテ。テェテョテッ邃「テ テ崚ァツクrepeat with i=1 to maisu--------put true into pC --テ液テ嘉「テ碓テ瓜テ叡テ曳--テ テ崚ァツクテァナ禿窶コテ厭テ [テ丑テ邃「テツャテツ「テニ津テ暗テif zum thenanswer "テツアテテε 竏づアツコテテε雨テ [テ栄テテ陛、ヒ佚窶ヲテ テ崚ァツクテァナ禿窶コテテεテ甘ツァテ竕暗竏妥③" & return & ツャ"テ テ崚ァツクテï」ソテォツアテテ佚窶ケテ竏妥ツゥ?" with "ティIテウマ\" or "テゥテシテï」ソテ テ崚ァツク" or "テ テ崚ァツク"if it is "ティIテウマ\" then exit repeatif it is "テゥテシテï」ソテ テ崚ァツク" thenput false into pC --テ液テ嘉「テ碓テ瓜テ叡テ曳end ifelse--if pS thenanswer "テツアテテε 竏づアツコテï」ソテ テ崚ァツクテツオテ窶ケテ竏妥ツゥ?" with "ティIテウマ\" or "テゥテシテï」ソテッ¥テゥツカ" or "テ テ崚ァツク"if it is "ティIテウマ\" then exit repeatif it is "テゥテシテï」ソテッ¥テゥツカ" thenput false into pC --テ液テ嘉「テ碓テ瓜テ叡テ曳end ifend ifend if--------------if pC is true then--[pC is true] テ厩テ影テ叡テ益テ テ崚ァツクテ竕暗テε テ崚ァツクOKput i & " / " & maisu & " テアテ。テア竅テ テ崚ァツクテュテ"print this cd from printHaniA to printHaniB--beep---------end ifif i=maisu then--テイAテォツアorテ厩テ影テ叡テ益テ テ崚ァツクティIテウマ\lock screenpop cd--テァ竕暗・窶榲窶ヲテ テ崚ァツクテツオテホゥテ雨テ [テ栄テ窶ヲテ窶。ティIテウマ\テ厭テ [テ丑if pC then set hilite of bg btn "zum" to truepush this cdgo to cd nameThisCd of stack stNexit repeatend ifif pS is true then--テ厩テ影テ叡テ益テ テ崚ァツクput "テゥテシテテε映テ [テ運テテキテァXテェVテュテ"elseput "テゥテシテテε映テ [テ運テテキテァXテェVテュテ愿①テ厭テ右テ厩テ丑テ嘉、テ叡テ丑テ竕暗 テ崚ァツクテï」ソテュテ愿ゥ~テツオテ窶ケテ竏妥③"end if--lock screenset cursor to watchpop cdif pC then set hilite of bg btn "zum" to trueif pM thengo to next marked cd of stack nameJyushorokuelsego to next cd in bg "ティZティテ、テイ^" of stack nameJyushorokuend if--push this cdgo to cd nameThisCd of stack stN --テアïャづテhide msgunlock screen--テ厭テ右テ厩テ丑テ嘉、テ叡テ丑テツオテ テ崚ァツクテュテ愿ゥツャif (pS is not true) and (the mouseClick) thenbeepanswer "テ テ崚ァツクテï」ソテュテ愿ゥ~テツオテ窶ケテ竏妥ツゥテ③" with "テュテ愿ゥ~" or "テ・pテォツア"if it is "テュテ愿ゥ~" then exit repeatend ifend repeat--end ifhide msgsetSyoki--put (ticks() - T)/60---------end goinsatuon getParaglobal nSpY,zenkakuY,spKY,spAY,atenaOfY,jisYA,jisYJ,jisYS1,jisYS2,jisYS3,spSY1,spSY2,spSY3--テァsテ、窶佚ャテエテテε、eテェ窶コテュテ凝ï」ソテゥテ甘テput the hilite of cd btn id 2 of cd "テ「ツーテェ窶コテュテ" into nSpYput the hilite of cd btn id 31 of cd "テ「ツーテェ窶コテュテ" into zenkakuYput spC(cd fld "sp2" of cd "テ「ツーテェ窶コテュテ") into spKY--テ 竏づアツコテ・hティテε、窶佚、uput spC(cd fld "sp1" of cd "テ「ツーテェ窶コテュテ") into spAY--テアツコテォOテテεッ竏づゥテカテ、窶佚、uput cd fld "atenaOfY" of cd "テ「ツーテェ窶コテュテ" into atenaOfY--テ 竏づアツコテテε迂テ液テ瓜テ叡テ曳テュlput cd fld "mojisuuYA" of cd "テ「ツーテェ窶コテュテ" into jisYA--テ 竏づアツコテッ竏づゥテカテ、窶佚、uテ」lテïャづゥdテェテソput cd fld "mojisuuYJ" of cd "テ「ツーテェ窶コテュテ" into jisYJ--ティZティテ、テッ竏づゥテカテ、窶佚、uテ」lテïャづゥdテェテソput cd fld "mojisuuYS1" of cd "テ「ツーテェ窶コテュテ" into jisYS1--テ 竏づアツコテッ竏づゥテカテ、窶佚、uテァ竕暗ィツィテゥdテェテソ1put cd fld "mojisuuYS2" of cd "テ「ツーテェ窶コテュテ" into jisYS2--テ 竏づアツコテッ竏づゥテカテ、窶佚、uテァ竕暗ィツィテゥdテェテソ2put cd fld "mojisuuYS3" of cd "テ「ツーテェ窶コテュテ" into jisYS3--テ 竏づアツコテッ竏づゥテカテ、窶佚、uテァ竕暗ィツィテゥdテェテソ3put spC((cd fld "sp1" of cd "テ「ツーテェ窶コテュテ")-1) into spSY1--テアツコテォOテテεッ竏づゥテカテ、窶佚、u-1put spC((cd fld "sp1" of cd "テ「ツーテェ窶コテュテ")-2) into spSY2--テアツコテォOテテεッ竏づゥテカテ、窶佚、u-3put spC((cd fld "sp1" of cd "テ「ツーテェ窶コテュテ")-3) into spSY3--テアツコテォOテテεッ竏づゥテカテ、窶佚、u-3--global nSpT,sSpT,atenaOfT,jisTA,jisTA2,atenaFT,jisTJput the hilite of cd btn id 3 of cd "ティcテェ窶コテュテ" into nSpTput the hilite of cd btn id 2 of cd "ティcテェ窶コテュテ" into sSpTput cd fld "atenaOfT" of cd "ティcテェ窶コテュテ" into atenaOfT--テ 竏づアツコテテε迂テ液テ瓜テ叡テ曳テュlput cd fld "mojisuuTA" of cd "ティcテェ窶コテュテ" into jisTA--テ 竏づアツコテッ竏づゥテカテ、窶佚、uテ」lテïャづゥdテェテソput cd fld "mojisuuTA2" of cd "ティcテェ窶コテュテ" into jisTA2--テ 竏づアツコテッ竏づゥテカテ欝テ韻テ浦テゥdテェテソput cd fld "atenaFT" of cd "ティcテェ窶コテュテ" into atenaFT--テ 竏づアツコテッ竏づゥテカテ欝テ韻テ浦テッナ禿ァXテュlput cd fld "mojisuuTJ" of cd "ティcテェ窶コテュテ" into jisTJ--ティZティテ、テッ竏づゥテカテ、窶佚、uテ」lテïャづゥdテェテソend getPara</script>