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

⟦651ad5d1c⟧ TextFile

    Length: 667 (0x29b)
    Types: TextFile
    Notes: UNIX file
    Names: »ask«

Derivation

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

TextFile

#! /bin/csh -f

set noglob
set file = $1
set prompt = "$2"

if (-f $subs/autohelp) source $build/autohelp
echo "" > /dev/tty
echo -n "$SO$prompt$SE " > /dev/tty
set pattern = "`awk -f $build/awkpatt $help/$file`"

while (1)
	eval set resp = $<
	switch ($resp)
	case '':
		sed -e '/^%/,$d' $help/$file > /dev/tty
		breaksw
	case h:
	case help:
		sed -e '/^%/d' $help/$file > /dev/tty
		breaksw
	case intro:
		cat $subs/intro > /dev/tty
		breaksw
	default:
		echo "$resp" | egrep "$pattern" > /dev/null
		if ($status) then
			echo "Unknown: $resp" > /dev/tty
		else
			echo "$resp"
			exit(0)
		endif
	endsw
	echo "" > /dev/tty
	echo -n "$SO$prompt$SE " > /dev/tty
end