decimal                                        \ CUBES.FTH, transcribed for TF83

: sums2                                        \ Jerry Mueller's second routine
 array 32000 0 fill                            \ use as byte-sized array
 41 1
 do i 1+ 1
    do i dup dup * *
       j dup dup * * + 32000 mod
       array + dup c@
          if drop i j                          \ to print if necessary
             i dup dup * um*                   \ calculate current sum and
             j dup dup * um* d+                \ leave it on stack
             1 j 1 -                           \ set up
                do 1 i                         \ reverse loops
                    do 2dup
                       i dup dup * um*
                       j dup dup * um* d+ d=   \ compare ALL previous sums
                          if i j cr 5 .r 5 .r  \ with current sum, print all
                             2dup 8 ud.r       \ if equal
                             2over 5 .r 5 .r
                          then -1
                   +loop -1
               +loop 2drop 2drop
          else 1 swap c!
          then
    loop
 loop ;