Atari 8-bit Source code

10GRAPHICS0:POKE752,1:POSITION9,6
20?""
30?""
40?""
50?"----Softsidepresents----"
55FORI=1TO800:NEXTI
60GRAPHICS0:POSITION16,6:?"JACK":POSITION18,8:?"THE":POSITION14,10:?"RIPPER"
70POSITION13,5:?"";:FORT=6TO10:FORI=13TO25STEP2:IFT<>8ORI<>19THENPOSITIONI,T:?"|";
74NEXTI:NEXTT:POSITION13,11:?""
80FORI=1TO1000:NEXTI
100GOSUB1100
130?"AsaconstableofScotlandYardyou"
140?"havebeenassignedtopatrolthe"
150?"WhitechapelsectionofLondontoseek"
160?"outoneJacktheRipperandputanend";
170?"tohismurderouscrimesofpassion."
180?
190?"InthisadventureIwillbecomeyour";
200?"eyes,earsandhands.Youwilltell"
210?"mewhattodowithsimpletwoword"
220?"commandssuchasGETAXEorGOSTAIRS.";
230?"Tomove,typethedirectionyouwish"
240?"togoin,NORTH,EAST,SOUTHorWEST,"
250?"orsimplytypethefirstletterofthe";
260?"direction,N,E,SorW.Toobtaina"
270?"listofwhatyouarecarrying,type"
280?"INVENTORYorjustI."
290?
300GOSUB1000
305GOSUB1100
310?"Myvocabularyislimited,soImaynot";
320?"understandeverythingyoutellmeto"
330?"do.Ifonewayofwordingsomething"
340?"doesnotwork,tryanother.People"
350?"havingtroubleareusuallytryingto"
360?"dosomethingbeyondtheir(ormy)"
370?"capability."
380?
382?"Somenotesonthisgame:":?
390?"Ifyouareaskedaquestionduring"
400?"thegameyoumayanswerbysimply"
410?"typingyourresponse."
420?"Inthisgametherearemultiplesof"
430?"someobjects(suchaskeys).Tokeep"
440?"mefromgettingconfused,nevercarry"
450?"morethanoneorleavemorethanone"
460?"inthesameplace."
500?""
510POSITION10,23
520?"Runfromiskorape";
530IFPEEK(764)=58THENPOSITION3,23:?"RunningJACKTHERIPPERADVENTURE";:POKE764,255:RUN"D:JACKRIP1"
540IFPEEK(764)<>45THEN530
550POSITION4,23:POKE764,255
560?"Hitwhentapeisready";
570POKE764,255
580CLOAD
990GOTO990
1000POSITION10,23
1010PRINT"";
1020POKE764,255
1030IFPEEK(764)=255THEN1030
1040RETURN
1100GRAPHICS0
1110?""
1115?"(c)1981SoftSidePublications"
1120?
1130RETURN
9999END	

