Conference noted::hackers_v1

    Extract and try this on any vt100+AVO terminal and above.
     
    	$set prom=")0f`f "
    
    PS - re: .0/536.27  That's pretty slick, Giles   

$ write sys$output "�1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD;????????/CCGG????�"
$ write sys$output "�1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????;OOGGFF??/????????�"
$ SET PROMPT =  "
)1#$%&
'()*)1 "

    Here's the command procedure that builds mine, which was recently
    featured in Desparado:
    
    
$pr=f$getsyi("NODENAME")			!Gets the node name
$if pr .eqs. "" then pr=f$trnlnm("SYS$NODE") - "_" - ":" - ":"
$pl=f$len(pr) - 1				!Make it a capitalized string,
$pp=f$ext(1,pl,pr)				!for example "Eris".
$nc=f$ext(0,1,pr) + f$edit(pp,"lowercase")
$if f$getdvi("SYS$COMMAND","TT_DECCRT") then pr="=)0" + nc + "` "
$if .not. f$getdvi("SYS$COMMAND","TT_DECCRT") then pr=nc + "+ "
$set prompt="''pr'"

    Here are some more pretty prompts...
    
    
$ ! Finger Prompt
$ !
$ write sys$output "�1;3;1{1????????/?????M@@;?}@@@}??/@N?KA@@@;????????/MCAACG??;???{A@@@/????BCG?;@XhHHMAF/???F????;GGCB{F??/??KB????�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1  "
$ !
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ !
$ ! Beer Prompt
$ !
$ write sys$output "�1;1;1{1???_;??G/?????@;~@h@PH`P/N???A?G;H`H@`H@~/?C??G??N;GGGGGOo/??????GF;~??C??O/NGGGHGGG;?C??O??~/GGIGGGGN;AAAAAB@�
$ SET PROMPT = "
)1#$%)1
)1&'()1 "
$ !
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ !
$ ! Garfield Prompt
$ !
$ write sys$output "�1;3;1{1??__OOGG/??FFCCCC;eevvuu??/CCCCAAEE;uuvveeGG/AACCCCCC;OO__????/CCJJ????�"
$ write sys$output "�1;7;1{1^^__????/????@@??;MM}}????/BBBBBB??;??}}MM??/BBBBBB??;??__^^??/@@??????�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ !
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ !
$ ! Saurier Prompt
$ !
$ write sys$output "�;3;1{1?????_oo/@AAABBA?;ww{}}}{{/KNLBBBFN;wwo_????/G?@BABBA�"
$ SET PROMPT =  ")1#$%)1 "
$ !
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$ !
$ ! Woodstock Prompt
$ !
$ write sys$output "�1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD;????????/CCGG????�"
$ write sys$output "�1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????;OOGGFF??/????????�"
$ SET PROMPT =  ")1#$%&
'()*)1 >>"
$ !

$ ! Snoopy
$ write sys$output "�1;3;1{1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????;????????/HHEEAA??�"
$ write sys$output "�1;7;1{1bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????�"
$ SET PROMPT =  ")1#$%&
'()*)1 "

$ ! Car
$ write sys$output "�;3;1{1/????EEFF;?___oooW/DCCCFFF?;GgcSSSSc/BCCGJJGC;kK[{wwwo/CB?FFFFF;wwsssqqq/FFFFFFFF;pppppppp/FFFFFFFF;ppxx||~~/FFFFFFFF;}}}}]Mmc/FFFF?BCC;SSSSckGW/GJJGCCB?;wwwwwoo_/FFFFFFCC;_/B;/;/�"
$ SET PROMPT = ")1#$%&'()*+,-)1� "

$ ! Prick
$ write sys$output "�1;3;1{1/;{IHJJHI{/N??????N;/;?_WGCCCC/??BACCCC;FG[__[GF/CAB??BAC;CCCCGW_?/CCCCAB??�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1�"

$ ! Porsche
$ write sys$output "�;3;1{1/????EEFF;?___ooo/DCCCFFF?;GgcSSSSc/BCCGJJGC;kK[{wwwo/CB?FFFFF;wwsssqqq/FFFFFFFF;pppppppp/FFFFFFFF;ppxx||~~/FFFFFFFF;}}}}]Mmc/FFFF?BCC;SSSSckGW/GJJGCCB?;wwwwwoo_/FFFFFFCC;_/B;/;/�"
$ set prompt = "
)1#$%&'()*+,-)1� "

$ ! Bunny
$ write sys$output "�1;3;1{1????{{AA/????BBCC;AAAA{{????/GGGGFF??;{{AAAAAA/FFGGGGCC;{{??????/BB??????�"
$ write sys$output "�1;7;1{1??__OOSS/??@@AAAA;II@@CC__/AAFFFF??;CC@@@@II/FFFF@@AA;SSOO__??/@@@@AA??�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"

