Atari 8-bit Source code

5POKE764,255
10DIMA$(255),M$(255),N(13),S(13),E(13),W(13),O(5),I(5),C$(3),L$(1),E$(15),D$(3):L$="N"
15RESTORE1200
20FORA=1TO12
60READB,C,D,E:N(A)=B:S(A)=C:E(A)=D:W(A)=E
70NEXTA
80FORX=1TO5:O(X)=INT(RND(0)*12+1):I(X)=0:NEXTX:O(5)=9
100M=24
110R=1
120HR=12:MI=0
130CLOSE#1:OPEN#1,8,0,"E:"
140GRAPHICS0:?#1:?#1:?#1
150GOSUB1800
200?:POKE764,255
210RESTORE1000+R*10
214READA$:IFA$="END"THEN220
215?#1;A$:GOTO214
220REM
230IFO(1)=RTHEN?#1;"THEREISCATNIPHERE":?#1
240IFO(2)=RTHEN?#1;"THEREARECLIPPERSHERE":?#1
250IFO(3)=RTHEN?#1;"THEREISWOLVESBANEHERE":?#1
260IFO(4)=RTHEN?#1;"THEREISAPANTHERHERETHATBLOCKS":?#1;"YOURWAYANDWONTLETYOUPASS":?#1
300REM
310REM
320MI=MI+10:IFMI=60THENMI=0:HR=HR+1:IFHR>12THENHR=1
330IFMI=0THENRESTORE1400+HR*10:READM$:?#1;M$:?#1
340IFHR=6THEN?#1:GOTO1470
350REM
360?#1:?#1;HR;":";MI;:IFMI=0THEN?#1;MI;
370?#1;"AMCOMMAND:";:INPUTE$:GRAPHICS0:?#1:?#1:?#1:D$=""
371C$=E$:TRAP375:IFE$(1,2)="GO"THENC$="GO"
372IFLEN(E$)>4THENGOSUB4300
374IFLEN(D$)>0ANDC$="GO"THENC$=D$
375IFLEN(C$)<1THEN550
377IFC$="MAP"THENGOSUB3000:GOTO200
378IFC$="HEL"THENGOTO1600
380IFC$="GO"THEN?#1:?#1;"GOWHERE";:INPUTC$:?#1:GOTO430
390IFC$="GET"THEN600
400IFC$="CUT"THEN800
410IFC$="THR"THEN700
420IFC$="EAT"THEN900
430IFO(4)=RANDL$<>C$(1,1)THEN?#1;"SORRYTHEPANTHERWONTLETYOU":?#1;"PASS...ALIVE!!":?#1:GOTO200
440IFC$(1,1)="N"ANDN(R)>0THENR=N(R):L$="S":GOTO200
460IFC$(1,1)="S"ANDS(R)>0THENR=S(R):L$="N":GOTO200
480IFC$(1,1)="E"ANDE(R)>0THENR=E(R):L$="W":GOTO200
520IFC$(1,1)="W"ANDW(R)>0THENR=W(R):L$="E":GOTO200
540REM
550?#1;"ICANNOT":?#1:GOTO200
600IFLEN(D$)=3THENC$=D$:GOTO620
610?#1;"WHATDOYOUWANTTOGET";:INPUTC$:?#1
620IFC$="CAT"ANDO(1)=RTHENO(1)=0:I(1)=1:?#1;"YOUGOTIT":?#1:GOTO200
630IFC$="CLI"ANDO(2)=RTHENO(2)=0:I(2)=1:?#1;"YOUGOTIT":?#1:GOTO200
640IFC$="WOL"ANDO(3)=RANDWC=1THENO(3)=0:I(3)=1:?#1;"YOUGOTIT":?#1:GOTO200
650IFC$="WER"ANDR=O(5)THEN?#1;"OHNOYOUWOKEHIMANDHERE":?#1;"HECOMESTOMANGLEYOU!!":?:?:?"YOULOSE":END
660IFC$="PAN"ANDR=O(4)THEN?#1;"THENPATHEREATSYOUALIVE":?#1:?#1:?#1;"YOULOSE":END
665IFC$="WOL"THEN?"YOU'LLHAVETOCUTITFIRST":?:GOTO200
670?"THEREISN'TONEHERETOGET":GOTO200
700IFLEN(D$)=3THENC$=D$:GOTO715
710?#1;"WHATDOYOUWANTTOTHROW";:INPUTC$:?#1
715IFC$="CAT"ANDI(1)=1ANDRND(0)<0.3THENGOSUB4200:?:GOTO200
720IFC$="CAT"ANDI(1)=1ANDO(4)=RTHENI(1)=0:?#1;"YOUTHROWTHECATNIPINTOTHEAPIT":GOSUB740:GOTO200
721IFI(2)=1ANDC$="CLI"THENGOSUB4110:GOTO200
723IFI(3)=1ANDC$="WOL"THENGOSUB4210:GOTO200
725IFC$="WER"ANDR=O(5)THEN650
726IFC$="PAN"ANDR=O(4)THEN660
730?#1:?#1;"YOUCANNOTDOTHATHERE":GOTO200
740?#1;"ANDTHEPANTHERTUMBLESINAFTERIT":?#1:O(4)=0:RETURN
800IFI(2)=0THEN850
810IFLEN(D$)=3THENC$=D$:GOTO825
820?#1;"WHATAMITOCUT";:INPUTC$:?#1
825IFC$="WOL"ANDR=O(3)ANDRND(0)<0.3THENGOSUB4100:GOTO200
830IFC$="WOL"ANDR=O(3)ANDI(2)=1THENWC=1:?#1;"THEWOLVESBANEISCUT!!!":?#1:GOTO200
831IFC$="CLI"THENGOSUB4100:GOTO200
832IFC$="PAN"ANDR=O(4)THEN660
833IFC$="WER"ANDR=O(5)THEN650
834IFC$="CAT"ANDI(1)=1THENGOSUB4200:GOTO200
840?#1;"ICANNOTCUTTHAT":?#1:GOTO200
850?#1;"ICANNOTCUTWITHOUTTHECLIPPERS":?#1:GOTO200
900IFLEN(D$)=3THENC$=D$:GOTO911
910?"WHATAMITOEAT";:INPUTC$
911IFC$="CAT"ANDI(1)=1THEN?"YEECHYOUATETHECATNIPALLUP":I(1)=0:O(4)=INT(RND(0)*12+1):GOSUB4230:GOTO200
912IFC$="PAN"ANDR=O(4)THEN660
913IFC$="WER"ANDR=O(5)THEN650
914IFC$="CLI"ANDI(2)=1THEN?"YOUJUSTKILLEDYOURSELFTRYINGTO":?"EATASHARPPAIROFCLIPPERS!!":?:?:END
920IFC$="PAN"ORC$="WER"THEN?"THEREISN'TONEHERE":?:GOTO200
930IFC$="CLI"ORC$="CAT"THEN?"YOUWILLHAVETOGETITFIRST.":?:GOTO200
931IFC$="WOL"ANDR<>O(3)ANDI(3)=0THEN?"THEREISN'TANYHERE":GOTO200
932IFC$="WOL"ANDWC=0THEN?"YOUWILLHAVETOCUTITFIRST":GOTO200
933IFC$="WOL"ANDI(3)=0THEN?"YOUWILLHAVETOGETITFIRST":?:GOTO200
934IFC$="WOL"THEN940
935?"ICANNOT.":GOTO200
940GRAPHICS0:?#1:?#1;"ASURGEOFENERGYRUSHESTHROUGH":?#1;"YOURBODYANDYOUFEELREJUVANATED."
950?#1:?#1;"YOU'RECUREDANDYOU'VEWONTHEGAME"
960?#1:?#1;"UNFORTUNATELY,BECAUSEOFALLTHE":?#1;"COMMOTIONAWEREPIGRUSHESFROMTHE"
970?#1;"BUSHESNIPSYOUONTHELEG&FLEES..":?#1;"BUTTHAT'SANOTHERGAME!!!":END
1000REM
1010DATAYOUAREATAMOSSPATCH.TOTHEEAST,THEREISFOREST.TOWESTASMALLPATH
1015DATAANDTOTHENORTHACAVEENTRANCE.,END
1020DATAYOUAREINAFOREST.TALLTREES,SURROUNDYOU.TOTHENORTHANDEAST
1025DATAAREIMPASSABLEMOUNTAINS.BUTTOTHE,SOUTHTHERELOOKSLIKETHEREISA,PATHTHROUGH.,END
1030DATAYOUAREONAPASSTHROUGHMOUNTAINS.,GIANTMOUNTAINSTHOUSANDSOFFEETARE
1035DATAONEITHERSIDEOFYOU.BUTTOTHE,SOUTHTHEPATHCONTINUESON.,END
1040DATAYOUHAVEREACHEDAPLATEAU.GRASSIS,RICHLYDISTRIBUTEDHEREAFEWSHEEP
1045DATACRINGEINFEARANDRUNAWAYASYOU,APPROACH.,END
1050DATAYOUAREINASMALLDARKALCOVE.,END
1060DATAYOUHAVECOMEUPONADENSESWAMP.,PASSAGEMOVINGANYWHEREBUTBACKTO
1065DATATHEWESTISIMPOSSIBLE.,END
1070DATAYOUAREATTHESHOREOFASMALLBUT,VERYDEEPLAKE.THEWATERSARETURM-
1075DATAOILMAKINGSWIMMINGIMPOSSIBLE.,THEREISASMALLPATHLEADINGEAST.,END
1080DATAYOUAREATA'T'INTERSECTION.YOU,CANGOEASTWESTORSOUTH.THEPATH
1085DATAYOUAREONSEEMSTOHAVEBEENUSED,BYALARGEWILDANIMAL.,END
1090DATAYOUAREINTHEDENOFAWEREWOLF.THE,WEREWOLFISHEREEITHERUNCONSCIOUS
1095DATAORSLEEPING.ITHASALARGEBUMPON,IT'SHEAD.,END
1100DATAYOUAREATACAVEENTRANCE.INSIDE,THECAVETHEPATHSTRECHESNORTH.TO
1105DATATHESOUTHISAMOSSPATCH.,END
1110DATAYOUAREINAVERYSMALLCAVEITTURNS,(TIGHTLY)TOTHEEASTANDTHESOUTH.,END
1120DATAYOUHAVEREACHEDTHEENDOFTHECAVE,THEREISBARELYENOUGHROOMTOTURN
1125DATAAROUNDANDGETOUT.,END
1200REM
1210DATA10,0,2,8
1220DATA0,3,0,1
1230DATA2,4,0,0
1240DATA3,0,0,5
1250DATA0,0,4,0
1260DATA0,0,0,7
1270DATA8,0,6,0
1280DATA0,7,1,9
1290DATA0,0,8,0
1300DATA11,1,0,0
1310DATA0,10,12,0
1320DATA0,0,0,11
1400REM
1410DATAYOUSUDDENLYFEELYOUNEEDASHAVE...ALLOVER!!!"
1420DATAYOUSCRATCHATAFLEAONYOURNECKWITHYOU'RELEFTFOOT."
1430DATAYOUHAVEANINTENSECRAVINGFORAMILKBONE."
1440DATAYOUAREGETTINGANGRY...YOUWANTTOKILLANDMAIME."
1450DATATHESKYISGETTINGLIGHT.YOUHAVEANINTENSEDESIRETOHOWL.
1460DATAYOUDROPTOALLFOURSANDTUCKYOURTAILBETWEENYOURLEGS.
1470REM
1480?#1;"YOUTURNINTOAWEREWOLFANDBEGIN":?#1;"HOWLINGATTHERISINGSUN.":?#1;:?#1
1490?#1;"YOUARENETTEDBYTHELOCALDOGCATCHERANDAFTERBEINGKEPTFORTHREEDAYS"
1500?#1;"SENTTOTHELOCALZOOWHEREYOUAREKEPTINACAGENEXTTONATASSIAKINSKI":?#1:?#1:?#1:?#1:END
1600TRAP1610:PRINT:OPEN#1,8,0,"E:"
1610?#1;""
1615?#1:?#1;"THISCUTEGAMEUSESONEORTWOWORD"
1620?#1;"COMMANDS.THEVOCABULARYCONSISTSOF"
1630?#1;"THEWORDS'','','',''AND"
1640?#1;"''ANDTHEDIRECTIONS'','',"
1650?#1;"''AND''WHICHSTANDFORNORTH,"
1660?#1;"SOUTH,EAST,ANDWESTRESPECTIVELY."
1665?#1;"THECOMPUTERUNDERSTANDSTHEWORDS"
1666?#1;",,,-"
1667?#1;",,AND..."
1670?#1:?#1;"YOUMAYTURNONYOURPRINTERANDTYPETOGETAPRINTEDMAPOFTHEAREA.":?#1
1680?#1;"ASTHEGAMEBEGINS,ITISMIDNIGHT"
1690?#1;"YOUHAVEUNTILSIXINTHEMORNINGTO"
1700?#1;"SAVEYOURSELF,GOODLUCK!":?#1
1710PRINT"";
1720IFPEEK(764)<>255THENCLOSE#1:RUN
1730GOTO1720
1800REM
1801GRAPHICS0:?#1;"":?#1;"THELASTTHINGYOUREMEMBEREDWAS"
1810?#1;"HITTINGAHUGEMEANDOG-LIKECREATURE"
1820?#1;"OVERTHEHEADWITHYOURSILVERHANDLE"
1830?#1;"CANE.LOOKINGUPYOUSEEAFULLMOON."
1840?#1;"INTHEDISTANCEYOUHEARTHECHURCH"
1850?#1;"CLOCKCHIMEMIDNIGHT.LOOKINGDOWN"
1870?#1;"YOUSEEAWOLF-TAG.ONITARETHEWORDS:"
1885?#1;"||"
1890?#1;""
1900?#1;"||"
1910?#1;"||"
1920?#1;"||"
1930?#1;"||"
1950?#1;"||"
1955?#1;""
1960?#1;"ITISMIDNIGHT...BEWARE!":?#1:?#1;"TYPETHECOMMANDFORMOREINFOR-"
1965?#1;"MATION.TYPINGDURINGTHEGAMEWILLRETURNYOUTOTHEBEGINNING.":?#1
1970POKE764,255:?#1;"";
1980IFPEEK(764)=255THEN1980
2000GRAPHICS0:?#1:?#1:?#1:?#1:RETURN
3000POKE764,255:TRAP4000:LPRINT
3010LPRINT"NARROWTURN===DEADEND"
3020LPRINT"!!"
3030LPRINT"CAVEENTRANCE"
3040LPRINT"!!"
3050LPRINT"WEREWOLFDEN==='T'INTERSECTION===MOSSPATCH===FOREST"
3060LPRINT"!!!!"
3070LPRINT"LAKESHORE===SWAMPMOUNTAINS"
3080LPRINT"!!"
3090LPRINT"ALCOVE===PLATEAU":LPRINT:LPRINT:LPRINT
4000RETURN
4100?"YOUBROKETHECLIPPERS.YOU'LLHAVE":?"TOFINDANOTHERPAIRSOMEWHERE":I(2)=0:O(2)=INT(RND(0)*12+1):RETURN
4110?"YOULOSTTHECLIPPERS.YOU'LLHAVE":?"TOFINDANOTHERPAIRSOMEWHERE.":I(2)=0:O(2)=INT(RND(0)*12+1):RETURN
4200?"YOUSPILLEDTHECATNIP.YOU'LLHAVE":?"TOGETSOMEMORESOMEWHERE":I(1)=0:O(1)=INT(RND(0)*12+1):RETURN
4210?"YOU'VELOSTTHEWOLVESBANE.NOWYOU":?"MUSTFINDSOMESOMEWHEREELSE":I(3)=0:O(3)=INT(RND(0)*12+1):RETURN
4230?"IFYOUEXPECTTOGETPASTTHEPAN-":?"THERYOUHADBETTERGETSOMEMORE":RETURN
4300I=LEN(C$)+1
4310TRAP4320:IFE$(I,I)<>""THENI=I+1:GOTO4310
4320TRAP4330:D$=E$(I+1)
4330RETURN	

• Download link 1

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