DECLARE SUB pri ()
CLS
DIM SHARED k, total, t
INPUT k
DIM SHARED a(k)
s = 0: t = 1
DO
  a(t) = a(t) + 1: s = s + a(t)
  IF s >= k THEN
     IF s = k THEN CALL pri
     s = s - a(t): t = t - 1
     IF t = 0 THEN EXIT DO
     s = s - a(t)
  ELSE
     t = t + 1: a(t) = 0
  END IF
LOOP UNTIL t = 0
PRINT "Total="; total
END

SUB pri
PRINT k; "=";
FOR i = 1 TO t - 1: PRINT a(i); "+"; : NEXT i
PRINT a(t)
total = total + 1
END SUB