DataMuseum.dk

Presents historical artifacts from the history of:

ICL Comet 32

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

See our Wiki for more about ICL Comet 32

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦52d56d2f8⟧ TextFile

    Length: 340 (0x154)
    Types: TextFile
    Notes: UNIX file
    Names: »hclock«

Derivation

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »sys/build/hclock«

TextFile

#! /bin/csh -f

while (1)
	set ans = `ask hardtime "The time now is:"`
	switch ($ans)
	case quit:
		exit(1)
	case 90*:
		echo "You are not serious - this machine is obsolete by 1990\!"
	endsw
	echo ""
	echo "Executing: setclock -i $ans"
	setclock -i "$ans"
	if ($status) then
		echo "Error in setclock - try again"
	else
		break
	endif
end