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 - metrics - download

⟦cd7c88890⟧ TextFile

    Length: 282 (0x11a)
    Types: TextFile
    Notes: UNIX file
    Names: »pt.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦2d53db1df⟧ UNIX Filesystem
        └─⟦this⟧ »frankh/gsrc/pt.c«

TextFile

#include	<stdio.h>
#include	<math.h>

int	line(),
	point(),
	clear(),
	clearw();
double	sin(),
	cos(),
	tan(),
	sqrt;

main()
{
	double	x1,x2,y1,y2,
		b,c,i,j,h,v,
		o1,o2,o3,o4;
	int	x, y,
		ii;

	clear();
loop:
		x = rand(1) / 32;
		y = rand(1) / 40;
		point(x, y);
	goto loop;
}