Atari 8-bit Source code

10REMSUPERWUMPUSBYJACKEMMERICH
20REMTRANSLATEDFORATARI80016K
30?"ThisversionofWUMPUSrequires":?"S.A.M.theartificialvoicefrom:DON'TASKsoftware."
32?"2265WestwoodBlvd.,LosAngeles,CA.":?
35?"Boot+,thenRUNthisprogram.":?
40?"Ifyoutrytorunthisprogramwith-outS.A.M.installed,!!"
50POKE764,255:?:?:?"PressforSUPERWUMPUS":?"toquit"
60IFPEEK(764)=255THEN60
70IFPEEK(764)<>62THENEND
100REM
110DIMA1(5),R(20,3),C$(20),T(20,2),A$(72),X$(1),SAM$(255),Z(5)
111SAM=8192
120T=1
130DATA2,5,6,1,3,7,2,4,8,3,5,9,1,4,10,1,11,12,2,12,13,3,13,14
140DATA4,14,15,5,11,15,6,10,17,6,7,18,7,8,19,8,9,20,9,10,16
150DATA15,17,20,11,16,18,12,17,19,13,18,20,14,16,19
170REMSTART
190GRAPHICS2:SETCOLOR0,5,8:SETCOLOR2,0,0
191POSITION1,1:?#6;"SUPERWUMPUS"
192POSITION1,3:?#6;"byJACKEMMERICH"
193POSITION1,6:?#6;"revised7/83by"
194POSITION1,8:?#6;"JOEE.HOWARD"
195FORLOOP=1TO3000:NEXTLOOP
196POKE752,1:?""
200SAM$="WEH4LKUMTUX4DHAH4WUMP4AXSK4EYVS.":A=USR(SAM)
201SAM$="IHTS4DAARK4IH4N/HIY4R,LEH4TSLAY4TAHLAEN4TERN.":A=USR(SAM)
205FORW=1TO1000:NEXTW
206GRAPHICS0:SETCOLOR2,0,0
207GOSUB3900
208SAM$="DUH4YUW4WHAH4NTIHNSTRX4CHUNS?":A=USR(SAM)
210PRINT"DOYOUWANTINSTRUCTIONS";
220GOSUB3680
230IFX1THEN210
240IFA$(1,1)="N"THEN410
250PRINT"":POKE82,1:POKE83,38
260?"Thiscavehas20interconnected"
270?"rooms.TheWUMPUSisasleepinoneand";:?"mustbetaggedforyoutosucceed."
280?"Onlywhenheisawakeandtagged"
290?"willheleadyoutotheexit."
300?"IfHEfindsyoubeforeheistagged,":?"!"
310?"Ifyouwakehimuphemaymoveabout."
320?"LookoutforBATSandBOTTOMLESSPITS.Warningsforthemareforlocationsoneroomaway."
331?"BatWarning<>!Bottom-"
332?"lessPitwarning<>!"
340?"Darts:L1=5,L2=2,L3=1.Eachshotmaygothru:L1=3,L2=2,L3=1rooms.You"
360?"maymakeonemoveorshoteachhour."
370?"Whenyouareoutofdarts,lookforrockstobonkhimwith.Rockscanbe"
380?"thrownintooneroomandmayknocktheWumpusout."
400PRINT"HitSTARTtobegin"
405IFPEEK(53279)=7THEN405
410?"WHATLEVELOFDIFFICULTY?(1TO3)":GOSUB5000
411START=1:POKE82,2:GOSUB580
420GOSUB1060
425GOSUB3580
430SAM$="WUH4DYUW4LAY4KTUX4SIY4AHMEH4AXPAH4VDHAH4K4EYVS?":A=USR(SAM)
431SETCOLOR2,0,6:SETCOLOR1,0,12:PRINT:?"Wouldyouliketoseeamap":?"ofthecaves";
440GOSUB3680
450IFX1THEN430
460IFA$(1,1)="Y"THENGOSUB3280
461IFA$(1,1)="N"THENGRAPHICS0:POKE752,1:SETCOLOR2,0,6:SETCOLOR1,0,12
470PRINT"WOULDYOULIKETOPLAYANOTHERGAME";
471SAM$="WUH4DYUW4LAY4KTUX4PLEY4AH4NAETH4ERGEY4M?":A=USR(SAM):GOSUB3680
490IFX1THEN470
500IFA$(1,1)="Y"THEN410
510PRINT:PRINT:PRINT
520SAM$="THAE4NXKYUW4FOH4RPLEY4IHNX,KUM4AH4GEHNSAH4MTAYM.":A=USR(SAM)
521PRINT"THANKYOUforplaying.":?"Comeagainsometime."
540END
560REMINITIALIZECAVES
580RESTORE:E=0:PRINT""
590POKE752,1:SAM$="PLIY4Z/HAE4NXAA4NAHBIH6T.":A=USR(SAM)
591Z=0
600FORI=1TO20
610FORJ=1TO3
620READDATA:R(I,J)=DATA
630NEXTJ
640C$(I,I)="":T(I,1)=I
650IFTTHENT(I,2)=0:GOTO660
655T(I,0)=I
660NEXTI
670REMSETUPPITS,BATS,ETC.
680C1=1:X$="W"
690GOSUB970
700W=R2
710B=2:GOSUB3780:C1=FNA:X$="P"
720GOSUB970
730B=4:GOSUB3780:C1=FNA:X$="B"
740GOSUB970
750B=20:GOSUB3780:C=FNA
760IFC$(C,C)<>""THEN750
770IFNOTTTHEN900
780REMLOADTRANSLATIONTABLE
790SAM$="WHAY4LAY4SEH4TDHIH4SAH4P.":A=USR(SAM):POKE752,0
800FORI=1TO20
810B=20:GOSUB3780:C1=FNA
820IFT(C1,2)=0THENT(C1,2)=I:GOTO880
850C1=C1+7
860IFC1>20THENC1=C1-20
870GOTO820
880NEXTI
890REMPUTWUMPUSTOSLEEP
900A=0
910D=10+INT(RND(0)*11)
920S=DD:R=E=0
930RETURN
940REM
950REMGENITEMINROOM
970FORI=1TOC1
980B=20:GOSUB3780
985R2=FNA
990IFC$(R2,R2)<>""THEN980
1000C$(R2,R2)=X$
1010NEXTI
1020RETURN
1040REMSTARTOFGAME
1060D=D-1
1070IFATHENGOSUB1230
1080GOSUB1330
1090IFETHENRETURN
1100PRINT:PRINT"SHOOTORMOVE";:INPUTA$:?""
1110IFLEN(A$)=0THEN1140
1120IFA$(1,1)="S"THEN1150
1130IFA$(1,1)="M"THEN1160
1140PRINT"PLEASEANSWERSHOOTORMOVE":GOTO1100
1150GOSUB1990:GOTO1170
1160GOSUB2720
1170IFETHENRETURN
1180GOSUB2800
1190GOTO1060
1210REMMOVEWUMPUS
1230IFRND(0)<0.2THENRETURN
1240R0=W:W2=1
1250GOSUB3480
1260C$(W,W)=""
1270W=R0
1280C$(W,W)="W"
1290RETURN
1310REMREPORTSTATUS
1330IFD>0THEN1360
1340SAM$="YUW4/HAE4VRAH4NAW4TAH4VSAX4PLAY4SAE4NDWIH4LSTAA3RV.":A=USR(SAM)
1341GRAPHICS2:SETCOLOR2,0,0
1342PRINT#6;"YOUHAVERUNOUTOFSUPPLIESANDWILLSTARVE"
1350GOSUB3630:RETURN
1360IFC$(C,C)<>"B"THEN1420
1370SAM$="/HUXP3SS,BAE5TSSRIXLOW5KEY6TYUW4.":A=USR(SAM)
1380SAM$="YUW4LUXUX3ZSAH4MSAX4PLAY5S.":A=USR(SAM)
1390B=20:GOSUB3780:C=FNA
1400D=D-INT(D/4)
1410GOTO1330
1420IFC$(C,C)<>"W"THEN1450
1430GOSUB1700
1440IFETHENRETURN
1450IFC$(C,C)<>"P"THEN1480
1455GRAPHICS2:SETCOLOR2,0,0
1460PRINT#6;"YYYIIIIIEEEEEE...":?#6;"":?#6;"YOUFELLINTOAPIT!"
1461SAM$="/HEH4EH2EH2EH1EH1EH1EH1EH1EHLP-YUW3FEY3LLIHNTUX3AHP2IHT.":A=USR(SAM)
1462FORSD=29TO243STEP4:SOUND1,SD,10,8:SOUND2,SD-2,10,10:NEXTSD:SOUND2,0,0,0
1463FORSD=1TO3:SETCOLOR4,3,2:SETCOLOR2,3,2:SOUND1,29,0,15-4*SD
1464FORJ=0TO10*2^SD:NEXTJ:SETCOLOR4,0,0:SETCOLOR2,0,0:NEXTSD
1466SOUND1,0,0,0
1470GOSUB3630:RETURN
1480IFSTARTTHENPRINT""
1481?:PRINT"---STARTOF";:IFNOTSTARTTHENPRINT"NEXTHOUR---":GOTO1485
1482?"FIRSTHOUR---":START=0
1485PRINT
1490FORI=1TO3
1500C1=R(C,I)
1510IFC1=0THEN1550
1520IFC$(C1,C1)="P"THENSAM$="AY4FIY4LAHDR2AH4FT.":A=USR(SAM):PRINT"<<<IFEELADRAFT>>>"
1530IFC$(C1,C1)="B"THENSAM$="AY4/HIY4RWIH2NXS.":A=USR(SAM):PRINT"<<<IHEARWINGS>>>"
1540IFC$(C1,C1)="W"THENSAM$="AY4SMEH4LAHWUMP1AXS.":A=USR(SAM):PRINT"<<<ISMELLAWUMPUS!!!>>>"
1550NEXTI
1570B=6:GOSUB3780:FORI=1TOFNA
1580R0=R(C,1)
1590R(C,1)=R(C,2)
1600R(C,2)=R(C,3)
1610R(C,3)=R0
1620NEXTI
1630PRINT"CURRENTROOMIS",T(C,2)
1640PRINT"TUNNELSLEADTO",T(R(C,1),2);"";T(R(C,2),2);"";T(R(C,3),2)
1650PRINT"YOUHAVEENOUGHSUPPLIESFOR",D,"MOREHOURS"
1660RETURN
1680REMBUMPINTOWUMPUS
1700READA:IFA>2THEN1790:NEXTA
1701DATA1,3
1710SAM$="LUH3KAW3T,YUW4STEH4PTAA4N/HIH4S.":A=USR(SAM)
1711PRINT"LOOKOUT,YOUSTEPPEDONHIS";
1720B=4:GOSUB3780:ONFNAGOTO1730,1740,1750,1760
1730SAM$="FLL4IHPR.":A=USR(SAM):PRINT"FLIPPER";:GOTO1770
1740SAM$="TR4AH4NKX.":A=USR(SAM):PRINT"TRUNK";:GOTO1770
1750SAM$="WIH4NX.":A=USR(SAM):PRINT"WING";:GOTO1770
1760SAM$="K4LLAOW.":A=USR(SAM):PRINT"CLAW";
1770SAM$="NAW4/HIY4IHZAHWEYK1.":A=USR(SAM):PRINT"!!",:?"NOWHEISAWAKE."
1780RETURN
1790DATAC,H,O,M,P
1800RESTORE1790
1802GRAPHICS2:SETCOLOR0,3,8:SETCOLOR2,0,0
1805PRINT#6;"";
1810FORI=1TO5
1820FORJ=1TO100
1830NEXTJ
1840READA$
1850PRINT#6;A$;"";
1860NEXTI
1870FORI=1TO100:NEXTI
1879SAM$="MAH3NCH.":A=USR(SAM)
1880PRINT#6;"MUNCH"
1890FORI=1TO100:NEXTI
1899SAM$="MAH4NCH,MAH4NCH.":A=USR(SAM)
1900PRINT#6;"MUNCHMUNCH"
1910FORI=1TO300:NEXTI
1919SAM$="GAH4LP.":A=USR(SAM)
1920PRINT#6;"":?#6;"GULP"
1930FORI=1TO200:NEXTI
1939SAM$="DHAH4WUMP3AXSGAH6TYUW4.":A=USR(SAM)
1940PRINT#6;"":?#6;"THEWUMPUSGOTCHA":?#6;
1950GOSUB3630:RETURN
1970REMSHOOT
1990IFS>0THEN2010
2000GOSUB2520:RETURN
2010W1=0:S0=0:S=S-1
2020PRINT"HOWMANYROOMSDOYOUWISHTO":?"SHOOTTHRU";:INPUTR2
2030IFR2>0ANDR2<Y+1THEN2050
2040PRINT"NUMBERMUSTBEFROM1TO";:PRINTY:GOTO2020
2050FORI=1TOR2
2060IFI=1THENPRINT"ENTERTHEFIRSTROOMNUMBER:":INPUTA1:A1(I)=A1
2070IFI>1THENPRINT"ENTERTHENEXTROOMNUMBER:":INPUTA1:A1(I)=A1
2080R0=A1(I):GOSUB3800
2085A1(I)=R0
2130NEXTI
2140PRINT:IFATHEN2170
2150SAM$="WAA2CHIXT2,DHAH2WUMP2AXSIHZAHWEY2K.":A=USR(SAM)
2151PRINT"WATCHIT,THEWUMPUSISAWAKE!"
2160A=1
2170R3=C
2180FORI=1TOR2
2190IFW1THEN2230
2200IFR(R3,1)=A1(I)ORR(R3,2)=A1(I)ORR(R3,3)=A1(I)THEN2280
2210SAM$="WAA2CHIXT2,WAY6LDSH1AAT.":A=USR(SAM)
2211PRINT"WATCHIT,WILDSHOT!"
2220W1=1
2230R0=R3
2240W2=0
2250I1=1
2260GOSUB3480
2270I=I1
2280R3=A1(I):IFW1THENR3=R0
2290IFC$(R3,R3)<>"W"THEN2320
2300GOSUB3580
2310E=1:RETURN
2320IFC$(R3,R3)<>"B"THEN2350
2330IFRND(0)>0.33THEN2350
2340SAM$="BIXGG2DIY4L,YUW4SH4AATAHBAET2.":A=USR(SAM):RETURN
2350IFC$(R3,R3)="P"THEN2380
2360IFRND(0)>0.33THEN2380
2370SAM$="DAA4RTWAAS4SAH4KTIHN4TUXAHP2IHT.":A=USR(SAM):RETURN
2380IFR3<>CTHEN2470
2390SAM$="NAY4SGOW4IHNX,TER2KEY,YUW4SHAA4TYOHR4SEH4LF.":A=USR(SAM)
2400IFRND(0)>0.5THEN2450
2410SAM$="IHNDHAH4LEYG2.":A=USR(SAM)
2420SAM$="AE4ND/HAE4VYUW4SDMEH4DIXKULSAXPLAYS4.":A=USR(SAM)
2430IFD>5THEND=5:GOTO2440
2435D=INT(D/2)
2440RETURN
2450SAM$="AE4NDWIH4LNEH4VRMEY4KIH4T.":A=USR(SAM)
2460GOSUB3630:RETURN
2470NEXTI
2480RETURN
2500REMTHROWAROCK
2520IFZ>0THEN2550
2530SAM$="SHUW2TWHAH5T?YUW4/HAE4VNOHEH4ROHSOHRRAA4KS.":A=USR(SAM)
2540RETURN
2550SAM$="WHEH4RDUXYUW4WIH4SHTUWDH4ROHIHT2?":A=USR(SAM):Z=Z-1
2551PRINT"WHEREDOYOUWISHTOTHROWIT":INPUTR0
2560GOSUB3800
2570IFR(C,1)=R0ORR(C,2)=R0ORR(C,3)=R0THEN2590:GOTO2580
2580SAM$="YUW4KEY4NTGEH4TDHEH4RFRAH4M/HIY4R.":A=USR(SAM):RETURN
2590IFC$(R0,R0)<>"W"THEN2650
2600IFRND(0)>0.5THEN2630
2610SAM$="BOY2NNK2,YUW2DEYIXZZ2D/HIHM2WIH2THAHRAA2K.":A=USR(SAM)
2620GOSUB3580:RETURN
2630SAM$="TH4UHUHD,DHAE4TJAH4STMEY4D/HIH4MMAE4D,LUH2KAW2T.":A=USR(SAM)
2640RETURN
2650SAM$="MIH4SSDD.":A=USR(SAM)
2660IFC$(R0,R0)<>"B"THENRETURN
2670SAM$="YUW4/HYT,AHBAET4K4EYV,/HAWEH4VER":A=USR(SAM)
2680GOSUB2870:RETURN
2700REMMOVE
2720PRINT"WHERETO";:INPUTR0
2730GOSUB3800
2740IFR(C,1)=R0ORR(C,2)=R0ORR(C,3)=R0THEN2760
2750SAM$="YUWKEY4NTGEH4TDHEH4RFRAH4M/HIY4R.":A=USR(SAM):GOTO2720
2760C=R0:RETURN
2780REMRANDOMHAPPENINGS
2800IFRND(0)>0.9THENGOSUB2870
2810IFRND(0)>0.75THENGOSUB2990
2820IFT(I1,2)=R0THENR0=T(I1,1):RETURN
2830IFRND(0)>0.9THENGOSUB3080
2840IFRND(0)>0.8THENGOSUB3210
2850RETURN
2860REMMIGRATION
2870B=3:GOSUB3780
2875D=D-B
2880IFD<2THEND=2
2890FORI=1TO20
2900IFC$(I,I)="B"THEN2920
2910NEXTI
2920POP:R0=I:C1=1:X$="B"
2930GOSUB970
2940C$(R0,R0)=""
2950SAM$="DAH2K,BAE5T-MAY4GREH4SHUN,WAH4NKAA4LOWNIYAH4VBAE5TS/HAE4SMUW4VD.":A=USR(SAM)
2960SAM$="YUW4LOW4ZSAH4MSAXPLAYS4WHAY4L/HAY4DIHNX.":A=USR(SAM)
2970RETURN
2980REMROCKS
2990IFS>0THENRETURN
3000SAM$="LUH4K,YUW4FAW4NDAH-DH4ROH3IHNXRAA3K.":A=USR(SAM)
3010Z=Z+1
3020RETURN
3040D=INT(D/2)
3050SAM$="RAETS4FRAH4MDHAH4P2IHTS,IY4T/HAE4FAH4VYOH4RSAX4PLAYS.":A=USR(SAM)
3060RETURN
3080B=20:GOSUB3780:R0=FNA
3090FORI=1TO3
3100IFR(R0,1)>0THENGOTO3130
3110NEXTI
3120GOTO3080
3130POP:R1=R(R0,1)
3140R(R0,1)=0
3150FORI=1TO3
3160IFR(R1,1)=R0THENR(R1,1)=0
3170NEXTI
3180SAM$="LIH3SIXN,AHRAA4KSLAA4DD/HAESKLOW4ZDAHTAH4NUL.":A=USR(SAM)
3181?:PRINT"LISTEN!!AROCKSLIDEHASCLOSED":?"ATUNNEL"
3185FORSD=0TO2:SOUND1,29,0,15-4*SD:FORJ=0TO10*2^SD:NEXTJ:NEXTSD:SOUND1,0,0,0
3190RETURN
3210B=5:GOSUB3780:D=D+FNA
3220SAM$="LUH4K,YUW4FAW4NDSAX4PLAYSLEH4FTBAY4AHPRIX4VEHIYAHSLIYIY4TNEHK4SPLOYR.":A=USR(SAM)
3240RETURN
3250REMMAP
3270REMFORMATEDPRINT
3280GRAPHICS0:POKE752,1:SETCOLOR2,0,6:SETCOLOR1,0,12:?"ROOMTUNNELSITEMS"
3300POSITION2,2
3310FORI=2TO21
3311FORJ=1TO20
3312IFT(J,2)=I-1THEN3320
3313NEXTJ
3320PRINTT(J,2):POSITION8+(T(R(J,1),2)<10),I:?T(R(J,1),2):POSITION12+(T(R(J,2),2)<10),I:?T(R(J,2),2)
3325POSITION17+(T(R(J,3),2)<10),I:?T(R(J,3),2)
3330POSITION25,I:PRINTC$(J,J)
3430NEXTI
3435POKE752,0
3440RETURN
3460REMRANDMOVE
3480FORI=1TO50
3490IFI=49THENGOTO3560
3500B=3:GOTO3780:J=FNA
3510IFR(R0,J)<1THEN3540
3520IFC$(R(R0,J),R(R0,J))=""THENGOTO3550
3530IFNOTW2THENGOTO3550
3540NEXTI
3550POP:R0=R(R0,J)
3560POP:RETURN
3580GRAPHICS2:SETCOLOR2,0,0
3581SAM$="GUH2DFOH2RYUW3.YUW3GAH3T/HIHM3.AE4ND/HIYWIH4LLIY4DYUW4AW4TAH4VDHAH4K4EYV.":A=USR(SAM)
3600PRINT#6;"goodforyou":?#6;"yougothimandhe"
3610PRINT#6;"willleadyououtof";:?#6;"thecave":FORW=1TO50:NEXTW
3615FORSC=1TO10:SETCOLOR4,0,SC:SETCOLOR2,0,SC:FORW=1TO10:NEXTW:NEXTSC
3617FORW=1TO200:NEXTW:GRAPHICS0
3620E=1:GOTO430
3630SAM$="YUW4LUX4Z.../HIY8/HIY8/HIY8/HIY8":A=USR(SAM)
3631PRINT#6;"":?#6;"YOULOOSE(HEEHEE)":FORW=1TO300:NEXTW
3640E=1:GOTO430
3680INPUTA$
3690X1=0
3700IFLEN(A$)=0THEN3730
3710IFA$(1,1)="Y"THENRETURN
3720IFA$(1,1)="N"THENRETURN
3730X1=1:?"PLEASEANSWERYESORNO":RETURN
3740REMFUNCTIONS
3780FNA=INT(RND(0)*B)+1:RETURN
3800REMINPUTAVALIDROOMNO
3810FORI1=1TO20
3820IFT(I1,2)=R0THENR0=T(I1,1):RETURN
3830NEXTI1
3840PRINT"MUSTBEAROOMNUMBERFROM1TO20,TRYAGAIN":INPUTR0
3850GOTO3810
3900POKE752,1:FORBR=6TO12:SETCOLOR1,0,BR:SETCOLOR2,0,BR-6
3930FORW=1TO30:NEXTW
3950NEXTBR
3952PRINT""
3955SAM$="DHEH4R,DHAE4TSBEH4TER.":A=USR(SAM)
3956FORW=1TO100:NEXTW:POKE752,0
3960RETURN
4000END
5000INPUTZ
5010IFZ=(1)THENDD=5:GOTO5050
5020IFZ=(2)THENDD=2:GOTO5060
5030IFZ=(3)THENDD=1:GOTO5070
5040IFZ>(3)THEN?"PLEASETYPEANUMBERFROM(1TO3)":GOTO5000
5050Y=3:RETURN
5060Y=2:RETURN
5070Y=1:RETURN	

• Download link 1

• Download link 1