OPTION BASE 0

PRINT "calc m / n"
INPUT PROMPT "m = ":m
INPUT PROMPT "n = ":n
DIM q(n+1)
DIM r(n)

FOR i = 0 TO n-1
   LET r(i) = 0
NEXT I

LET q(0) = IP(m / n)
LET m = MOD(m, n)
LET k = 0
DO
   LET k = k + 1
   LET r(m) = r(m) + k
   LET m = m * 10
   LET q(k) = IP(m / n)
   LET m = MOD(m, n)
LOOP WHILE (r(m) = 0)

PRINT q(0);".";

FOR i=1 TO r(m)-1
   PRINT USING "#": q(i);
NEXT i
LET c = i
IF ((r(m) < k) OR (q(k) <> 0)) THEN
   PRINT "{";
   FOR i = r(m) TO k
      PRINT USING "#":q(i);
   NEXT i
   PRINT "}"
   PRINT k - c + 1
END IF

END