0RESTORE6000:READC0,C1,C2,C3,C4,C5,C6,C10,C34,C41,C49,C1870:RESTORE
20GRAPHICS18:POKE756,226:SETCOLORC4,C0,C0:FORT=C1TO12:PRINT#C6;"||||||||||||||||||||";:NEXTT:POSITIONC0,C2
30PRINT#C6;"|||||||||":PRINT#C6
40PRINT#C6;"||||||||":PRINT#C6
50PRINT#C6;"|||||||||":PRINT#C6
60PRINT#C6;"|||||"
100REMJACKTHERIPPERADVENTURE
105SZ=25:Z1=C0
110GOTO580
120GOSUB120+A*C10:GOTO630
130PRINT"onaLondonstreet.":W=C2:N=C6:E=C10:RETURN
140PRINT"onaLondonstreet.":W=C3:E=C1:RETURN
150PRINT"onaLondonstreet.":N=C4:E=C2:RETURN
160PRINT"onasidestreet.":N=C5:S=C3:RETURN
170PRINT"onasidestreet.":S=C4:RETURN
180PRINT"onRueStreet.":N=8:E=15:S=C1:RETURN
190PRINT"nearariverbank.":W=C10:RETURN
200PRINT"onRueStreet.":E=16:S=C6:RETURN
210PRINT"onalongbridge.":W=7:E=17:RETURN
220PRINT"onaLondonstreet.":W=C1:E=7:S=11:RETURN
230PRINT"onPagonAvenue.":W=14:N=C10:S=12:RETURN
240PRINT"onPagonAvenue.":W=13:N=11:RETURN
250PRINT"inadarkalley.":E=12:RETURN
260PRINT"inadarkalley.":E=11:RETURN
270PRINT"inadarkalley.":W=C6:RETURN
280PRINT"inadarkalley.":W=8:RETURN
290PRINT"onParliamentBlvd.":N=18:S=19:RETURN
300PRINT"onParliamentBlvd.":S=17:RETURN
310PRINT"atataxistand.":N=17:RETURN
320PRINT"inapantry.":S=29:RETURN
330PRINT"atataxistand.":N=30:RETURN
340PRINT"inaden.":N=43:S=C6:RETURN
350PRINT"inadressshop.":W=C5:RETURN
360PRINT"inaden.":N=25:S=8:RETURN
370PRINT"inabedroom.":S=24:RETURN
380PRINT"ontopofatree.":D=30:RETURN
390PRINT"inawashroom.":S=11:RETURN
400PRINT"inaden.":W=29:S=12:RETURN
410PRINT"inakitchen.":E=28:RETURN
420PRINT"at13RueLane.":S=21:RETURN
430PRINT"inacloset.":S=28:RETURN
440PRINT"inalargehall.":W=33:S=C3:RETURN
450PRINT"inthelobby.":E=32:RETURN
460PRINT"inahall.":E=35:RETURN
470PRINT"inahotelroom.":W=C34:RETURN
480PRINT"inanoisypub.":N=37:S=C2:RETURN
490PRINT"inasmallbackroom.":S=36:RETURN
500PRINT"inScotlandYard.":W=18:RETURN
510PRINT"inawarehouse.":N=40:S=30:RETURN
520PRINT"inahall.":W=C41:E=42:S=39:RETURN
530PRINT"inastorageroom.":E=40:RETURN
540PRINT"inastorageroom.":W=40:RETURN
550PRINT"inabedroom.":S=22:RETURN
560PRINT"inacandystore.":W=C4:RETURN
570PRINT"inataxi.":RETURN
580DIMA$(54*SZ),A(54),B(12),B$(C41*SZ),D9$(18),D(C41),H$(54*SZ),I(54),X(C2)
582DIMO$(25),D$(20),E$(20),A9$(20),R$(SZ),Z$(200),A1$(C3),C$(SZ*C10),H(C10),M$(SZ),G(C10)
584O$=""
586FORT=C1TOC10:C$(LEN(C$)+C1)=O$:NEXTT
588X(Z1)=Z1:X(C1)=Z1:X(C2)=Z1:FORZ=C1TOC10:H(Z)=Z1:G(Z)=Z1:NEXTZ:FORZ=C1TO54:I(Z)=Z1:A(Z)=Z1:NEXTZ
590FORA=C1TO43:READZ$:A$(A*SZ-SZ+C1,A*SZ)=O$:A$(A*SZ-SZ+C1,A*SZ)=Z$:READZ:A(A)=Z
592H$(A*SZ-SZ+C1,A*SZ)=A$(A*SZ-SZ+C1,A*SZ):NEXTA:READZ$:B$=Z$:READZ$:B$(LEN(B$)+C1)=Z$:FORA=13TOC41
594READZ:D(A)=Z:NEXTA
596FORA=44TO54:A$(LEN(A$)+C1)=O$:H$(LEN(H$)+C1)=O$:NEXTA
600A=C1:G=C1:VC=C3:D9$="STUCKLOCKEDLOCKED"
610C=Z1:N=Z1:W=Z1:E=Z1:S=Z1:U=C0:D=Z1:Y=Z1:GRAPHICSZ1:PRINT"You're";
620GOTO120
630PRINT:IFN+W+E+S+U+D>Z1THENPRINT"":FORB=C1TO12:B(B)=C0:NEXTB
640IFW>Z1THENPRINT"West";:B(C1)=W:B(C2)=W
650IFA=39ANDFR=C1THEN670
652IFN>Z1THENPRINT"North";:B(C3)=N:B(C4)=N
660IFE>Z1THENPRINT"East";:B(C5)=E:B(C6)=E
670IFS>Z1THENPRINT"South";:B(7)=S:B(8)=S
680IFU>Z1THENPRINT"Up";:B(9)=S:B(C10)=U
690IFD>Z1THENPRINT"Down";:B(11)=D:B(12)=D
700PRINT:PRINT
710FORB=C1TO54:IFABS(A(B))=ATHENC=C+C1:GOTO730
720NEXTB:PRINT:GOTO750
730IFC=C1THENPRINT""
740PRINT"";A$(B*SZ-SZ+C4,B*SZ):GOTO720
750IFBY<>ATHENBY=INT(RND(C0)*C5+C1)
760IFG=C1THENPRINT"Theyearis1888.Theplace,London,England.AsconstableofScotland"
762IFG=C1THEN?"YardyouhavesworntopatrolthestreetstoseekanendoftheterrorofJacktheRipper"
764IFG=C1THENG=Z1
770IFA=18THENDS=Z1:GOTO780
772IFA=38ANDDS=Z1THENPRINT"DeskSergeantasksyou,":?CHR$(C34);"Whatdoyouwant?";CHR$(C34)
780IF(W9=Z1)AND(X(C0)+X(C1)+X(C2)=C3)THENPRINT"Youlooklovely":W9=C1:GOTO790
782IFA=45THENPRINT"Taxidriverasks,":?CHR$(C34);"Whereto?";CHR$(C34):TD=C1
790IFPT=Z1ANDA=C2THEN?"Patronleaningagainstpubreadingnewspaperheadline:"
792IFPT=Z1ANDA=C2THENIFVC<>C3THENPRINT"Ripperclaimsvictim";VC
794IFPT=Z1ANDA=C2THENPT=C1:IFVC=C3THEN?"Ripperstillatlarge."
800IFBF<>C2ANDA=9THENBF=C1:GOTO810
802IFA=36ANDDP=Z1THENPRINT"There'sadartgameplayed."
810IFDF=Z1ANDBF=C1ANDA=BYTHENPRINT"There'sasmallladplayingJacktheRipperwitharubberknife"
820IFA=39ANDFR=C1THENPRINT"Fireblocksyourway":GOTO830
822IFJK=Z1ANDSJ=Z1ANDDF=C1THENJR=INT(RND(Z1)*C4+C1):JR=JR+12:IFJR=ATHENGOSUB1630
830IFA=9ANDBM=C1THENBM=Z:BG=Z1:GOTO840
832IFA=30ANDSQ=Z1THENPRINT"There'sahungrysquirrelherebegging";
840IFA=9THEN?"ThebeautifulRiverThamesflowsbelow";:IFBL=C1THENPRINT"withloweredbucket":GOTO850
842IFA=9THENPRINT
850IFA=C41ANDSF=C1ANDDF=C1THENPRINT"Thesafe'sempty":GOTO860
852IFA=C41ANDSF=C1ANDDF=C0ANDBG=Z1THENPRINT"There'sadoctor'sbaginthesafe"
860IFDF=Z1THENIFKN=C1THENIF((SF=C1)AND(BG=C0))OR((I(C49)=C1)AND(BG=C1))OR((I(C49)=A)AND(BG=C1))THEN862
861GOTO870
862IFK7=Z1THENPRINT"There'sasurgeonsknifeinthebag"
864IFK7=C1THENPRINT"There'sarubberknifeinthebag"
870IFDF=Z1ANDTF>69ANDTF/C5=INT(TF/C5)THENPRINT90-TF;"turnsuntildusk"
880IFDF=C1ANDTF>14ANDTF/C5=INT(TF/C5)THENPRINT50-TF;"turnsuntildawn"
890IFDF=Z1AND90-TF<C1THEN?"It'snighttime.Streetgaslampssurearebright!"
892IFDF=Z1AND90-TF<C1THENDF=C1:?"Youmusthavefallenasleep":TF=Z1:GOSUB1730
900IFDF=C1AND50-TF<C1THENTF=Z:DF=Z1:PRINT"Daylight!":VC=VC+C1:PT=Z1:JK=Z1
910IFSJ=C1ANDA=7THEN?"Ripperawakens,regainshissensesandtunstowardsthebridge.":SJ=C2:K3=48:R$="":GOSUB1550
920IFSJ=C2ANDA=9THENPRINT"YouseeJacktheRipperclimbingthebridge.Ashegetstothetophe"
922IFSJ=C2ANDA=9THEN?"says,":?CHR$(C34);"Constable,onemoveandI'lljump!";CHR$(C34):SJ=C3
930IF(A<>12ORI(24)<>C1)AND(A<>30ORI(C49)<>C1)THEN940
932?"":?"Youhavejustbeenshot!PeoplethoughtyouwereJacktheRipper!":GOTO1880
940TRAP5000:?:?"Whatdoyouwanttodo";:INPUTA9$:A9$(LEN(A9$)+C1)="":?:TF=TF+C1:IFA=39ANDFR=Z1THEN1540
941IFSJ=C3THEN1680
942FORT=C1TOLEN(A9$)-C3:IFA9$(T,T)<>""THENNEXTT:D$="":E$="":GOTO946
944D$=A9$(T+C1,LEN(A9$)):E$=A9$(T+C1,T+C3)
946IFA9$(C1,C3)="LOO"THEN610
947IFA9$(C1,C3)="JUM"THEN1610
948IFA9$(C1,C3)="WAI"THEN1620
950FORB=C1TO12:IFA9$(C1,C3)<>B$(B*C3-C2,B*C3)THENNEXTB:GOTO960
952IFB(B)<>Z1THENA=B(B):GOTO610
954PRINT"Youcan'tmovethatway.":GOTO940
960IFA9$(C1,C3)<>"I"ANDA9$(C1,C3)<>"INV"THEN980
962PRINT"":FORK=C1TOC10:A9$=C$(K*SZ-SZ+C1,K*SZ-SZ+C3):IFA9$<>""THEN?C$(K*SZ-SZ+C4,K*SZ);
964IF(A9$="WIG"ANDX(C0)=C1)OR(A9$="DRE"ANDX(C1)=C1)OR(A9$="BRA"ANDX(C2)=C1)THEN?"(WhichI'mwearing)"
966IFA9$<>""THENPRINT
970NEXTK:GOTO940
980A1$=A9$(C1,C3):GOSUB1510:FORB=13TOC41:IFA9$(C1,C3)=B$(B*C3-C2,B*C3)THEN990
982NEXTB:?"Don'tknowwhat";CHR$(C34);A9$(C1,LEN(A9$)-C3);CHR$(C34);"means.":GOTO940
990REM
1000IFD(B)<>C1THEN1130
1010IFI>C4THENPRINT"Youcan'tcarryanymore.":GOTO940
1020IFE$="KNI"AND(BG=Z1ANDKN=C1ANDSF=C1ANDA=C41)OR(BG=C1ANDKN=C1AND(I(C49)=C1ORI(C49)=A))THEN1022
1021GOTO1030
1022J=45:IFK7=C1THENA$(44*SZ+C1,45*SZ)="KNIRUBBERKNIFE":H$(44*SZ+C1,45*SZ)=A$(44*SZ+C1,45*SZ)
1024IFK7=C1THENK7=C2:K6=C1:GOTO1120
1026IFK7=ZTHENA$(44*SZ+C1,45*SZ)="KNISURGEONSKNIFE":H$(44*SZ+C1,45*SZ)=A$(44*SZ+C1,45*SZ):K7=C2:K6=C2:GOTO1120
1030IFBF=C1ANDBY=AANDE$="KNI"THENPRINT"Boywon'tgiveitupyet":GOTOC1870
1040IFA<>C41ORE$<>"BAG"ORSF<>C1ORBG<>C0THEN1050
1042J=C49:A$(48*SZ+C1,C49*SZ)="BAGDOCTOR'SBAG":H$(48*SZ+C1,C49*SZ)=A$(48*SZ+C1,C49*SZ):BG=C1:GOTO1120
1050FORJ=C1TO54:IFE$=A$(J*SZ-SZ+C1,J*SZ-SZ+C3)ANDA=ABS(A(J))THEN1080
1060NEXTJ
1070PRINT"There'sno";D$(C1,LEN(D$)-C3);"here.":GOTO940
1080IFA(J)<Z1THENPRINT"Bereasonablenow.That'simpossible.";:GOTO940
1090IFA<>31ORE$<>"CAP"ORKY<>Z1THEN1100
1091?"Somethingfallsout"
1092A$(C49*SZ+C1,50*SZ)="KEYSMALLKEY":H$(C49*SZ+C1,50*SZ)=A$(C49*SZ+C1,50*SZ):A(50)=31
1100IFA=44AND(E$="NUT"ORE$="CAN")THENPRINT"Foryou,Constable,nocharge"
1110IFA=23ANDE$="DRE"ANDBP=ZTHEN?"Merchantsays.":?CHR$(C34);"Dresscosts1pound";CHR$(C34):GOTOC1870
1120PRINT"":FORK=C1TOC10:IFC$(K*SZ-SZ+C1,K*SZ-SZ+C1)<>""THENNEXTK:GOTO1130
1122C$(K*SZ-SZ+C1,K*SZ)=A$(J*SZ-SZ+C1,J*SZ):GOSUB1810:H(K)=J:A$(J*SZ-SZ+C1,J*SZ)=O$:A(J)=Z1:I=I+C1:GOTOC1870
1130IFD(B)<>C2THEN1260
1140IFBW<>C2ORE$<>"WAT"ORI(35)<>C1THEN1150
1142BW=C1:K3=35:R$="BUCROPEANDEMPTYBUCKET":GOSUB1550:H$(C34*SZ+C1,35*SZ)=R$
1144IFFR=C1ANDA=39THENPRINT"Fireisout!":FR=C2:GOTOC1870
1146PRINT"Groundiswet!":GOTOC1870
1150FORJ=C1TOC10:IFE$=C$(J*SZ-SZ+C1,J*SZ-SZ+C3)THEN1170
1160NEXTJ:PRINT"You'renotcarryingit.":GOTO940
1170IF(BG=Z1ANDSF=C1ANDA=C41ANDKN=C1)OR(BG=C1ANDKN=C1AND(I(C49)=C1ORI(C49)=A))THENIFE$="KNI"THEN1172
1171GOTO1180
1172IFK6<>Z1THENK3=45:R$=O$:GOSUB1550:?"Youdropknifeintobag":IFK6=C1THENK7=C1:K6=Z:I(45)=Z:GOTOC1870
1174IFK6=C2THENK7=Z1:K6=Z1:I(45)=Z1:GOTOC1870
1180FORK=C1TO54:IFA$(K*SZ-SZ+C1,K*SZ)=O$THENA$(K*SZ-SZ+C1,K*SZ)=C$(J*SZ-SZ+C1,J*SZ):I=I-C1:A(K)=A:H(J)=C0:GOTO1190
1182NEXTK
1190?"":FORK1=C1TO54:IFC$(J*SZ-SZ+C1,J*SZ-SZ+C3)=H$(K1*SZ-SZ+C1,K1*SZ-SZ+C3)THENC$(J*SZ-SZ+C1,J*SZ)=O$:GOTO1200
1192NEXTK1
1200REM
1210IFA<>30ORE$<>"NUT"THEN1220
1212?"Squirrelgrabsnuts,scampersuptree,comesbackdown,dropssomething,scampersbackup":SQ=C1:K3=42
1214M$=O$:GOSUB1590:A$(50*SZ+C1,51*SZ)="KEYLARGEKEY":H$(50*SZ+C1,51*SZ)=A$(50*SZ+C1,51*SZ)
1216A(51)=30:GOTOC1870
1220IFBF<>C1ORBY<>AORE$<>"CAN"THEN1230
1222PRINT"Boygrabscandy,thanksyou,dropshisknifeandrunsoff":BF=C2:K3=C41:M$="KNIRUBBERKNIFE"
1224GOSUB1590:H$(40*SZ+C1,C41*SZ)=M$:GOTOC1870
1230IFA<>23ORE$<>"POU"THEN1240
1232?"Merchantsays,":?CHR$(C34);"Thankyou!";CHR$(C34):BP=C1:K3=53:M$=O$:GOSUB1590:GOTOC1870
1240IFA<>C41ORSF<>C1ORE$<>"BAG"THEN1250
1242PRINT"Youputbagbackintosafe":BG=Z:K3=C49:M$=O$:GOSUB1590:I(C49)=Z:GOTOC1870
1250I(K1)=A:GOTOC1870
1260IFD(B)<>C3THEN1280
1262IFE$="DOO"ORE$="WAR"THENIF(I(50)=C1ANDA=29)OR(I(51)=C1ANDA=30)THEN1266
1264IFE$="DOO"ORE$="WAR"THEN1330
1265GOTO1270
1266GOSUB1830:G((A/C10-INT(A/C10))*C10)=C1:PRINT"Door'sopen":GOTOC1870
1270IFA=C41ANDE$="SAF"ANDSF=C0ANDCM=C1THENSF=C1:PRINT"Safe'sopen":GOTOC1870
1272IFDF=C0ANDKN=C0AND(I(C49)=C1ORI(C49)=AOR(SF=C1ANDBG=C0ANDA=C41))ANDE$="BAG"THEN?"Bag'sopen":KN=C1:GOTOC1870
1280IFD(B)<>9THEN1300
1282IFE$="DRE"ANDI(16)=C1ANDX(C1)=C0THENX(C1)=C1:GOTO1860
1284IFE$="WIG"ANDI(15)=C1ANDX(C0)=C0THENX(C0)=C1:GOTO1860
1290IFE$<>"BRA"ORI(17)<>C1ORX(C2)<>C0THEN1300
1292IFX(C1)=C1THENPRINT"Takethedressofffirst":GOTOC1870
1294X(C2)=C1:IFSB=C0THENPRINT"Youstilllookstrange.Nothingthere";
1296GOTO1860
1300WE=C0:IFD(B)<>C6THEN1350
1302IFE$="RES"AND(A=11ORA=12ORA=8ORA=C6)THENGOSUB1710:A=A+16:GOTO610
1304IFE$="TAX"AND(A=19ORA=21)THENA=45:GOTO610
1306IFE$="BRI"AND(A=7ORA=17)THENA=9:GOTO610
1308IFE$="YAR"ANDA=18THENA=38:GOTO610
1310IFE$="INN"ANDA=C3THENA=32:GOTO610
1312IFE$="PUB"ANDA=C2THENA=36:GOTO610
1314IFE$="STO"ANDA=C4THENA=44:GOTO610
1316IFE$="SHO"ANDA=C5THENA=23:GOTO610
1318IFE$="TRE"ANDA=30THENA=26:GOTO610
1320IFE$="STA"ANDSR=Z1THEN?"Clerksays,":?CHR$(C34);"Roomsareforguests,sorry";CHR$(C34):GOTOC1870
1322IFE$="STA"ANDI(29)<>33THEN1700
1324IFA=33THENA=C34:GOTO610
1326IFA=C34THENA=33:GOTO610
1330IFA=29ORA=28ORA=30THENIFE$="DOO"ORE$="WAR"THEN1332
1331GOTO1340
1332IFG((A/C10-INT(A/C10))*C10)=C0THENPRINT"Thedoor's";D9$((A-28)*C6+C1,(A-27)*C6):GOTOC1870
1334IFA=29THENA=20:GOTO610
1336IFA=28THENA=31:GOTO610
1338IFA=30THENA=39:GOTO610
1340IF(A<>7ANDA<>17)ORE$<>"RIV"THEN1350
1342?"Youareonarocky,steep,ravineandtheriverisfarbelow.Ifyouattemptogothereyouwill";
1344?"probablyfallandbreakyourneckwhichwouldbeveryilladvised.":GOTO940
1350IFD(B)<>C4THEN1370
1352IFA=C41ANDE$="SAF"THENIFSF=C1THENSF=C0:GOTO1860
1360IFE$="BAG"ANDKN=C1AND(I(C49)=C1ORI(C49)=A)OR(SF=C1ANDBG=C0ANDA=C41)THENKN=C0:GOTO1860
1370IFD(B)<>16THEN1380
1372IFE$="DOO"ANDA=28THENG((A/C10-INT(A/C10))*C10)=C1:PRINT"Door'sopen":GOSUB1830:GOTOC1870
1380IFD(B)<>C5THEN1400
1382IFE$="PAD"AND(I(23)=C1ORI(23)=AORA=20)THENPRINT"Scribbledonpad:":?"13RueLane":GOTOC1870
1384IFE$="SLI"AND(I(18)=C1ORI(18)=A)THEN?"Scribbling:":?"113":GOTOC1870
1390IFE$="REG"ANDA=33ANDSR=C0THEN?"Therearenoentries":GOTOC1870
1392IFE$="REG"ANDA=33THENPRINT"Justyourname":GOTOC1870
1400IFD(B)<>7THEN1410
1401IFE$<>"DAR"ORA<>36THEN1410
1402IFDP=C1THEN?"Nogameinprogress":GOTOC1870
1404?"Youtakecarefulaim...":FORK=C1TO200:NEXTK:?"":?"Youwonaprize":DP=C1:J=53
1406A$(52*SZ+C1,53*SZ)="POUBRITISHPOUND":H$(52*SZ+C1,53*SZ)=A$(52*SZ+C1,53*SZ):GOTO1120
1410IFD(B)<>C10THEN1420
1412IFE$="KNI"AND(I(C49)=C1ORI(C49)=AOR(BG=C0ANDSF=C1))AND(I(C41)=C1ORI(45)=C1)THEN1414
1413GOTO1420
1414IFK7=C0THENK7=C1:R$="KNISURGEON'SKNIFE":GOTO1850
1416IFK7=C1THENK7=C0:R$="KNIRUBBERKNIFE":GOTO1850
1420IFD(B)<>11THEN1430
1422IF(E$<>"ROP"ANDE$<>"BUC")ORI(32)<>C1ORBW<>C0ORI(35)<>C1THEN1430
1423K3=32:R$=O$:GOSUB1550:K3=35:R$="BUCROPETIEDTOBUCKET":GOSUB1550:H$(C34*SZ+C1,35*SZ)=R$:BW=C1:GOTOC1870
1430IFD(B)<>12THEN1440
1432IFE$<>"BUC"ORA<>9ORI(35)<>C1ORBW<>C1THEN1440
1434BW=C2:?"BucketloweredintoThames":BL=C1:K3=35:R$="ROPENDOFROPE":GOSUB1550:H$(C34*SZ+C1,35*SZ)=R$
1436GOTOC1870
1440IFD(B)<>13THEN1450
1442IFE$<>"BUC"ORA<>9ORI(35)<>C1ORBL<>C1THEN1450
1444BL=C0:K3=35:R$="BUCWATERINBUCKET":GOSUB1550:H$(C34*SZ+C1,35*SZ)=R$:GOTO1860
1450IFD(B)<>14THEN1460
1452IFE$="QUI"ANDA=33ANDI(29)=C1THENPRINT"Quill'sinked":QI=C1:GOTO1860
1460IFD(B)<>15THEN1470
1462IFI(29)<>C1ORA<>33OR(E$<>"REG"ANDE$<>"NAM")THEN1470
1464IFQI=C0THENPRINT"Quilldoesn'tseemtowork!":GOTOC1870
1466PRINT"Registersigned":SR=C1:GOTOC1870
1470IFD(B)<>17THEN1480
1472IFI(19)<>C1ORI(17)<>C1ORE$<>"BRA"ORX(C2)<>C0THEN1480
1474SB=C1:?"Yougottheidea":K3=17:R$="BRASTARCHEDBRA":GOSUB1550:H$(16*SZ+C1,17*SZ)=R$:GOTO1860
1480IFD(B)<>18THEN1490
1482IFI(20)=C1THEN?"Thatwasafoolishthingtodo.Goodnight!":DF=C1:TF=50:PRINT:FORV=C1TO1000:NEXTV:GOTO900
1490IFD(B)<>19THEN1500
1492IFA=C41ANDE$="311"THEN?"Click...Click...Click":CM=C1:GOTOC1870
1494IFA=C41THEN?"Wrongcombination...":GOTOC1870
1500?"Youcan'tdothatnow.":GOTO940
1510IFA=38AND(A1$<>"SEA"ORSW=C1)THEN?"Desksergeantsays,":?CHR$(C34);"Sorry,Ican'tletyou";CHR$(C34);:GOTOC1870
1512IFA=38THENJ=52:A$(51*SZ+C1,52*SZ)="WARSEARCHWARRANT":H$(51*SZ+C1,52*SZ)=A$(51*SZ+C1,52*SZ)
1514IFA=38THENDS=C1:SW=C1:GOTO1120
1520IFA<>45THENRETURN
1522IF(A1$="13"ORA1$="13R")ANDTX=C0THEN?"Taxidropsyouoff":A=30:TX=C1:GOTO1860
1524IF(A1$="YAR"ORA1$="SCO")ANDTX=C1THEN?"Taxidropsyouoff":A=18:TX=C0:GOTO1860
1526IFA1$="OFF"ORA1$="OUT"ANDTX=C0THENA=19:GOTO610
1528IFA1$="OFF"ORA1$="OUT"ANDTX=C1THENA=21:GOTO610
1530?"Taxidriversays,":?CHR$(C34);"Sorry,that'snotonmyroute";CHR$(C34):GOTOC1870
1540PRINT"Youaccidentallytippedoverthekerosenelampandstartedafire":FR=C1
1542A$(37*SZ+C1,38*SZ)="LAMBROKENLAMP":H$(37*SZ+C1,38*SZ)=A$(37*SZ+C1,38*SZ):GOTOC1870
1550FORK2=C1TOC10:IFC$(K2*SZ-SZ+C1,K2*SZ)<>H$(K3*SZ-SZ+C1,K3*SZ)THENNEXTK2:RETURN
1552C$(K2*SZ-SZ+C1,K2*SZ)=R$:GOSUB1560:RETURN
1560REM
1570IFR$=O$THENI=I-C1:I(K3)=C0
1580RETURN
1590FORK2=C1TO54:IFA$(K2*SZ-SZ+C1,K2*SZ)<>H$(K3*SZ-SZ+C1,K3*SZ)THEN1600
1592A$(K2*SZ-SZ+C1,K2*SZ)=M$:IFM$<>O$THENRETURN
1594A(K2)=C0:I(K3)=C0
1600NEXTK2:RETURN
1610IFA=9THEN?"Thamesforthememory...":?"Suicideisn'tthewayout.":?"Jack'sgotthelastlaugh!":GOTO1880
1612GOTO1860
1620TF=TF+45:?"":GOTO870
1630IFX(C0)+X(C1)+X(C2)<C3THEN1720
1632?"Youhearanoise!":?"Youcanseeashadowyfigureinthecornerofthealley":?
1634IFSB=C0THEN?"Aha!Noboobs,figurethinks,adisguise!andvanishes":JK=C1:RETURN
1640IFK1<>C0ANDSF<>C1ANDBG<>C1ANDKN<>C1ANDI(20)<>C0THEN1650
1642?"Suddenlyyoufeelthecoldsteelofasurgeon'sknifepenetratingyourback!You'redead!":GOTO1880
1650?"Figureslowlyapproaches,youkeepyourbackturned,verytense.Suddenly";
1652?"youfeelthebladeofabentknifetouchingyourback."
1660?"Figurestaresdumbfoundedattherubberknifeinitshand.Youquickly";
1662?"turn,applytheether,andthefigurefallsasleep."
1670A$(47*SZ+C1,48*SZ)="RIPSLEEPINGRIPPER":H$(47*SZ+C1,48*SZ)=A$(47*SZ+C1,48*SZ):SJ=C1:FORV=C1TO300:NEXTV
1672A(48)=A:GOTOC1870
1680?"JacktheripperhurlshimselffromthebridgeandfallsintotherockyThames";
1682?"below.Bloodstainedrocksandwaterflowgentlydownstream.":?
1690?"EPILOGUE:JacktheRipper'sbodywasneverfound.Somesaytherewere"
1692?"footprintsnearthebanksbythebridge.ButthekillinginLondonthatdayended.":?:GOTO1880
1700?"Clerksays,":?CHR$(C34);"Givemebackmyquill";CHR$(C34):GOTOC1870
1710IFI(52)=C1THENRETURN
1712?"Maidyells,":?CHR$(C34);"Getout!Unlessthisispolicebusi-ness,youcan'tsearchthisplace";CHR$(C34)
1714GOTOC1870
1720?"Youseesomethingmoveinthecornerofthealley.Itpausesandthenquicklyrunsaway":RETURN
1730IFI(C49)=C1ORI(C49)=ATHENR$=O$:M$=O$:K3=C49:GOSUB1550:GOSUB1590:?"Something'smissing":BM=C1
1740RETURN
1750DATAPUBPUB,-2,INNINN,-3,STOCANDYSTORE,-4,SHODRESSSHOP,-5,RESRESIDENCE,-6,RESRESIDENCE,-8
1752DATARESRESIDENCE,-11,RESRESIDENCE,-12,BRIBRIDGE,-7,BRIBRIDGE,-17,YARSCOTLANDYARD,-18
1754DATATAXHORSE-AND-BUGGYTAXI,-19,WARWAREHOUSE,-30,TRETREE,-30
1760DATAWIGBLONDEWIG,43,DREREDDRESS,23,BRABRA,25,PAPSLIPOFPAPER,26,STASTARCH,27,ETHBOTTLEOFETHER,27
1762DATADOOSTUCKDOOR,-28,DOOLOCKEDDOOR,-29,PADNOTEPAD,20,CAPBLACKCAPE,31,STASTAIRS,-33,CLECLERK,-33
1764DATACOUCOUNTER,-33,REGREGISTER,-33,QUIQUILL,33,INKINK,-33
1770DATASTASTAIRS,-34,ROPLONGROPE,35,BARBAR,-36,BARBARTENDER,-36,BUCHANDLEDBUCKET,37,DESDESK,-38
1772DATASERDESKSERGEANT,-38,LAMKEROSENELAMP,-39,SAFSTEELCOMBINATIONSAFE,-41,BODMUTILATEDBODIES,-42
1774DATACANCANDY,44,NUTNUTS,44,TAXHORSE-AND-BUGGYTAXI,-21
1780DATAWESWNORNEASESOUSUPUDOWDGETTAKBUYDROPUTGIVPAYPOUOPECLOREAGOENTCLIPLAWEASTIEXCTIELOW
1782DATARAIDIPINKSIGKICSTASMEDIATUR
1790DATA1,1,1,2,2,2,2,2,3,4,5,6,6,6,7,9,10,10,11,12,13,14,14,15,16,17,18,19,19
1800REM
1810FORK4=C1TO54:IFA$(J*SZ-SZ+C1,J*SZ)=H$(K4*SZ-SZ+C1,K4*SZ)THENI(K4)=C1:RETURN
1820NEXTK4:RETURN
1830IFA=29THENX=22
1832IFA=28THENX=21
1834IFA<>29ANDA<>28THENX=54:A(54)=-30
1840A$(X*SZ-SZ+C1,X*SZ)="DOOOPENDOOR":RETURN
1850K3=C41:GOSUB1550:H$(40*SZ+C1,C41*SZ)=R$
1860WE=C0:?""
1870?:?""
1872IFPEEK(764)=255THEN1872
1874POKE764,255:GOTO610
1880PRINT"Thisadventureisover"
1890?:?"Wanttoplayitagain(YorN)";:INPUTA9$:POKE764,255:IFA9$(1,1)="Y"THENCLR:RUN
1900TRAP40000:GRAPHICS0:CLR:RUN"D:MENU"
5000?"Whatwasthat?":GOTO940
6000DATA0,1,2,3,4,5,6,10,34,41,49,1870	

• Download link 1
• Download link 2

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