Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!cs.utexas.edu!mailrus!cornell!rochester!rit!cci632!ccicpg!conexch!root
From: root@conexch.UUCP (Larry Dighera)
Newsgroups: comp.unix.xenix
Subject: Re: Screen saver?
Summary: Here's one for ANSI terminals
Message-ID: <42715@conexch.UUCP>
Date: 19 Jul 90 02:09:19 GMT
References: <1990Jul13.211826.27338@msuinfo.cl.msu.edu>
Reply-To: root@conexch.UUCP (Larry Dighera)
Organization: The Consultants' Exchange, Orange County, CA.  (714) 842-6348
Lines: 35

In article <1990Jul13.211826.27338@msuinfo.cl.msu.edu> jhl@kira.msu.edu (John Lawitzke) writes:
>Does anyone know of any console screen savers for SCO Xenix 386?

# Xenix screen dump
#
# Copyright Dighera Data Services Mon Aug  7 13:35:03 PDT 1989


DMP_FIL="screen.out"
export DMP_FIL

# getopt
count="1"
for i
do
	count="`expr $count + 1`"
	case $i in
		-f) DMP_FIL=`eval "(echo $"$count")"` ;
			break ;;
		*)echo "Usage: $0 [-f dumpfile]" 1>&2;
			exit 1;;
	esac
done

# doit
savtty="`stty -g`"
stty -echo ixon ixoff -ixany
echo '\033[2i'
head -24 | sed 's/ $//' >> "$DMP_DIR$DMP_FIL"
stty "$savtty"
-- 
USPS: The Consultants' Exchange, PO Box 12100, Santa Ana, CA  92712
TELE: (714) 842-6348: BBS (N81); (714) 842-5851: Xenix guest account (E71)
UUCP: conexch Any ACU 2400 17148425851 ogin:-""-ogin:-""-ogin: nuucp
UUCP: ...!uunet!spsd!conexch!root || ...!ccicpg!conexch!root