From: norm.raphael@jamesbury.com Sent: Wednesday, May 17, 2000 8:00 AM To: Info-VAX@Mvb.Saic.Com Subject: Re: Changing the prompt! This is not working for me. It gives stuff and reverse question marks. Of course I am using an emulator (Reflections). Can anyone verify that it's not the code? [I've got to get back to work.] Norm Raphael@ITCC 05/16/2000 03:52 PM To: Info-VAX@mvb.saic.com cc: Subject: Re: Changing the prompt! It's not really possible to straighten these lines out. Could you do SAY "string0" + - "string1" + - so they are on shorter lines but correct as to content? io@cableinet.co.uk on 05/16/2000 11:42:35 AM Please respond to Moon_io@cableinet.co.uk To: Info-VAX@mvb.saic.com cc: Subject: Re: Changing the prompt! Antonio Just what I was after thanks, now to see if it works! Cheers Mark Lawrence Antonio Carlini wrote in message news:8frp3j$4ai@usenet.pa.dec.com... > In article <3920c7e8.524144494f47414741@radiogaga.harz.de>, MARTIN@RADIOGAGA.HARZ.DE wrote: > > > >Oberon (io@cableinet.co.uk) wrote: > >: can't remember how the prompt was done. > > > > $ SET PROMPT="newprompt" > > > > > But the bit you missed is that this stuff worked on VT220s and used the > downloadable font feature. So you downloaded a font such that "ABC" (for > example) in the new font would come out as a car. Then you set prompt to a > sequence that changes to the new font, does the car (or whatever) and changes > back to the normal font. > > Then there was the "upside down" font. And a few more I've forgotten. > > All of this only works on VT220s (and maybe the later VTs too if the fonts > look the same). It does NOT work on DECterms. > > I've included one such file below. I just cut and paste it in so it may have > become mangled by the time it reaches you. Traditionally (i.e. when I was sent > one) these files would have embedded escape codes. I recall changing these so > that I could print out the files. It looks like I have done this below, but if > I've goofed - err, sorry! You'll have to smooth out the bits where unwanted > line breaks creep in (or out). > > Antonio > Reading UK > > $! > $ DCS[0,8] = 144 > $ ESC[0,8] = 27 > $ SAY := WRITE SYS$OUTPUT > $ CLEAR := "''ESC'[2J''ESC'[1;1H" ! ALL TERM. ATTRIBUTES OFF > $ OFF := "''ESC'[0m" ! ALL TERM. ATTRIBUTES OFF > $ BOLD := "''ESC'[1m" ! TERM. BOLD > $! > $ IF P1 .EQS. "" THEN GOTO NOT_VT220 > $! > $ IF .NOT. F$GETDVI("TT:","TT_DECCRT2") THEN GOTO NOT_VT220 > $! > $ KE_UZE = F$EDIT(P1,"UPCASE") > $! > $ PROMPT_CODES: > $ IF KE_UZE .EQS. "BA" THEN GOTO BAROOM > $ IF KE_UZE .EQS. "CR" THEN GOTO CROWN > $ IF KE_UZE .EQS. "GA" THEN GOTO GATOR > $ IF KE_UZE .EQS. "GU" THEN GOTO GUITAR > $ IF KE_UZE .EQS. "PH" THEN GOTO PHONE > $ IF KE_UZE .EQS. "QU" THEN GOTO QUACK > $ IF KE_UZE .EQS. "RA" THEN GOTO RAISIN > $ IF KE_UZE .EQS. "SN" THEN GOTO SNOOP > $ IF KE_UZE .EQS. "SU" THEN GOTO SUN > $ IF KE_UZE .EQS. "SP" THEN GOTO SPLASH > $ IF KE_UZE .EQS. "TR" THEN GOTO TREK > $ IF KE_UZE .EQS. "V2" THEN GOTO VAX2 > $ IF KE_UZE .EQS. "WI" THEN GOTO WIND > $ IF KE_UZE .EQS. "WO" THEN GOTO WOODY > $ IF KE_UZE .EQS. "XM" THEN GOTO XMAS > $ IF KE_UZE .EQS. "TEST" THEN GOTO TEST > $ IF KE_UZE .EQS. "WHAT" THEN GOTO SHOW_CODES > $ SAY "Prompt Code Not Found" > $ GOTO OUT > $! > $ SHOW_CODES: > $ SAY "Valid Prompt Codes are:" > $ SAY " BA - BAROOM" > $ SAY " CR - CROWN" > $ SAY " GA - GATOR" > $ SAY " GU - GUITAR" > $ SAY " PH - PHONE" > $ SAY " QU - QUACK" > $ SAY " RA - RAISIN" > $ SAY " SN - SNOOPY" > $ SAY " SU - SUN" > $ SAY " SP - SPLASH" > $ SAY " TR - USS ENTERPRISE" > $ SAY " V2 - VAX2" > $ SAY " WI - WIND SURFER" > $ SAY " WO - WOODSTOCK" > $ SAY " XM - XMAS" > $ SAY " TEST - TEST" > $ SAY "" > $ INQUIRE/NOPUNCT PMT_CODE "Enter Prompt Code: " > $ IF "''PMT_CODE'" .EQS. "" THEN GOTO NOT_VT220 > $ KE_UZE = F$EDIT("''PMT_CODE'","UPCASE") > $ GOTO PROMPT_CODES > $! > $ CROWN: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;0{#1OggO????/??N?ACG?;???????O/??????GC;ggO?????/A@ACG???; > ?????Ogg/???GCA@A;O???????/CG?????G;??OggO??/CA?N????;" > $ SAY > "?wNGgGGX/?BAAAABA;IkGKIHWG/AAAAAABA;GWgGGHYK/AAAAABAA;KIhGWGGG/AAAAABAA; > GgXIKIXg/AABAABAA;GGWNw???/AABAB???;" > $ SET PROMPT = "''ESC'(#1abcdef > ghijkl > " > $ GOTO OUT > $! > $ GATOR: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1w{}q?_o_/???@@@@@;o___o__o/@@@@@@@@;WWoo_GWo/B??FNGGB; > wwooowwo/BBBBBBBB;" > $ SAY > "WWoo_GWw/B??FNGGB;{kKSSSSW/@@@BAABA;WGGWGGWK/BAABAABA;WG??????/BA??????; " > $ SET PROMPT = "''BOLD'''ESC'(#1abcddefgh ''OFF' ''node'> " > $ GOTO OUT > $! > $ GUITAR: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1__??????/N???@??A;????????/??C??G??;????????/????G???; > ????????/C???M???;????????/????????;" > $ SAY > "????????/????????;????????/G???????;~?MMMMmM/BA?@????;MM]MMM]M/????????; > NNMmMMMM/???????@;" > $ SAY > "MMMM~MMM/????B???;MMMMMMMM/????????;MMMMMMMM/????????;NK[HWI[G/????????;" > $ SET PROMPT = "''ESC'(#1abcdefg > hijklmn > " > $ GOTO OUT > $! > $ PHONE: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1________/N???N???;________/????NNNN;________/NNNN??NN; > _______?/NNNN??N?;" > $ SAY > "??????oO/??????BA;OOOOOOo?/AM????N?;~_wooow_/?????@?A;________/AAAAAAAA;" > $ SAY > "__}_}_}_/AAAAAAAA;______~?/AAAAAAAA;??????[S/AAAAA@@@;SVOoOO^?/@@@?????;" > $ SET PROMPT = "''BOLD'''ESC'(#1abcdef > ghijkl ''OFF' ''node'> " > $ GOTO OUT > $! > $ RAISIN: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1??????_W/GGGGGM@@;SOQOPPPP/@@@@@@@@;PppPPPOQ/@?GJL@@@; > SWO_?Ooo/@@@@MGGH;?}}}ooo?/FBJFB@??;" > $ SAY > "^w}YYBC?/????????;?GBOcccc/EEEFFF??;cccccao@/?????FFF;GCAABAAA/EEE?????; > ?@??????/????????;" > $ SET PROMPT = "''BOLD'''ESC'(#1abcde > fghij ''OFF' ''node'> " > $ GOTO OUT > $! > $ SNOOP: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1??__OOGG/??@@IIKK;CCCCGGOO/NN????II;________/????????; > ????????/HHEEAA??;" > $ SAY > "bbVVVVJJ/@@AACCCC;EEwwEEGG/DDCCCCEE;pp@@@@@@/FFEEDDDD;????????/DDEE????;" > $ SET PROMPT = "''BOLD'''ESC'(#1abcd > efgh''esc'(B''OFF' ''node'> " > $ GOTO OUT > $! > $ TREK: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1OOooOOoo/??@@@@@@;OOooOOoo/@@@@@@@@;OOooo???/BFLG@???; > ????????/????????;" > $ SAY > "?????___/???@@JMM;________/FBAABAAB;oogoo___/AABAABAA;_______?/BAABA@@@;" > $ SAY > "????????/????????;????????/????????;?{]]~}cc/????????;{cc{cc{c/????????;" > $ SAY > "c{ce~rr~/????????;{{{{g???/????????;????????/????????;????????/????????;" > $ SET PROMPT = "''ESC'(#1abcdefgh > ijklmno > " > $ GOTO OUT > $! > $ VAX2: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1wCAAAAC?/?@AAAAAA;?WcAAcW?/AAA@@AAA;?_o????o/@??@AA@?; > OO_OOOo?/??@AAA@A;" > $ SAY "??_OO__O/A@??A@@A;????CAaQ/A???ABAA;K???????/A???????;" > $ SET PROMPT = "''BOLD'''ESC'(#1abcdefg > ''OFF' ''node'> " > $ GOTO OUT > $! > $ WIND: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1????????/????????;????????/????????;????????/????GCA@; > _OG{????/???N????;????????/????????;" > $ SAY > "________/????????;_______o/????????;gcqbaaia/????????;aeab____/??????@A; > __??????/@???????;" > $ SET PROMPT = "''BOLD'''ESC'(#1abcde > fghij ''OFF' ''node'> " > $ GOTO OUT > $! > $ WOODY: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;3;1{1OO__GGOO/GGCCDDEE;aa{{__OO/LL????@@;gggggg??/AACCCCDD; > ????????/CCGG????o" > $ SAY > "''DCS'1;7;1{1CCAAHHDD/????KKBB;qqKKOO``/????????;OOOOOOOO/@@MM????; > OOGGFF??/????????o" > $ SET PROMPT = "''BOLD'''ESC')1 #$%& > '()*''esc')1 ''OFF' ''node'> " > $ GOTO OUT > $! > $ XMAS: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1?????_OG/??CEL???;GO_?????/???LEC??;?cUL????/@@@@@@F?; > ????LUc?/?F@@@@@@;" > $ SET PROMPT = "''BOLD'''ESC'(#1ab > cd ''OFF' ''node'> " > $ GOTO OUT > $! > $ sun: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1FFFFNNNN/????????;N^^^^^~~/????????;~~~~~~~}/???@@@@@;" > $ SAY "}{{wwOO_/BBHKMNNN;__ooooov/NNNNNNNN;vvvvvfnn/NNNNNNNN;" > $ SAY "^^NNFFBB/NNMKGAEM;@@????__/MNNNNNNN;___oooow/NNNNNNNN;" > $ SAY "~~~~~~~~/FFBBBBB@;~~~~~~~~/@@@@????;~^^^^^NN/???????G;" > $ SAY "KGBFN^^~/GKKMMNNM;~~~~~~~~/MKLLLLLL;~~~~~~~~/@@@@@???;" > $ SAY "^^nfrwwp/@@BBFFNN;pppp````/NNNNNNNN;`@@@@@@@/NNNNNNMM;" > $ SET PROMPT = "''ESC'(#1abcdefghi > jklmnopqr " > $ GOTO OUT > $! > $ SPLASH: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY "''DCS'1;65;1{#1W[{{[]MM/??GKKKMM;MMM][{{{/MMMMMKKL;" > $ SAY "{{wwyzz~/NNNNNNNN;~~~~}}}}/NNNNNNNN;{{wow{{}/NNNNNNNN;" > $ SAY "}}}}}~zz/NNNNNNNN;zzzroww{/NNNNNNNN;{{{[[[[[/NNNNNNNN;" > $ SAY "[[WG????/NNE?????;??@@@BRr/????????;rrb`@???/???@B???;" > $ SAY "@@BBBFFN/????????;^~~~~~~~/?@NNNNNN;~~~~~~~~/NNNNNNNN;" > $ SAY "~~~~~^NF/NNNN@???;FBB@`oOW/????@???;WWG?@```/??EB@@@@;" > $ SAY "`???????/????????;" > $ SET PROMPT = "''ESC'(#1abcdefghi > jklmnopqr " > $ GOTO OUT > $! > $ BAROOM: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY > "''DCS'1;65;1{#1}}}uuuuu/NNNKKKKK;uuuu}{K?/KKKKNFF?;_ow{meee/NNN@@@@@;" > $ SAY "eem{wo_?/@@@@NNN?;_______?/@@@@@@@?;" > $ SAY "}}}uuuuu/NNN?????;uuuu}{[?/??@BFMKG;ow{KKEEE/@BFEEKKK;" > $ SAY "EEKK{wo?/KKEEFB@?;ow{KKEEE/@BFEEKKK;EEKK{wo?/KKEEFB@?;" > $ SAY "}}}{wo_?/NNN?@BFN;_ow{}}}?/FB@?NNN?;??}}}}??/??LLLL??;" > $ SET PROMPT = "''ESC'(#1abcdefghijklmn " > $ GOTO OUT > $! > $ QUACK: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;" > $ SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;" > $ SET PROMPT = "''ESC'(#1abcd " > $ GOTO OUT > $! > $ TEST: > $ IF P2 .NES. "1" THEN SAY "''CLEAR'" > $ SAY "''DCS'1;65;1{#1????????/?@BFNNNN;????????/NNNNNNNN;" > $ SAY "????K]]]/NNNNNNNN;]]KKGGG?/NNNE????;" > $ SET PROMPT = "''ESC'(#1abcd " > $ GOTO OUT > $! > $ NOT_VT220: > $ NODE = F$STRING(F$LOGICAL("SYS$NODE")-"_"-"::") > $ SET PROMPT="''NODE'$ " > $! > $ OUT: > $ EXIT > > Antonio Carlini Mail: carlini@true.lkg.dec.com > DECnet-Plus for OpenVMS Engineering > COMP