Anyone have an Apple-1 copy of Hunt the Wumpus?

9 replies [Last post]
Offline
Joined: Oct 9 2011
Posts: 1063

I have a copy of Wumpus that also has "Super Wumpus" you can select at startup of the game, but the problem is Super Wumpus doesn't work.

No biggie, my guess is most of the code was removed to make it fit in the 4k left in the Apple-1 after loading basic. I could remove the Super Wumpus references, but think it's actually better to find an original copy that was written without Super Wumpus in mind.

Does anyone have a copy???

Thanks,
Corey

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
Offline
Joined: Jun 29 2016
Posts: 3
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

I have a copy for 4k Altair 8800 that I hope you can make use of!

<br />
1 REM WUMPUS 1/28/77<br />
2 REM MODIFIED FOR ALTAIR 4K BASIC 10/01<br />
3 REM RECODED -> CHARACTERS, COMPUTED GOTOS, "OR" STATEMENTS, 2-D ARRAY<br />
4 REM            COMPUTED LOGICAL STATEMENTS<br />
10 PRINT"WMP23-HUNT THE WUMPUS"<br />
15 PRINT<br />
20 PRINT "INSTRUCTIONS(1=YES OR 0=NO)";<br />
30 INPUT I<br />
35 REM RANDOMIZE<br />
40 IF I<>1 THEN 70<br />
50 GOSUB 7000<br />
70 REM SET UP CAVE<br />
75 DIM M(8)<br />
77 REM DIM S(20,3) - S() CONVERTED TO 1-D AND PROGRAM MODIFIED<br />
80 DIM S(60)<br />
90 FOR J=1 TO 60<br />
100 READ S(J)<br />
120 NEXT J<br />
130 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6<br />
140 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11<br />
150 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16<br />
160 DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19<br />
200 REM LOCATE M(J) ARRAY ITEMS<br />
210 REM 1,YOU 2,WUMPUS 3&4,PITS 5&6,BATS 7,BLOCKAGE8,EXIT<br />
240 LET W=0<br />
245 LET M1=W<br />
246 LET F=M1<br />
250 FOR J=1 TO 7<br />
260 LET M(J)=INT(1+RND(1)*20)<br />
270 NEXT J<br />
279 REM CHECK FOR CROSSOVERS (IE M(1)=M(2)ETC)<br />
280 FOR J=1 TO 7<br />
290 FOR K=J TO 7<br />
300 IF J=K THEN 330<br />
320 IF M(J)=M(K) THEN 240<br />
330 NEXT K<br />
340 NEXT J<br />
350 LET A=5<br />
360 LET M(8)=M(1)<br />
370 PRINT<br />
380 PRINT "ENTRANCE IS IN CAVE ";M(8)<br />
389 REM MAIN LOOP<br />
390 IF RND(1)<=0.4 THEN 485<br />
400 GOSUB 3370<br />
485 IF RND(1)>=0.08 THEN 2000<br />
490 GOSUB 5000<br />
1999 REM PRINT LOCATION AND HAZARD WARNINGS<br />
2000 PRINT<br />
2010 FOR K=1 TO 3<br />
2020 FOR J=2 TO 6<br />
2025 S0=M(1)+20*(K-1)<br />
2030 IF S(S0) <>M(J) THEN 2110<br />
2050 REM ON J-1 GOTO  2060,2080,2080,2100,2100,2060<br />
2051 J0=J-1<br />
2052 IF J0=1 THEN 2060<br />
2053 IF J0=2 THEN 2080<br />
2054 IF J0=3 THEN 2080<br />
2055 IF J0=4 THEN 2100<br />
2056 IF J0=5 THEN 2100<br />
2057 IF J0=6 THEN 2060<br />
2060 PRINT"I SMELL A WUMPUS"<br />
2070 GOTO 2110<br />
2080 PRINT"I FEEL A DRAFT"<br />
2090 GOTO 2110<br />
2100 PRINT"BATS NEARBY"<br />
2110 NEXT J<br />
2120 NEXT K<br />
2130 PRINT"YOU ARE IN CAVE ";M(1)<br />
2139 REM RINGER SUBROUTINES<br />
2140 LET J=INT(RND(1)*40)<br />
2145 IF J=0 THEN 2440<br />
2146 IF J>7 THEN 2440<br />
2150 REM ON J GOTO 2200,2200,2210,2220,2220,2230,2240,2250<br />
2151 IF J=1 THEN 2200<br />
2152 IF J=2 THEN 2200<br />
2153 IF J=3 THEN 2210<br />
2154 IF J=4 THEN 2220<br />
2155 IF J=5 THEN 2220<br />
2156 IF J=6 THEN 2230<br />
2157 IF J=7 THEN 2240<br />
2158 IF J=8 THEN 2250<br />
2160 GOTO 2440<br />
2200 PRINT"AHA!.WUMPUS TRACKS"<br />
2205 GOTO 2440<br />
2210 PRINT"AHA!..FOUND OLD ARROW, LUCKY YOU"<br />
2213 LET A=A+1<br />
2215 GOTO 2440<br />
2220 PRINT"OOPS, SLIPPED ON SOME LOOSE GRAVEL"<br />
2225 GOSUB 5900<br />
2227 GOTO 2440<br />
2230 PRINT"OOPS, YOU JUST FELL INTO AN UNDERGROUND POOL"<br />
2235 GOSUB 5900<br />
2237 GOTO 2440<br />
2240 PRINT"THIS LOOKS LIKE A NICE CAVE,WHY NOT STOP FOR LUNCH"<br />
2245 GOTO 2440<br />
2250 PRINT"TAKE CARE WITH THAT FLASHLIGHT"<br />
2255 GOTO  2440<br />
2440 PRINT "TUNNELS LEAD TO CAVES ";S(M(1));S(M(1)+20);S(M(1)+40)<br />
2445 PRINT<br />
2449 REM FEARLESS FREDDY STRIKES HERE<br />
2450 IF J<>38 THEN 2500<br />
2460 LET L=M(5)<br />
2470 GOTO 4260<br />
2499 REM CHOOSE OPTION<br />
2500 LET M1=M1+1<br />
2510 PRINT"DO SOMETHING (1=MOVE 2=SHOOT 3=CHECK ARROWS 4=EXIT 5=HELP)";<br />
2520 INPUT I<br />
2530 IF I=2 THEN 3000<br />
2550 IF I=3 THEN 3220<br />
2560 IF I=1 THEN 4000<br />
2570 REM IF (I$="E")*(M(1)=M(8))=1 THEN 8800<br />
2571 IF I<>4 THEN 2580<br />
2572 IF M(1)=M(8) THEN 8800<br />
2580 IF I=5 THEN 2595<br />
2590 GOTO 2500<br />
2595 GOSUB 7600<br />
2597 GOTO 2000<br />
2999 REM ARROW ROUTINE<br />
3000 IF A>=1 THEN 3010<br />
3003 PRINT"WHAT WITH?  DUMMY"<br />
3005 GOTO 390<br />
3010 PRINT "CAVE #";<br />
3012 INPUT L<br />
3015 FOR K=1 TO 3<br />
3016 S0=M(1)+20*(K-1)<br />
3018 IF S(S0)=L THEN 3130<br />
3020 NEXT K<br />
3025 PRINT"NOT POSSIBLE"<br />
3027 GOTO 3010<br />
3129 REM SHOOT ARROW<br />
3130 LET A=A-1<br />
3132 IF A>=0 THEN 3135<br />
3133 LET A=0<br />
3134 GOTO 3220<br />
3135 IF L=M(2) THEN 3140<br />
3137 PRINT "MISSED"<br />
3138 GOTO 3215<br />
3140 IF RND(1)>=0.8 THEN 3150<br />
3142 PRINT "YOU GOT THE WUMPUS"<br />
3144 LET F=F+1<br />
3146 LET M(2)=0<br />
3148 GOTO 4400<br />
3150 PRINT"YOU WOUNDED THE WUMPUS"<br />
3215 GOSUB 3370<br />
3220 PRINT A;"ARROWS LEFT"<br />
3230 GOTO 390<br />
3369 REM MOVE WUMPUS ROUTINE<br />
3370 IF W<>1 THEN 3380<br />
3373 LET M(2)=0<br />
3375 RETURN<br />
3380 REM LET M(2)=S(M(2),(INT(3*RND+1)))<br />
3381 S0=M(2)+20*(INT(3*RND(1)))<br />
3382 M(2)=S(S0)<br />
3385 REM IF (M(1)=M(2))+(L=M(2))+(M(2)=M(7))<>0 THEN 3380<br />
3386 IF M(1)=M(2) THEN 3380<br />
3387 IF L=M(2) THEN 3380<br />
3388 IF M(2)=M(7) THEN 3380<br />
3425 RETURN<br />
3999 REM MOVE ROUTINE<br />
4000 PRINT "WHERE TO";<br />
4010 INPUT L<br />
4020 FOR K=1 TO 3<br />
4025 S0=M(1)+20*(K-1)<br />
4030 IF S(S0)=L THEN 4120<br />
4080 NEXT K<br />
4090 IF L=M(1) THEN 4120<br />
4100 PRINT "NOT POSSIBLE"<br />
4110 GOTO 4000<br />
4119 REM CHECK FOR HAZARDS<br />
4120 IF L<>M(2) THEN 4210<br />
4130 PRINT "OOPS! BUMPED A WUMPUS!"<br />
4140 GOTO 4500<br />
4210 REM IF (L=M(3))+(L=M(4))=0 THEN 4220<br />
4211 IF L=M(3) THEN 4214<br />
4212 IF L=M(4) THEN 4214<br />
4213 GOTO 4220<br />
4214 PRINT"YYYIIIIEEEE...FELL IN PIT"<br />
4216 GOTO 4520<br />
4220 IF L<>M(7) THEN 4257<br />
4230 PRINT "CAVE ENTRANCE IS BLOCKED"<br />
4240 GOSUB 5900<br />
4250 GOTO 390<br />
4256 REM IF (L=M(5))+(L=M(6))=0 THEN 4265<br />
4257 IF L=M(5) THEN 4261<br />
4258 IF L=M(6) THEN 4261<br />
4259 GOTO 4265<br />
4261 PRINT "ZAP..SUPERBAT SNATCH!"<br />
4263 GOTO 4280<br />
4265 IF L<>M(8) THEN 4270<br />
4267 PRINT "EXIT NEARBY"<br />
4270 LET M(1)=L<br />
4275 GOTO 390<br />
4280 LET L=INT(1+RND(1)*20)<br />
4285 REM IF (L=M(1))+(L=M(6))+(L=M(7))<>0 THEN 4280<br />
4286 IF L=M(1) THEN 4280<br />
4287 IF L=M(6) THEN 4280<br />
4288 IF L=M(7) THEN 4280<br />
4290 GOSUB 5900<br />
4300 GOTO 4120<br />
4400 IF RND(1)>=.75 THEN 4410<br />
4402 PRINT "BEWARE OF ITS MATE"<br />
4404 LET J=2<br />
4406 GOSUB 6100<br />
4408 GOTO 3220<br />
4410 LET W=1<br />
4420 PRINT "HEE HEE HEE--THE WUMPUS'L GET YOU NEXT TIME"<br />
4430 GOTO 390<br />
4499 REM EATEN SUBROUTINE<br />
4500 IF RND(1)>=.75 THEN 4510<br />
4502 GOSUB 3370<br />
4504 GOSUB 5900<br />
4506 GOTO 4270<br />
4510 PRINT"TSK TSK TSK--THE WUMPUS GOT YOU"<br />
4520 PRINT "HA HA HA--YOU LOSE!"<br />
4530 GOTO 8810<br />
4999 REM MOVE EVERYTHING<br />
5000 PRINT"**EARTHQUAKE**"<br />
5001 FOR J=3 TO 7<br />
5002 GOSUB 6100<br />
5003 NEXT J<br />
5004 GOSUB 5900<br />
5005 LET M(2)=INT(RND(1)*20+1)<br />
5006 REM IF (M(1)=M(2))+(M(2)=M(7))<>0 THEN 5005<br />
5007 IF M(1)=M(2) THEN 5005<br />
5008 IF M(2)=M(7) THEN 5005<br />
5009 REM MOVE CAVE ENTRANCE<br />
5010 IF RND(1)<=.1 THEN 5020<br />
5015 RETURN<br />
5020 LET M(8)=INT(RND(1)*20+1)<br />
5025 FOR J=3 TO 7<br />
5030 IF M(8)<>M(J) THEN 5040<br />
5033 LET M(8)=INT(RND(1)*20+1)<br />
5036 GOTO 5030<br />
5040 NEXT J<br />
5050 RETURN<br />
5899 REM DROPPED ARROWS SUBROUTINE<br />
5900 LET J=INT(RND(1)*10)<br />
5901 REM IF (J>A)+(A=0)=0 THEN 5910<br />
5902 IF J>A THEN 5905<br />
5903 IF A=0 THEN 5905<br />
5904 GOTO 5910<br />
5905 RETURN<br />
5910 PRINT "DROPPED ARROWS"<br />
5915 IF J<>0 THEN 5930<br />
5920 PRINT "ALL ARROWS FOUND"<br />
5925 RETURN<br />
5930 LET A=A-J<br />
5940 PRINT J;"ARROWS LOST";TAB(20);A;"ARROWS LEFT"<br />
5950 RETURN<br />
6099 REM RANDOM CAVE REARRANGEMENT SUBROUTINE<br />
6100 LET M(J)=INT(RND(1)*20)+1<br />
6110 REM IF (M(J)=M(1))+(M(J)=M(8))<>0 THEN 6100<br />
6111 IF M(J)=M(1) THEN 6100<br />
6112 IF M(J)=M(8) THEN 6100<br />
6200 RETURN<br />
6999 REM INSTRUCTIONS<br />
7000 PRINT "WELCOME TO HUNT THE WUMPUS"<br />
7005 PRINT<br />
7010 PRINT "THE WUMPUS COLONY INHABIT A BURROW OF 20 CAVES"<br />
7020 PRINT "EACH CAVE HAS THREE TUNNELS LEADING TO OTHER CAVES."<br />
7030 PRINT "THE OBJECTIVE IS TO DESCEND INTO THE BURROW AND HUNT WUMPI.<br />
7040 PRINT "AFTER YOU HAVE KILLED AT LEAST ONE, YOU MUST RETURN TO THE"<br />
7050 PRINT"EXIT AND LEAVE THE BURROW. NOTE THAT THERE MAY BE MORE THAN"<br />
7060 PRINT "ONE WUMPUS IN THE BURROW. "<br />
7061 PRINT "YOU HAVE 5 ARROWS."<br />
7062 PRINT"UNDER CONDITIONS OF STRESS, YOU MAY DROP YOUR ARROWS."<br />
7065 PRINT"YOUR RATING IS A FUNCTION OF THE NUMBER OF WUMPI SHOT & THE"<br />
7067 PRINT "TIME SPENT IN THE BURROW"<br />
7070 PRINT<br />
7072 GOSUB 7990<br />
7074 PRINT"HAZARDS"<br />
7076 PRINT<br />
7080 PRINT"1---BOTTOMLESS PITS"<br />
7090 PRINT"TWO ROOMS CONTAIN BOTTOMLESS PITS. IF YOU FALL IN A PIT"<br />
7100 PRINT"YOU LOSE."<br />
7110 PRINT<br />
7112 PRINT<br />
7114 PRINT"2---SUPERBATS"<br />
7120 PRINT "TWO ROOMS CONTAIN NESTS OF SUPERBATS. THEY ARE PEACEFUL"<br />
7130 PRINT"CREATURES WHEN LEFT ALONE. SHOULD YOU INADVERTENTLY"<br />
7140 PRINT"STUMBLE ACROSS THEIR NEST YOU WILL BE PICKED UP AND"<br />
7150 PRINT "BE DEPOSITED IN ANOTHER CAVE AT RANDOM."<br />
7160 PRINT "TOO BAD IF IT CONTAINS ANOTHER HAZARD."<br />
7162 PRINT<br />
7164 GOSUB 7990<br />
7170 PRINT<br />
7175 PRINT"3---**EARTHQUAKES**"<br />
7180 PRINT"EARTHQUAKES ARE A COMMON OCCURRENCE. SHOULD ONE OCCUR, THE"<br />
7185 PRINT "BURROW ENTRANCE MAY BE BLOCKED AND A NEW ONE OPEN UP. THE"<br />
7190 PRINT"GEOGRAPHY OF THE CAVES WILL BE CHANGED. THE PITS MAY FILL"<br />
7200 PRINT "UP AND A CAVE MAY BE BLOCKED BY A ROCKFALL. THE BATS WILL"<br />
7210 PRINT "BE DISTURBED AND MAY SEEK OUT A NEW CAVE. THE WUMPUS"<br />
7220 PRINT "WILL ALSO BECOME ALARMED AND MAY MOVE TO A NEW CAVE."<br />
7230 PRINT<br />
7235 PRINT"4---WUMPUS"<br />
7240 PRINT "THE WUMPUS IS NOT BOTHERED BY ANY HAZARDS (IT HAS SUCKERS"<br />
7250 PRINT "ON ITS FEET AND IS TOO BIG FOR A BAT TO LIFT)."<br />
7260 PRINT "THE WUMPUS IS MOVING IN THE CAVES LOOKING FOR FOOD. IT"<br />
7270 PRINT "NORMALLY EATS A SPECIES OF MUSHROOM, BUT MAY EAT YOU SHOULD<br />
7280 PRINT "YOU ENTER THE CAVE IN WHICH IT IS FEEDING"<br />
7290 PRINT<br />
7300 GOSUB 7990<br />
7600 PRINT<br />
7605 PRINT "EACH TURN YOU MAY:"<br />
7610 PRINT " (1) MOVE TO AN ADJACENT CAVE THROUGH A CONNECTING TUNNEL"<br />
7620 PRINT " (2) SHOOT AN ARROW THROUGH A TUNNEL TO TRY HIT THE WUMPUS"<br />
7630 PRINT "     IT IS BIG ENOUGH SO THAT AN ARROW ENTERING THE CAVE"<br />
7640 PRINT "     THAT IT IS OCCUPYING, WILL HIT IT."<br />
7645 PRINT " (3) CHECK ON NUMBER OF ARROWS LEFT"<br />
7650 PRINT " (4) EXIT FROM THE CAVES IF YOU ARE IN THE ENTRANCE CAVE"<br />
7660 PRINT " (5) ASK FOR INSTRUCTIONS"<br />
7662 PRINT<br />
7664 GOSUB 7990<br />
7666 PRINT "WARNINGS"<br />
7670 PRINT "WHEN YOU ARE ONE CAVE AWAY FROM A HAZARD YOU WILL BE WARNED<br />
7680 PRINT "AS FOLLOWS:"<br />
7685 PRINT<br />
7690 PRINT " WUMPUS.....I SMELL A WUMPUS"<br />
7700 PRINT " BATS.....BATS NEARBY"<br />
7710 PRINT " PIT.....I FEEL A DRAFT"<br />
7715 PRINT<br />
7720 PRINT "IF YOU TRY TO ENTER A CAVE BLOCKED BY A FALL OR IF YOU"<br />
7730 PRINT "RETURN TO THE ENTRANCE CAVE, YOU WILL BE NOTIFIED"<br />
7740 PRINT<br />
7750 RETURN<br />
7990 PRINT "TO CONTINUE, ENTER ANY NUMBER"<br />
7992 INPUT I<br />
7994 PRINT<br />
7996 PRINT<br />
7998 RETURN<br />
8799 REM END GAME<br />
8800 PRINT "OUT OF THE CAVES"<br />
8801 IF F<=0 THEN 8805<br />
8803 PRINT "GOOD HUNTING"<br />
8805 LET W=INT((F*1000)/M1)<br />
8807 PRINT "YOUR RATING IS ";W<br />
8810 IF F<>0 THEN 8830<br />
8820 PRINT"BETTER LUCK NEXT TIME"<br />
8830 PRINT<br />
8840 PRINT "WANT TO TRY AGAIN, IN SPITE OF YOUR INABILITY (1=YES 0=NO)"<br />
8850 INPUT I<br />
8860 IF I=1 THEN 240<br />
9000 END<br />

