commas           7955 src/simh/scp.c int32 d, digit, ndigits, commas = 0;
commas           7977 src/simh/scp.c         commas = (ndigits - 1)/3;
commas           7980 src/simh/scp.c         for (digit=1; digit<=commas; digit++)
commas           7982 src/simh/scp.c         d = d - commas;
commas           8002 src/simh/scp.c         if ((MAX_WIDTH - (ndigits + commas)) < d)
commas           8003 src/simh/scp.c             d = MAX_WIDTH - (ndigits + commas);