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

⟦5a985f374⟧ TextFile

    Length: 286 (0x11e)
    Types: TextFile
    Notes: UNIX file
    Names: »getit.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦926b8033d⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »u/demo/slide/getit.c«

TextFile

#include <stdio.h>
#include <signal.h>
char *p,*p2;
main() {
	int intr();
	if(signal(SIGINT, SIG_IGN) != SIG_IGN)
		signal(SIGINT, intr);
	if((p = malloc((unsigned int)60000L)) == NULL) exit();
	p2 = p;
	while(1) *p++ = getchar();
}
intr()
{
	while (p2 != p) putchar(*p2++);
	exit();
}