Offline
Joined: Oct 9 2011
Posts: 1063
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

Thanks. I had this one on paper tape for my ALTAIR. I guess maybe there isn't a clean version for the Apple-1. Converting this to Woz basic is something to do later in the week. I'm trying to get back into programming on my Mimeo, good place to start as any... Been hung up on doing hardware stuff recently and need to go back to software Smile

Cheers,
Corey

Offline
Joined: Sep 5 2009
Posts: 83
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

There is one on apple1notes.com named Wumpus

Wendell

Offline
Joined: Oct 9 2011
Posts: 1063
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

Wendell,

Your Hunt the Wumpus is the one I have. It has the Super Wumpus option which doesn't work. Did you originally write it for your Apple-1 which has more than 8k and then cut it down in size to make it work on an 8k machine? I haven't done any real debugging on it yet.

Cheers,
Corey

Offline
Joined: Sep 5 2009
Posts: 83
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

It's not dependent on memory size. I'm not sure where the program is from, I thought it was in 101 Basic games but it isn't so I think I may have gotten it from someone back in the day. If so there may be other sources around.

Wendell

Offline
Joined: Sep 5 2009
Posts: 83
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

If you change the code on the apple1notes version to
220 DIM L(Cool
230 DIM M(Cool

the game seems to play.

Offline
Joined: Sep 5 2009
Posts: 83
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

I don't know where the smileys came from so what you need to do on lines 220 and 230 is change the 7s to 8s.

Offline
Joined: Oct 9 2011
Posts: 1063
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

Thanks... I'll try it...

Offline
Joined: Oct 9 2011
Posts: 1063
Re: Anyone have an Apple-1 copy of Hunt the Wumpus?

Works great. Thanks. You saved me starting to troubleshoot, honestly I didn't even look at the code first. I made an assumption that Super Wumpus had a bunch more code that was removed.

I was able to make a video that I needed for the "Wumpus" SCRUM team at work, which was the whole point of trying to find a copy that was clean for a nice video. Thought they'd get a kick out of their namesake being played on an Apple-1.

Now to hook the mimeo back up and put the Apple-1 back into the safety deposit box Smile

Cheers,
Corey