Conference rdvax::grateful

    
    I am not sure this is the right place to put this and it is not
    grateful related but nonetheless I think some people will enjoy it -
    especially the sports fans out there.  In the next note will be the com
    file - just extract/noheader it and run it.  It will give you a menu to
    select what type of prompt you want - Brunis logo, Celtics logo etc. 
    It works for VT300 type machines.  Anyhow give it a try - it has pretty
    good graphics...
    
    Happy Cheese-
    Jerry

$!************************************************************************
$!
$! SPORTS_340_PROMPT.COM - This command will change the user prompt to 
$! the one selected from the menu
$!
$! Revision History:
$! -----------------
$!
$!   Date     Rev#  Author     Description of Revision
$! ---------  ----  ------     -----------------------
$! 16-Jun-89   1.0  P.Brough   Total revamp after extracting out of note #378
$!
$!************************************************************************
$!
$!
$!
$ INITIALIZE_SECTION:
$!************************************************************************
$!
$! This section sets up symbols used by the rest of the command file
$!
$!************************************************************************
$    Set NoVerify
$!
$!+ Normal command procedure symbols
$!
$    ESC[0,8]                = 27                ! escape sequence code
$    ATTR_OFF                = "''ESC'[0m"       ! turn terminal attributes off 
$    BELL[0,8]               = 7                 ! bell control character
$    BLINK_ON                = "''ESC'[5m"       ! turn blink on
$    BOLD                    = "''ESC'[7m"       ! turn bold on
$    CLEAR_LINE_23_TO_EOS    = "''ESC'[23;1H''ESC'[0J"  ! clears line 23 to eos
$    CLEAR_WHOLE_SCREEN      = "''ESC'[2J"       ! clear whole screen
$    ERROR_LINE              = "''ESC'[24;1H"    ! status/error line
$    INPUT_LINE              = "''ESC'[23;1H"    ! user input line
$    MAX_MENU_ENTRIES        = 47                ! initialize to 47
$    RESET_SCREEN            = "''ESC'[0;24r"    ! restore scrolling region
$    SET_UP_SCROLLING_REGION = "''ESC'[0;22r"    ! set up scrolling region
$    TOP_OF_SCREEN           = "''ESC'[0;1H"     ! put cursor at home
$    WO                      = "Write Sys$Output"       ! symbol abbreviation
$!-
$!
$!
$!+ Get the username and strip off the spaces.  Get the user default drive then 
$! see if the user has the other prompt file in their area anywhere. Search 
$! directory structure for the file, set MAX_MENU_ENTRIES if file is not there
$!
$    USER_NAME               = F$Getjpi("","Username")       ! get user name
$    USER_NAME               = F$Edit(USER_NAME,"Collapse")  ! drop spaces
$    USER_DRIVE              = F$Parse("",,,"Device")        ! get def. device
$!
$    FILE_FOUND = F$Search("''USER_DRIVE'[''USER_NAME'...]340_PROMPT.COM")
$    If FILE_FOUND .eqs. "" Then MAX_MENU_ENTRIES = 46       ! doesn't have it
$    If FILE_FOUND .eqs. "" Then Goto PI_PASSED_SECTION
$!-
$!
$!
$!+ File is found so save the directory structure to be used later.  It will 
$! extract from position 0 to where it finds the right square bracket plus 1
$! so that it includes the right square bracket in the FILE_FOUND symbol
$!
$    DIRNAME    = F$Extract(0,F$Locate("]",FILE_FOUND)+1,FILE_FOUND)
$!-
$!
$!
$!
$!
$ PI_PASSED_SECTION:
$!************************************************************************
$!
$! This section sets automatically goes to the selected choice because
$! they ran this procedure and passed it a p1 parameter
$!
$!************************************************************************
$!+ The following are football team emblems
$!
$    If p1 .eq.  1 Then Goto 49ER
$    If p1 .eq.  2 Then Goto BILLS
$    If p1 .eq.  3 Then Goto BRONCOS
$    If p1 .eq.  4 Then Goto BUCCANEERS
$    If p1 .eq.  5 Then Goto CARDINALS
$    If p1 .eq.  6 Then Goto CHIEFS
$    If p1 .eq.  7 Then Goto COLTS
$    If p1 .eq.  8 Then Goto COWBOYS
$    If p1 .eq.  9 Then Goto DOLPHINS
$    If p1 .eq. 10 Then Goto EAGLES
$    If p1 .eq. 11 Then Goto FALCONS
$    If p1 .eq. 12 Then Goto GIANTS
$    If p1 .eq. 13 Then Goto JETS
$    If p1 .eq. 14 Then Goto LIONS
$    If p1 .eq. 15 Then Goto OILERS
$    If p1 .eq. 16 Then Goto PACKERS
$    If p1 .eq. 17 Then Goto PATRIOTS
$    If p1 .eq. 18 Then Goto RAIDERS
$    If p1 .eq. 19 Then Goto REDSKINS
$    If p1 .eq. 20 Then Goto SAINTS
$    If p1 .eq. 21 Then Goto SEAHAWKS
$    If p1 .eq. 22 Then Goto STEELERS
$    If p1 .eq. 23 Then Goto VIKINGS
$!-
$!
$!
$!+ The following are baseball team emblems
$!
$    If p1 .eq. 24 Then Goto BLUEJAYS
$    If p1 .eq. 25 Then Goto REDSOX
$    If p1 .eq. 26 Then Goto YANKEES
$!-
$!
$!
$!+ The following are basketball team emblems
$!
$    If p1 .eq. 27 Then Goto 76ERS
$    If p1 .eq. 28 Then Goto BULLS
$    If p1 .eq. 29 Then Goto CAVALIERS
$    If p1 .eq. 30 Then Goto CELTICS
$    If p1 .eq. 31 Then Goto HAWKS
$    If p1 .eq. 32 Then Goto KINGS
$    If p1 .eq. 33 Then Goto LAKERS
$    If p1 .eq. 34 Then Goto SUPERSONICS
$    If p1 .eq. 35 Then Goto TRAILBLAZERS
$    If p1 .eq. 36 Then Goto WARRIORS
$!-
$!
$!
$!+ The following are hockey team emblems
$!
$    If p1 .eq. 37 Then Goto BRUINS
$    If p1 .eq. 38 Then Goto CANADIENS
$    If p1 .eq. 39 Then Goto CANUCKS
$    If p1 .eq. 40 Then Goto FLYERS
$    If p1 .eq. 41 Then Goto NORTHSTARS
$    If p1 .eq. 42 Then Goto PENGUINS
$    If p1 .eq. 43 Then Goto RANGERS
$    If p1 .eq. 44 Then Goto SABRES
$    If p1 .eq. 45 Then Goto WHALERS
$!-
$!
$!
$!+ Next prompt is for the standard DCL dollar sign
$!
$    If p1 .eq. 46 Then Prompt :== "$ "
$    If p1 .eq. 46 Then Goto EXIT_ROUTINE
$!-
$!
$!
$!
$ PAINT_SCREEN:
$!************************************************************************
$!
$! This section sets up the screen to paint the prompts, then it paints
$! the prompt selection screen
$!
$!************************************************************************
$    WO SET_UP_SCROLLING_REGION
$    WO CLEAR_WHOLE_SCREEN
$    WO TOP_OF_SCREEN
$    WO ATTR_OFF
$    WO "       ''BOLD'This is the VT300 series terminal sports logo menu''ATTR_OFF'"
$    WO " "
$    WO "      Football prompts           Baseball prompts     Hockey prompts"
$    WO " 1. 49ers        18. Raiders      24. Bluejays         37. Bruins"
$    WO " 2. Bills        19. Redskins     25. Red Soxs         38. Canadiens"
$    WO " 3. Broncos      20. Saints       26. Yankees          39. Canucks"
$    WO " 4. Buccaneers   21. Seahawks                          40. Flyers"
$    WO " 5. Cardinals    22. Steelers                          41. Northstars"
$    WO " 6. Chiefs       23. Vikings                           42. Penguins"
$    WO " 7. Colts                        Basketball prompts    43. Rangers"
$    WO " 8. Cowboys                       27. 76ers            44. Sabers"
$    WO " 9. Dolphins                      28. Bulls            45. Whalers"
$    WO "10. Eagles                        29. Cavaliers"
$    WO "11. Falcons                       30. Celtics"
$    WO "12. Giants                        31. Hawks           Other prompts"
$    WO "13. Jets                          32. Kings            46. Normal DCL prompt ($)"
$!
$!+ User has the other prompt procedure in his account somewhere
$!
$    If FILE_FOUND .nes. "" Then -
	  WO "14. Lions                         33. Lakers           47. Other prompt menu"
