Atari 8-bit Source code

10REMSUPERWUMPUSBYJACKEMMERICH
20REMTRANSLATEDFORATARI80016K
100REM
110DIMA1(5),R(20,3),C$(20),T(20,2),A$(72),X$(1)
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
195POSITION0,3
200PRINT#6;"WELCOMETOTHE":?#6;"WUMPUSCAVES"
205FORW=1TO1000:NEXTW
206GRAPHICS0:SETCOLOR2,0,0
207GOSUB3900
208POSITION7,19
210PRINT"DOYOUWANTINSTRUCTIONS";
220GOSUB3680
225PRINT""
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."
320?"LookoutforBATSandBOTTOMLESSPITS.Warningsforthem";
330?"areforlocations":?"oneroomaway."
340?"Youhave5dartsavailable.";
350?"Eachshot":?"maygothru1to5connectedrooms."
360?"Youmaymakeonemoveorshoteach":?"hour."
370?"Whenyouareoutofdarts,lookfor":?"rockstobonkhimwith."
380?"Rockscanbethrownintooneroomandmay";
390?"knockhimout."
400PRINT"HitSTARTtobegin"
405IFPEEK(53279)=7THEN405
410START=1:POKE82,2:GOSUB580
420GOSUB1060
425GOSUB3580
430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
470PRINT"WOULDYOULIKETOPLAYANOTHERGAME";:GOSUB3680
490IFX1THEN470
500IFA$(1,1)="Y"THEN410
510PRINT:PRINT:PRINT
520PRINT"THANKYOUforplaying.":?"Comeagainsometime."
540END
560REMINITIALIZECAVES
580RESTORE:E=0:PRINT""
590POKE752,1:PRINT"Pleasehangonabit";
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PRINT"whileIsetthisup":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=5: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PRINT"YOUHAVERUNOUTOFSUPPLIESANDWILLSTARVE."
1350GOSUB3630:RETURN
1360IFC$(C,C)<>"B"THEN1420
1370?:PRINT"WHOOPS,BATSRELOCATEYOU."
1380PRINT"YOULOOSESOMESUPPLIES."
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!"
1462FORSD=29TO243STEP4:SOUND0,SD,10,8:SOUND1,SD-2,10,10:NEXTSD:SOUND1,0,0,0
1463FORSD=1TO3:SETCOLOR4,3,2:SETCOLOR2,3,2:SOUND0,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0,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PRINT"<<<IFEELADRAFT>>>"
1530IFC$(C1,C1)="B"THENPRINT"<<<IHEARWINGS>>>"
1540IFC$(C1,C1)="W"THEN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IFATHEN1790
1710PRINT"LOOKOUT,YOUSTEPPEDONHIS";
1720B=4:GOSUB3780:ONFNAGOTO1730,1740,1750,1760
1730PRINT"FLIPPER";:GOTO1770
1740PRINT"TRUNK";:GOTO1770
1750PRINT"WING";:GOTO1770
1760PRINT"CLAW";
1770PRINT"!!",:?"NOWHEISAWAKE."
1780A=1: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
1880PRINT#6;"MUNCH"
1890FORI=1TO100:NEXTI
1900PRINT#6;"MUNCHMUNCH"
1910FORI=1TO300:NEXTI
1920PRINT#6;"":?#6;"GULP"
1930FORI=1TO200:NEXTI
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<6THEN2050
2040PRINT"NUMBERMUSTBEFROM1TO5":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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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PRINT"BIGDEAL,YOUSHOTABAT":RETURN
2350IFC$(R3,R3)="P"THEN2380
2360IFRND(0)>0.33THEN2380
2370PRINT"DARTWASSUCKEDINTOAPIT":RETURN
2380IFR3<>CTHEN2470
2390PRINT"NICEGOING,TURKEY,YOUSHOTYOURSELF",
2395STOP
2400IFRND(0)>0.5THEN2450
2410PRINT"INTHELEG"
2420PRINT"ANDHAVEUSEDMEDICALSUPPLIES."
2430IFD>5THEND=5:GOTO2440
2435D=INT(D/2)
2440RETURN
2450PRINT"ANDWILLNEVERMAKEIT"
2460GOSUB3630:RETURN
2470NEXTI
2480RETURN
2500REMTHROWAROCK
2520IFR>0THEN2550
2530PRINT"SHOOTWHAT?YOUHAVENOARROWS":PRINT"ORROCKS."
2540RETURN
2550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)=ROTHEN2580:GOTO2590
2580PRINT"YOUCAN'TGETTHEREFROMHERE":RETURN
2590IFC$(R0,R0)<>"W"THEN2650
2600IFRND(0)>0.5THEN2630
2610PRINT"BOINK!!,YOUDAZZELEDHIMWITHAROCK"
2620GOSUB3600:RETURN
2630PRINT"THUD.THATJUSTMAKEHIMMAD,LOOKOUT"
2640RETURN
2650PRINT"MISSED"
2660IFC$(R0,R0)<>"B"THENRETURN
2670PRINT"YOUHITABATCAVE,HOWEVER"
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PRINT"YOUCAN'TGETTHEREFROMHERE":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?:PRINT"DUCK!!BATMIGRATION,ONECOLONYOF":?"BATSHASMOVED"
2960?:PRINT"YOULOSESOMESUPPLIESWHILEHIDING"
2970RETURN
2980REMROCKS
2990IFS>0THENRETURN
3000?:PRINT"LOOK,YOUFOUNDATHROWINGROCK!!"
3010R=R+1
3020RETURN
3040D=INT(D/2)
3050?:PRINT"RATSFROMTHEPITSEATHALFOF":?"YOURSUPPLIES!!"
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?:PRINT"LISTEN!!AROCKSLIDEHASCLOSED":?"ATUNNEL"
3185FORSD=0TO2:SOUND0,29,0,15-4*SD:FORJ=0TO10*2^SD:NEXTJ:NEXTSD:SOUND0,0,0,0
3190RETURN
3210B=5:GOSUB3780:D=D+FNA
3220?:PRINT"LOOK,YOUFOUNDSUPPLIESLEFTBYA"
3230PRINT"PREVIOUSLY(EATEN)EXPLORER"
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
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:RETURN
3630PRINT#6;"":?#6;"YOULOOSE(HEEHEE)":FORW=1TO300:NEXTW
3640E=1:RETURN
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X
3850GOTO3810
3900POKE752,1:FORBR=6TO12:SETCOLOR1,0,BR:SETCOLOR2,0,BR-6
3905POSITION7,5
3910PRINT"IT'SRATHERDARKINHERE"
3915POSITION7,6
3920PRINT"LET'SLIGHTALANTERN"
3930FORW=1TO5:NEXTW
3950NEXTBR
3952PRINT""
3955PRINT"THERE,THATSBETTER"
3956FORW=1TO100:NEXTW:POKE752,0
3960RETURN
4000END	

• Download link 1

• Download link 1
• Download link 2
• Download link 3