From:	CSBVAX::MRGATE!info-vax-request@kl.sri.com@SMTP 17-MAY-1988 07:55
To:	ARISIA::EVERHART
Subj:	DCL Prompt for your amusement


Received: from ucbvax.Berkeley.EDU by KL.SRI.COM with TCP; Sat 14 May 88 21:28:11-PDT
Received: by ucbvax.Berkeley.EDU (5.59/1.28)
	id AA05490; Fri, 13 May 88 22:33:35 PDT
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 9 May 88 20:04:30 GMT
From: mcvax!unido!iaoobelix!woerz@uunet.uu.net  (Dieter Woerz)
Organization: Fraunhofer Institut fuer Arbeitswirtschaft und Organisation
Subject: DCL Prompt for your amusement
Message-Id: <163@iaoobelix.UUCP>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

This is the script to generate a prompt in the style of a face on
terminals with the Character set download capability of the VT200 Series
Terminal. You should replace the ^ with a control (i.e. ^[ == ESC) and
wrap the lines not starting with a $ to the end of the previous line.

Enjoy.

------------------------------------------------------------------------------

Dieter Woerz
Fraunhofer Institut fuer Arbeitswirtschaft und Organisation
Abt. 453
Holzgartenstrasse 17
D-7000 Stuttgart 1
W-Germany

BITNET: iaoobel.uucp!woerz@unido.bitnet
UUCP:   ...{uunet!unido, pyramid}!iaoobel!woerz

------------------------------------------------------------------------------

$ say :== write sys$output
$ say "^[P1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD;
????????/CCGG^[\"
$ say "^[P1;7;1{1CCAAHHDD/????KKBB;qqKKOO''/????????;OOOOOOOO;@@MM????;
OOGGFF??/????????^[\"
$ say " "
$ set prompt="^[[1;m^[)1#$%&[m^M^J'()*^[^O^[[0m "