T.R | Title | User | Personal Name | Date | Lines |
---|
946.1 | trout jumping | BTO::LEVESQUE_R | | Fri Jan 13 1989 19:29 | 3 |
| $ write sys$output "�1;3;1{1A???????/????????;????????/????????;?Wwwww{}/?NNNNNNN;~^ZHGCB@/KKGGG???;@@@@@@@@/????????�"
$ write sys$output "�1;8;1{1????????/????????;????????/????????;???@@@@B/????????;FFFNN^^N/????????;MMCCCM^?/????????�"
$ set prompt = "[;1m)1#$%&'E()*+,[;m "
|
946.2 | bass jumping | BTO::LEVESQUE_R | | Fri Jan 13 1989 19:30 | 3 |
| $ 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 = "[;1m)1#$%&'E()*+,[;m "
|
946.3 | BASS Boat (Hit DO Key to fish other side of lake) | BAGELS::DILSWORTH | I'm the NRA | Tue Jan 17 1989 08:41 | 83 |
| $ 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.4 | I CAN'T GET THERE FROM HERE! | BAUCIS::VACHON | | Wed Jan 18 1989 10:21 | 10 |
| 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.5 | VT2xx and VT3xx only | BAGELS::DILSWORTH | I'm the NRA | Wed Jan 18 1989 10:53 | 13 |
| >>> 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.6 | EXTRACT/NOHEADER BASS_JUMPING.COM | SAVVY::LUCIA | | Wed Jan 18 1989 10:57 | 22 |
| 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.7 | Extract/nohead BEER.com | THRUST::COTHRAN | | Wed Jan 25 1989 16:55 | 23 |
| $!
$ 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.8 | Phideax.com CAREFUL when you hit 'DO' on this one | THRUST::COTHRAN | | Wed Jan 25 1989 16:57 | 31 |
| $!
$ 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="[1m(#1abcddefgh(B[0m "
$ goto clear
$ clear:
$ WRITE SYS$OUTPUT """[2J"
$ WRITE SYS$OUTPUT """[0;0f"
$ exit
|
946.9 | Pistol.com | THRUST::COTHRAN | | Wed Jan 25 1989 16:59 | 23 |
| $!
$ 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.10 | Hey COONASS, recognize this critter | PACKER::BACZKO | When the water is hard DRILL A HOLE! | Thu Jan 26 1989 15:53 | 18 |
| $ POS = 10
$ CLPOS = 0
$ WRITE SYS$OUTPUT "[H[J"
$ 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[1m(#1abcddefgh(B[0m"
$ WRITE SYS$OUTPUT "[1;''CLPOS'f "
$ POS = POS + 2
$ CLPOS = CLPOS + 2
$ IF POS .EQS. 84 THEN GOTO END
$ GOTO MOVE
$ END:
$ SET PROMPT="[1m(#1abcddefgh(B[0m"
$ goto clear
$ clear:
$ WRITE SYS$OUTPUT """[2J"
$ WRITE SYS$OUTPUT """[0;0f"
$ exit
|
946.11 | Me, I know dat wun!! | DPDMAI::BEAZLEY | | Thu Jan 26 1989 16:06 | 5 |
| Yea....dats wun ob dem water-chiggers!!!
Phideaux say MERCI! he say he in bad need ob a pinumup!!
Coonass
|