Crowther's Original Adventure Source Code Found 309
drxenos writes "I don't know how many of you are fans of old-school text adventures (interactive fiction), but Will Crowther's original Fortran source code has been located in a backup of Don Woods's old student account. For fans like me, this is like finding the Holy Grail."
THIS IS A HOAX (Score:3, Funny)
Re:THIS IS A HOAX (Score:5, Funny)
Well, calling it a "programming language" certainly qualifies as "fantasy"...
/ Props to HPF, though
The Fortran gods shall smite thee (Score:5, Funny)
c-----
IMPLICIT NONE ! Catch typos and un-initialized variables.
integer IERR_smite
character*200 ch_name
c-----
write(6,1)
1 FORMAT(/,' This is one smiting program!',/,
& ' Enter name of smitee --> ',$)
read(*,fmt='(A)') ch_name
DO while(.TRUE.) ! Endless smiting loop.
call smite(ch_name, IERR_smite)
if(IERR_smite.GT.0) goto 20
End DO ! smite loop.
20 CONTINUE
write(*,*)' Done smiting.'
if(IERR_smite.LT.0) then
write(6,2) IERR_smite
2 FORMAT(' ***Possible smiting error, IERR_smite = ',I)
endif
STOP
END
c-----
c End of Main.
c-----
Re:The Fortran gods shall smite thee (Score:4, Insightful)
Stop picking on Fortran, and stop using PHP! (Score:2, Insightful)
Hey, stop picking on Fortran. Sure it's a lame language, but it has an excuse: it's very old now, and didn't know any better at the time, when computer science was young.
PHP is MUCH WORSE than Fortran, yet it was written many years later. The foolish PHP implementors had no excuse to make such a horrible language. They could have learned from the mistakes of the past, but instead they repeated them much worse, and added many original mistakes that nobody had even been stupid enough to make before.
-Do
rogue for me (Score:2, Insightful)
Re: (Score:3, Funny)
A good example of how coding has progressed (Score:5, Interesting)
I looked at the various FORTRAN files and am amazed at the spaghetti GOTO maze which, although messy, was probably the only way to do things in FORTRAN at the time with no structuring capability.
A random example:
IF(K.NE.1) MASK1="177*M2(K)
IF(((A(J).XOR."201004020100).AND.MASK1).EQ.0)GOTO 3
IF(S.EQ.0) GOTO 2
Wow! Is that the opposite of self-documenting code or what?
Re: (Score:2, Funny)
Looking upon this madness leads only to ruin!
Re:A good example of how coding has progressed (Score:5, Funny)
Re:A good example of how coding has progressed (Score:5, Funny)
Re: (Score:2)
GOTO (5014,5000,2026,2010)KQ
PAUSE 'NO NO'
2026 JVERB=K
JSPK=JSPKT(JVERB)
IF(JTWO.NE.0)GOTO 2028
IF(JOBJ.EQ.0)GOTO 2036
2027 GOTO(9000,5066,3000,5031,2009,5031,9404,9406,5081
1 5200,5300,5506,5502,5504,5505)JVERB
Re:A good example of how coding has progressed (Score:5, Interesting)
2027 is similar, there's just a lot more possible values. That rogue 1 is a continuation indicator, it would have been in column 6 on your punch card.
Re: (Score:2)
Re: (Score:3, Interesting)
The TRULY calculated GOTO/GOSUB statement!
On a Beeb or Speccy, you could quite happily write stuff like
50 INPUT A
55 IF A<1 OR A>5 THEN GOTO 50
60 GOTO 900+100*A
This sort of thing didn't work on machines running Microsoft BASIC (which even used to throw a hissy fit if you tried to GOTO a non-existent line number. Beebs and Speccies just carried on from the next higher line number. Meant you could aim GOTO statements at REM statements without
Re: (Score:2)
The decimal line numbering IS totally classic, though. Integer BASIC on the Apple had one main disadvantage when compared to Applesoft BASIC, and that was that all numbers were inte
Re: (Score:3, Funny)
Re: (Score:3, Interesting)
Re: (Score:3, Informative)
In a way, it wasn't a dead end. The computed goto is the ancestor of the switch construct of languages like C. The difference is that with a switch the consequents are associated with the trigger values, whereas the computed goto keeps all the trigger values grouped together.
Re: (Score:3, Interesting)
In fact, a switch in Java gets compiled into a computed goto in jasmin.
If I remember my FORTRAN at all... (Score:2)
2027 ON JVERB GOTO 9000,5066,3000,5031,2009,5031,9404,9406,5081,5200, 5200,5300,5506,5502,5504,5505
i.e. a multiple-branch GOTO where the destination depends on the value of JVERB. That extra "1" on the second line indicatates that line 2027 got split over two physical lines; FORTRAN dates back to the days of 80-column punch cards.
Re: (Score:2)
Re:A good example of how coding has progressed, (Score:5, Interesting)
http://www.literateprogramming.com/adventure.pdf [literateprogramming.com]
Re: (Score:3, Funny)
Wow! Is that the opposite of self-documenting code or what?
Well...it doesn't *look* like Perl...
Re: (Score:2)
goto +(9000,5066,3000,5031,2009,5031,9404,9406,5081, 5200,5200,5300,5506,5502,5504,5505)[$jverb];
(You need the + to force the expression to be evaluated in a scalar context. In perl 5, unary + coerces to scalar. In perl 6, if it's ever released, unary + will coerce to numeric and unary ~ -- the tilde is the "new" string-joining operator, taking the place of . which is now used instead of -> -- will coerce to string. Presumably there's a whole new
Re:A good example of how coding has progressed (Score:4, Interesting)
Re: (Score:3, Funny)
I would call it self-obfuscating.
Re:A good example of how coding has progressed (Score:5, Insightful)
But here's a sobering thought: Dijkstra launched his attack on the goto statement [acm.org] in 1968. Every programmer who's grown up with block structured languages would take it as a given that Dijkstra was right. But at the time, the concept was extremely controversial, and there was a lot of resistance — as evidenced by the fact that Crowther and Wood were still using computed gotos in 1976!
Re: A good example of how coding has progressed (Score:4, Funny)
Re: (Score:3, Interesting)
Re:A good example of how coding has progressed (Score:5, Informative)
So the little snippet you posted goes to label 3 if the current character (selected by J for the integer and K for the character within the integer) is a space, and to 2 if no space has been found yet, and continues without branching if a space has been found but the current character is not a space.
If A were, more sensibly, a character array, the above would be written as
IF(A(J:J).EQ.' ')GOTO 3
IF(S.EQ.0) GOTO 2
which is no problem to read at all, despite the gotos.
Found? When was it lost? (Score:5, Funny)
Re:Found? When was it lost? (Score:4, Funny)
I've also got a programming card for an 029 and COBOL.
We were the sneaky bastards that used to put random comments and unused character strings into the code to thwart people like you. Then I graduated and became a people like you. And was constantly thwarted by people like me.
OS 360, RSX11D, RSX11M, VMS. RIP.
Re:Found? When was it lost? (Score:4, Interesting)
Re: (Score:3, Funny)
I must not be old enough (Score:3, Informative)
William ("Willie" or "Will") Crowther (born 1936) is a computer programmer and caver. He is best known as the co-creator of Colossal Cave Adventure, a seminal computer game that influenced the first decade of game design and created a new game genre, text adventures.
[edit] Biography
During the early 1970s Crowther worked at defense contractor and Internet pioneer Bolt, Beranek and Newman (BBN). Following his divorce from his wife Patricia, Crowther began using his spare time to develop a simple text-based adventure game in FORTRAN on BBN's PDP-10. He created it as a diversion his daughters Sandy and Laura could enjoy when they came to visit. (Montfort, 2003, pp. 85-87)
In Adventure, the player moves around an imaginary cave system by entering simple, two-word commands and reading text describing the result. Crowther used his extensive knowledge of cave exploration as a basis for the game play, and there are many similarities between the locations in the game and those in Mammoth Cave, particularly its Bedquilt section. (Montfort, 2003, p. 88) In 1975 Crowther released the game on the early ARPANET system, of which BBN was a prime contractor. (Montfort, 2003, p. 89)
In the Spring of 1976, he was contacted by Stanford researcher Don Woods, seeking his permission to enhance the game. Crowther agreed, and Woods developed several enhanced versions on a PDP-10 housed in the Stanford Artificial Intelligence Laboratory (SAIL) where he worked. (Montfort, 2003, p. 89) Over the following decade the game gained in popularity, being ported to many operating systems, including personal-computer platform CP/M.
The basic game structure invented by Crowther (and based in part on the example of the ELIZA text parser) was carried forward by the designers of later adventure games. Marc Blank and the team that created the Zork adventures cite Adventure as the title that inspired them to create their game. They later founded Infocom and published a series of popular text adventures.
The location of the game in Colossal Cave was not a coincidence. Will and his first wife Pat Crowther were active and dedicated cavers in the 1960s and early 1970s--both were part of many expeditions to connect the Mammoth and Flint Ridge cave systems. Pat played a key role in the September 9, 1972 expedition that finally made the connection. (Brucker, 1976, p. 299)
Will has also played an important role in the development of rock climbing in the Shawangunks in New York State. He began climbing there in the 1950s and continues to climb today. He made the first ascent of several classic routes including Arrow, Hawk, Moonlight, and Senté. Some of these routes sparked controversy because protection bolts were placed on rappel; a new tactic that Crowther and a several others began to use at the time. The community reaction to this technique was an important part of the evolution of climbing ethics in the Shawangunks and beyond.
Re:I must not be old enough (Score:5, Informative)
The same thing leaving a campsite better than you found it has to do with ethics, or not littering has to do with ethics. Altering the environment and depriving others of potential experiences is an ethical issue.
A quick Googling [google.com] will reveal that "climbing ethics" is not an invention of the Wikipedia author, but is an active area of discussion among climbers.
Re: (Score:2)
Holy Grail (Score:2, Insightful)
This, is probably the same.
Re: (Score:2)
Re: (Score:3, Funny)
Then your fandom is WEAK.
at last! (Score:4, Funny)
I was at my wit's end (Score:2, Funny)
--
phunctor
This is very important (Score:2, Insightful)
Full source published (Score:2)
Re: (Score:2)
Re: (Score:3, Informative)
Re: (Score:2, Informative)
http://www.russotto.net/~russotto/ADVENT/ [russotto.net]
http://www.ifarchive.org/if-archive/unprocessed/ad v_crowther_win.zip [ifarchive.org]
That file will move eventually... you will probably be able to find it from here:
http://www.wurb.com/if/person/2 [wurb.com]
There are also photos of the inside of the real Colossal Cave, including photos of what
Re: (Score:2)
Re: (Score:2, Informative)
Re: (Score:2)
Re: (Score:3, Informative)
Not sure if they have the issue you mention though.
History - Looking for Scheme tarball 1986-87 era (Score:4, Interesting)
Fight the power (Score:2, Informative)
Re: (Score:2)
Re: (Score:2, Interesting)
At Last! (Score:3, Funny)
Re: (Score:2, Funny)
EAMON!!!! (Score:4, Interesting)
This was fun. I remember running it on a teletype terminal in programming class (damn, thats old) BANG BANG BANG BANG BANG. You couldn't do a quick CLS to hide the evidence when the instructor came by, "Do you think paper grows on trees?" he yell. Of course all was forgiven when we showed him our course work was done. Then, he made us write our own dungeon code.
Much later, Don Brown(?) came out with EAMON [wikipedia.org], with a write your own framework. Fun fun fun.
Rel. Links (Score:2)
Original source, ported to g77 [russotto.net]
The above, compiled as a windows binary [ifarchive.org]
Does anyone remember... (Score:2)
Man, that game was just so much freaking fun; I can still see that little bird driving the snake away to this day.
XYZZY forever, baby!
Re: (Score:2)
C Source code in OpenBSD (Score:2)
ftp://ftp.openbsd.org/pub/OpenBSD/src/games/advent ure [openbsd.org]
I first played Adventure in 1979 via a TI Silent 700 [texasinstr...epairs.com] thermal paper terminal (with built in 300 baud acoustic modem) connected to a PDP-11/83 [pdp11.co.uk] running Seventh Edition UNIX [wikipedia.org] at Bell Labs. Yep, I'm that old.
Original Zork source code in MDL (Score:5, Interesting)
Zork was the reason I got on the ARPANET, back around 1980 or so. I was using Bruce's Northstar BBS that had an adventure game that Bruce had written in Basic, and he told me how to play Zork: first, dial up the NBS TIP, connect to MIT-AI (the command was "@L 134", because the ARPANET had 8 bit host numbers, and AI was 134), and apply for an account to learn Lisp. Once that was granted, I connected to MIT-DM ("@L 70"), and logged in as URANUS, password RINGS, used :CHUNAME to change my user name, and waited until one of the two people playing Zork quit, to take their slot. Later somebody told me the magic words to use to get an account on DM, so I applied for my own account on DM, claiming that I wanted to "Learn MDL for calculus and algebraic applications". The source code to Zork was well hidden. DM ran a weird version of ITS that had some kind of file security or cloaking, it was rumored. I was always looking for the Zork sources, but never found it on DM.
Years later I googled for a unique phrase that was only in the original DM version of Zork, and this URL popped up: http://retro.co.za/adventure/zork-mdl/ [retro.co.za]
The original MDL source to Zork is really beautiful code that's almost as fun to read as it was to play. I had discovered a bug in the InfoCom version of Zork, which turned out to be in the original sources. When you're fighting the troll who's wielding an Axe, you can give anything to the troll and he will eat it. So I tried "give axe to troll" and he ate his axe, then cowered in the corner! Better yet you can go "give troll to troll" and he will eat himself and disappear, unfortunately not clearing the troll flag that is required to leave the room, so if you try to leave it prints a message saying the troll fends you off with a menacing gesture, and stops you from leaving. Sure enough, in the original sources [retro.co.za], there is a troll flag!
-Don
Re:Original Zork source code in MDL (Score:5, Funny)
That was a great story the last time you told it [slashdot.org], too.
ancient text-based games (Score:3, Interesting)
Is it just me...? (Score:2)
Re:Is it just me...? (Score:5, Insightful)
Compiled binaries for Windows (Score:3, Informative)
Have a look:
http://www.ifarchive.org/if-archive/unprocessed/a
Not my work BTW. Credit goes to the crew on rec.arts.int-fiction.
Now I REALLY feel old... (Score:3, Interesting)
I worked down the hall from Willie Crowther when I was at BBN, and I asked him about why he wrote it ("I had some ideas on parsing response analysis I wanted to try"). I think I at least used to have a copy of the Fortran source code salted away on my account somewhere, though I'd probably have a problem laying my hands on it now. I just wasn't aware that anyone was looking for it.
Re:This sounds familiar (Score:5, Funny)
Reversed causation (Score:5, Interesting)
Re:This sounds familiar (Score:4, Interesting)
xyzzy
Re: (Score:2)
Re: (Score:2)
i got into computing in 1987 with an 8088 (with a whooping 20mb hd!) i did the unix/dos thing until 92 when i got my hands on windows 3.1. funny thing is my mom actually taught me fortran, which i had zero use for. thats about when i hit the demo scene....
Why it was special... (Score:2)
I'm not sure I can explain the sense of wonder. It was like the first time I got my modem working and realized I was _connected_to_another_computer! It was amazing to be able to type in a command or a question and have the computer _talk_back_to_you. Even though we all _knew_ it wasn't real AI, it felt like AI.
It wasn't the format of the _game_ that was special. Like was said, there were books that could do something similar. It was the fact that you were,
Re:Why it was special... (Score:5, Funny)
When I finally finished it, the screen cleared and an operator in the computer centre was typing to me and asking me to come over to the centre. I figured I'd been sprung for all the extra time I'd 'arranged', but instead they gave me printout and iducted me into the Order of Wizards!
A nerdy proud moment... (I wish I hadn't lost that printout in the intervening decades and moves.)
Cool (Score:2)
Re: (Score:2)
I encountered it as an engineering undergrad, on a university Cyber 204 or 205 mainframe, the first computer I'd ever used. I had to hack extra console time via various means to complete it, using a mega flowchart I drew up as I went.
When I finally finished it, the screen cleared and an operator in the computer centre was typing to me and asking me to come over to the centre. I figured I'd been sprung for all the extra time I'd 'arranged', but instead they gave me printout and iducted me into the Order of Wizards!
A nerdy proud moment... (I wish I hadn't lost that printout in the intervening decades and moves.)
That's probably the geekiest thing I've ever read. I'm proud of you. Nothing like that happened for me when I beat The Pit.
Re: (Score:3, Insightful)
Things were so different even just 20 or so years ago. In 1985, I hacked my college's VAX 11/750 to give me all privs. The system manager found me out, and just reset the privs, locked my account for a week, and asked how I did it so he could fix the problem. Wound up doing a lot of work for him until he left for greener pastures. It formally never happened, even though it could certainly have been elevated up the disciplinary chain.
If I did that today, no doubt I would've been kicked out of school, a
Re:This sounds familiar (Score:4, Insightful)
The original Zork games, as well as the rest of the Infocom games were inspired by Adventure to a large degree. It should be noted that because they were text based, some things that would be considered obvious were not necessarily obvious in those days, which added to the puzzle solving aspect of the game.
These days, everything is made almost too obvious, because too many potential customers don't like a challenge(note that many games can be beaten straight out of the box in under 24 hours of playing). Back in those days, a game could take weeks of playing to figure out what to do, beating your head against a problem for several days before a solution would present itself wasn't uncommon.
Then again, it seems that too many people never bother to pick up a book when movies are available, and never realize how horribly the film makers have screwed up a great story, so it's no wonder some people would never understand why text adventures were fun.
Re: (Score:2, Informative)
Re: (Score:2)
Of course, getting onto the vogon ship was pretty early on in the adventure. It's not like buying the stale sandwich at the bar, which is crucial much later on in the game (and I only learned that was the solution by reading t
Re: (Score:2)
[John]
Re: (Score:2, Informative)
A few of the classics are available as free downloads. They became more sophisticated over time. Have a look at Zork [thcnet.net] for an example of one of the popular ones.
So try it (Score:2)
Re: (Score:2)
Though, the very thought of FORTRAN does make me cringe. Too many bad memories of my very first CS class in college. *shudder*
Re: (Score:2)
suso wrote:
PLUGH!
Re: (Score:2)
Re: (Score:2, Informative)
Re: (Score:3, Insightful)
Re:Wow.... (Score:5, Funny)
A> "To Seek the holy grail!"
Q: "what is your favorite text base adventure game?"
A> "Colossal Cave Adventure... NO wait, blue!"
*Gets launched into the death pit*
tttttt
t t
t t
t R I P t
t t
t t
tttttttttttt
Re:Wow.... (Score:5, Funny)
Fine, fine.
For fans like me, this is like finding the Holy Grail.
Drxenos! Drxenos, King of the Nerds! Oh, don't grovel! If there's one thing I can't stand, it's people groveling!
[slightly later]
Behold! Drxenos, this is the Holy Grail of Computer Games. Look well, drxenos, for it is your sacred task to seek this Grail. That is your purpose, drxenos -- the Quest for the Holy Grail of Computer Games: Adventure. And it is written in FORTRAN.
Wait, FORTRAN? Lord, you're kidding right?
[significantly later]
He says they've already got one!
Yes, it's-a verry nice-a. It is-a coded in C.
[substantially later]
We are the Knights Who Say
Augh!!!! Stop it!
[much later]
What is the net speed of an unladen TCP/IP data packet using PPP over a 1200 baud modem?
What do you mean? With or without parity, 7 or 8 bits, with or without flow control?
What? I don't know all that! Auuuuuugh!!!
[slightly later but a little further that the previously-mentioned "slightly later"]
The Castle Stanford. Once we brave its maze of twisty little passages, all alike, our quest is at an end!
Re: (Score:3, Insightful)
Re: (Score:2)
Re: (Score:3, Funny)
To stay properly true to the original, it should just be a film of a roll of paper coming out of a Teletype.
Movie (Score:2)
Re: (Score:2)
Still pouting, Darl? (Score:2)
I know, you've had a bad week. Here, have a cookie.
Re:Wait for the Game... (Score:5, Interesting)
> get box
You now have the box of punchcards.
> input cards
You carefully feed the cards into the card reader.
> look terminal
The terminal says:
YOU ARE STANDING AT THE END OF A ROAD BEFORE A SMALL BRICK
BUILDING. AROUND YOU IS A FOREST. A SMALL
STREAM FLOWS OUT OF THE BUILDING AND DOWN A GULLY.