$ ! Rennwagen
$ write sys$output "��1;17;1{ @KKwwGGg_/??FCEDGG;GGggw__o/DA?DDDFD;_______/DDDDDDDD;/DDEC?EHH�"
$ write sys$output "��1;21;1{ @/E??ECCC;wcQQQQc/@AAAAA@;AAAaQIE/???B;kQQQQQk/@AAAAA@��) @"
$ SET PROMPT =  ") @12345 "

$!
$ On error then goto Error_Handler
$ ww:== write sys$output 
$!
$ esc[0,8] = 27
$ csi = "''esc'" + "["
$!
$!
$ if p1 .nes. "" then goto set_up
$ ww "''csi'2J"
$ ww "''csi'H"
$!
$ ww "''csi'1;15H< 1> Sit On It .................."
$ ww "''csi'2;15H< 2> Woodstock .................."
$ ww "''csi'3;15H< 3> Train ......................"
$ ww "''csi'4;15H< 4> Heart ......................"
$ ww "''csi'5;15H< 5> Head ......................."
$ ww "''csi'6;15H< 6> Windmill ..................."
$ ww "''csi'7;15H< 7> Dinosaur ..................."
$ ww "''csi'8;15H< 8> Tortoise ..................."
$ ww "''csi'9;15H< 9> Hare ......................."
$ ww "''csi'10;15H<10> Snoopy ....................."
$ ww "''csi'11;15H<11> Garfield ..................."
$ ww "''csi'12;15H<12> Micky Mouse ................"
$ ww "''csi'13;15H<13> Harvey Smith ..............."
$ ww "''csi'14;15H<14> Pistol ....................."
$ ww "''csi'15;15H<15> Phone ....( ring ring )....."
$ ww "''csi'16;15H<16> Glass ......................"
$ ww "''csi'17;15H<17> Car ........................"
$ ww "''csi'18;15H<18> Owl ........................"
$ ww "''csi'20;15H<CR> Exit ......................."
$ ww "''csi'23;15HEnter option"
$!
$get_input:
$ inquire P1 "''csi'23;28H"
$!
$ set_up:
$ if P1 .eqs. "1" then goto Sitonit
$ if P1 .eqs. "2" then goto Wood
$ if P1 .eqs. "3" then goto Train
$ if P1 .eqs. "4" then goto Heart
$ if P1 .eqs. "5" then goto Head
$ if P1 .eqs. "6" then goto Windmill
$ if P1 .eqs. "7" then goto Dino
$ if P1 .eqs. "8" then goto Tort
$ if P1 .eqs. "9" then goto Hare
$ if P1 .eqs. "10" then goto Snoopy
$ if P1 .eqs. "11" then goto Garfield
$ if P1 .eqs. "12" then goto Micky
$ if P1 .eqs. "13" then goto Harvey
$ if P1 .eqs. "14" then goto Pistol
$ if P1 .eqs. "15" then goto Phone
$ if P1 .eqs. "16" then goto Glass
$ if P1 .eqs. "17" then goto Car
$ if P1 .eqs. "18" then goto Owl
$ if P1 .eqs. "" then goto clear
$ sitonit:
$ !SITONIT
$ write sys$output "�1;3;1{1/?????M@@;}@@@}??/@N?KA@@@;????????/MCAACG??;???{A@@@/????BCG?;@XhHHMAF/???F????;GGCB{F??/??KB????�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1�"
$ goto clear
$ Wood:
$ !woodstock
$ write sys$output "�1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD;????????/CCGG????�"
$ write sys$output "�1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????;OOGGFF??/????????�"
$ SET PROMPT =  ")1#$%&
'()*)1 >>"
$ goto clear
$ Train:
$! TRAIN
$ ws:== write sys$output
$ ws "�;3;1{1??__OOOO/??@@DDNN;OO^^^^OO/DD@@@@@@;OOOO]]YY/@@@@@@@@;YYAA}}__/DDNNDD;____wwWW/????@@DD;WWWWWWWW/NNDD@@@@;WWWWWWww/DDNNDD@@;________;WWWW[[WW/@@DDNNDD;[[WW[[WW/@@@@DDNN;[[ww____/DD@@;__wwww{{/??@@DDNN;yy{{yy{{/DD@@@@DD;yy{{wwoo/NNDD@@�"
$ SET PROMPT = "
)1#$%&'()*+,-./0)1"
$ goto clear
$ Heart:
$ !HEART
$ write sys$output "�1;3;1{1??__OOGG/NN??????;GGOO__??/??????@@;??__OOGG/HHCCAA@@;ggOOggCC/??????NN�"
$ write sys$output "�1;7;1{1oo@@aaSS/BBBBAAAA;GGOO__@@/??????@@;??__OOGG/@@??????;CCAA@@??/????????�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ goto clear
$ head:
$ !Head
$ write sys$output "�1;3;1{1????????/????MM@@;????WWww/@@@@@@II;WWWWWWWW/??EE@@AA;WWoo__??/MM??NN??�"
$ write sys$output "�1;7;1{1??????@@/??KKMMNN;``^^GGKK/NNNN??EE;GG????``/AAEE@@NN;pp}}oo__/NNNNNNNN�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ goto clear
$ Windmill:
$! WINDMILL
$ write sys$output "�;3;1{1AACCggww/AAHHNNNN;ggCCAA??/NNHHAA??�"
$ SET PROMPT =  ")1#$)1 >> "
$ goto clear
$ dino:
$ write sys$output "�;3;1{1?????_oo/@AAABBA?;ww{}}}{{/KNLBBBFN;wwo_????/G?@BABBA�"
$ SET PROMPT =  "
)1#$%)1 "
$ goto clear
$ tort:
$!TORTOISE
$ write sys$output "�;3;1{1oo__wwww/??@@????;__??__oo/@@FFNNFF;oooooo__/FFNNFFFF;ww{{ww??/@@BBBB@@�"
$ SET PROMPT =  ")1#$%)1 >> "
$ goto clear
$ Hare:
$ !HARE
$ write sys$output "�1;3;1{1????{{AA/????BBCC;AAAA{{????/GGGGFF??;{{AAAAAA/FFGGGGCC;{{??????/BB??????�"
$ write sys$output "�1;7;1{1??__OOSS/??@@AAAA;II@@CC__/AAFFFF??;CC@@@@II/FFFF@@AA;SSOO__??/@@@@AA??�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ goto clear
$ Snoopy:
$ !Snoopy
$ write sys$output "�1;3;1{1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????;????????/HHEEAA??�"
$ write sys$output "�1;7;1{1bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ goto clear
$ Garfield:
$ !Garfield
$ write sys$output "�1;3;1{1??__OOGG/??JJCCCC;eevvuu??/CCCCAAEE;uuvveeGG/AACCCCCC;OO__????/CCJJ????�"
$ write sys$output "�1;7;1{1^^__????/????@@??;MM}}????/BBBBBB??;??}}MM??/BBBBBB??;??__^^??/@@??????�"
$ SET PROMPT =  ")1#$%&
'()*)1 �"
$ goto clear
$ Micky:
$ !MICKY MOUSE
$ write sys$output "�;3;1{1????EENN/????????;nn}}cc}}/@@AACCKK;cc}}nnNN/CCAA@@??;EE??????/????????�"
$ SET PROMPT =  "
)1#$%&)1 � "
$ goto clear
$ Harvey:
$ !HARVEY
$ write sys$output "�1;3;1{1???}@@@}/???N???F;}@@@}??/F?KA@@@;/MCAACG??;???|A@@@/????BCG?;@XhHHMAF/???F????;GGCB{F??/??KB????�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1�"
$ goto clear
$ Phone:
$ !PHONE
$ write sys$output "�1;3;1{1???__oww/??EFFFF@;wwwwwwww/KKGGGGGK;wwwo__??/@@FFFFE?;??w{}~hB/??FFFFFF;B@W{{W@B/FECCCCEF;Bh~}{w??/FFFFFF??�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1 �"
$ goto clear
$ Pistol:
$ !PISTOL
$ write sys$output "�1;3;1{1?wwwwwww/BFNNNNNN;wwwwwwww/BBNBBBNB;wwwwww{w/BBBBBBB?;??^~~~~^/;AAAAAA@?/;/�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1 �"
$ goto clear
$! Wine Glass
$ glass:
$ write sys$output "�1;1;1{1????O;???O/???A;~@@@@@@@/@BAAECCC;@@@@@@@@/KGGGGGGK;@@@@@@@~/CCCEAAB@;/GGGKKMMN;??_~~_/MNNNNNNN;/NMMKKGGG�
$ SET PROMPT = "
)1#$%)1
)1&'()1 "
$ goto clear
$ Car:
$! CAR
$ ws:== write sys$output
$ ws "�;3;1{1/????EEFF;?___oooW/DCCCFFF?;GgcSSSSc/BCCGJJGC;kK[{wwwo/CB?FFFFF;wwsssqqq/FFFFFFFF;pppppppp/FFFFFFFF;ppxx||~~/FFFFFFFF;}}}}]Mmc/FFFF?BCC;SSSSckGW/GJJGCCB?;wwwwwoo_/FFFFFFCC;_/B;/;/�"
$ SET PROMPT = "
)1#$%&'()*+,-)1� "
$ goto clear
$ Owl:
$ !OWL
$ write sys$output "�1;3;1{1?????[}b/?GCAAAIN;bbb]]bbb/NNNMMNNN;b}[?????/NIAAACG?;?~???N^~/??@@AE@A;~~~~~~~~/ANN@@NNA;~^N???~?/A@EA@@??�" 
$ SET PROMPT =  "
)1#$%)1
)1&'()1 �"
$ clear:
$	WRITE SYS$OUTPUT """[2J"
$	WRITE SYS$OUTPUT """[0;0f"
$ exit