Path: utzoo!attcan!uunet!mcvax!unido!iaoobelix!woerz
From: woerz@iaoobelix.UUCP (Dieter Woerz)
Newsgroups: comp.os.vms
Subject: DCL Prompt for your amusement
Keywords: DCL Prompt
Message-ID: <163@iaoobelix.UUCP>
Date: 9 May 88 20:04:30 GMT
Reply-To: woerz@iaoobelix.UUCP (Dieter Woerz)
Organization: Fraunhofer Institut fuer Arbeitswirtschaft und Organisation
Lines: 28
Posted: Mon May  9 21:04:30 1988

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 "