| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 140.1 | | BSS::RALSTON | Individualists Unite | Wed Oct 19 1994 17:44 | 1 |
| We are never lost. :-)
|
| 140.2 | Fictional story | CONSLT::MCBRIDE | aspiring peasant | Wed Oct 19 1994 18:20 | 10 |
| <--- Exactly! No mater where you go, there you are!
Seriously though, I hate being lost and will ask for directions if they
are readily available. For instance, I drove through a neighborhood one
day, maybe eight or nine times, real slow and looking at all the houses
very closely looking for my friend's place. The last time I drove
through, someone came out into the road and stopped me and asked if I
was lost. Real helpful chap. Had a nice shotgun too. :-)
Brian
|
| 140.3 | ex | CSC32::HADDOCK | Saddle Rozinante | Wed Oct 19 1994 18:49 | 14 |
|
About half the time the directions I get are wrong. If possible,
I'll get a map and try to locate the address on the map. I can
follow maps pretty good.
Back in my trukin' days I learned that the first time I hit a new
city, I'd stop at the first truck stop, buy a map, call the company for
directions, then map out my route. Usually worked. Found out the hard
way that wandering around the neighborhood in a big-rig is not the
thing to do. Some places you cannot back out of ;^(.
fred()
|
| 140.4 | Find any street anywhere in the US! | ANGST::BECK | Paul Beck | Wed Oct 19 1994 23:12 | 2 |
| These days you're best off with a portable PC, a parallel port
CD-ROM reader, and a copy of Street Atlas USA.
|
| 140.5 | Hurts the image! | IRNBRU::RANKIN | | Thu Oct 20 1994 09:30 | 3 |
| Most men won't ASK for directions because it imply's they are
not capable of resolving the delema of being 'lost'. And EVERYONE
knows men are avid problem solvers. Wouldn't you men agree.
|
| 140.6 | | AIMHI::RAUH | I survived the Cruel Spa | Thu Oct 20 1994 09:42 | 10 |
| Why is it that these snivilig git questions about sexism and sterio
typing prevail when this note starts to warm up. Why is it they
wyminazi get their jollys out of such crappie? Why don't you ask this
question. Why can't women keep their gums and teeth together when the
guy is trying to read the map, or get a sence of where he is? If your
some dam smart, why the hell don't you drive the dam car? Why is it
that men must drive the dam car and wymin sit their on thier tush's
giving orders like some sort of general? 8^)
|
| 140.7 | | BSS::RALSTON | Individualists Unite | Thu Oct 20 1994 10:27 | 8 |
| re: .6
Yea! If we want to be stereotypical how come women can't read a map.
She sits there in her comfortable passenger seat, giving wrong
direction, refuses to let the guy look at the map, and then bitches
because we don't stop and ask somebody! Cheesh!
...Tom
|
| 140.8 | oh yeah! | BSS::PAUL | | Thu Oct 20 1994 10:41 | 5 |
|
Ahhhhhhhhhhhh.,,,,, But "we" can read a map!!!! The simple fact is
men want to be the drivers......Talk about bitching...boy! oh boy!
just wait till thier lost! :-^
|
| 140.10 | do it | BRUMMY::WILLIAMSM | Born to grep | Thu Oct 20 1994 11:22 | 10 |
| Have a few beers, let your wife drive and if you can't find it the gods
don't want you to find it anyway.
My wife used to be in lace and she was doing as many miles as me. And
the two jobs are freely interchangable.
only reason I tend to drive and she map reads is that the drivers seat
on my car is about an inch lower than the front passangers seat and at
6.4 every inch helps.
regards, Michael.
|
| 140.11 | | WLDBIL::KILGORE | Help! Stuck inside looking glass! | Thu Oct 20 1994 12:22 | 3 |
|
I drive because the non-driving spouse has to referee the kids.
|
| 140.12 | Ask the kids | BRUMMY::WILLIAMSM | Born to grep | Thu Oct 20 1994 12:34 | 5 |
| Actually, another point, my nine year old has a much better idea of
where we going than the grown ups bickering in the front.
So take the kids when navigating
r. Michael.
|
| 140.13 | You drive! | LASSIE::TRAMP::GRADY | Into the night, an angel to be... | Fri Oct 21 1994 00:15 | 13 |
| Actually, I hate to drive - I'd much rather be the navigator, which
I'm, reasonably good at doing. I also hate to waste time, so I'll
usually ask directions once I'm convinced that I can't possibly figure
out where I am...which varies depending on who's in the vehicle with me
at the time...;-)
A previous S.O. was very fond of driving, one of the reasons I miss
her. Unfortunately, her preoccupation with always being at the wheel
tended to carry over into other areas, and hence she's a "previous"
S.O...and I therefore don't miss her all that much...;-)
tim
|
| 140.14 | | PASTIS::MONAHAN | humanity is a trojan horse | Fri Oct 21 1994 04:26 | 10 |
| Definitely get the kids to navigate. It stops them getting bored.
We have been doing this for nearly 20 years. If there isn't an
available kid then I usually navigate while my wife drives. She has an
honours degree in geography, but she can stand my navigating better
than my driving.
Usually we only have problems if we don't have an adequate map, and
we now have maps, including town plans, for most of Britain, France,
Northern Italy, ... Getting a good map is one of our highest
priorities when visiting a new area.
|
| 140.15 | | KUZZY::PELKEY | Life, It aint for the sqeamish! | Fri Oct 21 1994 11:51 | 2 |
| you're all wrong... We simply don't wanna get out of the damn car!!!!!
|
| 140.16 | | QUARK::LIONEL | Free advice is worth every cent | Fri Oct 21 1994 14:05 | 4 |
| If you keep driving in one direction far enough, you'll get back to where
you started, so why ask?
Steve
|
| 140.17 | ok, it's a male thing, I guess... | LASSIE::TRAMP::GRADY | Into the night, an angel to be... | Fri Oct 21 1994 15:20 | 4 |
| Think of it as a hybrid of Chaos theory, and Management science:
Navigation By Wandering Around (NBWA)..;-)
tim
|
| 140.18 | | QUARK::LIONEL | Free advice is worth every cent | Fri Oct 21 1994 15:40 | 5 |
| I don't know if men's stereotypical refusal to ask for directions is any
worse than women's stereotypical mangling of directions. "You should have
KNOWN that when I said 'right' I meant 'left'!" :-)
Steve
|
| 140.19 | | KUZZY::PELKEY | Life, It aint for the sqeamish! | Fri Oct 21 1994 17:11 | 3 |
| I never get lost, my wife reads the map, if we're lost, it's
of course, her fault... Asking for directions only offers me
a chance to give her a few I TOLD YA SOs back!
|
| 140.20 | | NOVA::FISHER | Tay-unned, rey-usted, rey-ady | Tue Oct 25 1994 07:41 | 5 |
| it's a 502 year old tradition, Columbus got where he wanted to go
without stopping and asking for directions. If he could do it
wothout a mutiny, so can I.
ed
|
| 140.21 | | QUARK::LIONEL | Free advice is worth every cent | Tue Oct 25 1994 11:30 | 7 |
| Re: .20
Um, no, Columbus was looking for the West Indies. When he got to America,
he was so sure that he had made it to the West Indies that he called
the natives Indians. Just like a man...
Steve
|
| 140.22 | It's a guy thing, I'm sure | SISDA::SISDB::TREMELLING | Making tomorrow yesterday, today! | Tue Oct 25 1994 12:03 | 8 |
| re: <<< Note 140.21 by QUARK::LIONEL "Free advice is worth every cent" >>>
>he was so sure that he had made it to the West Indies that he called
>the natives Indians. Just like a man...
Curious - what would a woman who was sure she had made it to the West
Indies have called them?
|
| 140.23 | Would this work with girls? | SOLVIT::SOULE | Pursuing Synergy... | Tue Oct 25 1994 16:47 | 315 |
| Interesting and timely topic as I have been teaching my 6-year-old how to
read a map...
It all started when my wife sent me down to the local "Toys R Us" to
fetch anything Power Ranger. Well, they were all sold out (didn't even
have that Rita Repulsa doll for my mother-in-law...) so I took the
opportunity to browse the games aisle to see if they had any of my
old favorites. Sure enough, there was "Battleship" and even though it
was recommended for ages eight and above I purchased it to play with
my son. He was excited when I got home and we immediately set out
trying to sink each other's fleet.
The fundamental ability needed to play this game is that you be able to
reference a point on a grid via two coordinates (same as finding a city
on a roadmap, a cell in a spreadsheet, longitude/latitude, etc.). My
son has become quite adept at this and not only can sink my ships but
find different places on a map (you can even make a game out of doing
this). I'm glad I found "Battleship" as "Candy Land" was getting pretty
old and I HAD started to put on weight...
Oh yeah, a word of caution: the fundamental ability needed to WIN at
"Battleship" is to be able to conduct binary search patterns. Although
my son would score some quick sinkings, I would usually end up winning
the game and this sometimes led to frustration. What I did was hack
together a DCL "Battleship" Simulator which he can play to effectively
learn "seek and destroy" methodology. I have included a copy at the end
of this reply if anyone is interested in trying this technique...
So, has anyone tried this with their daughter?
$ SET TERMINAL/NOBROADCAST
$ BEL[0,7] = 7
$ ESC[0,7] = 27
$ W = "WRITE SYS$OUTPUT"
$ NOAT = "''ESC'[0m"
$ BOLD = "''ESC'[1m"
$ REV = "''ESC'[7m"
$ COL80 = "''ESC'[?3l"
$ GAME_DONE = "No"
$ HORIZONTAL = "0,2,4,6,8"
$ ROW_LIST = "Z00,A03,B05,C07,D09,E11,F13,G15,H17,I19,J21"
$ PREVIOUS = ""
$ CARRIER = ""
$ BATTLESHIP = ""
$ CRUISER = ""
$ SUBMARINE = ""
$ DESTROYER = ""
$ ALL_SHIPS = ""
$ RDR_OFFSET = 0
$ CARRIER_HITS = 0
$ BATTLESHIP_HITS = 0
$ CRUISER_HITS = 0
$ SUBMARINE_HITS = 0
$ DESTROYER_HITS = 0
$ SHOTS_FIRED = 0
$ W COL80
$ W " 1 2 3 4 5 6 7 8 9 10"
$ W " ''ESC'(0lqqwqqwqqwqqwqqwqqwqqwqqwqqwqqk''ESC'(B"
$ W " A''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " B''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " C''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " D''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " E''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " F''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " G''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " H''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " I''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0tqqnqqnqqnqqnqqnqqnqqnqqnqqnqqu''ESC'(B"
$ W " J''ESC'(0x x x x x x x x x x x''ESC'(B"
$ W " ''ESC'(0mqqvqqvqqvqqvqqvqqvqqvqqvqqvqqj''ESC'(B"
$ W " "
$ W "''ESC'[3;40fDCL ''REV' B A T T L E S H I P ''NOAT'"
$ IF "''P1'" .NES. ""
$ THEN
$ GOSUB ENTER_SHIP_COORDINATES
$ ELSE
$ GOSUB COMPUTER_ASSIGN_SHIP_COORDINATES
$ ENDIF
$GET_COORDINATES:
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[22;40fEnter Coordinates: ___ " SYS$INPUT COORDINATES
$ IF "RADAR" .EQS. F$EDIT(COORDINATES,"UPCASE")
$ THEN
$ COORDINATES = ""
$ GOTO RADAR_SCAN
$ ENDIF
$ ROW_LET = F$EDIT(F$EXTRACT(0,1,COORDINATES),"UPCASE")
$ IF F$LOCATE("''ROW_LET'",ROW_LIST) .EQ. F$LENGTH(ROW_LIST)
$ THEN
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''BEL'''ESC'[23;1fROW must ''BEL'be a letter from A thru J...''BEL'" SYS$INPUT COORDINATES
$ W "''ESC'[23;1f''ESC'[K"
$ GOTO GET_COORDINATES
$ ENDIF
$ ROW = F$EXTRACT(F$LOCATE("''ROW_LET'",ROW_LIST)+1,2,ROW_LIST)
$ COL_NUM = F$INTEGER(F$EXTRACT(1,F$LENGTH(COORDINATES)-1,COORDINATES))
$ IF COL_NUM .LT. 1 .OR. COL_NUM .GT. 10
$ THEN
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''BEL'''ESC'[23;1fCOLUMN must ''BEL'be a number from 1 thru 10...''BEL'" SYS$INPUT COORDINATES
$ W "''ESC'[23;1f''ESC'[K"
$ GOTO GET_COORDINATES
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",PREVIOUS) .NE. F$LENGTH(PREVIOUS)
$ THEN
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''BEL'''ESC'[23;1fThose Coordinates were ''BEL'already fired upon...''BEL'" SYS$INPUT COORDINATES
$ W "''ESC'[23;1f''ESC'[K"
$ GOTO GET_COORDINATES
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",ALL_SHIPS) .NE. F$LENGTH(ALL_SHIPS)
$ THEN
$ HIT_OR_MISS = "''BEL'''REV'()''NOAT'''BEL'"
$ GOSUB RECORD_A_HIT
$ ELSE
$ HIT_OR_MISS = "()"
$ ENDIF
$ COL = (3 * COL_NUM) + 3
$ W "''ESC'[''ROW';''COL'f''HIT_OR_MISS'"
$ SHOTS_FIRED = SHOTS_FIRED + 1
$ W "''ESC'[6;40fShots Fired: ''SHOTS_FIRED'"
$ PREVIOUS = PREVIOUS + "''ROW_LET'''COL_NUM',"
$ IF "''GAME_DONE'" .EQS. "Yes" -
THEN GOTO EXIT_GAME
$ GOTO GET_COORDINATES
$ENTER_SHIP_COORDINATES:
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[23;1fCarrier (5 squares) Coordinates: " SYS$INPUT CARRIER
$ W "''ESC'[23;1f''ESC'[K"
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[23;1fBattleship (4 squares) Coordinates: " SYS$INPUT BATTLESHIP
$ W "''ESC'[23;1f''ESC'[K"
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[23;1fCruiser (3 squares) Coordinates: " SYS$INPUT CRUISER
$ W "''ESC'[23;1f''ESC'[K"
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[23;1fSubmarine (3 squares) Coordinates: " SYS$INPUT SUBMARINE
$ W "''ESC'[23;1f''ESC'[K"
$ DEFINE/USER_MODE/NOLOG SYS$INPUT SYS$COMMAND
$ READ/ERROR=EXIT_GAME/PROMPT="''ESC'[23;1fDestroyer (2 squares) Coordinates: " SYS$INPUT DESTROYER
$ W "''ESC'[23;1f''ESC'[K"
$ ALL_SHIPS = "''CARRIER'''BATTLESHIP'''CRUISER'''SUBMARINE'''DESTROYER'"
$ RETURN
$COMPUTER_ASSIGN_SHIP_COORDINATES:
$ ALL_SHIPS = "''CARRIER'''BATTLESHIP'''CRUISER'''SUBMARINE'''DESTROYER'"
$ RANDOM12 = F$CVTIME(F$TIME(),,"HUNDREDTH")
$ RANDOM1 = F$INTEGER(F$EXTRACT(0,1,RANDOM12))
$ RANDOM2 = F$INTEGER(F$EXTRACT(1,1,RANDOM12))
$ HOR_VERT = "Vertical"
$ IF F$LOCATE("''RANDOM2'",HORIZONTAL) .NE. F$LENGTH(HORIZONTAL) -
THEN HOR_VERT = "Horizontal"
$ IF RANDOM1 .EQ. 0 THEN RANDOM1 = 10
$ IF RANDOM2 .EQ. 0 THEN RANDOM2 = 10
$COMPUTER_ASSIGN_CARRIER:
$ IF "''CARRIER'" .NES. "" THEN GOTO COMPUTER_ASSIGN_BATTLESHIP
$ PLUS_MINUS = "+"
$ IF "''HOR_VERT'" .EQS. "Horizontal" .AND. RANDOM2 .GT. 6 THEN PLUS_MINUS = "-"
$ IF "''HOR_VERT'" .EQS. "Vertical" .AND. RANDOM1 .GT. 6 THEN PLUS_MINUS = "-"
$ GEN_COOR = ""
$ GOSUB COMPUTE_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ CARRIER = "''GEN_COOR'"
$ GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$COMPUTER_ASSIGN_BATTLESHIP:
$ IF "''BATTLESHIP'" .NES. "" THEN GOTO COMPUTER_ASSIGN_CRUISER
$ PLUS_MINUS = "+"
$ IF "''HOR_VERT'" .EQS. "Horizontal" .AND. RANDOM2 .GT. 7 THEN PLUS_MINUS = "-"
$ IF "''HOR_VERT'" .EQS. "Vertical" .AND. RANDOM1 .GT. 7 THEN PLUS_MINUS = "-"
$ GEN_COOR = ""
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ BATTLESHIP = "''GEN_COOR'"
$ GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$COMPUTER_ASSIGN_CRUISER:
$ IF "''CRUISER'" .NES. "" THEN GOTO COMPUTER_ASSIGN_SUBMARINE
$ PLUS_MINUS = "+"
$ IF "''HOR_VERT'" .EQS. "Horizontal" .AND. RANDOM2 .GT. 8 THEN PLUS_MINUS = "-"
$ IF "''HOR_VERT'" .EQS. "Vertical" .AND. RANDOM1 .GT. 8 THEN PLUS_MINUS = "-"
$ GEN_COOR = ""
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ CRUISER = "''GEN_COOR'"
$ GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$COMPUTER_ASSIGN_SUBMARINE:
$ IF "''SUBMARINE'" .NES. "" THEN GOTO COMPUTER_ASSIGN_DESTROYER
$ PLUS_MINUS = "+"
$ IF "''HOR_VERT'" .EQS. "Horizontal" .AND. RANDOM2 .GT. 8 THEN PLUS_MINUS = "-"
$ IF "''HOR_VERT'" .EQS. "Vertical" .AND. RANDOM1 .GT. 8 THEN PLUS_MINUS = "-"
$ GEN_COOR = ""
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ SUBMARINE = "''GEN_COOR'"
$ GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$COMPUTER_ASSIGN_DESTROYER:
$ IF "''DESTROYER'" .NES. "" THEN RETURN
$ PLUS_MINUS = "+"
$ IF "''HOR_VERT'" .EQS. "Horizontal" .AND. RANDOM2 .GT. 9 THEN PLUS_MINUS = "-"
$ IF "''HOR_VERT'" .EQS. "Vertical" .AND. RANDOM1 .GT. 9 THEN PLUS_MINUS = "-"
$ GEN_COOR = ""
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ GOSUB COMPUTE_COORDINATES
$ IF "''COOR_ALREADY_USED'" .EQS. "Yes" THEN GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$ DESTROYER = "''GEN_COOR'"
$ GOTO COMPUTER_ASSIGN_SHIP_COORDINATES
$COMPUTE_COORDINATES:
$ ROW1 = F$EXTRACT(0,1,F$ELEMENT(RANDOM1,",",ROW_LIST))
$ COOR = "''ROW1'''RANDOM2',"
$ COOR_ALREADY_USED = "No"
$ IF F$LOCATE("''COOR'",ALL_SHIPS) .NE. F$LENGTH(ALL_SHIPS)
$ THEN
$ COOR_ALREADY_USED = "Yes"
$ ENDIF
$ GEN_COOR = GEN_COOR + "''COOR'"
$ IF "''HOR_VERT'" .EQS. "Horizontal" THEN RANDOM2 = RANDOM2 'PLUS_MINUS' 1
$ IF "''HOR_VERT'" .EQS. "Vertical" THEN RANDOM1 = RANDOM1 'PLUS_MINUS' 1
$ RETURN
$RECORD_A_HIT:
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",CARRIER) .NE. F$LENGTH(CARRIER)
$ THEN
$ CARRIER_HITS = CARRIER_HITS + 1
$ W "''ESC'[9;40fAircraft Carrier has ''CARRIER_HITS' hit(s) out of 5..."
$ GOTO RECORD_A_HIT_RETURN
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",BATTLESHIP) .NE. F$LENGTH(BATTLESHIP)
$ THEN
$ BATTLESHIP_HITS = BATTLESHIP_HITS + 1
$ W "''ESC'[10;40fBattleship has ''BATTLESHIP_HITS' hit(s) out of 4..."
$ GOTO RECORD_A_HIT_RETURN
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",CRUISER) .NE. F$LENGTH(CRUISER)
$ THEN
$ CRUISER_HITS = CRUISER_HITS + 1
$ W "''ESC'[11;40fCruiser has ''CRUISER_HITS' hit(s) out of 3..."
$ GOTO RECORD_A_HIT_RETURN
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",SUBMARINE) .NE. F$LENGTH(SUBMARINE)
$ THEN
$ SUBMARINE_HITS = SUBMARINE_HITS + 1
$ W "''ESC'[12;40fSubmarine has ''SUBMARINE_HITS' hit(s) out of 3..."
$ GOTO RECORD_A_HIT_RETURN
$ ENDIF
$ IF F$LOCATE("''ROW_LET'''COL_NUM',",DESTROYER) .NE. F$LENGTH(DESTROYER)
$ THEN
$ DESTROYER_HITS = DESTROYER_HITS + 1
$ W "''ESC'[13;40fDestroyer has ''DESTROYER_HITS' hit(s) out of 2..."
$ GOTO RECORD_A_HIT_RETURN
$ ENDIF
$RECORD_A_HIT_RETURN:
$ IF CARRIER_HITS .EQ. 5 -
THEN W "''ESC'[9;40fAircraft Carrier has been SUNK! "
$ IF BATTLESHIP_HITS .EQ. 4 -
THEN W "''ESC'[10;40fBattleship has been SUNK! "
$ IF CRUISER_HITS .EQ. 3 -
THEN W "''ESC'[11;40fCruiser has been SUNK! "
$ IF SUBMARINE_HITS .EQ. 3 -
THEN W "''ESC'[12;40fSubmarine has been SUNK! "
$ IF DESTROYER_HITS .EQ. 2 -
THEN W "''ESC'[13;40fDestroyer has been SUNK! "
$ IF CARRIER_HITS .EQ. 5 .AND. -
BATTLESHIP_HITS .EQ. 4 .AND. -
CRUISER_HITS .EQ. 3 .AND. -
SUBMARINE_HITS .EQ. 3 .AND. -
DESTROYER_HITS .EQ. 2 -
THEN GAME_DONE = "Yes"
$ RETURN
$RADAR_SCAN:
$ IF RDR_OFFSET .EQ. F$LENGTH(ALL_SHIPS)
$ THEN
$ W "''ESC'[23;1f "
$ GOTO EXIT_GAME
$ ENDIF
$ COOR_CHAR = F$EXTRACT(RDR_OFFSET,1,ALL_SHIPS)
$ IF COOR_CHAR .EQS. ","
$ THEN
$ ROW_LET = F$EDIT(F$EXTRACT(0,1,COORDINATES),"UPCASE")
$ ROW = F$EXTRACT(F$LOCATE("''ROW_LET'",ROW_LIST)+1,2,ROW_LIST)
$ COL_NUM = F$INTEGER(F$EXTRACT(1,F$LENGTH(COORDINATES)-1,COORDINATES))
$ COL = (3 * COL_NUM) + 3
$ W "''ESC'[''ROW';''COL'f''REV' ''NOAT'"
$ COOR_CHAR = ""
$ COORDINATES = ""
$ ENDIF
$ COORDINATES = COORDINATES + "''COOR_CHAR'"
$ RDR_OFFSET = RDR_OFFSET + 1
$ GOTO RADAR_SCAN
$EXIT_GAME:
$ SET TERMINAL/BROADCAST
$ W "''ESC'[22;1f"
$ EXIT
|
| 140.24 | re .0 | DECALP::GUTZWILLER | happiness- U want what U have | Thu Nov 03 1994 13:22 | 22 |
| actually, asking for directions, when you're travelling, is a fun way to meet
the locals! so what's wrong with asking for directions? on the other hand, when
you're methodical in getting to where you want to get to and pool your efforts
together when there's more than one travelling, the need for asking directions
hardly ever arises...!!! :-)
i am just back from a month long vacation which consisted of touring several
european countries and countless cities. in that time i stopped to ask for
directions just once. well all i ever did was to get to the town center and
then out again. for keeping general orientation, my european road atlas
depicting all major routes would suffice in most cases, and in towns where i'd
stay for a while, i'd get a city map from the tourist office.
since i was travelling with my kids (ages nine and seven), it occurred to me,
that when i was travelling with my dad as a kid, it always seemed to me then
as if he knew where he was going like he already knew the place and that i
must be giving the same impression to my kids, with regards to general
direction. as regards the detailed work, involving the children in the search
was both a great help to me and a lot of fun for them.
andreas.
|
| 140.25 | | BSS::RALSTON | Individualists Unite | Thu Nov 03 1994 16:10 | 11 |
| RE: Note 140.24
DECALP::GUTZWILLER
>actually, asking for directions, when you're travelling, is a fun way to meet
>the locals! so what's wrong with asking for directions?
Except if you are somewhere where you can't understand what they are
saying. I remember getting gas in Tennessee once. I was embarrassed
when I couldn't understand when the guy asked if he could check my oil.
..Tom
|
| 140.26 | It's actually quite natural! | CGOOA::MALONE | Pleasantly Obtuse | Fri Dec 23 1994 10:26 | 13 |
| ...Your all missing a very important point here. Men have an
instinctive need to explore the unknown. We like to hang out at the
fringe. Theres an edge we are always looking for, which gives us a sense
of purpose and fulfillment. Anything that is a challenge intrigues us.
We believe there is nothing that cannot be worked out with a little
logic. It's genetic!
I believe there are some basic differences between men and women,
and I am not refering to the obvious. This need to push beyond what is
comfortable and familiar is just human nature. Men seem to possess
this trait more so than woman. The reason we won't ask for directions,
can be traced back to our ancestry and the "Thrill of the hunt".
Rod
|
| 140.27 | are we sure? | CSSE::NEILSEN | Wally Neilsen-Steinhardt | Tue Dec 27 1994 12:55 | 19 |
| > instinctive need
...
> It's genetic!
When we talk about what is instinctive, we usually point to evidence showing
that some behavior exists in individuals with no contact with others of their
own species. Otherwise we could be confusing something individuals are taught
with something instinctive.
When we talk about what is genetic, we usually point to inheritance patterns
like those of Mendelian genetics. In favorable cases, we can associate genetic
traits with particular markers on chromosomes.
Do we have any evidence like this?
If not, I'll suggest an alternative. The need for independence and certainty
are partially taught. In my culture, they are taught more strongly to men than
to women.
|
| 140.28 | Instinctive Yes/No! | CGOOA::MALONE | Obtuse | Wed Dec 28 1994 12:57 | 13 |
|
>When we talk about what is instinctive, we usually point to evidence
showing that some behavior exists in individuals with no contact with
others of their own species. Otherwise we could be confusing something
individuals are taught with something instinctive.
-It's definitely instinctive, as our avoidance of communication with
others to obtain directions re-inforces the instinctive behaviour!
Rod
|
| 140.29 | | LASSIE::TRAMP::GRADY | Stop The Violins. | Wed Dec 28 1994 13:38 | 6 |
| > -It's definitely instinctive, as our avoidance of communication with
> others to obtain directions re-inforces the instinctive behaviour!
Yup. Right up there with the instinctive need to maintain control
of the remote control...;-)
|
| 140.30 | Ahhh! the remote..a moment of silence please! | CGOOA::MALONE | Obtuse | Wed Dec 28 1994 17:43 | 7 |
| I think that remote control ownership/rights falls under the
constitution in all countries, which rightly supports the instinctive
ownership issue. Give me a car without a map, and a remote control,
and there is nowhere I cannot go, and nothing I cannot see...
Rod
|
| 140.31 | maps don't lie--do they? | CSC32::HADDOCK | Saddle Rozinante | Thu Dec 29 1994 10:17 | 13 |
|
I can usually find just about anything if I have a map. However,
I have had a couple incidents where the map has been incorrect
or incomplete. One such incident was when I ended up out in the
middle of the boonies in Washington state on my way back from Canada
because the map showed the road going through to another road
when it didn't.
Another was when I found myself wandering around a rather unhealthy
part of Dallas with a simi-trailer truck at 3 a.m. after I encountered
an underpass that my truck wouldn't clear.
fred();
|
| 140.32 | | WONDER::REILLY | Sean / Alpha Servers DTN:223-4375 | Thu Feb 02 1995 19:40 | 6 |
|
Stephen King has a *great* short story out called "You know they got
a hell of a band" that describes the consequences of a man's driving
stubbornness vs. a woman's.
- Sean
|
| 140.33 | | MKOTS3::RAUH | I survived the Cruel Spa | Fri Feb 03 1995 09:54 | 1 |
| .32 How nice.....
|
| 140.34 | .33 | PIET01::TRUDEAU | | Mon Feb 06 1995 13:20 | 3 |
| re: .33
no *wonder* entries in here are so few and far between.
|
| 140.35 | | MKOTS3::RAUH | I survived the Cruel Spa | Tue Feb 07 1995 08:20 | 1 |
| .34 Watchin Ophra?
|
| 140.36 | :-) | PIET01::TRUDEAU | | Tue Feb 07 1995 12:17 | 3 |
|
who?
|