$!-
$!
$!
$!+ User doesn't have the other procedure so don't give them the option
$!
$    If FILE_FOUND .eqs. "" Then -
	  WO "14. Lions                         33. Lakers"
$!-
$!
$!
$    WO "15. Oilers                        34. Supersonics"    
$    WO "16. Packers                       35. Trailblazers"
$    WO "17. Patriots                      36. Warriots"
$!
$!
$!
$ ENTER_AND_VALIDATE_CHOICE:
$!************************************************************************
$!
$! This section asks for the user choice and validates that choice
$!
$!************************************************************************
$   MESSAGE = "''INPUT_LINE'Please enter your ''BLINK_ON'VT300 series''ATTR_OFF' prompt selection  ... "
$!
$   WO CLEAR_LINE_23_TO_EOS
$!
$   Read/Prompt=&MESSAGE Sys$Command CHOICE
$!
$   If F$Type(CHOICE) .eqs. "INTEGER" .and. (CHOICE .gt. 0) -
	.and. (CHOICE .le. 'MAX_MENU_ENTRIES)               -
	Then Goto PROCESS_SELECTED_CHOICE
$!
$   If CHOICE .eqs. "" Then  Goto EXIT_ROUTINE
$!
$   WO "''ERROR_LINE'''BELL'PLEASE ANSWER WITH A VALID CHOICE!!!''BELL'"
$!
$   Wait 00:00:03
$!
$   Goto ENTER_AND_VALIDATE_CHOICE
$!
$!
$!
$ PROCESS_SELECTED_CHOICE:
$!************************************************************************
$!
$! This section goes to the selected prompt choice, repaints the prompt
$! then gets them out of this thing
$!
$!************************************************************************
$    If CHOICE .eq.  1 Then Goto 49ER
$    If CHOICE .eq.  2 Then Goto BILLS
$    If CHOICE .eq.  3 Then Goto BRONCOS
$    If CHOICE .eq.  4 Then Goto BUCCANEERS
$    If CHOICE .eq.  5 Then Goto CARDINALS
$    If CHOICE .eq.  6 Then Goto CHIEFS
$    If CHOICE .eq.  7 Then Goto COLTS
$    If CHOICE .eq.  8 Then Goto COWBOYS
$    If CHOICE .eq.  9 Then Goto DOLPHINS
$    If CHOICE .eq. 10 Then Goto EAGLES
$    If CHOICE .eq. 11 Then Goto FALCONS
$    If CHOICE .eq. 12 Then Goto GIANTS
$    If CHOICE .eq. 13 Then Goto JETS
$    If CHOICE .eq. 14 Then Goto LIONS
$    If CHOICE .eq. 15 Then Goto OILERS
$    If CHOICE .eq. 16 Then Goto PACKERS
$    If CHOICE .eq. 17 Then Goto PATRIOTS
$    If CHOICE .eq. 18 Then Goto RAIDERS
$    If CHOICE .eq. 19 Then Goto REDSKINS
$    If CHOICE .eq. 20 Then Goto SAINTS
$    If CHOICE .eq. 21 Then Goto SEAHAWKS
$    If CHOICE .eq. 22 Then Goto STEELERS
$    If CHOICE .eq. 23 Then Goto VIKINGS
$    If CHOICE .eq. 24 Then Goto BLUEJAYS
$    If CHOICE .eq. 25 Then Goto REDSOX
$    If CHOICE .eq. 26 Then Goto YANKEES
$    If CHOICE .eq. 27 Then Goto 76ERS
$    If CHOICE .eq. 28 Then Goto BULLS
$    If CHOICE .eq. 29 Then Goto CAVALIERS
$    If CHOICE .eq. 30 Then Goto CELTICS
$    If CHOICE .eq. 31 Then Goto HAWKS
$    If CHOICE .eq. 32 Then Goto KINGS
$    If CHOICE .eq. 33 Then Goto LAKERS
$    If CHOICE .eq. 34 Then Goto SUPERSONICS
$    If CHOICE .eq. 35 Then Goto TRAILBLAZERS
$    If CHOICE .eq. 36 Then Goto WARRIORS
$    If CHOICE .eq. 37 Then Goto BRUINS
$    If CHOICE .eq. 38 Then Goto CANADIENS
$    If CHOICE .eq. 39 Then Goto CANUCKS
$    If CHOICE .eq. 40 Then Goto FLYERS
$    If CHOICE .eq. 41 Then Goto NORTHSTARS
$    If CHOICE .eq. 42 Then Goto PENGUINS
$    If CHOICE .eq. 43 Then Goto RANGERS
$    If CHOICE .eq. 44 Then Goto SABRES
$    If CHOICE .eq. 45 Then Goto WHALERS
$    If CHOICE .eq. 46 Then Prompt :== "$ "
$    If CHOICE .eq. 46 Then Goto EXIT_ROUTINE
$    If CHOICE .eq. 47 Then Goto OTHER_PROMPTS
$!
$!
$!
$ 49ER:
$!************************************************************************
$!
$! This section will change the prompt to the San Franscico 49ers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????????_o/??_w{MFB@@/{~F@??????/BB????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oWWKKKEEEe/????????^~/????????__/????????BB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1frrrrrrrrr/~xxoo_____/_@@XZZzzzZ/BBBAAAAAAA�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1rrrbbrrFEE/_?@@BBB???/ZVFN}}{?WW/AABBBB@???�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1EEKKKWWoo_/????????@@/www???????/?@@???????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/BFM{w_????/????@F~{??/??????BB??�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1F^{o_?????/???BFM[Woo/?????????@/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1????????@@/_?????????/@BBEEEKKKK/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??@@@@|||x/???___~~~~/[WWXXXXXXX/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1XXXXW}}???/___??@@???/XXXWWW[KKK/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/???????_oo/KEEEBB@@??/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1???_o{^F??/W[MFB?????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BILLS:
$!************************************************************************
$!
$! This section will change the prompt to the Buffalo Bills' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/?????????_/?_OOWGGGHD/?B???????A�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1???????___/ow{}}~~~~~/F@@```oooo/ABBBBBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1_oowwwwwwo/~^^^^^^^^^/owwwwwwww{/BBBBBBBBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1ooo__o_???/^^^^~~^^}{/{{{|~wo}}~/BBBBBBBBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/{{}}}}]???/~~~^FB????/@?????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1NCCAa{~^nn/???w~Fw~N@/????B@?@??/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~~^NFFFrrr/??????A@@@/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1zz|||~^nv~/NEEEEEFB@?/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1NNNNN~^NB?/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BRONCOS:
$!************************************************************************
$!
$! This section will change the prompt to the Denver Broncos' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?}}}}}}}}}/?@@@@@@~~~/???????~~~/???????BBB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1}}}}}}}]]M/~^^NHf_OSI/~~~~PKARGE/B@@??A????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1M]]]]}}]MM/A?????WOEH/?????oGGGG/??????@A??�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1}}}}}{{{ww/Xp``BBBF^~/GO[cLPXMoL/???????B??�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1oo_???????/~~~~{o????/BBf~~~????/BA?@@B????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1???????~~~/???????~~~/?}}}}}}~~~/?@@@@@@@@@�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~}{nhIcO?_/~~~~??Fw??/~~~~}}}~}}/@@@@@@@@@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1_???O_?@EG/?@ACC@????/}}}}}}}}}}/@@@@@@@@@@�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1OO_???__@~/oYbIHxK?`R/~qqxxsqpW[/@@@@@?????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~~{wo`AAC/NF~~~N?@AC/MNFB??????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1G?????????/G?????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BUCCANEERS:
$!************************************************************************
$!
$! This section will change the prompt to the Tampa Bay Buccaneers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?????????_/????????N^/?????????_/????????BB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oww{{}}}}^/^^NNFB@@_w/_oww[[km~~/BBBABBB???�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1^NNNMMM[{w/cyyz~~~}}{/^^^nJJJdtS/ABABA??AA?�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1o_Owwo????/^nr{~~F???/dDN~~^F???/??B@B?????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1?????__owx/???@HLLFfr/??????????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1|~~NNnGGI{/rz\^^NNF^~/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1K[oe`sssqo/r``__oGoKE/@FNxoM@???/????@?????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1oqp}poooo_/A@????????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1___???????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&
'()*+)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CARDINALS:
$!************************************************************************
$!
$! This section will change the prompt to the Phoenix Cardinals' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1K[Wwwwwooo/???AEV~~~~/????????@F/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oooo______/~~~~~~~~~~/N~~~~~~~~~/??@@BBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1__ooww{{{}/~~~~~~~~~~/~~~~|||wwo/BBBBBBBBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1}}}}{{{wwo/^^^NNNNNNN/_????@BB@G/BBA???????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/NKo???????/Sa@@@HHHii/??@B@@@@??�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/i[G???????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1?????@@BN^/??????????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~~~~~~~~~/@BN~~~~^^^/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~}}~}{wOG/^^~~~^F@??/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1CA@???????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CHIEFS:
$!************************************************************************
$!
$! This section will change the prompt to the Kansas City Chiefs' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1_______~~~/~~~~~~~ww?/~~~~~~~~~?/BBBBBBBBB?�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1~~~~~}}}}}/???w~~~^GG/???B`_oGO_/???BBB????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}{{{{wwwwo/???_oWWW^~/ADHOowwwww/B????@BBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1oo__??????/~~~^^^}{{w/oo@???~~~~/BBB???BBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/oo_???????/~~~~}{wo_?/BBBBBBBBB@�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1~~~~~~~www/~~~~~~~~~~/???????^^^/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1wwwww~_?NH/~~~~~~~}{w/^^^^^NNNNN/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1HWwwwwww~~/woo``bbbbb/NFFFFBBBB@/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~^NFFN~~~/`pow[]NNFB/@@????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~~^NFB@??/@@????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ COLTS:
$!************************************************************************
$!
$! This section will change the prompt to the Indianapolis Colts' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????????EM/????????_w/??????o}~~/??????B??B�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1]{{WWo_???/{~^EEB@???/N@????????/??????????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1?????_oWW{/?????@BEE^/??????????/??????????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1{]ME??????/~{w_??????/@N~~}o????/??B??B????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????~~~~/???????F^v/?????????@/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/fmwo_?????/BFNN^^]}{{/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/???????_ow/cc{{}]^^NN/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1??~~~~????/mfv^F?????/FB@???????/??????????�"
$!
$    Prompt :== ")1#$%&
'()*)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ COWBOYS:
$!************************************************************************
$!
$! This section will change the prompt to the Dallas Cowboys' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/???????___/????????@A/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/__________/ECGYQeM]}}/??????@A?@�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1???_WEpEW_/_WEp{~~~{p/}}~~~~~~~~/BBBBBBBBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/EW________/~}}}}]MeQY/BBB@?A@???�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/______????/GCEA@?????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?????_WEp{/??_WEp[Nnf/??BCCAA@??/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1}~~~~^N^~~/RJHCAA@AAC/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~}{pEW_??/HJRfnN[pEW/?????@AACC/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1??????????/_?????????/B?????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ DOLPHINS:
$!************************************************************************
$!
$! This section will change the prompt to the Miami Dolphins' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????__?@/?????__wF@/???????B??�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1????cgOOGG/yCAHHKK]]]/????_w{}~~/???ABBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1GKFCCCCCFC/}}}{{}}~~~/~^Nfvzz||}/BABB@@BBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1?wCqQaQqCK/~^{XwWw|{}/}~~N~~~~NF/B@?ABB@???�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1wO_???????/~yz}{w__??/FKLjJNNFN]/???B@@????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/[G????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?????CCNo?/??????AA@A/?????????o/?????????@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1??}~~~~NFB/?N~~~B????/{}^NFBBFEE/@?????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1@@??CEBB@@/??????????/Mg?OOoOOOW/@????@????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1??AB@@????/????????_O/ggGCCIQ@??/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??oNGG????/kE@AAC????/?@????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ EAGLES:
$!************************************************************************
$!
$! This section will change the prompt to the Philadelphia Eagles' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??AMsCGOOO/?????@ACGO/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1O___??????/OPaedLHQEW/????Wdia`P/?????B@B??�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1??????????/_____?__OG/__?CCB`_??/??@@@B????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1?????__OOO/gcSQLaQpLI/WGCKIQp???/???????@BA�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1OOGS{S????/GCBD??????/??????????/AA????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?????oowsw/??????@@BB/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1ssqiIDA@@@/BB@???????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1AAAEGGOOsg/??????????/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1IXTEA?????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ FALCONS:
$!************************************************************************
$!
$! This section will change the prompt to the Atlanta Falcons' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????_OWCEA/??EFCAAA@@/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1AaaaAAAAAA/@??^caW?_?/????FXoM@{/??????@A?B�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1AAAAAA}aaa/?????~GGGH/A?o??~????/??B??B????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1aaaaaesSSS/ZQacScgo??/??????????/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1SWO???????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1???????@EN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1o_~??~????/?@BCKH^???/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ GIANTS:
$!************************************************************************
$!
$! This section will change the prompt to the New York Giants' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1}~~FBFNMK?/~~~??[{{{[/FN^[W[^^N?/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?~~~~??{~~/[~~~~?}~~\/?^^^^^^^@?/??????????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1BN~~{o??~~/[[^~~~o?~~/???@^^^^^^/??????????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1~~{_??~~~~/~~N^~}~~~~/^^???F^^^^/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1FF~~~~FF~~/??~~~~??BF/??^^^^??N^/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1~~nFFN^][?/FNN^}}{{w?/^][[]^^NF?/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1NNNNNNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1NNNNNNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1NNNNNNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1NNNNNNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1NNNNNNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1NNNNNNNNN?/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ JETS:
$!************************************************************************
$!
$! This section will change the prompt to the New York Jets' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/????????_~/????????BB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/__________/~~~~^??_{{/BBBB???BBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1?????????A/__________/{{{[[[[[[[/BBB???????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1K{wo_?????/__bn~~~}}}/???[[[[{{{/???????BBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/{{{{{wwwww/{{{[[[[???/BBB???????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/wooooooo__/w{{{{[[[[[/BBBBBBA???�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/__????????/[?????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1???????}~~/FFFFFFFFFF/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~~B??w~~~/FFB???FFFF/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~FFFFFF??/FFFFFFFFFF/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1?????_}~~~/?????FFFFF/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1~^@???????/F????FFFFF/??????????/??????????�"
$    Write Sys$Output "�1;15;1;10;1;2;20;0{1@BFN^~~~}{/FFFFFFFFFF/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'()
*+,-./)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ LIONS:
$!************************************************************************
$!
$! This section will change the prompt to the Detroit Lions' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/owWwo?????/@??@BBA???�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?????????g/??????_y~~/???_ow}~~~/?ABBBBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1o{{}}}}{{w/~~~~~~~~~~/~~~~~~~~~~/BBBBBB@@@?�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1wooo__????/~zy{XW[[ME/||{[[WWWWW/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1__????????/FBBEA?????/WW[[K?????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1?????BFFMM/???????[}~/????????@B/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~~~~~~~~^^/FB@?BFFFFF/FMKK??????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1NB`_??????/BBB@??????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ OILERS:
$!************************************************************************
$!
$! This section will change the prompt to the Houston Oilers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/??????????/????????BB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?oooo}}qqq/??o~NWo_?_/??~~WKEB@B/BBBBBBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}}oooo????/oWN~o?????/EKW~~?????/BBBBBBBBB?�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/??????????/?????????}/?????????B�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1?~~EKWo_?_/}~@_oWKFBF/~FB@??????/B?????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1oWKE~~????/KWo_@~}???/???@BF~w??/??????BB??�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%
&'(
))1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ PACKERS:
$!************************************************************************
$!
$! This section will change the prompt to the Green Bay Packers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????????_o/??_w{}~NFF/{~~~F@????/BBBB??????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oww{{{}]]]/BB@@????__/????o{}~~~/????BBBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1^NNNNNNNNN/ooowwwwwww/~~~~~^^^^^/BBBBB?????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1NNNNNNN^]]/wwwwwooo__/^^^^^^^^^^/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1]}{{{wwoo_/????@@BBFN/^]]]]]]]]]/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/~~}{w_????/]^^^~~~{??/????BBBB??�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1F^~~{o_???/???BFN^^}{/?????????@/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1????@FN^~~/{wwoo___??/@BBFFFNNNN/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~~~~{{{{{/@@@BBBBBBB/^^]]]]]]]]/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1{{{{{{{{{[/BBBB@@@???/]]]]]]^NNN/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1[K????????/___ooww{{}/NFFFBB@@??/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1?_o{~~^F??/^^NFB?????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ PATRIOTS:
$!************************************************************************
$!
$! This section will change the prompt to the New England Patriots' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/?????????[/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1????GGWW{{/???__oOWwf/}~~~~~N}{x/@BBBBBB?BB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1{]^Z^Z^]{{/W_@PSP@_Wf/rudm]}lar|/@@@AAA@@BB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1{WWGG?????/wGGwwwwo__/{}~^~~~~~r/BBB?BBBBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/??????????/??????????/B?????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1???????_OG/?????w}~{w/????GKNNNL/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1CA@F~~~~Ym/wKKA?@~nff/???????FGW/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1}Z^CNZ^y}M/f~k??ADIGD/}}}~{w????/??@@??????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1Inn}[LDNNR/B??@EKWwww/???????@@B/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1_?????????/w~s_??????/JNNNKGG???/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ RAIDERS:
$!************************************************************************
$!
$! This section will change the prompt to the Los Angeles Raiders' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?{GOO___??/?B{?????@@/???No?????/?????B????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????___O/`PPpdD?AA?/@AAA@FMKoK/???????B?A�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1OGGE@EGGOO/?A?A@AA?AA/EB@~~~@BEK/A@@@B@@@AA�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1___???????/C?CD`tPP`@/oKMF@AAA@?/?B????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1?___OOG{??/@?????{B??/????oN????/???B??????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1?????@EWo_/?????????@/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1???????No~/EKO_?OWKKB/????BACKWO/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1AEMm`_AA?~/KWaaaaaWKB/ObAACAaROO/??@BB@????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1oN???????_/?EEKG_OKE@/GKCAB?????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1oWE@??????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ REDSKINS:
$!************************************************************************
$!
$! This section will change the prompt to the Washington Redskins' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/????????_O/????_WEB_W/????B???BA�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????_oww/GGcSqNN~~~/EoN@_C}~~~/?@???BBBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1{{{}}}~~^^/~~~~~~z???/~~~~~~????/BBBBB@????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1NNNNEEEKOo/??????_oOW/????_o???o/??ABB?????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/^W_???????/_??@Ew????/?@B@@?????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??WKFBz|eo/?????K~~~F/?????AB@??/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1og[]~~~~^^/A@@@~FD[Ox/?OWVoo____/????????@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1^~FNZ____?/l[~~}w_@BB/@BBEE^v~]{/@@BAAAABBB�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??????????/FN~NFBB@@@/w{F???????/BBA???????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1AMr???????/@@????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ SAINTS:
$!************************************************************************
$!
$! This section will change the prompt to the New Orleans Saints' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/????????__/?????w]NFB/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/ooooo__???/@@@@BBFN]{/??????????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1??w~w?????/_~~~~~_???/~~~~~~~{]N/@BBBBB@???�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/__ooooo__?/FBB@@@@BFN/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/??????????/]w????????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1????????[}/??F][www[[/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1}~~~~~}]K?/}~~~~~}[[w/?F^~^F????/???@??????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??????????/ww[]F?????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ SEAHAWKS:
$!************************************************************************
$!
$! This section will change the prompt to the Seattle Seahawks' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????????__/??ow{}~~~~/w~~~~~~~~~/BBBBBB@@@?�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oowww{{{}}/~~NNfbZGCq/~??}DCQQSL/???B?ABB@@�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}}}}]]]]][/yyyyqABlPA/ffffaqQXWK/??????AAA@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1{[wo_?????/Af~BBAAAAE/NF@?______/@@@@??????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/CCCCCCCCCC/__________/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/CCKGGWO_??/__??????~?/??@@@@AAB?�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~bbpww{{}}/^^^^^^^^^^/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1~w_F~~B???/NFRW^^????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1?_wKA`pww{/?^??]^^F@?/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1[MMEEFBBBB/??????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1BBBBBBBBBB/??????????/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1BAAAAEEM^?/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ STEELERS:
$!************************************************************************
$!
$! This section will change the prompt to the Pittsburgh Steelers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?????????_/????_WKE@?/??oN@__?__/??B??BA?A@�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1oWGCCAAAA@/????????GG/_?_?_?__?_/A@A?@AA@A@�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1@@@`x`@AAA/[[}~~~}[[G/?__BNB????/?BA?????AA�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1ACCGWo_???/G??????@EK/??_w}w_???/BBBBBBBBBA�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/W_????????/?@No??????/A??B??????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??No?AB?B?/???BEWo_??/???????@AC/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1A@A?BA?B?B/????????GG/KWO__?????/?????@@@@A�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1?AB_w_????/[[}~~~}[[G/???BNB????/AAAAAAA@@@�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1@@BF^FB@@?/G???????_o/?__OWKCA@?/@?????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1??oN??????/WEB???????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ VIKINGS:
$!************************************************************************
$!
$! This section will change the prompt to the Minnesota Vikings' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1CWo__?????/??@BFN]]}}/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1???oKA@@@`/}}~~~~~~~~/?~__ooowxY/BBBBB@@AAB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1PPQQcCGOO_/~~~]_~_oww/]^mmvzMQQY/BBBBBB????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/\MK{??????/YU^sJW_???/?A?@???@A?�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1?????????_/????_OGCA@/?ABBAAAAAA/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1OKB@EN^~~~/????????\~/ACw?????M~/??@??????@�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~~~^F@???_/nvz[?_{}~^/vz|M@~~N@@/@@@?@@????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1row}|{{{{B/NFB@???BC{/@@@@@@@@@?/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&
'()*
+)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BLUEJAYS:
$!************************************************************************
$!
$! This section will change the prompt to the Toronto Bluejays' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/????????oG/????__mb__/ABBBBBBBBB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1????__OOOW/CA@DICsww{/___omFN^^N/BBBBAAAAAA�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1GGGG_oww{{/}}~~~~~~~~/FFFN^^^^^^/BBBAAAAAAA�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1}}^F@?????/p_CL]}~{{w/^^~}o_hjnN/AAAAAAAA??�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1O__o__O???/w~~~~~ww{{/NNN~NNNNJH/??A@??????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/~]MDC?????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1DDLLL\\\\\/???????BAC/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1\\\Td`@???/GO_?OgPpMw/???@@AACCC/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1@@@???Ow{}/_????_w{~~/@AKO{~^F@C/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1~^NfbPGSGg/^NEa_PGCA@/AA@@??????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1oM@???????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'()
*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ REDSOX:
$!************************************************************************
$!
$! This section will change the prompt to the Boston Red Soxs' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????_oOG/?_oKA@????/{B??_??O__/B?AAA@@@?A�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1GCCCEAAAAA/??ow{{}xxq/?{~~~~~~Nr/BBBBBB@ABB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1AaIa]CSCGG/]rm?@?????/{~~F??_?O_/BB??A?A@@A�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1Oo_???????/???@A[__??/gOOSgGGB{?/?@??????B?�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1Fw???@WcBF/??FKO_??@@/??????@AAC/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1n~~~~pqbbV/BBBfFnN^^~/CGIG^OQOOO/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1^~}{}|{XGG/fEEEhRBBAA/OPPPWGGGCC/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1OO_????wF?/@@?_OKF???/AA@???????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ YANKEES:
$!************************************************************************
$!
$! This section will change the prompt to the New York Yankees' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/????????oW/???????}@?/???????B??�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??_OWGCCAA/EXCa[??_[?/?wE@?_wF_?/??@AAB@?B?�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1AB@@``@@@@/????N~p@E}/?_OOW^^ww~/A?@@A?AAAA�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1@@BAaIc[GW/yCCC|}GHgo/vow~f_[B??/??@@BA????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1O_????????/O?@EWo????/?????@}???/??????B???�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1???????Fw?/?????????F/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1???oM`OaGf/KOn??bCvCR/???@AAFCHg/????????@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1OsO_?~@?o^/?F?vM@oM@B/gwE@oMPOOO/@AAABB@???�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1RaCsUb@oO_/DCABDSArDC/OOWGGGDCBA/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1?_o??wF???/AbSLF?????/@?????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ 76ERS:
$!************************************************************************
$!
$! This section will change the prompt to the Philadelphia 76ers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????_WKE/????oN@?o{/????B???@B�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?_owGCCAAA/@?O?HBQCGO/wpc_g_sp?_/BBBBBBB?BB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1A@@@@@@~@@/_?????wF??/oRsgCB???_/??@@????A@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1AAAACCGwo_/????_[E@??/oWKB@?????/???????AAA�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/@EKW_?????/????@No???/AAAAAAB???�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1????Np@@??/?????BEWo_/?????????@/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??_w{MB?~~/?ffVVOG?@B/BCKWO__???/???????@@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1EK{w?oxhw?/FEB`WBFCC?/??{B??????/@ABAAAAAAA�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1GwQIX@xgG?/CFC?W_CDF?/????_`UWKC/@@@@??????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1?????oN???/?_oWEB????/A@????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BULLS:
$!************************************************************************
$!
$! This section will change the prompt to the Chicago Bulls' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1???_WCC]b?/???BKWo_?@/???????_PP/????????@@�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/@@@@pHF@@@/QIIMFoW[{w/AAAAA?@A?A�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1??????????/HhhhhHxHhh/oaAAct~tcA/BBBBBB?BBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/hhH@@@FHp@/Aaow{[WoFM/BBBA?A@?AA�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1????b]CCW_/@@@@?_oWKB/IIQPP_????/AAA@@?????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?????NsTTJ/??????@BkU/???????Np?/?????????@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1{??`@???@`/POWHIIIIIH/?brPUOOOUP/AAAAAAAAAA�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??{JTTsN??/WOPUkB@???/rb??pN????/AAA@??????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+
,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CAVALIERS:
$!************************************************************************
$!
$! This section will change the prompt to the Cleveland Cavaliers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/?oww{}]]]]/~~~~b?????/@BBBBA???A�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/}{}}???_ow/?`px{}~~~z/BBBB@?????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1??????????/{}}}}M}}}{/x~~~~??BN~/?BBBB?????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1?w{{}}}}}}/oFn^^~~~~^/~~{xCiPiCx/BBBBB???BB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1{w????????/~Fo{}}}}}}/{~~~NB?BN^/BBB????BBB�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/}}}]]]}{}}/^][[[{{|xp/A???AABBBB�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?@BFFNNNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1NNNNNN??NN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1NNNNNNN???/??????????/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1?BNNNNKNNN/??????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1NB?????NNB/??????????/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1NNNNNNFFB@/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CELTICS:
$!************************************************************************
$!
$! This section will change the prompt to the Boston Celtics' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?{aaTXN`PJ/?@EIYPXSUx/????????Ol/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1Ew??????_{/lB???WXPPF/y`]o__???o/?@AAA?@B@@�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}~^^^]{sCC/XS`dgORlb_/wepwmi~~_?/BB?BBAABB@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/_?????????/_@@A[_????/?@AA??B???�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1?????\vV||/??????bcw_/??N~^zaaAA/??@BBBBBBB�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1Vx}^]JJME~/_ec[C??oN?/^ac|CCCB??/BBBB??????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1???JsS^S_?/????BK~cB?/??????wF??/?????@????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&
'()*
+)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ HAWKS:
$!************************************************************************
$!
$! This section will change the prompt to the Atlanta Hawks' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????_oow/??_w}~~nfb/??BBBBBBBB/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1w{{[]]]NNN/`_________/BBBBRrrrrr/???????@??�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1NNNNN]]][{/_?????????/RBFNM]wwoo/?????????@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1{wwoo_????/?@@BFN~}{w/o__????BN~/BBBB?????B�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/_?????????/~~o???????/BBB???????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/?????____o/????@FFN^^/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/oowwwW[[KK/|wwwoooo__/??@@@BBBBB�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1?????_owwo/MMEFFBB@@?/_____oooow/BBBBBBBB@@�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1o`~~~???_~/@@@BB_w}~~/{{{]^NBB@?/@?????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~^???????/NF????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ KINGS:
$!************************************************************************
$!
$! This section will change the prompt to the Sacramento Kings' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1~~}}{{ww{{/~nNNNn~~nN/~n___lxpaf/@@@@@@@@@@�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1}}^^mmssww/m}nNNNn~nN/n~n___n~n_/@@@@@@@@@@�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1{{}}~~}}{{/NN^~~nNn~~/m{wo`b_n~w/@@@@@@@@@@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1ww{{}}^^mm/^^NnmmNN~~/oo_njbbaz~/@@@@@@@@@@�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1ssww{{}}~~/^^NNnnNN~~/ackgg``q~~/@@@@@@@@@@�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1F~~~~~~~~^/??BN^bp{}~/??????@BBF/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1^^nnnvFFvv/~~~~~~o?N~/FNNN^^^~}{/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1vvvnnnn^^^/~~~~~~~~~}/xrvfnNN^~~/??@@@@@@??�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1~~~~~~~~~~/{xzvvvnnnn/~~~^^^NNNF/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~~~~~~~~F/^^^^^^NB??/FBB@??????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ LAKERS:
$!************************************************************************
$!
$! This section will change the prompt to the Los Angeles Lakers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????OOOo/??????_w}~/?????ABBBB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?????_OOGG/oosrpOTTAD/~^F`W{{??C/@?ABABB??B�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1cksSQQQ]qQ/W_@BKo??@B/s|K_SSLC_w/B@BA???AB@�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1cckGWO__??/AECHXqaDJM/[CcK[C@d{[/@B????AB@B�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/Wo????????/Cd{w??w{kC/B@@????@BB�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/CCWC??????/BA????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??_w}~~^FD/AABBBBBAAA/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1CE`oCFFCFF/ABB\O_????/??????@AAC/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1C?pFECEFDC/??@Mo?????/CGGGH]OOOO/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1seBCCEF@??/?@EW_???_o/GGGCDEA@@?/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1FN[woecCCD/WEB??@@@BB/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1FB__oW????/BB@@??????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ SUPERSONICS:
$!************************************************************************
$!
$! This section will change the prompt to the Seattle Supersonics' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/???????oWK/????oMB???/????B?????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??_oOGGCCC/EHGOo?????/?????BCYaE/????????B?�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1AAAA@@@@@~/??_w_????~/FN^~^NFEA~/???B?????B�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1@@@@@AAAAC/??????????/??????????/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1CCGGOo_???/????oOGHEK/_WEB?_____/B????BBBBB�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/Wo????????/__BMo?????/BB??B?????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1????~AAAAA/????F{{{{{/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1AAAaaaaa~_/{__~~~~~~~/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1_??~??ooo~/~ww~ww~~~~/??????????/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1o~~~~~~~??/~~~~~~~~}~/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1~AAAA~~~~~/~~~~o~~~~~/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1~~AA~?????/~~}}F?????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-.)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ TRAILBLAZERS:
$!************************************************************************
$!
$! This section will change the prompt to the Portland Trailblazers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1?o??w??{??/?~??~??~??/?~??~??~??/?B??B??B??�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}??~?_____/~??~?ccccG/~??~?cccCH/B??B????@A�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??????????/HHRQcCGO_?/HqACW`AKo@/??B??B??B?�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/??????????/Ew????????/?B????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1?^_?No?FW_/??@ACGPacC/?????????@/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1BKOPaccc?~/HHQQcccc?~/BAACCCCC?~/?????????B�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1??~??~??~?/??~??~??~?/??~??~??^?/??@???????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1?~????????/?~????????/?N????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ WARRIORS:
$!************************************************************************
$!
$! This section will change the prompt to the Golden State Warriors' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/?_oOOOW[UP/?@}???????/???B?A????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1_oWGCCAAAA/R[o_??????/??~?@ACCGG/??@A??????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1@@@@~@@@@A/????~?????/Oo__~__oOG/????B?????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1AAACCGWo_?/?????_oKB@/GCCA@?????/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/EKW_??????/???@No????/?????B????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1GWWw}~}wWW/?CFB@CXrfS/????????@A/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1G???@ACKSc/__????????/CKXQecCGGO/??????@@@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1CCCC~CCCCC/@AEI^aAECG/O_____^???/AAAABAAAA@�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1CCCCCCCCCC/GOO__?????/???__PYKCA/@@@???????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1CCCCsN????/_oWEB?????/@?????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ BRUINS:
$!************************************************************************
$!
$! This section will change the prompt to the Boston Bruins' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?????????_/?????o{]FB/???w~F@???/???BBBBBBB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1ooWWKMEEFB/FN~~BBBbbb/??~~???~~p/BBBB??????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1B~~~BBFEEM/bbbbbbbBFM/pppppp~^??/????????AB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1KWWoo_????/[w{NFBF]{o/_p~?????@F/BBBBBBBBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/??????????/~w????????/BB????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1???N~p@@@@/????@F^{o_/????????@B/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1@@~~???}}E/_o~~___bbb/FFLLXxppp`/????????@@�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1EEEEEE}{?@/bbbbbbb`ow/`~~~``pppw/@@@@@@@???�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1BF~@@@@@@p/[N^wo_o{^F/WKKEFB@???/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~N????????/@?????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CANADIENS:
$!************************************************************************
$!
$! This section will change the prompt to the Montral Canadiens' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1?????????_/???ow[MEB`/o}NB?_w}~~/BB???BBBBB�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1_ooWWWKKKC/poww{{}}]]/^FB`pwWKKE/???BB?????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1EEEEbbbbbb/^^NNNNNNNN/E}}BBB~bbb/?BB???????�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1bbbFEEECCF/NNNNNN^^]]/b~BBB}}EEM/?????BB???�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1FBbaEEKKWw/{}~~~~}}{w/K[WppbfNFb/?????@@BBB�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1o_????????/_@BM[o_???/pw[MFB@???/BBA???????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1F~w_?BN~~~/??@FM[wo`b/????????@B/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1{o_BFM[Wwo/FFNN^]}}{{/BFEMKK[WWW/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1o~~___}aaa/{{wxxxxxxx/pppppppppp/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1a}___~~oow/xxxxxw{{{{/pppppppXWW/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1W[KEEbrpxw/}}]^NNFFbb/[KKMEEBB@@/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1{xzrEKKWoo/pxW[KEBB@?/??????????/??????????�"
$    Write Sys$Output "�1;15;1;10;1;2;20;0{1_?????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'(
)*+,-./)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ CANUCKS:
$!************************************************************************
$!
$! This section will change the prompt to the Vancouver Canucks' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????_oww/??o{}~~~~~/o~~~~~~^^Z/@@@@@@BBBB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1{{{}}}}}}}/~~~~~~~^^^/ZZZZZZZZZz/BBA@BBBBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1}}{{[WWO?_/^^ZZZZZZZY/zZZZZZZZZZ/BBBBA@BBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1__????????/YScc_?????/ZZYScc_???/BBBB??????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??K]~vbBBB/?????@BFMK/??????????/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1BZzZjg^~~L/Woovotovvo/?????????A/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1\|L{|L||L|/vuovvsrrsv/EEMMM]]]]]/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1|\ll|{L|\l/vsrrvvoutr/]]MMMEEA??/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1||LlQAAA??/vvqtvoooo?/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ FLYERS:
$!************************************************************************
$!
$! This section will change the prompt to the Philadelphia Flyers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??AM]]}}}}/??Oooooopp/???@BBFFNN/??AAAAAAAA�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1}}}}}}}}}}/prrrrrrrrr/N^^^^^^^^^/AAAAAAAAAA�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}}}}}}}}}}/rrrrrrrrrz/^^^^^^~~~~/AAAAABBBBB�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1}}}}}}}}}}/~~~~~^NFBB/~~^F@?????/B@???ABA??�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1}}}}}{{{ww/B@```@BBBF/M^^~~~^K??/??????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1wo__??????/F^~~}{w_??/???~~~~~??/?ABBBBBB??�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1???BFFNN^^/??C[{{{{{{/??????@@BB/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1^~~~~~~~~~/{{{{{{{{{{/BFFFFFFFFF/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~~~~~~~^F/{}~~~^F@??/FFFF@?????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1@??GM^^^~~/??????????/??????????/??????????�"
$    Write Sys$Output "�1;14;1;10;1;2;20;0{1~}}{{{{}}~/?@@@@@@@@?/??????????/??????????�"
$    Write Sys$Output "�1;15;1;10;1;2;20;0{1~^^NNFB???/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'()
*+,-./)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ NORTHSTARS:
$!************************************************************************
$!
$! This section will change the prompt to the Minnesota Northstars' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??O[^^^^^^/??????????/?????????o/?????????B�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1^^~~~~~~~{/?{~~~~~~~~/~~~~~N?BN~/BBBBB?????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1o?????????/~~{o??????/~~~~~{o???/BBBBBBBB??�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1??OoOOOWCB/????@yC??_/???wVGcqx{/????ABBBBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1CWOOOoO???/??Cy@?????/xqcGVw????/BBBBA?????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1???????o~~/??????{~~~/????o~~~~~/????BBBBBB�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1~~~N??????/~~B???????/N?????????/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1?BN~~~~~~{/????BN~~~~/???????BN~/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1o?????o~~~/~~{o?{~~~~/~~~~~~~~N?/BBBBBBBB??�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~N????????/B?????????/??????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ PENGUINS:
$!************************************************************************
$!
$! This section will change the prompt to the Pittsburgh Penguins' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;03;1;;;2{1????WwgGGG/??????@BEK/??????????/??????????�"
$    Write Sys$Output "�1;04;1;;;2{1gggggGgkEb/WpbFK^~}rB/??@BEKWpbF/????????@B�"
$    Write Sys$Output "�1;05;1;;;2{1D@@@@@AACK/???K{{{{{{/N]}{op`bFN/A??@BBB???�"
$    Write Sys$Output "�1;06;1;;;2{1GGCCCCcCGG/{wwoo_`BFE/N^^^Nfbpw[/??????????�"
$    Write Sys$Output "�1;07;1;;;2{1GGGGGgggGG/KHJFEooww{/???b^NnFB@/????B@???A�"
$    Write Sys$Output "�1;08;1;;;2{1GggggggGGG/|^NFbpWKEB/GkeRP?????/B@????????�"
$    Write Sys$Output "�1;09;1;;;2{1gwWG      /@???      /????      /????      �"
$    Write Sys$Output "�1;10;1;;;2{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;11;1;;;2{1?}}aaaaaaa/??????????/??????????/??????????�"
$    Write Sys$Output "�1;12;1;;;2{1bba__`r`DK/???????@BE/??????????/??????????�"
$    Write Sys$Output "�1;13;1;;;2{1[}~}}MM?__/KWPPWKEB@?/??????????/??????????�"
$    Write Sys$Output "�1;14;1;;;2{1__m}uAAAB@/??????????/??????????/??????????�"
$    Write Sys$Output "�1;15;1;;;2{1??????????/??????????/??????????/??????????�"
$    Write Sys$Output "�1;16;1;;;2{1????      /????      /????      /????      �"
$!
$    Prompt :== "�1m)1#$%&'()
*+,-./0)1�0m "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ RANGERS:
$!************************************************************************
$!
$! This section will change the prompt to the New York Rangers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1AEMYqaAAAA/?????~??^A/?????~?@@@/?????B@A??�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1EKGOGKEAAA/C^?^TP?NOK/@`PXdhPFDh/@??B??A@@A�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1AAAAAAAAAA/ON??@A[A@M/hPP``@@@@@/A@?A?@@AA?�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1AAAEKGOGKE/PPM?^DLQ?^/@@@@@@@@@@/??????????�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1AAAAaqYMEA/CIP?~?????/@@@?~?????/????B?????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1?????~?~~~/?????^_N~~/??????@ACD/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1}}|{yxosah/~~~~~~~~~~/HJJJJJJJJR/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1CA|RgUHcCT/~~}}{|yxty/VfnN^^NnfV/???@AA@???�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1HaQScGgOO_/`qGCaZCDYS/RJJJIIHIIH/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1_???~?????/cL@a^?????/CCA@??????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ SABRES:
$!************************************************************************
$!
$! This section will change the prompt to the Buffalo Sabres' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1??????????/????????}~/?????CGGOP/??????????�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1____ow{}}}/~|[pr~~~~~/`bEFNFV^NB/??@@AA????�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1}}}}}{{{ww/~~~~~~~~~~/pznfF~~fp@/?@@??@@???�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1o___??????/~~~~~~uAIM/BFNNZRRFKG/????????AA�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1??????????/IG????????/C?__OOGGC?/@@????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1??????????/??????????/???????CCM/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1??????@@AA/???__wOowG/MZXPWWGKFB/??????????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1CCGGOO__OO/CCAA@@??@@/??????????/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1GGCCAA@@??/AACCGwoOw_/????BFKGWW/??????????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1??????????/_?????????/PXZMMCC???/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ WHALERS:
$!************************************************************************
$!
$! This section will change the prompt to the Hartford Whalers' emblem
$!
$!************************************************************************
$    Write Sys$Output "�1;3;1;10;1;2;20;0{1????}}w_??/????FN^~~~/????{wo_@@/????BBBBBA�"
$    Write Sys$Output "�1;4;1;10;1;2;20;0{1??????????/~}}}}}{{{{/BBBFFF^~~~/????????BB�"
$    Write Sys$Output "�1;5;1;10;1;2;20;0{1??????????/wo??ow{{{{/~~~~~~~~~^/BBBBBBBB??�"
$    Write Sys$Output "�1;6;1;10;1;2;20;0{1????????_w/}}}}}~~~~^/FFFBBB@@_o/??????ABBB�"
$    Write Sys$Output "�1;7;1;10;1;2;20;0{1}}????????/NF????????/w{????????/BB????????�"
$    Write Sys$Output "�1;8;1;10;1;2;20;0{1????~~~~~~/????~~~~~~/????BN^^^~/??????????�"
$    Write Sys$Output "�1;9;1;10;1;2;20;0{1}????????F/~????????}/~{{{{{{{[^/?@@BB@????�"
$    Write Sys$Output "�1;10;1;10;1;2;20;0{1FFFFFFF???/}}}}}}}???/^NBBN^^[{{/??????????�"
$    Write Sys$Output "�1;11;1;10;1;2;20;0{1?????}~~~~/?????~~~~~/{{{{{~~^^^/@BB@@?????�"
$    Write Sys$Output "�1;12;1;10;1;2;20;0{1~~????????/~~????????/NB????????/??????????�"
$    Write Sys$Output "�1;13;1;10;1;2;20;0{1??????????/??????????/??????????/??????????�"
$!
$    Prompt :== ")1#$%&'
()*+,
-)1 "
$!
$    Goto EXIT_ROUTINE
$!
$!
$!
$ OTHER_PROMPTS:
$!************************************************************************
$!
$! This section will reset the terminal and pass control to the other
$! prompt menu
$!
$!************************************************************************
$    WO CLEAR_WHOLE_SCREEN
$    WO RESET_SCREEN
$    WO TOP_OF_SCREEN
$!
$    @'DIRNAME'340_PROMPT.COM
$!
$!
$!
$ EXIT_ROUTINE:
$!************************************************************************
$!
$! This section is the exit routine of this command procedure
$!
$!************************************************************************
$    WO CLEAR_WHOLE_SCREEN
$    WO RESET_SCREEN
$    WO TOP_OF_SCREEN
$!
$    Set Prompt = "''PROMPT'"
$!
$    Exit
    
    
    
    
    

Hi,

I was surfing the GD web site last night, and I came across a file I wanted
to share with you.  I was checking out what Bill Kreutzmann is doing now,
which is being in, around, or under, the water.  There are a few pix of him
and his boat, and an audio file (approx 1 Meg AIFF-format) of him and a few
friends jamming on the boat.  I downloaded it and I have placed it at
NETCAD::USER$137:[SIEGEL.PUBLIC]ROCK_THE_WATER.AIFF.

I uploaded it from my Mac to the VAX, so I'd be curious if it even works! 
It works fine on my Mac.  It is sampled at 22500 Hz so the sound quality is
pretty good.  It's only 50 seconds long.

If anyone copies it, let me know.

adam

Listen up, people!
I have placed my DEADSETS.LIS file in a world-readable location:

  wedoit::12x5$dka0:[belkin]deadsets.lis

this 1300 block ascii file is not 100% accurate, and the format varies a 
little from year to year, but its like having an on-line Deadbase.
Copy this file now dammit!, or forever hold your peace about asking questions 
like "what was the second set of 11-17-73" ?  :-)

A while ago I pulled the contents of this file from one of the Dead archives 
at 
   ftp://gdead.berkeley.edu/pub/gdead  
down in set-lists.  Ton of stuff at this site.
Actually, the different years were in different .zip files, so I had to glom 
it all together.  It may very well have been updated for accuracy since, I 
don't know.
There are some Jerry ('95, and old Legion of Mary) and Bob setlists there too.

 - Josh

	yeah, well if you think that'll stop people from asking ...
	
	Hah ha ha ha hah    Ahhhhah ha hah ha ha hah  ha hah 
	
	[falls on the floor laughing]
	
	but, i will keep a copy.
	
	thanks.