[comp.os.vms] DCL Prompt for your amusement

woerz@iaoobelix.UUCP (Dieter Woerz) (05/10/88)

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 "