LiveCode Forums.

Code: Select all

on mouseUp
   put longMult(123456789,10) into tNum
   answer tNum
end mouseUp

    --Requires the "addZero" and "longAdd" functions below
    function longMult arg1,arg2
       put the number of chars of arg1 into index1
       put the number of chars of arg2 into index2
       
       if index1 > 8 then
          repeat with y = index1 down to 1 step -8
             put space after char y of arg1
             if the length of word 1 of arg1 <= 8 then exit repeat
          end repeat
       end if
       
       if index2 > 8 then
          repeat with y = index2 down to 1 step -8
             put space after char y of arg2
             if the length of word 1 of arg2 <= 8 then exit repeat
          end repeat
       end if
       
       put the number of words of arg1 into arg1WordCount
       put the number of words of arg2 into arg2WordCount
       
          repeat with y = 1 to arg1WordCount
           repeat with u = 1 to arg2WordCount
             get ((arg1WordCount - y) * 8) + ((arg2WordCount - u) * 8)
                   put word y of arg1 *  word u of arg2 & addZero((it)) & return after temp
             end repeat
          end repeat
       
          repeat with y = 1 to the number of lines of temp - 1
                put longAdd(line y of temp,line y + 1 of temp) into line y + 1 of temp
          end repeat
       
         return the last line of temp
    end longMult

    function addZero var
       repeat var
          put 0 after zeros
       end repeat
       return zeros
end addZero