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200:NEXTI
60FORT=26TO224
65IFT/50=INT(T/50)THENPOSITION13,9:PRINT"Adventure"
70IF(T+25)/50=INT((T+25)/50)THENPOSITION13,9:PRINT"Arabian"
75NEXTT
80FORI=1TO200:NEXTI
100GOSUB1100
130?"PrincessJasminehasbeenkidnapped"
140?"bytheevilwizardRex.Hehastaken"
150?"hertohiscastle,wheresheisimpri-";
160?"soned.Youmustdestroythewizard"
170?"andrescuetheprincessfromhim."
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?
440?"Onelastnote:Inthisadventure"
450?"thereareafewdifferentkeysthat"
460?"youcouldfind.Tokeepmefromget-"
470?"tingconfusedaboutwhichoneyouare"
480?"talkingabout,nevercarrymorethan"
490?"oneorleavemorethanoneinthesame";
500?"place."
510POSITION10,23
520?"Runfromiskorape";
530IFPEEK(764)=58THENPOSITION10,23:?"RunningARABIANADVENTURE";:POKE764,255:RUN"D:ARABIAN1"
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	

100REM
102REM
104REM
110GRAPHICS18:SETCOLOR4,7,12:SETCOLOR0,11,8:SOUND0,250,4,4
112POSITION1,2:PRINT#6;"-----":PRINT#6;"---------":PRINT#6;"-------------"
114POSITION0,5:PRINT#6;"arabian"
116PRINT#6;"-------------":PRINT#6;"---------":PRINT#6;"-----"
118GOTO600
120GOSUB120+A*10:GOTO650
130PRINT"inthecourtyard.":S=2:RETURN
140PRINT"inmarketsquare.":W=3:N=1:S=10:RETURN
150PRINT"inthemarket.":W=5:E=2:RETURN
160PRINT"inapawnshoppe.":S=3:RETURN
170PRINT"inthemarket.":W=7:E=3:RETURN
180PRINT"inafruitandvegetableshoppe.":S=5:RETURN
190PRINT"inamarket.":W=9:E=5:RETURN
200PRINT"inarugshoppe.":S=7:RETURN
210PRINT"onasandy,rockyfield.":E=7:RETURN
220PRINT"inthemarket.":N=2:RETURN
230PRINT"inapotteryshoppe.":W=10:RETURN
240PRINT"inanenormousgoldenhall.":W=12:N=15:E=12:S=1:U=14:D=13:RETURN
250PRINT"inthecellar.":U=12:RETURN
260PRINT"intheprincess'chambers.":D=12:RETURN
270PRINT"inthethroneroom.":S=12:RETURN
280PRINT"inadesert.":W=17:N=20:RETURN
290PRINT"inadesert.":W=18:E=16:S=19:RETURN
300PRINT"nearamountainrange.":E=17:RETURN
310PRINT"inaforest.":W=19:N=17:E=19:S=19:RETURN
320PRINT"onabeach.":W=20:E=21:S=16:RETURN
330PRINT"onabeach.":W=20:E=20:S=20:RETURN
340PRINT"insidealargecavern.":W=23:RETURN
350PRINT"inanarrowtunnel.":W=24:N=25:E=22:RETURN
360PRINT"inaverytightopening.":E=23:RETURN
370PRINT"inanarrowtunnel.":W=26:E=28:S=23:RETURN
380PRINT"inaverytallchamber.":E=25:RETURN
390?"inasmallchamber.":RETURN
400?"inalargecavern.":W=25:RETURN
410?"ontheraft.":W=31:N=30:E=32:S=20:RETURN
420?"sailingthe'WrestlingSeas'":W=30:N=30:E=32:S=31:RETURN
430?"sailingthe'WickedSeas'":W=31:N=30:E=31:S=31:RETURN
440?"sailingthe'WhisperingSeas'":W=31:N=30:E=40:S=32:RETURN
450?"onasandybeach.":N=34:RETURN
460?"onagravelroad.":W=36:N=35:S=33:RETURN
470PRINT"inacourtyard.":S=34:RETURN
480PRINT"inblackvalley.":E=34:RETURN
490?"afewstepsupthemountain.":D=36:RETURN
500PRINT"halfwayupthemountain.":D=37:RETURN
510PRINT"ontopofthemountain.":D=38:RETURN
520PRINT"sailingthe'WhisperingSeas'":W=32:N=40:E=33:S=40:BT=1:RETURN
530PRINT"inatower.":D=46:RETURN
540PRINT"inanalchemist'schamber.":S=46:RETURN
550PRINT"insideastonekitchen.":E=46:RETURN
560PRINT"inasleepingchamber.":W=46:RETURN
570PRINT"inasmalldungeon.":U=46:RETURN
580PRINT"inthehallofsplendor.":W=43:N=42:E=44:U=41:D=45:RETURN
590PRINT"sittingontherug.":FORB=1TO12:B(B)=0:NEXTB:RETURN
600L=27
602DIMA$(55*L),A(55),B(12),B$(38*3),D(38),H$(55*L),I(55),C$(11*L)
605DIMZ$(30),O$(27),D$(12),E$(12),S$(27),H(12),R$(27),M$(27)
607O$=""
610FORA=1TO55:A$(A*L-L+1,A*L)=O$:H$(A*L-L+1,A*L)=A$(A*L-L+1,A*L):SETCOLOR1,RND(0)*16,10:I(A)=0:NEXTA:SOUND0,255,6,4
612FORA=1TO42:READZ$,Z:A$(A*L-L+1,A*L)=Z$:H$(A*L-L+1,A*L)=Z$:A(A)=Z:SETCOLOR2,RND(0)*16,10:NEXTA
613SOUND0,255,8,4
614FORA=1TO38:READZ$:B$(A*3-2,A*3)=Z$:SETCOLOR0,RND(0)*16,10:NEXTA
615FORA=13TO38:READZ:SETCOLOR4,RND(0)*16,14:D(A)=Z:NEXTA
616FORA=0TO10:C$(A*L+1,A*L+L)=O$:NEXTA
618SOUND0,0,0,0
620A=1:G=1:SA=6:ME=10:S$="SWOARABIANSWORDINSHEATH":C$(1,L)=S$
630N=0:E=0:S=0:W=0:U=0:D=0:Y=0:PRINT"You're";
640GOTO120
642STOP
650IFCY<>0THEN660
654IFA<=35ORA=47ORA=40THEN656
655?:?"Cyclopsiscomingforyou!":W=0:S=0:D=0:E=0:FORB=1TO12:B(B)=0:NEXTB:C=0
656IFGS=2THENW=0:N=0:E=0:S=0:FORB=1TO12:B(B)=0:NEXTB:C=0
660IFBT=1THENBT=2:M$=O$:K3=49:GOSUB1780
670IFCY=0ANDA=39THENPRINT"Thereisnowheretorun."
680?:IF(N+W+E+S+U+D)>0THENPRINT"";:FORB=1TO12:B(B)=0:NEXTB
690IFI(25)<>1ANDA=29THEN730
700IFW>0THENPRINT"West";:B(1)=W:B(2)=W
710IFA=34ANDCY=0THEN730
715IFN>0THENPRINT"North";:B(3)=N:B(4)=N
720IFE>0THENPRINT"East";:B(5)=E:B(6)=E
730IFS>0THENPRINT"South";:B(7)=S:B(8)=S
740IFU>0THENPRINT"Up";:B(9)=U:B(10)=U
750IFD>0THENPRINT"Down";:B(11)=D:B(12)=D
760?:?
770TRAP780:FORB=1TO55:IFABS(A(B))=ATHENC=C+1:GOTO790
780NEXTB:PRINT:GOTO810
790IFC=1THENPRINT""
800PRINT"";A$(B*L-L+4,B*L):GOTO780
810IFG=1ANDA=14THENPRINT"YouruntothewindowandjustmanagetoseePrincessJasmineflownoffon"
812IFG=1ANDA=14THENPRINT"agiantrocinthegraspofRex,wizardofdarkness":G=0
820IFA<>2ANDG=1ANDA<>12THEN?"Youhearaloudpiercingfemalescreamcomingfromthepalace."
825IFA<>2ANDG=1ANDA>=12THEN?"Scream'scomingfromupstairs."
830IFA=34ANDCY=0THEN?"Thereisapathnorthbutagiganticone-eyed,one-hornedcyclopsblocksyourway."
840IFA>32ANDA<40ANDI(53)=1THENPRINT"Giantroccirclesbyverylowoveryourhead.":RK=1:GOTO970
842IFA=18ANDCV=0THENPRINT"Thereisacaveinthemountain."
850IFA=18ANDSK=0THENPRINTSA;"Skeletonsstandgaurdwithswordsdrawn."
852IFA<>41ORWD<>0OREW<>0THEN860
854?"Youhearaclank!":WD=1:A$(40*L+1,41*L)="DOOLOCKEDFRONTDOOR":DR=1:H$(40*L+1,41*L)=A$(40*L+1,41*L)
860IFA=22ANDCV=0THEN?"Cavein!":?"Ohno!":CV=1
870IFA=22THEN?"Caveentranceinblockedbutthereislightshiningsomewherefromabove."
872IFHL=1THENGOTO2000
880IFGS>=2ORA<=29ORA>=33ORRND(0)>=0.333THEN884
882?"Youseesomethinggreenandslimybeneathyouinthewater.":GS=1:GOTO970
884IFCN=1THENPRINT"Thereare20Arabianriyalsinthechest."
890IFWR<>0ORA>44ORWD<>1THEN900
892WZ=INT(RND(1)*6+1):IFWZ+40=ATHENPRINT"Youseeaflashingsword!":?"Butnobody!Strange!"
894IFWZ+40=ATHENIFINT(RND(1)*99+1)<80THENPRINT"Luckyitmissed!":GOTO970
896IFWZ+40=ATHENPRINT"":ME=ME-1:IFME=0THEN1940
900IFA=44ANDTR=0THEN?"Thereisahairy,red-eyed,slimespittingtarantulainhere.Very"
902IFA=44ANDTR=0THEN?"potent.Heiscloselygaurdingthekey"
910IFGS<>1ORRND(0)>=0.5THEN914
911?"Waterbreaks...":?"Hugeseamonsterrisesfromthedepthsnearlytippingyourraft."
912A$(45*L+1,46*L)="MONTERRIBLESEAMONSTER":H$(45*L+1,46*L)=A$(45*L+1,46*L):A(46)=-A:GS=2:GOTO1910
914IFA=40THENPRINT"Youcanseeshore"
920IFA=2ANDA1=0THENPRINT"Youcanhearthebustlingofcommerceasthereareshoppesofallshapesand";
922IFA=2ANDA1=0THENPRINT"sizes,peoplefromallwalksoflife,amongthieves,cutthroats,beggars,"
924IFA=2ANDA1=0THENPRINT"peasants.Merchantsarecryingtheirwaresincontrasttothejinglingofcoins."
930IFA=28ANDKY=0THENPRINT"Youcanseeanironkeyinthebottomofthesea."
940IFA=13ANDTR=1ANDCY=0THEN?"Thereisasmallglimmeroflightcomingin.Justenoughsoyoucansee.":TR=0
950IFA=33ANDBT=2THENPRINT"Raftfallsapartandsinks!":BT=3:GS=0
960IFA=17ANDP6=0THEN?"Youseearocliftofffromamountaininthedistancecarryingashrieking"
961IFA=17ANDP6=0THEN?"princess.Itdisappearsacrossthe'WhistlingSea'":P6=1:GOTO970
962IFFL=0ANDA=40THENSL=1:M$=O$:K3=49:GOSUB1780
970C=0:?:?"";:INPUTZ$:Z$(LEN(Z$)+1)="":IFZ$(1,3)="LOO"THEN630
972IFZ$=""THENPRINT"Pardonme?":GOTO970
974IFZ$(1,3)="KIL"ORZ$(1,3)="ATT"ORZ$(1,3)="FIG"THEN1500
975?:FORB=1TO12:IFZ$(1,3)=B$(B*3-2,B*3)THEN980
976NEXTB:GOTO990
980IFB(B)<>0THENA=B(B):GOTO630
982?"Youcan'tmovethatway.":IFGS=2THENPRINT"seamonsterblocksyou!"
984GOTO970
990IFZ$(1,3)<>"I"ANDZ$(1,3)<>"INV"THEN1010
992PRINT"":FORK=0TO10:IFC$(K*L+1,K*L+1)<>""THENPRINTC$(K*L+4,K*L+L)
1000NEXTK:GOTO970
1010FORB=13TO38:F=3
1012IFZ$(1,3)<>B$(B*3-2,B*3)THENNEXTB:PRINT"Don'tknowwhat";CHR$(34);Z$(1,LEN(Z$)-3);CHR$(34);"means.":GOTO970
1020E$=""
1022FORF=1TOLEN(Z$)-3:IFZ$(F,F)<>""THENNEXTF:GOTO1030
1024D$=Z$(F+1,LEN(Z$)-3):E$=D$:IFLEN(D$)>3THENE$=D$(1,3)
1030IFD(B)<>1THEN1200
1040IFI>4THENPRINT"Youcan'tcarryanymore.":GOTO970
1050IFA=27ANDE$="CHE"THENPRINT"Chest'stooheavy!":GOTO1910
1060IFA=16ANDE$="RUG"THENPRINT"Carpetrefusestobecarried.":GOTO1910
1070IFE$="CAG"THENPRINT"It'snaileddown.":GOTO1910
1072IFE$="PRI"ANDA=41ANDJS=0THENPRINT"Shewon'tfitthroughthebars.":GOTO1910
1074IFE$="PRI"ANDA=41ANDJC=0THENA$(36*L+1,37*L)="CAGEMPTYCAGE":H$(36*L+1,37*L)=A$(36*L+1,37*L)
1076IFE$="PRI"ANDA=41ANDJC=0THENJ=53:A$(52*L+1,53*L)="PRIMINIATUREPRINCESS":H$(52*L+1,53*L)=A$(52*L+1,53*L)
1078IFE$="PRI"ANDA=41ANDJC=0THENJC=1:GOTO1190
1080IFA=28ANDE$="KEY"ANDKY=0ANDI(27)=1ANDMG=1THENJ=51:A$(50*L+1,51*L)="KEYIRONKEY"
1081IFA=28ANDE$="KEY"ANDKY=0ANDI(27)=1ANDMG=1THENH$(50*L+1,51*L)=A$(50*L+1,51*L):MG=0:KY=1:GOTO1190
1082IFA=28ANDE$="KEY"ANDKY=0THENE$="SEA":GOTO1380
1090IFCN=1ANDE$="RIY"THENJ=45:A$(44*L+1,45*L)="RIY20ARABIANRIYALS":H$(44*L+1,45*L)=A$(44*L+1,45*L)
1092IFCN=1ANDE$="RIY"THENCN=0:GOTO1190
1100FORJ=1TO55:IFE$=A$(J*L-L+1,J*L-L+3)ANDA=ABS(A(J))THEN1130
1110NEXTJ
1120PRINT"There'sno";D$;"here.":GOTO970
1130IFA(J)<0THENPRINT"Bereasonablenow.That'simpossible.";:GOTO970
1140IFA=44ANDTR=0THENMM=1:GOTO1640
1150IFA=8ANDE$="RUG"ANDPR=1THEN1190
1152IFA=8ANDE$="RUG"THENZ=5:GOTO1680
1160IFA=6ANDE$="COC"ANDPN=1THEN1190
1162IFA=6ANDE$="COC"THENZ=10:GOTO1680
1170IFA=11ANDE$="SAU"ANDPP=1THEN1190
1172IFA=11ANDE$="SAU"THENZ=10:GOTO1680
1180IFA=44ANDTR=1ANDE$="MIR"THENPRINT"Spiderbityou!":GOTO1940
1190PRINT"":FORK=2TO10:IFC$(K*L+1,K*L+1)<>""THEN1192
1191C$(K*L+1,K*L+L)=A$(J*L-L+1,J*L):GOSUB1870:H(K)=J:A$(J*L-L+1,J*L)=O$:A(J)=0:I=I+1:GOTO1910
1192NEXTK
1200IFD(B)<>2THEN1330
1210IFE$<>"MIL"ORI(6)<>1ORI(14)<>AORNB<>1ORMK<>0THEN1212
1211?"Coconutmilk'sinsaucer":MK=1:K3=14:M$="SAUMILKINSAUCER":GOSUB1780:H$(13*L+1,14*L)=M$:GOTO1910
1212IFE$="MIL"ANDI(6)=1ANDI(14)=AANDNB=1THEN1640
1220IFSW=1ANDE$="SWO"THENSW=0:C$(L+1,L*2)=O$:C$(1,27)=S$:I=I-2:GOTO1890
1230FORJ=2TO10:IFE$=C$(J*L+1,J*L+3)THEN1250
1240NEXTJ:PRINT"":GOTO970
1250IFA=4THENPRINT"Pawnbrokersays:"
1252IFA=4ANDE$="RIY"THENPRINT"Rarecoinworth5riyals.":K3=52:R$="RIY5ARABIANRIYALS":GOSUB1750
1254IFA=4ANDE$="RIY"THENH$(51*L+1,52*L)=R$:GOTO1890
1256IFA=4THENPRINTD$;"isnotworthpawning.":GOTO1910
1260IFE$="RIY"ANDA=8ANDI(52)=1THENPR=1:K3=52:R$=O$:GOTO1710
1262IFE$="RIY"ANDI(45)=1AND(((A=6)AND(PN=0))OR((A=11)AND(PP=0)))THENMY=MY+1:GOTO1690
1270IFE$="POW"ANDI(14)=AANDMK=0THENPRINT"Pourmilkfirst.":GOTO1910
1272IFE$<>"POW"ORI(14)<>AORA<>13THEN1274
1273PRINT"Powderdisolvesmilk,princessdrinksthemilk,andgrows.":GOTO1920
1274IFE$="POW"ANDI(14)=ATHEN1930
1280FORK=1TO55:IFA$(K*L-L+1,K*L-L+1)<>""THEN1282
1281A$(K*L-L+1,K*L)=C$(J*L+1,J*L+L):I=I-1:A(K)=A:H(J)=0:GOTO1290
1282NEXTK
1290PRINT"":FORK1=1TO55:IFC$(J*L+1,J*L+L)=H$(K1*L-L+1,K1*L)THENC$(J*L+1,J*L+L)=O$:GOTO1300
1292NEXTK1
1300IFA<>44ORE$<>"MIR"ORI(38)<>1ORTR<>0THEN1310
1302PRINT"Tarantulaseesselfinmirrorandfallsinlove.It'sstareistrans-fixed."
1304A$(47*L+1,48*L)="TARMOTIONLESSTARANTULA":H$(47*L+1,48*L)=A$(47*L+1,48*L):A(48)=-44:TR=1:GOTO1320
1310IFE$="PEE"ANDCY=0THENPRINT"Cyclopsslipsonthebananapeelandtumblesdownthemountain.":CY=1
1320I(K1)=A:GOTO1910
1330IFD(B)<>3THEN1400
1332IF(A=1ORA=35)ANDE$="PAL"THENA=A+11:GOTO630
1334IF(A=3ORA=5ORA=7ORA=10)ANDE$="SHO"THENA=A+1:GOTO630
1336IFA=18ANDE$="CAV"ANDSK=1ANDCV=0THENA=22:GOTO630
1338IFE$="RAF"ANDI(49)=AAND(A=20ORA=21)THENA=29:GOTO630
1339IFE$="MOU"ANDA=18THENPRINT"Youclimbafewfeet,thenslipdown.Toosteep.":GOTO1910
1340IFE$="MOU"ORE$="HIG"AND(A=36ORA=37ORA=38)THENA=A+1:GOTO630
1350IFE$<>"HOL"ORA<>27THEN1360
1352?"Youcrawledthroughthehole,andslowlyclimbdownthemountain.":A=18:HL=1:GOTO1910
1360IFE$="STA"ANDA=26THENA=27:GOTO630
1362IFE$="STA"ANDA=27THENA=26:GOTO630
1370IFE$="TRE"ANDA=19THENPRINT"Youslidedown,toobad!":GOTO1910
1372IFE$="DOO"ANDA=46ANDDR=1THENPRINT"Door'slocked.":GOTO1910
1374IFE$="DOO"ANDA=46THENA=35:GOTO630
1380IFE$="SEA"ANDA=28THENPRINT"Theydon'tcallitthe'SeaofDeceive'fornothing!Waterwas10"
1382IFE$="SEA"ANDA=28THENPRINT"feetdeep!Blub...Blub...Blub":GOTO1940
1390IFI(8)=AAND(E$="CAR"ORE$="RUG")THENA=47:M$=O$:K3=8:GOSUB1780:GOTO630
1400IFD(B)<>4THEN1440
1402IFE$<>"DOO"ORA<>46ORI(50)<>1THEN1404
1403PRINT"Door'sopen":A$(40*L+1,41*L)="DOOOPENFRONTDOOR":H$(40*L+1,41*L)=A$(40*L+1,41*L):DR=0:GOTO1910
1404IFE$="DOO"ANDA=46THENPRINT"Youneedakey":GOTO1230
1410IFE$<>"SWO"ORSW<>0THEN1420
1412PRINT"Swordinhand":I=I+2:C$(1,27)="SHEEMPTYSHEATH":C$(28,54)="SWODRAWNSWORD"
1414SW=1:GOTO1890
1420IFE$="CAG"ANDJS=0ANDA=41ANDI(42)=1THENPRINT"Cage'sopen.":JS=1:GOTO1910
1422IFE$="CAG"ANDJS=0ANDA=41THENPRINT"It'slocked":GOTO1910
1430IFE$="CHE"ANDCH=0ANDA=27ANDI(51)=1THENPRINT"Chest'sopen.":CN=1:CH=1:GOTO1910
1440IFD(B)<>5THEN1450
1442IFE$="BOO"ANDA=42THEN?"":?"Ingredients":?"1.Whitepowder":?"2.Milk"
1444IFE$="BOO"ANDA=42THEN?"Mixtogetherindarkplace.":?"Givepotion.":GOTO970
1450IFD(B)<>6THEN1460
1452IFE$="BAN"ANDI(47)=1THENPRINT"Itwasdelicious":K3=47:R$="PEEBANANAPEEL":GOSUB1750
1454IFE$="BAN"ANDI(47)=1THENH$(46*L+1,47*L)=R$:GOTO1910
1460IFD(B)<>7ORI(18)<>1ORE$<>"LAM"THEN1490
1462IFLP=0THENA$(51*L+1,52*L)="RIYRAREARABIANRIYAL":J=52:LP=1:GOTO1480
1464IFLP=1ANDA=39THENA$(46*L+1,47*L)="BANBANANA":J=47:LP=2:GOTO1480
1470PRINT"Youhearsnoring...":PRINT"Thenavoice,";CHR$(34);"Quiet";CHR$(34);".":GOTO1910
1480?"Genieappearsinapuffofsmoke.":?"Hehandsyoua";A$(J*L-L+4,J*L);"";:H$(J*L-L+1,J*L)=A$(J*L-L+1,J*L)
1482PRINT"andreturnstothelamp.":GOTO1190
1490IFD(B)<>9THEN1570
1492IFI(11)=1ANDI(6)=AANDE$="COC"THENM$="COCSPLITCOCONUT":NB=1:K3=6:GOSUB1780:H$(5*L+1,6*L)=M$
1493IFI(11)=1ANDI(6)=AANDE$="COC"THENGOSUB1890
1500IFA=18ANDSK=0ANDSW=0THEN1560
1502IFA<>18ORSK<>0THEN1510
1504?"There'sclangingofsteel.":IFINT(RND(0)*50+1)>28+SATHENME=ME-1:?"You'reslashed!":GOTO1506
1505PRINT"You'remissed."
1506IFINT(RND(0)*99+1)>64+SA-METHEN?"Yougotone!":SA=SA-1:GOTO1900
1508PRINT"Youmissed!":GOTO1910
1510IFA>35ANDA<40ANDSW=0THEN1560
1512IFA>35ANDA<40ANDI(18)<>1THENPRINT"Cyclopsstranglesyou!":GOTO1940
1514IFA>35ANDA<40THENPRINT"Cyclopshastoughhide":PRINT"Won'twork!":GOTO1910
1520IFA>40ANDA=WZ+40ANDSW=0THEN1560
1522IFA>40ANDA=WZ+40ANDEW=0THEN?"Youcan'thitwhatyoucan'tsee.":GOTO1910
1524IFA<=40ORA<>WZ+40THEN1530
1526?"Youkilledhim!":?"Somethingdrops!":WR=1:A$(43*L+1,44*L)="WIZDEADWHITEWIZARD"
1528A$(49*L+1,50*L)="KEYLARGEKEY":H$(49*L+1,50*L)=A$(49*L+1,50*L):A(50)=A:GOTO1910
1530IFA=44ANDWZ<>44ANDSW=0THEN1560
1532IFA=44ANDWZ<>44THENPRINT"Tarantula'stoofast!Youmissed!":GOTO1910
1540IFGS=2ANDSW=0THEN1560
1541IFGS<>2ORRND(0)<=0.6THEN1546
1542?"Youkilledhimwithyourswordandhesinkstothebottom.":A$(45*L+1,46*L)=O$:H$(45*L+1,46*L)=O$
1544A(46)=0:GS=3:GOTO1910
1546IFGS=2THENPRINT"Hebackedoff!":GOTO1910
1550GOTO1640
1560?"Youforgottodrawyoursword!":?"Youhavebeenslain!":GOTO1940
1570IFD(B)<>11THEN1580
1571IFE$<>"FLY"ORA<>47THENPRINT"OK,";CHR$(34);D$;CHR$(34):GOTO970
1572IFE$="FLY"THENPRINT"Carpetslowlyliftsoff,thenspeedsupandcarriesyouofftosomefaroff";
1573IFE$="FLY"THENPRINT"location.":IFCP=0THENCP=1:A=16:GOTO1670
1574IFE$="FLY"ANDCP=1THENCP=0:A=1:GOTO1670
1580IFD(B)<>12THEN1590
1582IF(E$<>"RAF"ANDE$<>"BOA")ORI(22)<>1ANDCT<>1THEN1590
1584PRINT"Youbuildacruderaft,butsailable.":A$(48*L+1,49*L)="RAFVERYCRUDERAFT"
1586H$(48*L+1,49*L)=A$(48*L+1,49*L):A(49)=19:R$=O$:K3=22:GOSUB1750:GOTO1910
1590IFD(B)<>13THEN1600
1592IFA<>19ORI(26)<>1ORE$<>"TRE"THEN1600
1594PRINT"Youchopfourtrees.":A$(48*L+1,49*L)="TRE4CHOPPEDTREES":H$(48*L+1,49*L)=A$(48*L+1,49*L)
1596A(49)=-19:CT=1:GOTO1910
1600IFD(B)<>14THEN1620
1602IFRK=1ANDA<40ANDI(9)=1ANDI(53)=1ANDE$="LAS"THEN2010
1610IFE$="FLO"ANDI(19)=1THENPRINT"Youthrewsome...":IFWD=1ANDA=WZ+40THEN2020
1612IFE$="FLO"ANDI(19)=1THEN?"Youmadeamess!":GOTO1910
1620IFD(B)<>15THEN1630
1622IFE$="LAM"ANDI(18)=1THEN?"It'snotthatkindoflamp.":GOTO1910
1630IFD(B)<>16THEN1640
1632IFE$<>"MAG"ORI(27)<>1ORI(32)<>1THEN1640
1634K3=32:R$=O$:GOSUB1750:K3=27:R$="POLMAGNETTIEDTOPOLE":GOSUB1750:H$(26*L+1,27*L)=R$:MG=1:GOTO1890
1640PRINT"Youcan'tdothatnow."
1650IFMM=1THENPRINT"Youmightget":MM=0
1660GOTO970
1670A$(53*L+1,54*L)=H$(7*L+1,8*L):I(8)=A:A(54)=A:GOTO1910
1680PRINT"Merchantsays:":PRINT"That'llbe";Z;"riyals.":GOTO1910
1690R$=O$:K3=45:IFMY=1THENPRINT"Merchanthandsyouchange.":R$="RIY10ARABIANRIYALS"
1700IFA=6THENPN=1
1702IFA<>6THENPP=1
1710GOSUB1750:H$(K3*L-L+1,K3*L)=R$:?"Merchantpocketsmoney.":GOTO1910
1720IFI(39)=0THENPRINT"Unfortunatelyinthewater.":GOTO1940
1722GOTO1910
1730IFRND(1)>0.6THENPRINT"":ME=ME-1:GOTO1900
1740GOTO1900
1750FORK2=2TO10:IFC$(K2*L+1,K2*L+L)=H$(K3*L-L+1,K3*L)THENC$(K2*L+1,K2*L+L)=R$:GOSUB1760:RETURN
1752NEXTK2:RETURN
1760IFR$=O$THENI=I-1:I(K3)=0
1770RETURN
1780FORK2=1TO55:IFA$(K2*L-L+1,K2*L)<>H$(K3*L-L+1,K3*L)THEN1782
1781A$(K2*L-L+1,K2*L)=M$:IFM$<>O$THENRETURN
1782IFA$(K2*L-L+1,K2*L)=H$(K3*L-L+1)THENA(K2)=0:I(K3)=0
1790NEXTK2:RETURN
1800DATAPALPALACE,-1,SHOPAWNSHOPPE,-3,SHOFRUITANDVEGETABLESHOPPE,-5,SHOOLDERUGSHOPPE,-7,MERMERCHANT,-6
1802DATACOCCOCONUT,6,BROPAWNBROKER,-4,RUGTURQUOISERUG,8,LASLASSO,45,MERMERCHANT,-8,ROCHEAVYROCK,9
1804DATASHOPOTTERYSHOPPE,-10,WINVERYSMALLWINDOW,-13,SAUCLAYSAUCER,11,MERMERCHANT,-11
1810DATAWINOPENWINDOW,-14,BEDUNMADEBED,-14,LAMBRASSLAMP,14,FLOFLOUR,43,MOUMOUNTAIN,-18,TRETREES,-19
1812DATATWITWINE,19,SEAWHISTLINGSEA,-20,SEAWHISTLINGSEA,-21,PADBOATPADDLE,21,AXEAXE,24
1814DATAPOLBAMBOOFISHINGPOLE,24,STASTAIRSGOINGUP,-26,HOLHOLEINWALL,-27
1820DATASTASTAIRSGOINGDOWN,-27,CHETREASURECHEST,27,MAGHORSESHOEMAGNET,27,SEASHALLOW'SEAOFDECEIVE',-28
1822DATASEAWHISPERINGSEA,-33,PALWIZARD'SPALACE,-35,MOUCYCLOPSMOUNTAIN,-36,CAGTINYPRINCESSINCAGE,41
1824DATAMIRHANDMIRROR,41
1830DATAPOWSTRANGEWHITEPOWDER,42,BOOLARGEOPENBOOK,-42,DOOOPENFRONTDOOR,-46,KEYTINYKEY,44
1840DATAWES,W,NOR,N,EAS,E,SOU,S,UP,U,DOW,D,GET,TAK,DRO,PUT,PAY,PAW,GIV,POU,CLI,GO,ENT
1842DATAOPE,DRA,REA,EAT,RUB,HIT,BRE,SMA,SAY,YEL,BUI,CHO,THR,LIG,TIE
1850DATA1,1,2,2,2,2,2,2,3,3,3,4,4,5,6,7,9,9,9,11,11,12,13,14,15,16
1870FORK4=1TO55:IFA$(J*L-L+1,J*L)=H$(K4*L-L+1,K4*L)THENI(K4)=1:RETURN
1872NEXTK4
1880RETURN
1890PRINT""
1900IFME=0THEN1940
1902IFSA=0THENSK=1
1910PRINT:PRINT:PRINT"";:POKE764,255
1911IFPEEK(764)=255THEN1911
1912POKE764,255:GOTO630
1920PRINT"YouhaveperformedatasktrulyworthyofSinbad.":?"":GOTO9999
1930?"Potionwastobemixedinadarkplace.It'sspoiled!":?"UnfortunatelyforherPrincessJasmine";
1932PRINT"mustremainsmall.":?"Unfortunatelyforyou,gaurdareapproaching!Youlose!!!":GOTO9999
1940PRINT"You'redead!Gameover!":GOTO9999
2000HL=0:IFI(45)=1ANDI(26)=1THEN880
2002?:?"Giantrocswoopsdownfromthesky,grabsyouanddropsyoubackinthemountain.":A=27:C=0:GOTO1910
2010?"YouhookedthelassoaroundtheRoc'sclaws.Itcarriesyouandtheprincessacrosstheseaswhereyou";
2012?"letgoafewfeetofftheground":A=20:K3=9:R$=O$:GOSUB1750:GOTO1720
2020?"Wizardiscoveredwithflour!":?"Youcanseehimnow!":WD=0:EW=1
2024A$(43*L+1,44*L)="WIZWHITEWIZARDWITHSWORD":H$(43*L+1,44*L)=A$(43*L+1,44*L):A(44)=-A:GOTO1910
2028GOTO1612
9999END	

• Download link 1
• Download link 2

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