<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2947</cardID>
<listID>3793</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>240</height>
</cardSize>
<script>on openstacklock screenglobal Sisoku,genkaiput cd btn id 4 into Sisokuput cd btn id 23 into genkaiif the CantModify of this stack is true then set the userModify to trueput "LongCalcﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ" into menuitem 1 of menu apple with menumsg "about"unlock screenend openstackon closestackif the freesize of this stack>16480 then domenu "compact stack"reset menubarend closestackon aboutif there is not a window "about" then picture "about",resource,dialog,true,8end aboutfunction ADD A,Bglobal RA,RB,GSput 0 into GSif "." is not in A and "." is not in B thenput A into RAput B into RBelse shoux A,Bput bunkatu(RA) into bAput bunkatu(RB) into bBput the number of items of bA into ANput the number of items of bB into BNput 0 into Caif AN<BN thenput BN-AN into Cxrepeat for Cxput "0," before bAend repeatelseput AN-BN into Cxrepeat for Cxput "0," before bBend repeatend ifput the number of items of bA into ANput 0 into Crepeat AN-1put ",0" after Cend repeatrepeat with G=AN down to 1put item G of bA + item G of bB + Ca into Cnput 0 into Caif the number of chars of Cn < 8 thenput Cn into item G of Celseif G<>1 thenput Cn-10000000 into item G of Cput 1 into Caelse put Cn into item G of Cend ifend repeatput Rpint(C,GS) into Creturn Cend ADDfunction SUBTRACT A,Bglobal RA,RB,GS,bA,bB,AN,BNput empty into mainasput 0 into GSif "." is not in A and "." is not in B thenput A into RAput B into RBelse shoux A,Bput bunkatu(RA) into bAput bunkatu(RB) into bBput the number of items of bA into ANput the number of items of bB into BNif AN<BN thentorikae bA,bB,1torikae AN,BN,2put "-" into mainasend ifif AN=BN thenrepeat with i=1 to ANif item i of bA< item i of bB thentorikae bA,bB,1torikae AN,BN,2put "-" into mainasexit repeatelse if item i of bA> item i of bB then exit repeatend repeatend ifput 0 into Caif AN<BN thenrepeat for (BN-AN)put "0," before bAend repeatelserepeat for (AN-BN)put "0," before bBend repeatend ifput 0 into Cput the number of items of bA into ANrepeat AN-1put ",0" after Cend repeatrepeat with G=AN down to 1put item G of bA - item G of bB - Ca into Cnput 0 into Caif Cn>=0 thenput Cn into item G of Celseif G is not 1 thenput Cn+1000000 into item G of Cput 1 into Caelse put Cn into item G of Cend ifend repeatput Rpint(C,GS) into Creturn mainas&Cend SUBTRACTfunction MULTIPLY A,Bglobal RA,RB,GSput 0 into GSif "." is not in A and "." is not in B thenput A into RAput B into RBelse shoux A,B,1put bunkatu(RA) into bAput bunkatu(RB) into bBput the number of items of bA into ANput the number of items of bB into BNput 0 into Crepeat AN+BN-1put ",0" after Cend repeatput 0 into Caput "ﾃ･vﾃｩZﾃｭﾃ"repeat with G=AN down to 1put 0 into Carepeat with K=BN down to 1put item (G+K) of C + item G of bA*item K of bB+Ca into item (G+K) of Cput 0 into Caif item (G+K) of C>10000000 thenput trunc(item (G+K) of C/10000000) into Caput item (G+K) of C-Ca*10000000 into item (G+K) of Cif K is 1 then put Ca into item (G+K-1) of Cend ifend repeatend repeatrepeatif item 1 of C is not 0 or the number of chars of C is 1 then exit repeatdelete first item of Cend repeatput Rpint(C,GS) into Cput empty into msgreturn Cend MULTIPLYfunction DIVIDE AE,BE,genkai-- AE>BEglobal RA,RB,GSif genkai is empty then put 0 into genkaiput 0 into GSif "." is not in AE and "." is not in BE thenput AE into RAput BE into RBelse shoux AE,BE,2put bunkatu(RA) into bAput RB into bBput the number of items of bA into ANput genkai div 4 into GDput comma&colon after bArepeat GDput ",0" after bAend repeatput 0 into qrepeat AN-1put ",0" after qend repeatput comma&colon after qrepeat GDput ",0" after qend repeatput the number of items of bA into ANrepeat with i=1 to ANif item i of bA is 0 or item i of bA is colon then next repeatput item i of bA div RB into item i of qput item i of bA mod RB into rput item i of q into item i of bAif item i+1 of bA is colon then add r*10000000 to item i+2 of bAelse add r*10000000 to item i+1 of bAend repeatif item 1 of q = 0 thendelete item 1 of qsubtract 1 from ANend ifput empty into flrepeat with j=AN down to 1if item j of q=colon thenput 1 into flnext repeatend ifif item j of q=0 thenif fl<>1 thendelete item j of qelseif j<>1 then put "0000000" into item j of qend ifelseif the number of chars of item j of q < 7 thenrepeat 7-(the number of chars of item j of q)put 0 before item j of qend repeatend ifend ifend repeatput 1 into krepeat the number of items of qput item k of q after Cadd 1 to kend repeatif last char of C is colon then delete last char of Celseput offset(colon,C) into SDput the number of chars of C into CCadd (CC-SD) to GSdelete char SD of Cend ifif GS<>0 thenput shouy(C,GS) into Cend ifif "." is in C thenrepeatif last char of C is not "0" then exit repeatdelete last char of Cend repeatend ifrepeatif first char of C is not 0 or the number of chars of C is 1 then exit repeatif char 2 of C is "." then exit repeatdelete first char of Cend repeatreturn Cend DIVIDEfunction Rpint num,GSrepeat with i = 1 to the number of items of numif the number of chars of item i of num < 7 thenrepeat 7-the number of chars of item i of numif i = 1 then exit repeatput 0 before item i of numend repeatend ifput item i of num after Hend repeatif GS<>0 thenput shouy(H,GS) into Helseif first char of H is "-" thenput empty into mainasudelete first char of Hput "-" into mainasuend ifrepeatif first char of H is not 0 or the number of chars of H is 1 then exit repeatdelete first char of Hend repeatend ifreturn Hend Rpintfunction shouy H,GSput the number of chars of H into CNif CN>GS then put "." after char (CN-GS) of Helserepeat GS-CNput 0 before Hend repeatput "0." before Hend ifif char 1 of H is "-" thenif char 2 of H is "." thenput 0 after char 1 of Hend ifelseif char 1 of H is "." then put 0 before Hend ifreturn Hend shouyon shouX A,B,Mif M=empty then put 0 into Mglobal RA,RB,GSput the number of chars of A into asput the number of chars of B into bsput offset(".",A) into oaput offset(".",B) into obif oa<>0 then put as-oa into shoaelse put 0 into shoaif ob<>0 then put bs-ob into shobelse put 0 into shobif M=1 thenput shoa+shob into GSelseput shoa-shob into shocif shoc=0 thenif M=0 then put shoa into GSelse put 0 into GSelseif shoc>0 then -- shoa>shobif M=0 thenrepeat shocput 0 after Bend repeatput shoa into GSelseput shoc into GSend ifelseput the abs of shoc into shocrepeat shocput 0 after Aend repeatif M=0 then put shob into GSelse put 0 into GSend ifend ifend ifdelete char oa of Adelete char ob of Bput A into RAput B into RBend shouXfunction bunkatu HHHrepeatput the Number of chars of HHH into Naaput Naa-7+1 into NAif NA<=0 then put 1 into NAput char NA to Naa of HHH before Hif the Number of chars of HHH>7 then put comma before Hdelete char NA to Naa of HHHif HHH is empty then exit repeatend repeatreturn Hend bunkatuon torikae F,H,kglobal bB,bA,AN,BNif k=1 thenput F into bBput H into bAend ifif k=2 thenput F into BNput H into ANend ifend torikae</script>
