;??-Jun-1999                                                    Alain Brobecker
;Computes squares by using adds only

  1 1                   ;1 1
.loop
  COPY HPRINT " = "
  COPY COPY +           ;x x 2x
  SWAP2 1 +             ;x 2x x+1
  3 SWAP                ;x+1 2x x
  COPY HPRINT CR
  + 1 +                 ;x+1 x+2x+1
  SWAP2
  COPY 256 SKIP= loop
  HPRINT " = " HPRINT CR
END
