[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference wahoo::fishing

Title:Fishing Notes- Archived
Notice:See note 555.1 for a keyword directory of this conference
Moderator:DONMAC::MACINTYRE
Created:Fri Feb 14 1986
Last Modified:Fri Sep 20 1991
Last Successful Update:Fri Jun 06 1997
Number of topics:1660
Total number of notes:20970

946.0. "prompts" by BTO::LEVESQUE_R () Fri Jan 13 1989 19:29

the following replies will have programs that will create prompts.
    extract them and type @(the name given to file)
    
    
    happy fishing
    ROy
    
T.RTitleUserPersonal
Name
DateLines
946.1trout jumpingBTO::LEVESQUE_RFri Jan 13 1989 19:293
$ write sys$output "�1;3;1{1A???????/????????;????????/????????;?Wwwww{}/?NNNNNNN;~^ZHGCB@/KKGGG???;@@@@@@@@/????????�"
$ write sys$output "�1;8;1{1????????/????????;????????/????????;???@@@@B/????????;FFFNN^^N/????????;MMCCCM^?/????????�"
$ set prompt = ")1#$%&'E()*+, "
946.2bass jumpingBTO::LEVESQUE_RFri Jan 13 1989 19:303
$ write sys$output "�1;3;1{1????????/????????;????????/???????N;owww{{}}/NNNNNNNN;~[WGGCB@/NKGGG???;@@@@@@@@/??????G?�"
$ write sys$output "�1;8;1{1????????/????????;????????/????????;?@BBFFFN/????????;^^^^^^^N/????????;MMCCM^~?/????????�"
$ set prompt = ")1#$%&'E()*+, "
946.3BASS Boat (Hit DO Key to fish other side of lake)BAGELS::DILSWORTHI'm the NRATue Jan 17 1989 08:4183
$ if p1 .eqs. "MOVE" then goto move
$ esc[0,8] = 27
$ copy sys$input sys$output
�1;17;1{ 1
??oOOOOO/??BAK;OOO_/KMEFCCCC;/CCCCCCCC;?]OOOOoO/CCCCCCFC;
/CCCCCCK;????~/?NEEFCCC;~?BKo/FE???@@@;/@@@@@@@@;
??_____O/@@;GGCCA@;�
$ set prom="
''esc') 11233333435
678888889: "
$ com = f$env("PROCEDURE")
$ define/key/nolog/noecho/term do "@''com' MOVE"
$ exit
$MOVE:
$ copy sys$input sys$output
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
�A�A�4h 
 �4l
$ EXIT
946.4I CAN'T GET THERE FROM HERE!BAUCIS::VACHONWed Jan 18 1989 10:2110
    Is it me or am I missing something? I can't extract these files!
    
    I'm typing "extract bass jumping" and it comes up with INVAILED
    INPUT. (or something to that effect!) So can anyone out there help
    me on this. 
    
    btw where is this DO key for the bass boat??
    
    Bass-O-Matic
    
946.5VT2xx and VT3xx onlyBAGELS::DILSWORTHI'm the NRAWed Jan 18 1989 10:5313
>>> I'm typing "extract bass jumping" and it comes up with INVAILED
    INPUT. 

NOTES>  extract/noheader bass.com

$ @bass

>>> btw where is this DO key for the bass boat??

The "do" key is between the help and F17 on the keyboard for VT2xx and VT3xx.
If you don't have one of these terminals, the prompts will not work.

keith
946.6EXTRACT/NOHEADER BASS_JUMPING.COMSAVVY::LUCIAWed Jan 18 1989 10:5722
    Notes is probably complaining about the space between bass and
    jumping, so say:
    
    EXTRACT/NOHEADER BASS_JUMPING.COM
    
    then @ it.  The "DO" key is on the LK201 keyboard, found on the VT2xx
    and VT3xx (vaxstations also) terminals.  If you don't have one of
    these, you can't see the graphics anyways.
    
    Also, for those of you who have the symbol COPY defined (i.e. I have it
    as COPY :== COPY/LOG, it is a good idea to modify the boat.com
    procedure in .2 to say COPY/NOLOG, else when you go to fish on the
    other side of the terminal, you get:
    
    %COPY-I-COPIED, File SYS$INPUT: copied to SYS$OUTPUT:
    
    or something like that.  The boat is pretty good, I cannot really tell
    the difference between the bass and the trout except for a one pixel
    difference in the size of the mouth.
    
    Tim
    
946.7Extract/nohead BEER.comTHRUST::COTHRANWed Jan 25 1989 16:5523
$!
$ On error then goto Error_Handler
$ ww:== write sys$output 
$!
$ esc[0,8] = 27
$ csi = "''esc'" + "["
$ off  :== "''esc'[0m" ! all term. attributes off 
$ bold :== "''esc'[1m" ! term. bold
$!
$ if p1 .nes. "" then goto set_up
$ ww "''csi'2J"
$ ww "''csi'H"
$ !BEER
$ 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 =  "''bold'''esc')1#$%
&'(''esc')1''off' "
$ goto clear
$ Pistol:
$ !PISTOL
$ write sys$output "�1;3;1{1?wwwwwww/BFNNNNNN;wwwwwwww/BBNBBBNB;wwwwww{w/BBBBBBB?;??^~~~~^/;AAAAAA@?/;/�" 
$ SET PROMPT =  "''bold'''esc')1#$%
&'(''esc')1''off' "
$ goto clear

    
946.8Phideax.com CAREFUL when you hit 'DO' on this oneTHRUST::COTHRANWed Jan 25 1989 16:5731
$!
$ On error then goto Error_Handler
$ ww:== write sys$output 
$!
$ esc[0,8] = 27
$ csi = "''esc'" + "["
$ off  :== "''esc'[0m" ! all term. attributes off 
$ bold :== "''esc'[1m" ! term. bold
$!
$ if p1 .nes. "" then goto set_up
$ ww "''csi'2J"
$ ww "''csi'H"
$ !ALIGATOR
$ type sys$input
�1;65;1{#1
w{}q'_o_/???@@@@@;
o___o__o/@@@@@@@@;
WWoo_GWo/B??FNGGB;
wwooowwo/BBBBBBBB;
WWoo_GWw/B??FNGGB;
{kKSSSSW/@@@BAABA;
WGGWGGWK/BAABAABA;
WG??????/BA??????;�
$ set prompt="(#1abcddefgh(B "
$ goto clear
$ clear:
$	WRITE SYS$OUTPUT """[2J"
$	WRITE SYS$OUTPUT """[0;0f"
$ exit

    
946.9Pistol.comTHRUST::COTHRANWed Jan 25 1989 16:5923
$!
$ On error then goto Error_Handler
$ ww:== write sys$output 
$!
$ esc[0,8] = 27
$ csi = "''esc'" + "["
$ off  :== "''esc'[0m" ! all term. attributes off 
$ bold :== "''esc'[1m" ! term. bold
$!
$ if p1 .nes. "" then goto set_up
$ ww "''csi'2J"
$ ww "''csi'H"
$ Pistol:
$ !PISTOL
$ write sys$output "�1;3;1{1?wwwwwww/BFNNNNNN;wwwwwwww/BBNBBBNB;wwwwww{w/BBBBBBB?;??^~~~~^/;AAAAAA@?/;/�" 
$ SET PROMPT =  "''bold'''esc')1#$%
&'(''esc')1''off' "
$ goto clear
$ clear:
$	WRITE SYS$OUTPUT """[2J"
$	WRITE SYS$OUTPUT """[0;0f"
$ exit

    
946.10Hey COONASS, recognize this critterPACKER::BACZKOWhen the water is hard DRILL A HOLE!Thu Jan 26 1989 15:5318
$  POS = 10
$  CLPOS = 0
$  WRITE SYS$OUTPUT ""
$  WRITE SYS$OUTPUT "�1;65;1{#1w{}q'_o_/???@@@@@;o___o__o/@@@@@@@@;WWoo_GWo/B??FNGGB;wwooowwo/BBBBBBBB;WWoo_GWw/B??FNGGB;{kKSSSSW/@@@BAABA;WGGWGGWK/BAABAABA;WG??????/BA??????;�"
$  MOVE:
$  WRITE SYS$OUTPUT "[1;''POS'f(#1abcddefgh(B"
$  WRITE SYS$OUTPUT "[1;''CLPOS'f          "
$  POS = POS + 2
$  CLPOS = CLPOS + 2
$  IF POS .EQS. 84 THEN GOTO END
$  GOTO MOVE
$  END:
$  SET PROMPT="(#1abcddefgh(B"
$ goto clear
$ clear:
$	WRITE SYS$OUTPUT """[2J"
$	WRITE SYS$OUTPUT """[0;0f"
$ exit
946.11Me, I know dat wun!!DPDMAI::BEAZLEYThu Jan 26 1989 16:065
    Yea....dats wun ob dem water-chiggers!!!
    
    Phideaux say MERCI! he say he in bad need ob a pinumup!!
    
    Coonass