DataMuseum.dk

top - metrics - download

    Length: 869 (0x365)
    Types: TextFile
    Names: »etc.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Insult/etc.c« 

TextFile

/* RCS Info: $Revision: $ on $Date: $
 *           $Source: $
 * Copyright (c) 1985 Wayne A. Christopher 
 *	Permission is granted to do anything with this code except sell it
 *	or remove this message.
 *
 * Some useful things.
 */

#include <stdio.h>

#define DEFAULT 3

int nflag = 0;

main(ac, av)
char **av;
{
	/* The main function for babble. */

	int i, j;
	extern int lpos;

	srandom(getpid());

	if (ac > 1) {
		j = atoi(av[1]);
		if (j < 0) {
			j = -j;
			nflag = 1;
		}
		if (j == 0) {
			for (i = 0; i < 100; i++) {
				maketext("start");
				kkoutput("@");
				lpos = 0;
				putchar('\n');
				putchar('\n');
			}
			exit(0);
		}
		for (i = 0; i < j; i++) {
			maketext("start");
			kkoutput("@");
		}
		putchar('\n');
		exit(0);
	}
	i = DEFAULT;
	while (i--) {
		srandom(random());
		maketext("start");
		kkoutput("@");
	}
	putchar('\n');
	exit(0);
}