Atari 8-bit Source code

2REM**LASTREVISION22-DEC-82**
5SZ=30:GOTO200
10GOTOA+10
15?"ONASTREETINAWESTERNTOWN":W=8:E=10:GOTO320
16?"INTHESHERIFF'SOFFICE.Thereisa";R$;"jailcellhere":S=5:GOTO320
17?"INAJAILCELL":S=6:GOTO320
18?"ONASTREETINAWESTERNTOWN":E=5:SW=25:GOTO320
19?"INTHEMAYOR'SOFFICE":S=8:GOTO320
20N1=0:?"ONASTREETINAWESTERNTOWN":W=5:E=12:ED=0:GOTO320
21?"INASALOON":S=10:GOTO320
22?"ONASTREETINAWESTERNTOWN":W=10:N=14:GOTO320
23?"ONASMALLGRASSYAREA":W=52:N=52:E=51:S=56:GOTO320
24?"ONASTREETINAWESTERNTOWN":N=16:S=12:GOTO320
25?"INAGENERALSTORE.There'sasignonawallhere":E=14:GOTO320
26?"ONASTREETINAWESTERNTOWN":E=18:S=14:GOTO320
27?"INALIVERYSTABLE":S=16:GOTO320
28?"ONASTREETINAWESTERNTOWN.Aropeladderleadstotheroof":W=16:E=20:GOTO320
29?"INANEWSPAPEROFFICE":S=18:GOTO320
30?"ONASTREETINAWESTERNTOWN":W=18:E=22:GOTO320
31?"BEHINDARAINBARREL":W=18:E=22:GOTO320
32?"ONASTREETINAWESTERNTOWN":W=20:E=46:GOTO320
33?"INABANK":S=22:GOTO320
34?"ONTHEROOFOFTHENEWSOFFICE.Youcanclearlyseethebankfromhere";:D=18:GOTO320
35?"ONASMALLTRAIL":S=26:NE=8:GOTO320
36?"ONASMALLTRAIL":N=25:SE=27:GOTO320
37?"ONASMALLTRAIL.Thereisashallowcreekhere":NW=26:GOTO320
38?"ONAGREENPASTUREONTHEOTHERSIDEOFACREEK.Totheeastisalargedesert":N=29:E=32:S=30:GOTO320
39?"ONAGREENGRASSYPASTURE":W=30:N=30:E=30:S=28:GOTO320
40?"ONAGREENGRASSYPASTURE":W=29:N=28:E=29:S=29:GOTO320
41?"INADUSTY,DRY,DESERTED":?"DESERT":W=34:N=31:E=31:S=31:GOTO320
42?"INADRY,DUSTY,DESERTED":?"DESERT":W=32:N=31:E=31:S=33:Z1=1:GOTO320
43?"INADESERTED,DUSTY,DRY":?"DESERT":W=34:N=32:E=36:S=34:GOTO320
44?"INADESERTED,DRY,DUSTY":?"DESERT":W=31:N=34:E=29:S=30:GOTO320
45W=31:N=31:E=37:S=45:?"INADRY,DESERTED,DUSTY":?"DESERT":GOTO1700
46?"INADUSTY,DESERTED,DRY":?"DESERT":W=33:N=36:E=40:S=42:GOTO320
47?"INADESERTED,DUSTY,DRY":?"DESERT":W=35:N=38:E=37:S=41:GOTO320
48?"INADESERTED,DRY,DUSTY":?"DESERT":W=42:N=38:E=37:S=39:GOTO320
49?"INADRY,DUSTY,DESERTED":?"DESERT":W=39:N=38:E=41:S=40:GOTO320
50?"INADUSTY,DRY,DESERTED":?"DESERT":W=36:N=39:E=42:S=41:GOTO320
51?"INADUSTY,DESERTED,DRY":?"DESERT":W=42:N=41:E=41:S=41:GOTO320
52?"INADRY,DESERTED,DUSTY":?"DESERT":W=34:N=41:E=41:S=41:GOTO320
53?"LOSTINADESERTED,DUSTY,DRYDESERT":W=44:N=44:E=45:S=44:GOTO320
54?"LOSTINADESERTED,DRY,DUSTYDESERT":W=43:N=42:E=43:S=44:GOTO320
55?"ATTHEENDOFADESERT":N=44:SW=50:GOTO320
56?"ATTHEOUTSKIRTSOFAWESTERNTOWN":W=22:NE=47:GOTO320
57?"ONADUSTYTRAIL.TotheeastisanIndianreservation":E=48:SW=46:GOTO320
58?"ONASMALLINDIANRESERVATION.AnoldIndianissittinghere";PM$:?"apipe":W=47:GOTO320
59?"INAPITINTHEMINE.There'saholeabove";L$:GOTO320
60?"ONADUSTYTRAIL":NE=45:NW=51:SW=56:GOTO320
61?"ONADUSTYTRAIL":W=52:SE=50:GOTO320
62W=13:E=51:S=13:NW=54:?"ONADUSTYTRAIL";:GOTO1705
63?"INACABIN":S=52:GOTO320
64?"ONAHIDDENTRAIL":N=55:SE=52:GOTO320
65?"ONAHIDDENTRAIL":A(37)=0:S=54:NE=8:GOTO320
66?"ONADUSTYTRAILBEFOREAHILL.There'sanoldminehere":NE=50:GOTO320
67?"INADIMLYLITMINE":NW=60:NE=59:GOTO320
68?"INADIMLYLITMINE":N=60:SW=56:SE=57:GOTO320
69?"INADIMLYLITMINE":SW=60:SE=57:GOTO320
70?"INADIMLYLITMINE":NW=62:SE=57:GOTO320
71?"INADIMLYLITMINE":NW=63:NE=64:SW=60:SE=59:GOTO320
72?"INADIMLYLITMINE":NE=61:SE=60:GOTO320
73?"INADIMLYLITMINE":NE=60:SW=58:SE=57:GOTO320
74?"INADIMLYLITMINE.Thereisawoodenfloorhere";J7$:SW=62:SE=62:GOTO320
75?"ONTOPOFAHILL":D=56:GOTO320
200DIMA$(37*SZ),A(37),B(10),B$(117),C(18),D(39),M(8),PM$(7),R$(7)
203DIMSZ$(SZ),D$(20),E$(20),A9$(50),X$(SZ),J7$(17),K$(7),K1$(7),S$(20),L$(18)
205SZ$=""
207FORA=1TO18:C(A)=0:NEXTA:FORA=1TO37:A(A)=0:NEXTA
210FORA=1TO37:A$(A*SZ-SZ+1,A*SZ)=SZ$:READX$:A$(A*SZ-SZ+1,A*SZ)=X$:READV:A(A)=V
212NEXTA
214READB$:READX$:B$(LEN(B$)+1)=X$:FORA=11TO39:READV:D(A)=V:NEXTA:FORA=1TO8:READV:M(A)=V:NEXTA
220A=5:C(0)=1:GB=6:EB=6:K$="injail":K1$=K$:J7$="withlooseboards":R$="nopen":PM$="with"
230S$="Theshopkeepersays,"
300SOUND0,0,0,0:SOUND1,0,0,0:V=0:R=0:V1=0:X5=0:IFA>27ANDA<31THENV=12:V1=12:IFA=28THENV1=7
301IFA>30ANDA<46THENV=3:V1=3:IFA=45THENV1=0
302IFA=27OR(A=35ANDSS=1)THENV1=7
303IFA=13THENV1=2
304N=0:W=0:E=0:S=0:NW=0:NE=0:SW=0:SE=0:D=0:GRAPHICS0:SETCOLOR2,V,0:SETCOLOR1,Z,15:SETCOLOR4,V1,0
305POKE752,1:IFOH=1THEN?"YOU'REONYOURHORSE":IFMR=2THENA$(940,954)="(ONYOURHORSE)"
306?"YOU'RE";
310GOTO10
320IFG=30ANDED=0ANDA=20ANDDB<2THENDB=1:A(34)=A
330IFSA=0ANDA>32ANDA<43ANDINT(RND(0)*25)<5THENA(25)=-A
333IFZ1=1THENZ=Z+1
334IFMR=2ANDA<>21THENA(32)=-A
340IFA(26)=-1THENA$(765,780)="":IFA=27ORA=28ORA=35THENA$(765,780)="(POINTINGDOWN)"
350IFG>24ANDG<30THENA(35)=-52:A(34)=-52
351IFDB=2THENA(34)=-A
352IFCD=1THENA(35)=-A
353IFA=7ANDDB=2THENDB=5:PT=PT+1
354IFA=7ANDCD=1THENCD=3:PT=PT+1
355IFA=20ANDDB>1THEN357
356IFA>19ANDA<23THENA(33)=-A:IFG>1ANDG<11THENFORV=34TO37:A(V)=-A:NEXTV
357IFG=30ANDED=0ANDA=22ANDDB=1THENA(34)=-A
364IFN+W+E+S+D+NW+NE+SW+SE>ZTHEN?:X5=1:IFA>56THENPRINT"":X5=0
365IFX5=1THEN?""
367FORB=1TO10:B(B)=0:NEXTB
369IFW>ZTHENPRINT"West";:B(1)=W
371IFN>ZTHENPRINT"North";:B(2)=N
373IFE>ZTHENPRINT"East";:B(3)=E
375IFS>ZTHENPRINT"South";:B(4)=S
378IFD>ZTHENPRINT"Down";:B(6)=D
379IFNW>ZTHENPRINT"Northwest";:B(7)=NW
380IFNE>ZTHENPRINT"Northeast";:B(8)=NE
381IFSW>ZTHENPRINT"Southwest";:B(9)=SW:IFA=61THEN?
382IFSE>ZTHENPRINT"Southeast";:B(10)=SE
383?:?
390FORB=1TO37:IFABS(A(B))=ATHENC=C+1:GOTO392
391NEXTB:PRINT:GOTO397
392IFC=1AND(A=21ANDB>31)THEN394
393IFC=1THENPRINT"":X4=1:GOTO395
394IFDB<2ORA=21THENIFR=0THENIF(DB=1ANDA=18)OR((A=20ORA=21)ANDB>31)THENX5=2:IFX4=1THEN?
395IFX5=2ANDR=0THEN?"":R=1:X4=0
396?"";A$(B*SZ-SZ+4,B*SZ):GOTO391
397IFZ>14THEN?"Youdiedofthirst":GOTO6700
398IFZ>10THEN?"You'redyingofthirst":GOTO400
399IFZ>5THEN?"You'regettingthirsty"
400IFA=9ANDMR=2THENMR=3:PT=PT+1:?"Mayorthanksyoufor":?"escortinghimsafelyback":GOTO450
401IFG=12THEN?"EmmettandBobfirehiddenwithindoorways.Gratliesdead.BillDalton"
402IFA=9ORA=11ORA=15ORA=17ORA=19ORA=23THENIFA(1)=-1ORA(34)=-AORA(35)=-ATHENX5=3
403IFX5=3THEN?"You'rechasedout":C=0:A=A-1:GOTO5100
404IFA=64ANDA(35)=-AANDEB>0THEN6000
405IFPT=8THENGO=1:GOTO1500
406IFA=9AND(MY=0ANDG>29)THEN?"Clerkhandsyou$200":M=M+200:MY=1:GOTO425
407IFA=9ANDMR=1THEN?"Clerksays,":?CHR$(34);"TheMayor'sbeenkidnapped";CHR$(34):GOTO425
408IFA=11ANDG=1THEN?"Someonerunsinandyells,":?CHR$(34);"Sheriff,Sheriff!Thebank's";:X5=10
409IFX5=10THEN?"beingrobbed!";CHR$(34):N1=1:G=2
410IFG=12THEN?"runsacrossthestreet,hisgunblasting,andrunsupaladderonthe"
411IFG=12THEN?"backofthebanktotheroof":G=13:A(36)=0:A(35)=0:A(34)=0:BB=0:V1=3:GOSUB9000:GOTO431
412IFA=20ORA=21THENIFG>1ANDG<11THENG=G+1:V1=5:BB=0:X5=11
413IFX5=11THEN?"TheDaltonshaverobbedthebank.Gunsareblazinginafantasticshootout."
414IFX5=11THEN?"EmmettandBobrunforcoverwhileGratandBillkneelonthestreet"
415IFX5=11THEN?"firingwildly":GOSUB9000:GOTO431
416IFX5=12THEN?"runsacrossthestreet,hisgunblasting,andrunsupaladderonthe"
417IFX5=12THEN?"backofthebanktotheroof":G=13:A(36)=0:A(34)=0:A(35)=0:BB=0:V1=3:GOSUB9000:GOTO421
418IFG>12ANDG<18THENG=G+1:?"EmmettandBobscattertheir":X5=13
419IFX5=13THEN?"ammunitionwhileBillcrouchesontheroofofthebankpickinghisspotsandfiring"
420IFX5=13THENBB=0:V1=5:GOSUB9000:GOTO431
421IFA=19ANDCL=0THEN?"Clerkhandsyouanote":C(17)=28:A(28)=-1:CL=1
422IFDB=1ANDED=0ANDA=20THENIFA(3)=-2ORA(22)<>-2THEN?"EmmettDaltonseesyoufromafarand":X5=14
423IFX5=14THEN?"recognizesyou.Herunsoff":ED=1:A(34)=0:C=0:GOTO5000
424IFG>19ANDG<29ANDA=52THENG=G+1
425IFG=0ANDA=9THEN?"Mayorasks,":?:?CHR$(34);"Whatdoyouwant";CHR$(34):?"(oneword,please)";:X5=15
426IFX5=15THENINPUTA9$:IFA9$="JOB"ORA9$="WORK"ORA9$="APPLY"ORA9$="SHERIFF"THEN1550
427IFX5=15THEN?:?CHR$(34);"Sorry,Ican'thelpyou.Begone!";CHR$(34):A=8:C=0:GOTO5100
428IFG=19THEN?"YouhearthesoundofthunderinghoofsandwatchEmmettandBobDaltonas":X5=16
429IFX5=16THEN?"theygallopoutoftown.Youseesomeoneelsewiththem":MR=1:G=20:A(32)=-49
430IFA(35)=-52ANDDA=0THENDA=1:?"Daltonsappearfromcabin"
431IF(G=5ANDA<>21)ORG=11ORG=18THEN?"Billfindshismark":BB=0:V1=1:GOSUB9000:GOTO6000
432IFG=28THEN?"Theyspotyou"
433IFCD=0ANDA(35)=-64ANDA=61THEN?"Youseeasix-shooterstickingout":X5=17
434IFX5=17THEN?"fromtheNEtunnelandyoutakecover"
435IFX5=17ANDEB>0ANDINT(RND(0)*7)<5THENV1=1:BB=0:GOSUB9000:?"Hefiresashotatyou":EB=EB-1
436IFA=6ANDCD>2THEN?"BobDalton's";K1$
437IFA=6ANDDB>4THEN?"EmmettDalton's";K$
438IFA=52ANDG>25ANDG<29ANDA(31)=-ATHEN?"Theylookaroundandspotyou":G=29:GOTO440
439IFA=52ANDG>25ANDG<29ANDH=0THENG=29
440IFA=5ANDG=0THEN?"Asignistacked":?"totheoffice:":?:?"":?"":X5=18
441IFX5=18THEN?""
442IFG=29THEN?"EmmettandBobfireatyou":V1=2:BB=0:GOSUB9000:GOTO6000
443IFA=14ANDG<3THEN?"Asign'sonthedoor:":?:?"GONETOAHANGING":?"BEOUTFORASTRETCH":GOTO450
444IFA(31)=-ATHENIFA=54ORA=51ORA=50ORA=49ORA=56ORP=1THEN?"Yourhorserunsoff":X5=20
445IFX5=20THENA(31)=-52:P=0:C=0:GOTO5100
446IFA=65ANDMR>0THEN?"Youfallintoapit":A=49:C=0:GOTO5100
447IFA=25ORA=14THENIFJC<2ANDCD=3THENCD=4:PT=PT-1:A(35)=0:K1$="escaped"
448IFA=25ORA=14THENIFJC<2ANDDB=5THENDB=6:PT=PT-1:A(34)=0:K$="escaped"
449IFA=49ANDMR=1ANDL$<>""THEN?"Mayorwillfollowyou":MR=2
450SOUND0,0,0,0:X5=0:C=0:R=0:BB=5:A$(940,954)="":SA=0
451TRAP3000
452IF(A(24)=-AANDSN=0)ORA(25)=-ATHENSOUND0,222,0,7:X5=21
453IFX5=21THEN?:?"":SOUND1,0,0,15:FORV=1TO70:NEXTV:SOUND1,0,0,0
455POKE752,0:?:?"";:INPUTA9$:POKE752,1:?
460SOUND0,0,0,0:IFA9$="LOOK"THEN300
461IFA9$="SCORE"THEN1500
462IFSN=0ANDA=47ANDA9$="E"THEN?"Snakewon'tletyou":GOTO450
463IFA9$="DISMOUNT"THEND$="STALLION":GOTO695
471FORB=1TO10:IF(LEN(A9$)=1ANDA9$=B$(B*3-2,B*3-2))OR(LEN(A9$)=2ANDA9$=B$(B*3-2,B*3-1))THEN475
473NEXTB:GOTO500
475IFA(31)=-AANDA=13ANDTH=0THENP=1:GOTO444
477IFA>30ANDA<43ANDA(25)=-ATHEN?"Snakebites":GOTO6700
478IFB(B)<>0ANDG>25ANDG<29THEN6000
479IFB(B)<>0ANDG>2ANDG<11THEN6000
480IFB(B)<>0ANDG>12ANDG<18ANDA=21ANDA9$="W"THEN484
481IFB(B)<>0ANDG>12ANDG<18THEN6000
482IFOH=1ANDTH=1THEN?"Horsewon'tmove":GOTO450
483IFOH=0THENIF(A=28ANDA9$="E")OR(A=54ANDA9$="N")ORA=55OR(A>30ANDA<46)THENX5=30
484IFOH=0THENIFX5=30OR(A=50ANDA9$="NE")THEN?"It'stoofartoowalkonfoot":GOTO450
485IFA(35)=-14ANDA9$="N"ANDCD<2THEN?"Bringhimtojail":GOTO450
486IFB(B)<>0THENH=0:A=B(B):GOTO300
493?"Youcan'tmovethatway":GOTO450
500IFA9$<>"I"THEN531
502?"":?"";M;"dollarsincash":IFBL>0THEN?"";BL;"roundsofammunition"
510FORK=0TO18:IFC(K)=0THEN515
511IFA(C(K))=-2THEN?"WEARING";
512?"";A$(C(K)*SZ-SZ+4,C(K)*SZ)
515NEXTK:GOTO450
531FORB=11TO39:IFA9$(1,3)=B$(B*3-2,B*3)THEN600
535NEXTB
540?"Idon'tknowwhat";CHR$(34);A9$;CHR$(34);"means":GOTO450
600FORK=1TOLEN(A9$):IFA9$(K,K)<>""THENNEXTK:?"Idon'tunderstand...":GOTO450
605D$=A9$(K+1,LEN(A9$))
606IFLEN(D$)<3THEND$(LEN(D$)+1)="":GOTO606
607E$=D$(1,3):IFE$="SAC"THENE$="MON"
609IFE$="SIX"THENE$="GUN"
611IFD(B)<>1THEN680
614IFA=15THENFORJ=16TO23:IFE$<>A$(J*SZ-SZ+1,J*SZ-SZ+3)THENNEXTJ:X5=1
615IFX5=1THEN?S$:?CHR$(34);"Idon'thavethat";CHR$(34):GOTO450
616IFA=15THENIFM(J-15)=0THEN?S$:?CHR$(34);"I'mallout";CHR$(34):GOTO450
617IFA=15THENIFM<M(J-15)THEN?S$:?CHR$(34);"Youdon'thaveenoughmoney";CHR$(34):GOTO450
618IFA=15ANDJ=17THENBL=BL+15:M=M-5:GOTO620
619IFA=15THENM=M-M(J-15):M(J-15)=0
620IFA=15THEN?"Shopkeepertakesyourmoney":IFJ=17THEN5100
621IFA=15THEN675
622IFD$="WATER"THENIF(A=35ANDSS=1)ORA=27ORA=28THENX5=2:IFOH=1ORA(16)<>-1THENX5=3
623IFX5=3THEN?"Youcan'tdothatyet":GOTO450
624IFX5=2THENWT=1:A$(454,466)="FULLCANTEEN":GOTO5050
625IFCW=0ANDA=64ANDE$="BOA"ANDA(14)=-1THENCW=1:A(11)=A:A(29)=-A:A(27)=A:?"Youfindsomething":X5=4
626IFX5=4THENJ7$="":GOTO5100
627IFGD=0ANDE$="GUN"THENGD=1:A$(16,25)="":A(2)=-2:A(1)=-1:C(1)=2:GOTO5050
628IFG>29ANDCD=0ANDA(35)=-AAND(E$="BOB"ORE$="DAL")THENX5=5
629IFX5=5ANDA(1)=-1THENA$(1035,1044)="(CAPTURED)":PT=PT+1:CD=1:GOTO5050
630IFX5=5THEN?"He'snotafraidofyou":NA=1:GOTO450
631IFA=22ANDG>29ANDDB<2ANDA(34)=-AAND(E$="DAL"ORE$="EMM")THENX5=6
632IFX5=6ANDA(1)=-1THENDB=2:A$(1008,1017)="(CAPTURED)":PT=PT+1:GOTO5050
633IFX5=6THEN?"Helaughsandrunsoff":ED=1:A(34)=0:GOTO5100
639FORJ=1TO37:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)ANDA=ABS(A(J))THEN642
640NEXTJ
641?"There'sno";CHR$(34);D$;CHR$(34);"here":GOTO450
642IFJ=21THENL$=""
645IFA(J)<0THEN?"Youcan'tcarrythat":GOTO450
675FORK=2TO18:IFC(K)=0THENC(K)=J:A(J)=-1:GOTO5050
676NEXTK
680IFD(B)<>2THEN750
692IFA=15THEN?S$:?CHR$(34);"Don'tlittermyshop";CHR$(34):GOTO450
693IFE$="GUN"ANDGD=1THENGD=0:A(1)=-2:A(2)=0:A$(16,25)="INHOLSTER":C(1)=0:GOTO5050
694IFE$="GUN"THEN1000
695IFOH=1ANDD$="STALLION"THENOH=0:A(31)=-A:GOTO5050
707FORJ=1TO37:IFE$=A$(J*SZ-SZ+1,J*SZ-SZ+3)THENIFA(J)=-1ORA(J)=-2THEN710
708NEXTJ
709?"You'renotcarryingit":GOTO450
710FORK=2TO18:IFC(K)=JTHEN712
711NEXTK:GOTO709
712A(J)=0:C(K)=0:IFEF=1THENEF=0:GOTO5100
713IFA=47ANDSN=0ANDJ=23THEN?"Snakeeatsfood":A$(694,707)="SLEEPINGSNAKE":SN=1:GOTO5100
714IFA=17ANDJ=18THENHS=1:A(J)=0:?"Horseissaddled":GOTO450
715IFA=48ANDJ=19THEN?"Indianthanksyouand":?"givesyousomething":A(26)=-1:C(18)=26:X5=7
716IFX5=7THENPI=1:PM$="smoking":GOTO5100
717IFA=23ANDJ=27THEN?"Officialsthankyou":?"andtakethemoney":A(J)=0:PT=PT+1:GOTO5100
718IFA=49ANDJ=21THEN?"Ladderleansagainsthole":L$=".Aladdergoesup":A(J)=A:GOTO5100
725A(J)=A
740?"OK!":GOTO5100
750IFD(B)<>4THEN760
752IFE$="NOT"ANDA(28)=-1THEN?"Verystrange.Itsays,":?"SEEN":?"NEWS":GOTO450
754IFA=15ANDE$="SIG"THEN?"WEHAVE":FORV=16TO23:X5=9
755IFX5=9THENIFM(V-15)>0THEN?"";A$(V*SZ-SZ+4,V*SZ);"$";M(V-15);:X5=8:IFV=17THEN?"ABOX";
756IFX5=8THEN?
757IFX5=9ORX5=8THENNEXTV:GOTO450
760IFD(B)<>5THEN770
762IFA=6ANDE$="CEL"ANDJC=0THENR$="closed":JC=1:GOTO5050
770IFD(B)<>6THEN780
772IFA=6ANDE$="CEL"ANDA(30)=-1THENR$="locked":JC=2:GOTO5050
780IFD(B)<>7THEN800
782IFE$="GUN"THEN?"Gunhas";GB;"bullets":GOTO450
783IFE$="SIG"ORE$="NOT"THEN?"TRY:READ";D$:GOTO450
784IFA=6ANDE$="DES"THEN?"Ithasadrawer":GOTO450
790?"Youseenothingspecial":GOTO450
800IFD(B)<>9THEN840
802IFE$="STA"ANDA=17ANDHS=0THEN?"Horsewon'tletyou":GOTO450
803IFD$="STALLION"ANDA(31)=-ATHENOH=1:A(31)=0:GOTO5050
804IFE$="CRE"ANDA=27THENA=28:GOTO300
805IFE$="CRE"ANDA=28THENA=27:GOTO300
807IFE$="LAD"ANDA(21)=AANDL$<>""THEN?"Youclimboutbutclumsily":?"kicktheladderdown":X5=10
808IFX5=10THENA=56:L$="":GOTO5100
809IFE$="LAD"ANDA(21)=ATHEN?"Ladder'snothighenough":GOTO450
811IFOH=1ANDA<>16THEN?"Youcan'tdothatyet":GOTO450
816IFA=20ANDE$="BAR"THENA=21:GOTO300
817IFA=6ANDE$="CEL"ANDJC=0THENA=7:GOTO300
818IFA=6ANDE$="CEL"THEN?"":GOTO450
820IFA=52ANDE$="BUS"THENH=1:GOTO5050
822IFA=18ANDE$="LAD"THENA=24:GOTO300
824IFG>2ANDG<20THEN6000
826IFA=52ANDE$="CAB"ANDG<30THEN6000
827IFA=52ANDE$="CAB"THENA=53:GOTO300
830IFE$="OFF"THENIFA=8ORA=18ORA=5THENA=A+1:GOTO300
831IFE$="SAL"ANDA=10THENA=11:GOTO300
832IFE$="STO"ANDA=14ANDG>2THENA=15:GOTO300
833IFE$="STA"ANDA=16THENA=17:GOTO300
834IFE$="BAN"ANDA=22THENA=23:GOTO300
836IFA=56ANDE$="MIN"THENA=60:GOTO300
837IFA=56ANDE$="HIL"THENA=65:GOTO300
840IFD(B)<>10THEN875
842IFGD=0THEN?"How?":GOTO5100
844IFGB<1THEN?CHR$(34);"CLICK";CHR$(34):GOTO450
845IFE$="SNA"ORE$="RAT"THENIFA=47THEN?"AnoldIndianappearsandstopsyou":X5=11
846IFX5=11THEN?CHR$(34);"Noshootemmypet,";CHR$(34);"hesays":GOTO450
850V1=1:?"":GOSUB9000:GB=GB-1:IFG<30ANDG<>20THENX5=12
851IFX5=12ANDG>7ANDG<11THEN?"GratDalton'sbeenhit.":X5=13
852IFX5=13THEN?"Hesqueezesoffalast":?"shotwhichgoeswild":V1=1:BB=0:GOSUB9000
853IFX5=13THENA$(1096,1101)="(DEAD)":PT=PT+1:G=12:GOTO5000
854IFX5=12ANDA=24ANDG>12ANDG<20THEN?"BillDalton'sbeenhit.Hetwistsand":X5=14
855IFX5=14THEN?"fallsdeadacrosstheledgeoftheroofofthebank":G=19:PT=PT+1:GOTO5000
860IFA(25)=-ATHEN?"Yougotit":A(25)=0:SA=1:GOTO5100
862IFG>20ANDA=52ANDG<26THEN?"Youcaughttheirattention":G=26:GOTO5100
863IFG>20ANDA=52ANDG<30THEN?"Theyscatterasyoufire.BobDalton":X5=15
864IFX5=15THEN?"runsintothemineandEmmettgallopsoffonhishorse,behindthecabin"
865IFX5=15THENG=30:A(35)=-64:A(34)=0:GOTO5000
866IFG>29ANDA(35)=-AAND(E$="BOB"ORE$="DAL")THENA$(1035,1044)="(DEAD)":CD=2:GOTO5100
867IFG>29ANDA(34)=-AAND(E$="EMM"ORE$="DAL")THENA$(1008,1017)="(DEAD)":DB=4:GOTO5100
868IFA=6ANDDD=0AND(E$="DES"ORE$="DRA")THENDD=1:?"Youshotthelockoffthedrawer":GOTO450
869FORV=1TO15:SOUND0,35,10,V:NEXTV:FORV=15TO0STEP-1:SOUND0,35,10,V:NEXTV:?"Yourshotmissed"
870GOTO5100
875IFD(B)<>11THEN880
876IFE$="STA"ANDTH=0ANDA=13ANDOH=0ANDA(31)=-13THENA$(904,926)="STALLION(TIEDTOTREE)":TH=1:GOTO5050
880IFD(B)<>12THEN890
882IFE$="STA"ANDA=13ANDTH=1ANDOH=0THENA$(904,926)="BLACKSTALLION":TH=0:GOTO5050
883IFE$="STA"ANDA=13ANDTH=1THEN?"Youcan'tdothatyet":GOTO450
890IFD(B)<>13THEN900
891IFE$="GUN"ORE$="AMM"THENIFBL=0THEN?"Outofammo":GOTO450
892IFE$="GUN"ORE$="AMM"THENIFGD=1ANDA(1)=-1ANDGB<6THENX0=0:X5=16
893IFX5=16THENFORV=1TO6-GB:BL=BL-1:X0=X0+1:X5=17:IFBL=0THENGB=GB+X0:GOTO5050
895IFX5=17THENNEXTV:GB=6:GOTO5050
900IFD(B)<>14THEN910
902IFE$="WAT"THENIFA=27ORA=28OR(SS=1ANDA=35)OR(A(16)=-1ANDWT=1)THENX5=17
903IFX5=17THENA$(454,466)="EMPTYCANTEEN":WT=0:Z=0:IFA>42ORA=35THENZ1=0:GOTO5050
904IFX5=17THEN5050
910IFD(B)<>16THEN920
914IFE$="FOO"ANDA(23)=-1THENJ=23:EF=1:?"Yummy":GOTO710
920IFD(B)<>18THEN930
922IFA(20)=-1AND(A=35ANDSS=0)THENSS=1:GOTO5050
924IFA(20)=-1THEN?"Youfoundnothing":GOTO450
930IFD(B)<>19THEN940
932IFA(3)=-1ANDE$="STA"THENA(3)=-2:?"Ok":GOTO450
933IFA(22)=-1ANDE$="DIS"THENA(22)=-2:?"Ok":GOTO450
940IFD(B)<>20THEN960
942IFA=6ANDE$="CEL"AND(A(30)=-1ORJC=1)THENJC=0:R$="nopen":GOTO5050
943IFA=6ANDE$="DRA"ANDDD=0THEN?"It'slocked":GOTO450
944IFA=6ANDE$="DRA"ANDDD=1THEN?"Youseesomething":DD=2:A(30)=A:GOTO5100
960IFD(B)<>21THEN1000
970IFE$="STA"ANDA(3)=-2THENA(3)=-1:?"Ok":GOTO450
972IFE$="DIS"ANDA(22)=-2THENA(22)=-1:?"Ok":GOTO450
1000?"Sorry,youcan'tdothat":GOTO450
1500?"Youhave";PT;"outof":?"apossible8points":IFGO=1THEN6710
1501GOTO450
1550?:?"MAYORSAYS,":?CHR$(34);"Ok,you'lldo.Here'syourfirst"
1551?"paycheckfor$200.You'llgetanother$200onaperformancebasis";CHR$(34):M=200:A(3)=-2:C(5)=3:G=1
1552GOTO450
1700IFSS=1THEN?"Aspringofwaterishere"
1702GOTO320
1705IFH=0THEN?".Therearethickbushesnearby":GOTO1708
1707?"hidinginsomebushes"
1708GOTO320
2000DATAGUNSIX-SHOOTERINHOLSTER,-2,HOLEMPTYHOLSTER,0,STASHERIFF'SSTAR,0,OFFSHERIFF'SOFFICE,-5,DESDESK,-6
2005DATAOFFMAYOR'SOFFICE,-8,SALSALOON,-10,OFFGENERALSTORE,-14,STALIVERYSTABLE,-16,OFFNEWSPAPEROFFICE,-18
2010DATABOABOARDS,0,TRESMALLTREE,-13,CABCABIN,-52,CROCROWBAR,53,BARRAINBARREL,-20,CANEMPTYCANTEEN,0
2020DATAAMMBOXOFAMMUNITION,0,SADSADDLE,0,POULEATHERTOBACCOPOUCH,0,SHOSHOVEL,0,LADSMALLLADDER,0
2030DATADISDISGUISE,0,FOOFOOD,0,RATGOLDENRATTLER,-47,SNARATTLESNAKE,0,STIMAGICSTICK,0,MONSACKOFMONEY,0
2035DATANOTNOTE,0,HOLHOLEINFLOOR,0,KEYSETOFKEYS,0,STABLACKSTALLION,-17,MAYMAYOR,-9,BANBANK,-22
2040DATAEMMEMMETTDALTON,0,BOBBOBDALTON,0,BILBILLDALTON,0,GRAGRATDALTON,0
2100DATAWNESUDNWNESWSEGETPULDRABUYCAPARRDROPUTOFFDISGIVHOLREACLOLOCLOOGOCLICROSHO
2105DATATIEUNTLOADRIEATDIGWEAOPEREM
2110DATA1,1,1,1,1,1,2,2,2,2,2,2,4,5,6,7,9,9,9,10,11,12,13,14,16,18,19,20,21,10,5,145,20,10,25,50,5
3000?"Idon'tknowwhatyoumean!":GOTO450
5000?:?"HITTOCONTINUE...";:INPUTA9$:GOTO300
5050?"Ok"
5100FORHI=1TO250:NEXTHI:GOTO300
6000?"Youareshotdown"
6700?"You'redead"
6710?"Thisadventure":?"isover":POKE752,0:END
9000FORV=1TOV1:SETCOLOR2,BB,0:SETCOLOR4,BB,0:FORV2=70TO0STEP-10:SOUND1,V2,0,15:NEXTV2
9005IFBB=0THENGOSUB9020
9010SETCOLOR4,0,0:SETCOLOR2,0,0:FORV3=15TO0STEP-1:SOUND1,0,0,V3:NEXTV3:NEXTV:RETURN
9020FORV4=1TO2:FORV6=70TO0STEP-10:SOUND1,V6,0,15:NEXTV6:FORV7=15TO0STEP-1
9030SOUND2,0,0,V7:NEXTV7:NEXTV4:RETURN	

• Download link 1

• Download link 1
• Download link 2