home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / 住所録スタック4.0.sit / 住所録スタック4.0 / 宛名印刷スタック4.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-08-31  |  11KB  |  30 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>10</cardCount>
  7.     <cardID>2885</cardID>
  8.     <listID>8956</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>288</width>
  14.         <height>364</height>
  15.     </cardSize>
  16.     <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>
  17.     <background id="2708" file="background_2708.xml" name="" />
  18.     <background id="26670" file="background_26670.xml" name="" />
  19.     <card id="2885" file="card_2885.xml" marked="false" name="hyousi" owner="2708" />
  20.     <card id="4763" file="card_4763.xml" marked="false" name="テ「ツーテェ窶コテュテ‹" owner="2708" />
  21.     <card id="6393" file="card_6393.xml" marked="false" name="ティcテェ窶コテュテ‹" owner="2708" />
  22.     <card id="4930" file="card_4930.xml" marked="false" name="テδエ窶コニ’" owner="2708" />
  23.     <card id="7568" file="card_7568.xml" marked="false" name="" owner="2708" />
  24.     <card id="6493" file="card_6493.xml" marked="false" name="竏やˆ榿抵ャツェ竕、ホゥïャ" owner="2708" />
  25.     <card id="5259" file="card_5259.xml" marked="false" name="窶懌\敕ャツクテウテ•" owner="2708" />
  26.     <card id="2472" file="card_2472.xml" marked="false" name="テェ窶。テアテヲ" owner="2708" />
  27.     <card id="26607" file="card_26607.xml" marked="false" name="print1" owner="26670" />
  28.     <card id="5675" file="card_5675.xml" marked="false" name="print2" owner="26670" />
  29. </stack>
  30.