DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦a7012001b⟧ TextFile

    Length: 351 (0x15f)
    Types: TextFile
    Notes: UNIX file
    Names: »mout.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦f4b8d8c84⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »libmp/mout.c«

TextFile

#include <stdio.h>
#include "mprec.h"


/*
 *	Mout writes on stdout the value of the mint pointed to by "a"
 *	in base "obase".
 */

void
mout(a)
mint *a;
{
	register char *res;
	char *mark;
	register int len;

	mark = res = mtos(a);
	for (len = strlen(res) / 72; len-- > 0; res += 72)
		printf("%.72s\\\n", res);
	printf("%s", res);
	mpfree(mark);
}