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 / background_26670.xml next >
Extensible Markup Language  |  1994-08-31  |  35KB  |  364 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>26670</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3718.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <true /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3304.css" />
  11.     <part>
  12.         <id>24</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>0</left>
  23.             <top>0</top>
  24.             <right>262</right>
  25.             <bottom>361</bottom>
  26.         </rect>
  27.         <style>rectangle</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Osaka</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>ﾃ‡ﾃ陛‡邃｢ﾃ‡ﾂｴ</name>
  40.         <script>on mousedownwait 30if the mouse is up then exit mousedown--put 20 into cput the mouseH into mHput the mouseV into mVput left of target into btnLeftput top of target into btnTopput right of target into btnRightput bottom of target into btnBottom--if (mH > btnRight-c) thenset cursor to yokoput "ﾃ ﾃ崚ｧﾂｸﾃｮﾃ陛 ﾃ陛①ﾃ｢ﾂｰﾃｯﾃｹﾃｯﾅ禿ｧX" into bg fld "selectField"put mH-(btnRight) into ofsHput the mouseH-ofsH into mousePointput mousePoint-1 & "," & btnTop & "," & mousePoint & "," & btnBottom into rectListadd (item 1 of rinkaku(rectList)) to mousePoint --XCMD by naomi-koshikoput max(btnLeft+100,mousePoint) into mousePointput min(mousePoint,(right of this card) -3) into mousePointput btnLeft & "," & btnTop & "," & mousePoint & "," & btnBottom into nset rect of target to nelse if (mH < btnLeft+c) thenset cursor to yokoput "ﾃ ﾃ崚ｧﾂｸﾃｮﾃ陛 ﾃ陛①ﾃ｢ﾂｰﾃｯﾃｹﾃｯﾅ禿ｧX" into bg fld "selectField"put mH-(btnLeft) into ofsHput the mouseH-ofsH into mousePointput mousePoint & "," & btnTop & "," & mousePoint+1 & "," & btnBottom into rectListadd (item 1 of rinkaku(rectList)) to mousePoint --XCMD by naomi-koshikoput min(btnRight-100,mousePoint) into mousePointput max(mousePoint,(left of this card)) into mousePointput mousePoint & "," & btnTop & "," & btnRight & "," & btnBottom into nset rect of target to nelse if (mV < btnTop+c) thenset cursor to tateput "ﾃ ﾃ崚ｧﾂｸﾃｮﾃ陛 ﾃ陛①ﾃｨcﾃｯﾃｹﾃｯﾅ禿ｧX" into bg fld "selectField"put mV-(btnTop) into ofsVput the mouseV-ofsV into mousePointput btnLeft & "," & mousePoint & "," & btnRight & "," & mousePoint+1 into rectListadd (item 2 of rinkaku(rectList)) to mousePoint --XCMD by naomi-koshikoput min(btnBottom- 100,mousePoint) into mousePointput max(mousePoint,(top of this card)) into mousePointput btnLeft & "," & mousePoint & "," & btnRight & "," & btnBottom into nset rect of target to nelse if (mV > btnBottom-c) thenset cursor to tateput "ﾃ ﾃ崚ｧﾂｸﾃｮﾃ陛 ﾃ陛①ﾃｨcﾃｯﾃｹﾃｯﾅ禿ｧX" into bg fld "selectField"put mV-(btnBottom) into ofsVput the mouseV-ofsV into mousePointput btnLeft & "," & mousePoint-1 & "," & btnRight & "," & mousePoint into rectListadd (item 2 of rinkaku(rectList)) to mousePoint --XCMD by naomi-koshikoput max(btnTop + 100,mousePoint) into mousePointput min(mousePoint,((bottom of this card) -3)) into mousePointput btnLeft & "," & btnTop & "," & btnRight & "," & mousePoint into nset rect of target to nelseput "ﾃｫSﾃｫﾃε 竅„ﾃｬﾃ†" after bg fld "selectField"lock screenset cursor to hiraitateretField --ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ ﾂ ﾃｭuofsetﾃｫOﾃ‡窶ｦ--ﾃ嘉･ﾃ丑ﾃ運ﾃ嘉ｬﾃ碓ﾃ嘉｣ﾃ‡ﾃε嘉､ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｧﾃ湘‡ﾃˆput empty into rectListput "zip1,zip2,zip3,zip4,zip5,zip6" into Drepeat with i=1 to (number of items of D)put item i of D into nput return & (rect of bg fld n) after rectListend repeatdelete first char of rectListput "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„,ﾃ 竏づｱﾂｺ1,ﾃ 竏づｱﾂｺ2,ﾃ 竏づｱﾂｺ3,ﾃ嘉…ﾃ嘉‡1,ﾃ嘉…ﾃ嘉‡2,ﾃ嘉…ﾃ嘉‡3,ﾃ嘉…ﾃ嘉‡4" into Drepeat with i=1 to (number of items of D)put item i of D into nput return & (rect of cd fld n) after rectListend repeatfuzokuhinidou rinkaku(rectList) --XCMD by naomi-koshiko--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｧﾆ津瓜ﾃ叡ﾃ曳setFldend ifput empty into bg fld "selectField"end mousedown-----------------ﾃｯtﾃｫﾃ†ﾃｯiﾃ‡ﾃε 竅„ﾃｬﾃ†--------on fuzokuhinidou of1set cursor to watch-- lock screenput "zip1,zip2,zip3,zip4,zip5,zip6" into D1repeat with i=1 to (number of items of D1)put item i of D1 into fNget loc of bg fld fnadd item 1 of of1 to item 1 of itadd item 2 of of1 to item 2 of itset the loc of bg fld fN to itend repeatset loc of bg btn "zipKankaku" to ((item 1 of loc of bg fld "zip6")+5),((item 2 of loc of bg fld "zip6")-8)set loc of bg btn "zipidou" to ((item 1 of loc of bg fld "zip6")+5),((item 2 of loc of bg fld "zip6")+8)put "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„,ﾃ 竏づｱﾂｺ1,ﾃ 竏づｱﾂｺ2,ﾃ 竏づｱﾂｺ3,ﾃ嘉…ﾃ嘉‡1,ﾃ嘉…ﾃ嘉‡2,ﾃ嘉…ﾃ嘉‡3,ﾃ嘉…ﾃ嘉‡4" into Dput "print1,print2" into D2repeat with j=1 to 2put item j of D2 into n2repeat with i=1 to (number of items of D)put item i of D into fNget loc of cd fld fn of cd n2add item 1 of of1 to item 1 of itadd item 2 of of1 to item 2 of itset the loc of cd fld fN of cd n2 to itend repeatend repeatend fuzokuhinidou</script>
  41.     </part>
  42.     <part>
  43.         <id>59</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <true /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <true /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <false /> </lockText>
  52.         <rect>
  53.             <left>190</left>
  54.             <top>7</top>
  55.             <right>206</right>
  56.             <bottom>33</bottom>
  57.         </rect>
  58.         <style>rectangle</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  68.         <textSize>18</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>24</textHeight>
  71.         <name>zip4</name>
  72.         <script></script>
  73.     </part>
  74.     <part>
  75.         <id>54</id>
  76.         <type>field</type>
  77.         <visible> <true /> </visible>
  78.         <dontWrap> <true /> </dontWrap>
  79.         <dontSearch> <true /> </dontSearch>
  80.         <sharedText> <false /> </sharedText>
  81.         <fixedLineHeight> <true /> </fixedLineHeight>
  82.         <autoTab> <true /> </autoTab>
  83.         <lockText> <true /> </lockText>
  84.         <rect>
  85.             <left>28</left>
  86.             <top>4</top>
  87.             <right>87</right>
  88.             <bottom>16</bottom>
  89.         </rect>
  90.         <style>rectangle</style>
  91.         <autoSelect> <false /> </autoSelect>
  92.         <showLines> <false /> </showLines>
  93.         <wideMargins> <false /> </wideMargins>
  94.         <multipleLines> <false /> </multipleLines>
  95.         <reservedFamily> 0 </reservedFamily>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>left</textAlign>
  99.         <font>Osaka</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <textHeight>16</textHeight>
  103.         <name>f</name>
  104.         <script></script>
  105.     </part>
  106.     <part>
  107.         <id>14</id>
  108.         <type>field</type>
  109.         <visible> <true /> </visible>
  110.         <dontWrap> <false /> </dontWrap>
  111.         <dontSearch> <true /> </dontSearch>
  112.         <sharedText> <false /> </sharedText>
  113.         <fixedLineHeight> <true /> </fixedLineHeight>
  114.         <autoTab> <false /> </autoTab>
  115.         <lockText> <false /> </lockText>
  116.         <rect>
  117.             <left>120</left>
  118.             <top>7</top>
  119.             <right>140</right>
  120.             <bottom>33</bottom>
  121.         </rect>
  122.         <style>rectangle</style>
  123.         <autoSelect> <false /> </autoSelect>
  124.         <showLines> <false /> </showLines>
  125.         <wideMargins> <false /> </wideMargins>
  126.         <multipleLines> <false /> </multipleLines>
  127.         <reservedFamily> 0 </reservedFamily>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>0</icon>
  130.         <textAlign>left</textAlign>
  131.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  132.         <textSize>18</textSize>
  133.         <textStyle>plain</textStyle>
  134.         <textHeight>24</textHeight>
  135.         <name>zip1</name>
  136.         <script></script>
  137.     </part>
  138.     <part>
  139.         <id>15</id>
  140.         <type>field</type>
  141.         <visible> <true /> </visible>
  142.         <dontWrap> <false /> </dontWrap>
  143.         <dontSearch> <true /> </dontSearch>
  144.         <sharedText> <false /> </sharedText>
  145.         <fixedLineHeight> <true /> </fixedLineHeight>
  146.         <autoTab> <false /> </autoTab>
  147.         <lockText> <false /> </lockText>
  148.         <rect>
  149.             <left>146</left>
  150.             <top>7</top>
  151.             <right>166</right>
  152.             <bottom>33</bottom>
  153.         </rect>
  154.         <style>rectangle</style>
  155.         <autoSelect> <false /> </autoSelect>
  156.         <showLines> <false /> </showLines>
  157.         <wideMargins> <false /> </wideMargins>
  158.         <multipleLines> <false /> </multipleLines>
  159.         <reservedFamily> 0 </reservedFamily>
  160.         <titleWidth>0</titleWidth>
  161.         <icon>0</icon>
  162.         <textAlign>left</textAlign>
  163.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  164.         <textSize>18</textSize>
  165.         <textStyle>plain</textStyle>
  166.         <textHeight>24</textHeight>
  167.         <name>zip2</name>
  168.         <script></script>
  169.     </part>
  170.     <part>
  171.         <id>16</id>
  172.         <type>field</type>
  173.         <visible> <true /> </visible>
  174.         <dontWrap> <false /> </dontWrap>
  175.         <dontSearch> <true /> </dontSearch>
  176.         <sharedText> <false /> </sharedText>
  177.         <fixedLineHeight> <true /> </fixedLineHeight>
  178.         <autoTab> <false /> </autoTab>
  179.         <lockText> <false /> </lockText>
  180.         <rect>
  181.             <left>172</left>
  182.             <top>7</top>
  183.             <right>192</right>
  184.             <bottom>33</bottom>
  185.         </rect>
  186.         <style>rectangle</style>
  187.         <autoSelect> <false /> </autoSelect>
  188.         <showLines> <false /> </showLines>
  189.         <wideMargins> <false /> </wideMargins>
  190.         <multipleLines> <false /> </multipleLines>
  191.         <reservedFamily> 0 </reservedFamily>
  192.         <titleWidth>0</titleWidth>
  193.         <icon>0</icon>
  194.         <textAlign>left</textAlign>
  195.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  196.         <textSize>18</textSize>
  197.         <textStyle>plain</textStyle>
  198.         <textHeight>24</textHeight>
  199.         <name>zip3</name>
  200.         <script></script>
  201.     </part>
  202.     <part>
  203.         <id>17</id>
  204.         <type>field</type>
  205.         <visible> <true /> </visible>
  206.         <dontWrap> <false /> </dontWrap>
  207.         <dontSearch> <true /> </dontSearch>
  208.         <sharedText> <false /> </sharedText>
  209.         <fixedLineHeight> <true /> </fixedLineHeight>
  210.         <autoTab> <false /> </autoTab>
  211.         <lockText> <false /> </lockText>
  212.         <rect>
  213.             <left>201</left>
  214.             <top>7</top>
  215.             <right>221</right>
  216.             <bottom>33</bottom>
  217.         </rect>
  218.         <style>rectangle</style>
  219.         <autoSelect> <false /> </autoSelect>
  220.         <showLines> <false /> </showLines>
  221.         <wideMargins> <false /> </wideMargins>
  222.         <multipleLines> <false /> </multipleLines>
  223.         <reservedFamily> 0 </reservedFamily>
  224.         <titleWidth>0</titleWidth>
  225.         <icon>0</icon>
  226.         <textAlign>left</textAlign>
  227.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  228.         <textSize>18</textSize>
  229.         <textStyle>plain</textStyle>
  230.         <textHeight>24</textHeight>
  231.         <name>zip5</name>
  232.         <script></script>
  233.     </part>
  234.     <part>
  235.         <id>18</id>
  236.         <type>field</type>
  237.         <visible> <true /> </visible>
  238.         <dontWrap> <false /> </dontWrap>
  239.         <dontSearch> <true /> </dontSearch>
  240.         <sharedText> <false /> </sharedText>
  241.         <fixedLineHeight> <true /> </fixedLineHeight>
  242.         <autoTab> <false /> </autoTab>
  243.         <lockText> <false /> </lockText>
  244.         <rect>
  245.             <left>226</left>
  246.             <top>7</top>
  247.             <right>246</right>
  248.             <bottom>33</bottom>
  249.         </rect>
  250.         <style>rectangle</style>
  251.         <autoSelect> <false /> </autoSelect>
  252.         <showLines> <false /> </showLines>
  253.         <wideMargins> <false /> </wideMargins>
  254.         <multipleLines> <false /> </multipleLines>
  255.         <reservedFamily> 0 </reservedFamily>
  256.         <titleWidth>0</titleWidth>
  257.         <icon>0</icon>
  258.         <textAlign>left</textAlign>
  259.         <font>ﾃ嘉､ﾃ嘉姪右ﾃ円ﾃ嘉ｬﾃ嘉｢ﾃ韻ﾃ曳ﾃ❶ﾃ‡jﾃ‡k</font>
  260.         <textSize>18</textSize>
  261.         <textStyle>plain</textStyle>
  262.         <textHeight>24</textHeight>
  263.         <name>zip6</name>
  264.         <script></script>
  265.     </part>
  266.     <part>
  267.         <id>22</id>
  268.         <type>field</type>
  269.         <visible> <true /> </visible>
  270.         <dontWrap> <false /> </dontWrap>
  271.         <dontSearch> <true /> </dontSearch>
  272.         <sharedText> <false /> </sharedText>
  273.         <fixedLineHeight> <true /> </fixedLineHeight>
  274.         <autoTab> <false /> </autoTab>
  275.         <lockText> <true /> </lockText>
  276.         <rect>
  277.             <left>3</left>
  278.             <top>2</top>
  279.             <right>94</right>
  280.             <bottom>31</bottom>
  281.         </rect>
  282.         <style>shadow</style>
  283.         <autoSelect> <false /> </autoSelect>
  284.         <showLines> <false /> </showLines>
  285.         <wideMargins> <false /> </wideMargins>
  286.         <multipleLines> <false /> </multipleLines>
  287.         <reservedFamily> 0 </reservedFamily>
  288.         <titleWidth>0</titleWidth>
  289.         <icon>0</icon>
  290.         <textAlign>center</textAlign>
  291.         <font>Osaka</font>
  292.         <textSize>12</textSize>
  293.         <textStyle>extend</textStyle>
  294.         <textStyle>bold</textStyle>
  295.         <textHeight>14</textHeight>
  296.         <name>selectField</name>
  297.         <script></script>
  298.     </part>
  299.     <part>
  300.         <id>56</id>
  301.         <type>button</type>
  302.         <visible> <true /> </visible>
  303.         <reserved5> 0 </reserved5>
  304.         <reserved4> 0 </reserved4>
  305.         <reserved3> 0 </reserved3>
  306.         <reserved2> 0 </reserved2>
  307.         <reserved1> 0 </reserved1>
  308.         <enabled> <true /> </enabled>
  309.         <rect>
  310.             <left>235</left>
  311.             <top>22</top>
  312.             <right>247</right>
  313.             <bottom>34</bottom>
  314.         </rect>
  315.         <style>transparent</style>
  316.         <showName> <false /> </showName>
  317.         <highlight> <false /> </highlight>
  318.         <autoHighlight> <true /> </autoHighlight>
  319.         <sharedHighlight> <true /> </sharedHighlight>
  320.         <family>0</family>
  321.         <titleWidth>0</titleWidth>
  322.         <icon>10686</icon>
  323.         <textAlign>center</textAlign>
  324.         <font>Osaka</font>
  325.         <textSize>12</textSize>
  326.         <textStyle>plain</textStyle>
  327.         <name>zipIdou</name>
  328.         <script>on mouseDownwait 30if the mouse is up then exit mousedown--zipﾃ 竅„ﾃｬﾃ†set cursor to hiraitateput "ﾃｳXﾃｮ窶佚ｳﾃｬﾃ 竅„ﾃｬﾃ†" into bg fld "selectField"lock screenput "zip1,zip2,zip3,zip4,zip5,zip6" into Drepeat with i=1 to (number of items of D)put item i of D into nput return & (rect of bg fld n) after rectListend repeatdelete first char of rectListput rinkaku(rectList) into of1--set cursor to watchput "zip1,zip2,zip3,zip4,zip5,zip6" into D1repeat with i=1 to (number of items of D1)put item i of D1 into fNget loc of bg fld fnadd item 1 of of1 to item 1 of itadd item 2 of of1 to item 2 of itset the loc of bg fld fN to itend repeatset loc of bg btn "zipKankaku" to ((item 1 of loc of bg fld "zip6")+5),((item 2 of loc of bg fld "zip6")-8)set loc of bg btn "zipidou" to ((item 1 of loc of bg fld "zip6")+5),((item 2 of loc of bg fld "zip6")+8)put empty into bg fld "selectField"end mousedown</script>
  329.     </part>
  330.     <part>
  331.         <id>57</id>
  332.         <type>button</type>
  333.         <visible> <true /> </visible>
  334.         <reserved5> 0 </reserved5>
  335.         <reserved4> 0 </reserved4>
  336.         <reserved3> 0 </reserved3>
  337.         <reserved2> 0 </reserved2>
  338.         <reserved1> 0 </reserved1>
  339.         <enabled> <true /> </enabled>
  340.         <rect>
  341.             <left>235</left>
  342.             <top>6</top>
  343.             <right>248</right>
  344.             <bottom>18</bottom>
  345.         </rect>
  346.         <style>transparent</style>
  347.         <showName> <false /> </showName>
  348.         <highlight> <false /> </highlight>
  349.         <autoHighlight> <true /> </autoHighlight>
  350.         <sharedHighlight> <true /> </sharedHighlight>
  351.         <family>0</family>
  352.         <titleWidth>0</titleWidth>
  353.         <icon>16462</icon>
  354.         <textAlign>center</textAlign>
  355.         <font>Osaka</font>
  356.         <textSize>12</textSize>
  357.         <textStyle>plain</textStyle>
  358.         <name>zipKankaku</name>
  359.         <script>on mouseDownwait 30if the mouse is up then exit mousedown-------------------zipﾃ､窶佚､uﾃｯﾅ禿ｧX------------------if the commandKey is up then exit mouseDownset cursor to yoko--set hilite of target to TRUEput "ﾃｳXﾃｮ窶佚ｳﾃｬﾃ､窶佚､uﾃｯﾅ禿ｧX" into bg fld "selectField"put loc of target into rTput loc of bg fld "zip1" into rZ1put item 1 of rz1 into hz1put loc of bg fld "zip2" into rZ2put loc of bg fld "zip3" into rZ3put loc of bg fld "zip4" into rZ4put loc of bg fld "zip5" into rZ5put loc of bg fld "zip6" into rZ6put item 1 of rz6 into hz6put the mouseH into mHput the mouseV into mVput mV- (item 2 of the loc of target) into ofsVput mH - (item 1 of the loc of target) into ofsHrepeat until the mouse is upput max(item 1 of rZ1 + 50,((the mouseH)-ofsH)) into Hput min(H,(right of this card)-20) into Hput ((item 2 of rT)-ofsV) into vset loc of bg fld "zip2" to (hz1+round((H-hz1-5)*13/53)),(item 2 of rZ1)set loc of bg fld "zip3" to (hz1+round((H-hz1-5)*26/53)),(item 2 of rZ1)set loc of bg fld "zip4" to (hz1+round((H-hz1-5)*34/53)),(item 2 of rZ1)set loc of bg fld "zip5" to (hz1+round((H-hz1-5)*40/53)),(item 2 of rZ1)set loc of bg fld "zip6" to (hz1+round((H-hz1-5)*53/53)),(item 2 of rZ1)set loc of bg btn "zipKankaku" to (hz1+5+round((H-hz1-5)*53/53)),((item 2 of rZ1)-8)set loc of bg btn "zipidou" to (hz1+5+round((H-hz1-5)*53/53)),((item 2 of rZ1)+8)end repeatput empty into bg fld "selectField"set hilite of target to FALSEend mouseDown</script>
  360.     </part>
  361.     <name></name>
  362.     <script>------------open,close,resume,suspend-----------------------on openstackmBar 2 --ﾃ嘉…ﾃ泳ﾃ嘉姪…[createMenu --ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｧﾃ湘ｪﾂｨ--ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶif there is not a window "ﾃ ﾃ崚ｧﾂｸ" thenpalette "ﾃ ﾃ崚ｧﾂｸ"elseshow window "ﾃ ﾃ崚ｧﾂｸ"end ifend openstackon openbackgroundsend "openstack" to this cdend openbackgroundon resumestackLayoutif there is not a menu "ﾃｪ窶ｺﾃｭﾃ‹" then createMenuif there is not a window "ﾃ ﾃ崚ｧﾂｸ" then palette "ﾃ ﾃ崚ｧﾂｸ"if not visible of window "ﾃ ﾃ崚ｧﾂｸ" then show window "ﾃ ﾃ崚ｧﾂｸ"mBar 2 --ﾃ嘉…ﾃ泳ﾃ嘉姪…[end resumestackon suspendstackretFieldend suspendstackon closebackgroundif there is a window "ﾃ ﾃ崚ｧﾂｸ" then hide window "ﾃ ﾃ崚ｧﾂｸ"deletemenuend closebackgroundon opencardLayoutend opencardon closecardretField--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｯﾅ禿ｧXﾃ‡ï｣ｿﾃ･竕･ﾃ‡窶ｦﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘end closecard-------ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｭ竕､ﾃｪﾃ†ﾃ､ﾃｷﾃ･W-------------on retField--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖ｭlﾃ‡窶ｦﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘global GL1,GL2,GL3,GZ1,GZ2,GZ3--ﾃ 竏づｱﾂｺﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃε迂ﾃ液ﾃ瓜ﾃ叡ﾃ曳ﾃ‡ï｣ｿﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘set the loc of cd fld "ﾃ 竏づｱﾂｺ1" to GL1set the loc of cd fld "ﾃ 竏づｱﾂｺ2" to GL2set the loc of cd fld "ﾃ 竏づｱﾂｺ3" to GL3--ﾃ 竏づｱﾂｺﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ欝ﾃ韻ﾃ浦ﾃ‡ï｣ｿﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘set the textSize of cd fld "ﾃ 竏づｱﾂｺ1" to GZ1set the textSize of cd fld "ﾃ 竏づｱﾂｺ2" to GZ2set the textSize of cd fld "ﾃ 竏づｱﾂｺ3" to GZ3--if short name of this cd is "print2" thenglobal GH1,GH2,GH3,GH4,GH5,GH6--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃｩﾃｻﾃ‡ﾃε 竏づｱﾂｺﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｧsﾃｧﾃ‡ﾃ‡竕･ﾃ‡ﾃεｯﾅ禿ｧXﾃ‡ï｣ｿﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘set the textHeight of cd fld "ﾃ 竏づｱﾂｺ1" to GH1set the textHeight of cd fld "ﾃ 竏づｱﾂｺ2" to GH2set the textHeight of cd fld "ﾃ 竏づｱﾂｺ3" to GH3set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" to GH4set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" to GH5set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" to GH6elseglobal GK1,GK2,Gk3,GK4,GK5,GK6--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴﾃｩﾃｻﾃ‡ﾃε､eﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｯ竏づｩﾃｶﾃ､窶佚､uﾃ‡ï｣ｿﾃ‡窶｡ﾃ‡ﾂｫﾃ‡竏‘set the textStyle of cd fld "ﾃ 竏づｱﾂｺ1" to GK1set the textStyle of cd fld "ﾃ 竏づｱﾂｺ2" to GK2set the textStyle of cd fld "ﾃ 竏づｱﾂｺ3" to GK3set the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" to GK4set the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" to GK5set the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" to GK6end ifend retFieldon setFld--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｧsﾃ､窶佚②ﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃｬﾃｴﾃ‡ï｣ｿﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡窶ｦﾃ‡ﾃ甘‡ﾃ凝ｯﾅ禿ｧXglobal GZ1,GZ2,GZ3,GL1,GL2,GL3,hei1,fon1,sim3--,sim1--ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ欝ﾃ韻ﾃ浦ﾃ‡ï｣ｿﾃ厩ﾃ曳ﾃ叡ﾃ丑put the textSize of cd fld "ﾃ 竏づｱﾂｺ1" into GZ1put the textSize of cd fld "ﾃ 竏づｱﾂｺ2" into GZ2put the textSize of cd fld "ﾃ 竏づｱﾂｺ3" into GZ3--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ ﾂ ﾃｭuﾃ‡ï｣ｿﾃ厩ﾃ曳ﾃ叡ﾃ丑put the loc of cd fld "ﾃ 竏づｱﾂｺ1" into GL1put the loc of cd fld "ﾃ 竏づｱﾂｺ2" into GL2put the loc of cd fld "ﾃ 竏づｱﾂｺ3" into GL3--if short name of this cd is "print2" then--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴglobal GH1,GH2,GH3,GH4,GH5,GH6,jisTA,jisTA2,atenaFT,atenaOfT,jisTJ--ﾃｧsﾃ‡ﾃεｧﾃ‡ﾃ‡竕･ﾃ厩ﾃ曳ﾃ叡ﾃ丑put the textHeight of cd fld "ﾃ 竏づｱﾂｺ1" into GH1put the textHeight of cd fld "ﾃ 竏づｱﾂｺ2" into GH2put the textHeight of cd fld "ﾃ 竏づｱﾂｺ3" into GH3put the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" into GH4put the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" into GH5put the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" into GH6--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ厩ﾃ曳ﾃ叡ﾃ丑put (number of lines of cd fld "ﾃ 竏づｱﾂｺ1") into jis1put (number of lines of cd fld "ﾃ 竏づｱﾂｺ2") into jis2put (number of lines of cd fld "ﾃ 竏づｱﾂｺ3") into jis3put (number of lines of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„") into jis4put (number of lines of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„") into jis5put (number of lines of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„") into jis6--ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ欝ﾃ韻ﾃ浦ﾃｯﾅ禿ｧXif (fon1 <> "ﾃｯWﾃｨﾃ„") thenset the textSize of cd fld "ﾃ 竏づｱﾂｺ1" to ((the textSize of cd fld "ﾃ 竏づｱﾂｺ1") + fon1)elseif (jis1 >= jisTA2) then set the textSize of cd fld "ﾃ 竏づｱﾂｺ1" to ((the textSize of cd fld "ﾃ 竏づｱﾂｺ1") - atenaFT)end ifif (jis2 >=jisTA2) then set the textSize of cd fld "ﾃ 竏づｱﾂｺ2" to ((the textSize of cd fld "ﾃ 竏づｱﾂｺ2") - atenaFT)if (jis3 >=jisTA2) then set the textSize of cd fld "ﾃ 竏づｱﾂｺ3" to ((the textSize of cd fld "ﾃ 竏づｱﾂｺ3") - atenaFT)--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃｧsﾃ､窶佚ｭ竕､ﾃｪﾃ†if (hei1 = "ﾃ｣lﾃ‡ïｬ‚") thenset the textHeight of cd fld "ﾃ 竏づｱﾂｺ1" to (the textSize of cd fld "ﾃ 竏づｱﾂｺ1")elseif jis1 >= jisTA thenset the textHeight of cd fld "ﾃ 竏づｱﾂｺ1" to trunc(jisTA * GH1 / jis1)end ifend ifif jis2 >= jisTA then set the textHeight of cd fld "ﾃ 竏づｱﾂｺ2" to trunc(jisTA * GH2 / jis2)if jis3 >= jisTA then set the textHeight of cd fld "ﾃ 竏づｱﾂｺ3" to trunc(jisTA * GH3 / jis3)if jis4 >= jisTJ then set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" to trunc(jisTJ * GH4 / jis4)if jis5 >= jisTJ then set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" to trunc(jisTJ * GH5 / jis5)if jis6 >= jisTJ then set the textHeight of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" to trunc(jisTJ * GH6 / jis6)--ﾃ迂ﾃ液ﾃ瓜ﾃ叡ﾃ曳if sim3 is empty thenget loc of cd fld "ﾃ 竏づｱﾂｺ1"subtract atenaOfT from item 1 of itset loc of cd fld "ﾃ 竏づｱﾂｺ1" to itget loc of cd fld "ﾃ 竏づｱﾂｺ2"subtract atenaOfT from item 1 of itset loc of cd fld "ﾃ 竏づｱﾂｺ2" to itend ifelse--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴglobal simMT1,simMT2,simMT3,GK1,GK2,Gk3,GK4,GK5,GK6,jisYA,jisYJ,atenaOfY,jyuL--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴstyleﾃ‡ï｣ｿﾃ厩ﾃ曳ﾃ叡ﾃ丑put the textStyle of cd fld "ﾃ 竏づｱﾂｺ1" into GK1put the textStyle of cd fld "ﾃ 竏づｱﾂｺ2" into GK2put the textStyle of cd fld "ﾃ 竏づｱﾂｺ3" into GK3put the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" into GK4put the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" into GK5put the textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" into GK6--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴﾃｯ竏づｩﾃｶﾃ､窶佚‡ﾂｬﾃ‡ïｬづ‡ﾃˆif (simMT1 >= jisYA) then set textStyle of cd fld "ﾃ 竏づｱﾂｺ1" to condenseif (simMT2 >= jisYA) then set textStyle of cd fld "ﾃ 竏づｱﾂｺ2" to condenseif (simMT3 >= jisYA) then set textStyle of cd fld "ﾃ 竏づｱﾂｺ3" to condenseif (number of chars of line 1 of jyuL) >= jisYJ then set textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" to condenseif (number of chars of line 2 of jyuL) >= jisYJ then set textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„" to condenseif (number of chars of line 3 of jyuL) >= jisYJ then set textStyle of cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„" to condense--ﾃｪEﾃ｣竏†ﾃ ﾃ崚ｧﾂｸﾃ‡竕暗‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ欝ﾃ韻ﾃ浦ﾃｯﾅ禿ｧXif (fon1 <> "ﾃｯWﾃｨﾃ„") thenset the textSize of cd fld "ﾃ 竏づｱﾂｺ1" to ((the textSize of cd fld "ﾃ 竏づｱﾂｺ1") + fon1)end if--ﾃ迂ﾃ液ﾃ瓜ﾃ叡ﾃ曳if sim3 is empty thenget loc of cd fld "ﾃ 竏づｱﾂｺ1"add atenaOfY to item 2 of itset loc of cd fld "ﾃ 竏づｱﾂｺ1" to itget loc of cd fld "ﾃ 竏づｱﾂｺ2"add atenaOfY to item 2 of itset loc of cd fld "ﾃ 竏づｱﾂｺ2" to itend ifend ifend setFld---------------------send Palette---------------------ﾃ ﾃ崚ｧﾂｸﾃ､ﾃｷﾃ･Wﾃ‡ﾃ陛厩ﾃ運ﾃ叡ﾃ丑ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡窶ｦﾃ｣Lﾃｧ竅„--on goPrevglobal nameJyushoroku,stN--lock screenset cursor to watchput short name of this cd into nnnpop cdgo to prev cd in bg "ﾃｨZﾃｨﾃ､ﾃｲ^" of stack nameJyushorokupush this cdgo to cd nnn of stack stNend goPrevon goNextglobal nameJyushoroku,stN--lock screenset cursor to watchget short name of this cdpop cdgo to next cd in bg "ﾃｨZﾃｨﾃ､ﾃｲ^" of stack nameJyushorokupush this cdgo to cd it of stack stNend goNexton goRetgo cd "hyousi" of this stackend goReton goMPrev--ﾃｫOﾃ‡ﾃε厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃｷglobal nameJyushoroku,stN--lock screenset cursor to watchget short name of this cdpop cdgo to prev marked cd of stack nameJyushorokupush this cdgo to cd it of stack stNend goMPrevon goMNext--ﾃｩﾃｼﾃ‡ﾃε厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃｷglobal nameJyushoroku,stN--lock screenset cursor to watchget short name of this cdpop cdgo to next marked cd of stack nameJyushorokupush this cdgo to cd it of stack stNend goMNexton goPrint1--ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴﾃ ﾃ崚ｧﾂｸgo cd "print1"end goPrint1on goPrint2--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃ ﾃ崚ｧﾂｸgo cd "print2"end goPrint2on insatu--ﾃｩﾃｩﾃ‡ﾂｵﾃｧﾂｸﾃ‡ﾃ‹goinsatuend insatuon scldomenu "Scroll"end scl---------------------send Menu-----------------------fieldﾃｨﾃ禿ｯﾃ津ｯ¥ﾃｩﾂｶon setFont whatglobal SaveUserLevelretField --ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ï｣ｿﾃ･竕･ﾃ‡窶ｦset userlevel to 5get "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„,ﾃ 竏づｱﾂｺ1,ﾃ 竏づｱﾂｺ2,ﾃ 竏づｱﾂｺ3,ﾃ嘉…ﾃ嘉‡1,ﾃ嘉…ﾃ嘉‡2,ﾃ嘉…ﾃ嘉‡3,ﾃ嘉…ﾃ嘉‡4,-,ﾃ｢ﾃ甘ｱﾂ ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ,-,ﾃ英ﾃ嘉･ﾃ叡ﾃ曳"if what is "1" thenselect bg fld "zip1"commandKeyDown "t"repeat with i=2 to 6put "zip" & i into nset the textFont of bg fld n to (the textFont of bg fld "zip1")set the textAlign of bg fld n to (the textAlign of bg fld "zip1")set the textSize of bg fld n to (the textSize of bg fld "zip1")set the textStyle of bg fld n to (the textStyle of bg fld "zip1")set the textHeight of bg fld n to (the textHeight of bg fld "zip1")end repeatelseput item what of it into nselect cd fld ncommandKeyDown "t"end if--setFld --ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｧﾆ津瓜ﾃ叡ﾃ曳choose browse toolset userlevel to SaveUserLevelend setFonton setPale--ﾃ ﾃ崚ｧﾂｸﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶﾃｪﾃｿﾃ‡ﾃ凝ｫﾃｷﾃ‡ﾂｶif  (there is not a window "ﾃ ﾃ崚ｧﾂｸ") thenpalette "ﾃ ﾃ崚ｧﾂｸ"elseif visible of window "ﾃ ﾃ崚ｧﾂｸ" thenhide window "ﾃ ﾃ崚ｧﾂｸ"elseshow window "ﾃ ﾃ崚ｧﾂｸ"end ifend ifend setPale------------------- menu -------------------------------on deletemenureset menubarend deletemenuon createMenu--ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ頴ﾃ…[ﾃ‡窶ｦﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｭﾂｫﾃ｢ﾂ｡if there is a menu "ﾃｪ窶ｺﾃｭﾃ‹" then delete menu "ﾃｪ窶ｺﾃｭﾃ‹"create menu "ﾃｪ窶ｺﾃｭﾃ‹"put "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„,ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„,ﾃ 竏づｱﾂｺ1,ﾃ 竏づｱﾂｺ2,ﾃ 竏づｱﾂｺ3,ﾃ嘉…ﾃ嘉‡1,ﾃ嘉…ﾃ嘉‡2,ﾃ嘉…ﾃ嘉‡3,ﾃ嘉…ﾃ嘉‡4,-,ﾃ｢ﾃ甘ｱﾂ ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ,-,ﾃ英ﾃ嘉･ﾃ叡ﾃ曳" into menu "ﾃｪ窶ｺﾃｭﾃ‹" with menuMsgﾂｬ"setFont 1,setFont 2,setFont 3,setFont 4,setFont 5,setFont 6,setFont 7,setFont 8,setFont 9,setFont 10,setFont 11,,setSyoki,,setPale"end createMenu-------------Layout----------------------------------ﾃ韻ﾃ嘉…ﾃ…[ﾃ姥ﾃ雨ﾃ…[ﾃ栄ﾃ‡ﾃε､eﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃｷﾃｯ竏づｩﾃｶﾃ‡ï｣ｿﾃｬﾂｸﾃ‡ﾃ催‡ﾃˆon Layoutset cursor to watchlock screen--ﾃ ﾃ催ｮﾂ ﾃ碓ﾃ嘉ｧﾃ…[ﾃ頴ﾃ嘉｣global zip,sim1,sim2,sim3,jyu,kei1,kei2,kei3,jyuL--,nameJyushoroku,atenaOfT,atenaOfY--ﾃｧﾃ湘｣竏†ﾃｳpﾃｯﾅ禿ｪﾃｮﾃ‡窶ｦﾃｫ窶榲ｬﾂｸput sim1 into sim1Lput sim2 into sim2Lput sim3 into sim3Lput jyu into jyuL--ﾃ･hﾃｨﾃεｱ竕･ﾃ‡ﾂｵﾃ‡ﾃεｨﾃ ﾃｳﾃｹif (kei1 is "ﾃ…ﾃｻ") then put "" into kei1if (kei2 is "ﾃ…ﾃｻ") then put "" into kei2if (kei3 is "ﾃ…ﾃｻ") then put "" into kei3--if short name of this cd is "print1" then-- ﾃ｢ﾂｰﾃｨﾃｫﾃ‡ﾂｴglobal simMT1,simMT2,simMT3,hei1global nSpY,zenkakuY,spKY,spAY,jisYS1,jisYS2,jisYS3,spSY1,spSY2,spSY3 --,atenaOfY,jisYA,jisYJ--ﾃ 竏づｱﾂｺ1ﾃ‡ﾃεｨﾃ ﾃｳﾃｹ--ﾃ 竏づｱﾂｺﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃ ﾃ催‡ﾂｬﾃｧﾃ古ｨﾃｺif nSpY and ( "ﾃ①" is in sim1L) then put empty into char offset("ﾃ①",sim1L) of sim1L--ﾃ 竏づｱﾂｺﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃˆput (number of chars of sim1L) + (number of chars of kei1) into simMT1--ﾃ 竏づｱﾂｺﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃˆput (number of chars of sim1L) + (number of chars of kei1) into simMT1--ﾃ 竏づｱﾂｺﾃ‡窶ｦﾃｮﾂｺﾃ､pﾃ厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃ‡ﾃ陛‡竕･ﾃ‡ﾃ津‡竕暗ｧLﾃ‡竏榲‡ﾃˆ--ﾃｯ竏づｩﾃｶﾃ､窶佚厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃ･ﾃ ﾃｭﾃ‹if (hei1 = "ﾃ｣lﾃ‡ïｬ‚") thenput "" into spelse if simMT1 >= jisYS3 thenput spSY3 into spelse if simMT1 >= jisYS2 thenput spSY2 into spelse if simMT1 >= jisYS1 thenput spSY1 into spelseput spAY into spend ifif char 1 of kei1 is " " then--ﾃ｢pﾃ･ﾃ催ｬﾃｨﾃ‡ﾃε･hﾃｨﾃε‡ﾃεｩﾃｻﾃ･hﾃｨﾃε‡ï｣ｿﾃｬ邃｢ﾃ‡窶ｦﾃｯtﾃ‡ﾃ佚ｯ竏づｩﾃｶﾃ､窶佚､uﾃ‡ﾃ陛ｱ竕･ﾃ‡ﾂｵﾃ‡竏†ﾃ‡竏妥‡ﾃˆput kei1 && sim1L into sim1Ldelete char 1 of sim1L --ﾃｬ邃｢ﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺput sim1L into cd fld "ﾃ 竏づｱﾂｺ1"else--ﾃｬﾋ凖ｱ{ﾃ‡ﾃε･hﾃｨﾃε‡ﾃεｩﾃｻﾃ 竏づｱﾂｺﾃｯ竏づｩﾃｶﾃ､窶佚､uﾃ‡ï｣ｿﾃｧLﾃ‡竏榲･hﾃｨﾃεｯtﾃ‡ﾃ佚‡ﾃˆput hasamu(sim1L,sp) & spKY & kei1 into cd fld "ﾃ 竏づｱﾂｺ1" --XFCNend if--ﾃ 竏づｱﾂｺ2ﾃ‡ﾃεｨﾃ ﾃｳﾃｹif sim2L is empty thenput empty into simMT2put empty into cd fld "ﾃ 竏づｱﾂｺ2"elseif nSpY and ( "ﾃ①" is in sim2L) then put empty into char offset("ﾃ①",sim2L) of sim2L--ﾃ 竏づｱﾂｺﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃˆput (number of chars of sim2L) + (number of chars of kei2) into simMT2--if simMT2 >= jisYS3 thenput spSY3 into spelse if simMT2 >= jisYS2 thenput spSY2 into spelse if simMT2 >= jisYS1 thenput spSY1 into spelseput spAY into spend ifif char 1 of kei2 is " " thenput kei2 && sim2L into sim2Ldelete char 1 of sim2Lput sim2L into cd fld "ﾃ 竏づｱﾂｺ2"elseput hasamu(sim2L,sp) & spKY & kei2 into cd fld "ﾃ 竏づｱﾂｺ2"end ifend if--ﾃ 竏づｱﾂｺ3ﾃ‡ﾃεｨﾃ ﾃｳﾃｹif sim3L is empty thenput empty into simMT3put empty into cd fld "ﾃ 竏づｱﾂｺ3"elseif nSpY and ( "ﾃ①" is in sim3L) then put empty into char offset("ﾃ①",sim3L) of sim3L--ﾃ 竏づｱﾂｺﾃｯ竏づｩﾃｶﾃｪﾃｮﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃˆput (number of chars of sim3) + (number of chars of kei3) into simMT3--if simMT3 >= jisYS3 thenput spSY3 into spelse if simMT3 >= jisYS2 thenput spSY2 into spelse if simMT3 >= jisYS1 thenput spSY1 into spelseput spAY into spend ifif char 1 of kei3 is " " thenput kei3 && sim3L into sim3Ldelete char 1 of sim3Lput sim3L into cd fld "ﾃ 竏づｱﾂｺ3"elseput hasamu(sim3L,sp) & spKY & kei3 into cd fld "ﾃ 竏づｱﾂｺ3"end ifend if--ﾃｨZﾃｨﾃ､if zenkakuY then ChangeJput line 1 of jyuL into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„"put line 2 of jyuL into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„"put line 3 of jyuL into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„"--ﾃ 竏づｱﾂｺﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ ﾂ ﾃｭuﾃ‡ï｣ｿﾃ瓜ﾃ叡ﾃ曳ﾃ‡竏妥‡ﾃˆsetFldelse--ﾃｨcﾃｨﾃｫﾃ‡ﾂｴglobal nSpT,sSpT--,atenaOfT,jisTA,jisTA2,atenaFT,jisTJ--ﾃ･hﾃｨﾃε‡ï｣ｿﾃ‡窶禿‡ﾂ｡ﾃ‡ﾂｬﾃ‡ﾃ佚‡ﾃˆif sSpT thenput " " into sp3 --ﾃｨcﾃｨﾃｫﾃ‡ﾂｴﾃ 竏づｱﾂｺﾃ･hﾃｨﾃε､窶˜elseput "" into sp3end if--ﾃ 竏づｱﾂｺ1--ﾃ 竏づｱﾂｺﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃ ﾃ催‡ﾂｬﾃｧﾃ古ｨﾃｺif nSpT and ( "ﾃ①" is in sim1L) then put empty into char offset("ﾃ①",sim1L) of sim1L--ﾃ･hﾃｨﾃε‡ï｣ｿﾃ‡窶禿‡ﾂ｡ﾃ‡ﾂｬﾃ‡ﾃ佚‡ﾃˆif char 1 of kei1 is " " then--ﾃ｢pﾃ･ﾃ催‡ﾃε･hﾃｨﾃƒput kei1 && sim1L into sim1Ldelete char 1 of sim1L --ﾃｬ邃｢ﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺelseput sp3 & kei1 after sim1Lend if--ﾃ｢ﾂｸﾃｧsﾃ‡ï｣ｿﾃ‡ﾃ陛‡竕･ﾃ‡ïｬput empty into damyput hasamu(sim1L,return) into cd fld "ﾃ 竏づｱﾂｺ1" --XFCN--ﾃ 竏づｱﾂｺ2if sim2L is empty thenput empty into cd fld "ﾃ 竏づｱﾂｺ2"elseif nSpT and ( "ﾃ①" is in sim2L) then put empty into char offset("ﾃ①",sim2L) of sim2Lif char 1 of kei2 is " " thenput kei2 && sim2L into sim2Ldelete char 1 of sim2L --ﾃｬ邃｢ﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺelseput sp3 & kei2 after sim2Lend ifput empty into damyput hasamu(sim2L,return) into cd fld "ﾃ 竏づｱﾂｺ2" --XFCNend if--ﾃ 竏づｱﾂｺ3if sim3L is empty thenput empty into cd fld "ﾃ 竏づｱﾂｺ3"elseif nSpT and ( "ﾃ①" is in sim3L) then put empty into char offset("ﾃ①",sim3L) of sim3Lif char 1 of kei3 is " " thenput kei3 && sim3L into sim3Ldelete char 1 of sim3L --ﾃｬ邃｢ﾃ‡ﾃε厩ﾃ謁ﾃ…[ﾃ厩ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺelseput sp3 & kei3 after sim3Lend ifput empty into damyput hasamu(sim3L,return) into cd fld "ﾃ 竏づｱﾂｺ3" --XFCNend if--ﾃｨZﾃｨﾃ､ChangeJ --ﾃ､ﾃｸﾃｪﾃｮﾃｩﾃｶﾃ‡ﾃｷﾃｯﾅ禿､竏‘--ﾃ｢ﾂｸﾃｧsﾃ｣竕､ﾃ‡ïｬput hasamu(line 1 of jyuL,return) into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ1ﾃｧsﾃｱ竅„" --XFCNput hasamu(line 2 of jyuL,return) into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ2ﾃｧsﾃｱ竅„"put hasamu(line 3 of jyuL,return) into cd fld "ﾃｨZﾃｨﾃ､ﾃ‡ﾃƒ3ﾃｧsﾃｱ竅„"--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ ﾂ ﾃｭuﾃ瓜ﾃ叡ﾃ曳setFldend if--ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœput char 1 of zip into bg fld "zip1"put char 2 of zip into bg fld "zip2"put char 3 of zip into bg fld "zip3"if (hilite of cd btn id 88 of cd "hyousi") thenput char 4 of zip into bg fld "zip4"elseput empty into bg fld "zip4"end ifput char 5 of zip into bg fld "zip5"put char 6 of zip into bg fld "zip6"unlock screenend Layouton ChangeJglobal jyuLput "0123456789-" into M1put "ﾃ㈴ﾃ㈲ﾃ㈻ﾃ㈶ﾃ㈳ﾃ㈵ﾃ㈼ﾃ㈽ﾃ㈿ﾃ㈸ﾃ❶" into M2put change1to2(jyuL,M1,M2) into jyuL --XFCNif (short name of this cd is "print2") thenif (the hilite of cd btn id 21 of cd "ﾃｨcﾃｪ窶ｺﾃｭﾃ‹") thenput "ﾃ㈴,ﾃ㈲,ﾃ㈻,ﾃ㈶,ﾃ㈳,ﾃ㈵,ﾃ㈼,ﾃ㈽,ﾃ㈿,ﾃ㈸,ﾃ❶,ﾃ…["  into M1put "ﾃ…Z,ﾃ ﾃ,ﾃｬﾃ’,ﾃｩO,ﾃｩl,ﾃ･窶ｹ,ﾃｲZ,ﾃｩﾂｵ,ﾃｮ邃｢,ﾃ｣窶ž,ﾃ⑸,ﾃ⑸"  into M2elseput "ﾃ❶,ﾃ…["  into M1put "ﾃ⑸,ﾃ⑸"  into M2end ifput change2to2(jyuL,M1,M2) into jyuL --XFCNend ifput jyuL & bg fld "f" into jyuLend ChangeJ----------------fld ﾃ‡ﾃε､gﾃｫﾃ‚,ﾃ 竅„ﾃｬﾃ†---------------------on setSizeput short name of target into selectField--ﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ鵜ﾃ…[ﾃ‡ï｣ｿﾃ｢ﾃｼﾃ‡ﾂｻﾃ‡邃｢ﾃ‡ﾃﾃｫﾃ„ﾃｧﾃ湘‡竏妥‡ﾃ暗‡ﾃε‡ﾃｦif the commandKey is up then exit setSize--ﾃ運ﾃ…[ﾃ渦ﾃ叡ﾃ曳ﾃｱﾂｺﾃｯ¥ﾃｩﾂｶput selectField into bg fld "selectField"--ﾃ映ﾃ…[ﾃ運ﾃ…[ﾃ‡ï｣ｿﾃｩﾃ甘‡ﾃˆput the clickloc into cLocput the clickH into cHput the clickV into cVput left of target into Lput top of target into Tput right of target into Rput bottom of target into Bput the loc of target into S--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ‡ﾃεｩﾃｻﾃ‡ﾃε‡窶ｺﾃ‡ﾃ陛‡竏づ‡ﾂ｡ﾃ‡ﾂｱﾃ‡ﾂｻﾃ‡ﾃﾃｫﾃづ‡ﾂｴﾃ‡竕･ﾃ‡ﾃεｯﾅ禿ｧXif (cLoc is within (R-10 & "," & B-10 & "," & R & "," & B)) thenput R-ch into ofSH --ﾃ‡ﾃ陛‡竏づ‡ﾂ｡ﾃ‡ﾂｱﾃ‡竏†ﾃ‡ﾃδｵﾃεｦﾃ佝’put B-cV into ofSVtype "" --msgWindowﾃ‡ï｣ｿﾃｯ¥ﾃｩﾂｶﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗‡ﾂｮﾃ‡窶ｹﾃ‡竏づ‡ﾂｻﾃ‡ﾂ｢--ﾃｫﾃづ‡ﾂｴﾃ‡竕･ﾃｯﾅ禿ｧXset cursor to tateyokoput "ﾃｫﾃづ‡ﾂｴﾃ‡竕･ﾃｯﾅ禿ｧX" after bg fld "selectField"repeat while the mouse is "down"get the mouselocput item 1 of it +ofSH into ofRput item 2 of it +ofSV into ofBset rect of target to L,T,ofR,ofBend repeat--ﾃｨﾂｨﾃ‡竕･ﾃ‡竏妥‡ﾂｨﾃ‡ﾃˆif width of target <16 then set width of target to 16if height of target <14 thenset height of target to 14end ifelse--ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ 竅„ﾃｬﾃ†put "ﾃ 竅„ﾃｬﾃ†" after bg fld "selectField"retField --ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ ﾂ ﾃｭuofsetﾃｫOﾃ‡窶ｦset cursor to hiraitateput loc of target into fLocget rinkaku(the rect of target) --XFCNadd item 1 of it to item 1 of fLocadd item 2 of it to item 2 of fLocset the loc of target to fLoc--ﾃ ﾃ催ｮ窶佚ｨ窶榲‡窶ｦﾃ 竅„ﾃｬﾃ†set cursor to watchlock screenselect targettype "+" with commandkey,shiftkeychoose browse toolsetFld --ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃｧﾆ津瓜ﾃ叡ﾃ曳end ifput empty into bg fld "selectField"end setSize</script>
  363. </background>
  364.