Atari 8-bit Source code

10GRAPHICS0:POKE752,1:POSITION9,8
20?""
30?""
40?""
50?"----Softsidepresents----"
55FORA=1TO1000:NEXTA
60GRAPHICS0:POKE752,1:FORA=1TO10:SOUNDINT(RND(0)*4),A*15,4,10:POSITIONA+10,A:?"";:POSITION30-A,A:?""
65POSITIONA+10,20-A:PRINT"":POSITION30-A,20-A:PRINT"";:NEXTA
67FORA=10TO1STEP-1:IFA=9THENPOSITION16,9:PRINT"Treasure"
70IFA=9THENPOSITION17,11:PRINT"Island"
73IFA<>9THENPOSITIONA+10,A:?"";:POSITION30-A,A:?"";:POSITION30-A,20-A:?"";:POSITIONA+10,20-A:?""
75SOUNDINT(RND(0)*4),0,0,0:NEXTA
80FORA=1TO900:NEXTA:FORA=0TO3:SOUNDA,0,0,0:NEXTA
100GOSUB1100
110?"Youcameacrossamapgivingthe"
115?"exactcoordinatestoTreasureIsland"
120?"andhavetracedittobeinLong"
125?"John'swriting.Soyouspentyour"
130?"savingsforpassagetotheisland,"
135?"whereyouhopetofindhistreasure."
180GOSUB1000:GOSUB1100
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GOfollowedbythedi-"
240?"rectionyouwishtogoin,NORTH,"
250?"EAST,SOUTHorWEST,orsimplytype"
260?"thefirstletterofthedirection,N,"
270?"E,SorW.Toobtainalistofwhat"
280?"youarecarrying,typeI."
290?
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GOSUB1000
390GOSUB1100
440?"Someusefulcommandsinthisgameare:"
444?":Redrawthepresentroom"
446?":Examinesanobjectclosely"
452?":Givesyourscore"
454?":Terminatesthegame."
460?:?"Toachieveaperfectscoreinthis"
465?"adventureyoumustvisitallroomsand";
470?"places,getallobjectsandplacethem";
475?"withinthevault,allwithinacertain";
480?"numberofmoves(takeheart,itis"
485?"possible!)"
490?
500?""
510POSITION10,23
520?"Runfromiskorape";
530IFPEEK(764)=58THENPOSITION3,23:?"RunningTREASUREISLANDADVENTURE";:POKE764,255:RUN"D:TREASUR1"
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8,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	

10DIMV$(104),N$(112),P$(64),S$(200),A$(200),Z$(200),I$(40),B$(40),B(30),O(30),M(6)
20RM=200:OB=500
100GRAPHICS0:I=1
110?"NowwheredidIputthatTREASUREISLANDadventure?Letmesee..."
120READY,Y,Y,Y,Y,Y,Y,A$:I=I+1
122IFA$(LEN(A$),LEN(A$))="*"THENREADA$:GOTO122
124IFA$<>"X"THEN120
126NT=I-2:V$="UPNORTWESTEASTSOUTDOWNINVELOOKEXAMREADGOGETDROPSCORQUITLIGHLAMPSTRIFILLBURNIGNITAKETHROENTE"
128V$(LEN(V$)+1)="SAYLEAV"
130N$="LAMPBOXKEGSWORCOINRINGMAPPOKEGLOVBOOTHAMMANVIRODPILLVASESCRAHATROBEROPECHESBOOKAXESCRODAGGSNAT"
132N$(LEN(N$)+1)="MORNSHIECROW":P$="BUILCRACCAVEDOORARCHONOFFHOLEBARSCURTVALOVARGBRIDGRAFCAGETABL":I=1
140REM*
150READA$:I=I+1:IFA$<>"ENDOBJ"THEN140
152OT=I-2
160M0=1:N=8:OI=0:LA=0:LB=0:P=0:P1=0:LC=0:Y=OT+1:FORI=1TOOT:READZ:B(I)=Z:NEXTI:GOSUB1110
162S$="":FORI=1TONT+2:S$(LEN(S$)+1)=".":NEXTI:?:?"Ah,hereitis!":?:GOTO720
170RESTORERM+(N-1)*2
180FORX=0TO6:READZ:M(X)=Z:NEXTX:READA$:IFA$="$"THENA$="areinamazeoftwistylittlepassages,allalike"
182IFA$(LEN(A$),LEN(A$))="*"THENREADZ$:A$(LEN(A$))=Z$
190RETURN
200DATA1,0,0,0,0,0,0,Deadend
202DATA2,0,0,0,0,0,0,arenotabird...youcan'tfly
204DATA3,0,0,0,0,0,0,can'tgetfardiggingthrurock
206DATA4,0,0,0,0,0,0,areunderwater...youcan'tbreathe
208DATA5,5,5,5,5,5,5,arespreadeagleonatableallfourlimbsarechained
210DATA6,2,7,7,7,8,4,areinthewaternorthoftheisland
212DATA7,2,7,7,7,6,4,areswimmingintheseaThereisaverystrongnorthwardcurrent
214DATA8,2,6,9,10,11,3,areonthenorthbeachThereisabuildinghereThereisaforesttothesouth
216DATA9,2,8,7,12,14,3,areatthewestbeachThereisaforesttotheeast
218DATA10,2,8,13,7,14,3,areontheeastbeach
220DATA11,15,8,12,13,16,3,areinahiddengroveanarrowpathleadssouth
222DATA12,15,8,9,13,13,3,arelostinthewoods
224DATA13,15,12,12,10,17,3,arelostintheforest
226DATA14,17,17,9,10,7,3
227DATAareonthesouthbeachAninactivevolcanorisestothenorthThereisaspiralingpathleadingup
228DATA15,2,0,0,0,0,13,haveclimbedtoatreetopThereisamountaintothesouthAndawidebeachtothenorth
230DATA16,15,11,12,18,19,3,foundasmallclearingPathsleadnorthsouthandeast
232DATA17,2,14,14,14,14,14,cameupaspiralingpathThereisaplateauwithsmalllake.Remainsofanold*
233DATAvolcaniccraternowfilledwithrainwater
234DATA18,17,13,16,13,17,3,areatanarrowclearingbyasheerrockfacewithasmallcave
236DATA19,17,16,12,12,17,3,havecometotheendofapathThereisacrackinthesheerrockwallinfront*
237DATAofyou
238DATA20,0,0,8,0,21,3,areinaroominasmallstonebuilding..anoldfortThereareopeningswestandsouth
240DATA21,1,20,0,0,0,3,areinanoldvaultAnotescratchedonthewallsays:Bringallyourfindingshere*
241DATA---toincreaseyourscore
242DATA22,0,19,0,0,24,3,areinalowchamberThereisatunneltothesouthThereislighttothenorth
244DATA23,0,0,18,0,0,3,areinasmallcaveThereislighttothewest
246DATA-24,0,22,0,0,25,0,areinalownorthsouthtunnel
248DATA-25,0,24,26,27,0,0,areinalargecavernWaterfallsfromaboveintoasmallpoolThereisa*
249DATAholeinthesouthwallThereisadimredlighttotheeastandyoumaywalktothenorthorwest
250DATA-26,0,0,0,25,33,0,areintheevilwizard'sthroneroom.Tothesouthisalargethroneonaraised*
251DATAplatform
252DATA27,69,0,25,0,0,0,areintheevilwizardsrecreationroom.AnironcagehangsfromtheceilingThereis*
253DATAatablewithshacklesoneachcornerAglowingforgeishereSignsays:DeSadewasasissy
254DATA-28,68,1,29,31,32,56,areatthecrosschamberTunnelsgoinalldirectionsThereisasmallholenear*
255DATAthefloor
256DATA-29,0,0,0,28,0,0,areinalittlealcoveThereisacurtainonthewall
258DATA-30,0,0,0,0,31,0,areinasmallcellTherearebarstothenorthandanopeningtothesouth
260DATA-31,0,30,28,34,0,0,areinanarrowhallThereisanopeningtothenorth
262DATA-32,0,28,0,0,0,0,areintheroomoftheancientmariner
264DATA-33,0,26,26,26,0,0,areatthethroneThereisacurtainonthewallYouhaveahaughtyviewofthe*
265DATAthroneroom
266DATA-34,0,0,31,0,0,35,areonthebrinkofapit
268DATA-35,34,0,55,0,36,0,areatthebottomofapit
270DATA-36,0,35,0,0,37,0,areinawidespot
272DATA-37,42,36,0,0,38,0,areinacanyonHighonthewallaboveyouisscratchedthemessageLongJohnwashere
274DATA-38,39,37,0,0,0,0,areintheguillotineroomAgiantrockbalancedontheledgeaboveyou
276DATA-39,0,0,0,0,0,38,areontheledgeabovetheguilotineroomnexttoagiantrock
278DATA-40,0,41,0,0,39,0,areinthepiratestreasurechamber.Thereisanopeningtothesouth
280DATA-41,0,0,0,0,40,0,areinalittlenitch
282DATA-42,0,44,0,0,43,37,atthetopofalongclimbbelowyouasignsays:LongJohnwashere
284DATA-43,0,42,0,0,0,0,areinthelairoftheancientscholarThewallhasmuchgraffitti
286DATA-44,0,0,0,0,42,0,areonasmallledgebeforeyouisthebridgeoverhellAredhotironbridgespansa*
287DATApoolofmoltenlava
288DATA-45,0,46,0,0,0,0,areonawideledgeNeararedhotbridge
290DATA-46,0,47,48,49,45,0,areinthequadchamberThereareopeningtoall4compasspoints
292DATA-47,0,0,0,0,46,0,areatthearchasignabovethearchsays------Archie'splace*
293DATA(Magiciansonly/fullformaldressrequired)
294DATA-48,0,0,0,46,0,0,areinasmallchamberThereisaholewithasignsayingWatchthefirststep
296DATA-49,0,0,46,0,0,0,areinthegreenroomScratchedonthewallarethewords:BewareLongJohnLindy*
297DATA--thesoftwarepirate
298DATA-50,0,0,47,0,0,0,areinArchie'splaceAcheapTVplaysabaseballgameAdoorheresays:BucaneerLounge
300DATA-51,0,0,52,0,50,0,areinthebucannerloungetothewestisanopeningbearingthelegend:*
301DATAAbandomhopeallyewhoenterhere
302DATA-52,52,52,53,52,52,52,areinthelabyrinth
304DATA-53,52,52,52,52,54,52,areinthelabyrinth
306DATA-54,0,52,52,52,52,25,areinacavernWaterfallsfromaboveandformsapondwithawhirlpool*
307DATAthengoesdowntoregionsunknown
308DATA-55,1,1,56,35,1,1,areinatinylittlemaze
310DATA-56,28,57,1,55,1,1,areinalittletinymaze
312DATA-57,1,58,1,56,1,1,areinateenylittlemaze
314DATA-58,1,1,1,59,57,1,areinalittleteenymaze
316DATA-59,60,55,58,57,56,55,areinalittletwistymaze
318DATA-60,61,55,56,57,58,59,areinatwistylittlemaze
320DATA-61,62,62,62,62,62,60,$
322DATA-62,62,62,62,63,62,62,$
324DATA-63,62,62,62,62,62,64,$
326DATA-64,65,62,62,62,62,61,$
328DATA-65,62,62,66,62,62,62,$
330DATA-66,66,66,66,66,66,67,$
332DATA-67,66,66,66,66,62,66,$
334DATA-68,0,0,0,0,0,28,areatthearmory
336DATA-69,0,0,0,0,0,0,areinthehangingcage
338DATA999,8,8,8,8,0,8,X
500DATAbrassoillamp
501DATAtinybox
502DATAwoodenkeg
503DATAsmallsword
504DATAgoldcoin
505DATAgoldring
506DATAtreasuremap
507DATAredhotpoker
508DATApairofasbestosgloves
509DATApairofasbestosboots
510DATAlargehammer
511DATAheavyblackanvil
512DATA2footblackrodwitharustystarononeend
513DATAredvelvetpillow
514DATAlargepricelessfragilemingvase
515DATApileofchinascraps
516DATApointyhatcoveredwithmoonsandstars
517DATAblackrobewithredlining
518DATAcoilofrope
519DATAverylargetreasurechest
520DATAmouldybook
521DATAtinyrazorsharpaxe
522DATAparchmentscroll
523DATAgoldendagger
524DATAwoodensnath(rustybladeattached)
525DATAlargebloodstainedmorningstar
526DATAgoldenshield
527DATAgoldencrownsetwithgems
528DATAENDOBJ
540DATA21,23,17,68,32,33,43,27,27,27,27,27,33,33,30,0,33,33,32,41,43,68,43,68,68,68,68,69
550PRINT"":FORY=1TOOT:IFB(Y)<0THENGOSUB1110:PRINTA$
560NEXTY:RETURN
570I$="":PRINT">";:INPUTI$:A=0:B=0:C=0:A$="":B$="":IFLEN(I$)<>1THEN580
572FORX=1TO28STEP4:IFI$=V$(X,X)THENA=(X-1)/4+1:RETURN
574NEXTX:GOTO650
580IFLEN(I$)<2THEN650
582I$(LEN(I$)+1)="":FORX=3TO15:IFI$(X,X)=""THENA$=I$(1,X):B$=I$(X+1,X+4):GOTO590
584NEXTX
590A$(LEN(A$)+1)="":A$=A$(1,4)
600FORX=1TOLEN(V$)STEP4:IFV$(X,X+3)=A$THENA=(X-1)/4+1:GOTO610
602NEXTX
610IFA$=B$THEN620
612IFA=11ORA=23THENA$=B$:GOTO600
620FORX=1TOLEN(N$)STEP4:IFN$(X,X+3)=B$THENB=(X-1)/4+1:GOTO630
622NEXTX
630FORX=1TOLEN(P$)STEP4:IFP$(X,X+3)=B$THENC=(X-1)/4+1:GOTO640
632NEXTX
640RETURN
650PRINT"Enterdirectiontomove,North,South,East,West,Up,Down,orInventory(firstletterasoption)"
652?:?"OthercommandsincludeSCORE,GETnounDROPnoun,LOOK,QUIT,oranyothertwowordcommand":GOTO570
660N0=N:IFM(A)=0THEN700
662IFM(A)=1THEN670
664IFM(A)<5THENN=M(A):GOSUB170:GOSUB2000:N=N0:RETURN
666N=M(A):RETURN
670FORX=1TO6:M(X)=0:NEXTX:M(7-A)=N0
680IFM(0)>0ORLA>M0THENPRINT"Youareinadeadend"
690GOSUB570:IFA>6THEN680
692IFM(A)<>0THENRETURN
694GOSUB700:GOTO680
700IFM(0)>0THEN710
702IFLA>M0THEN710
704RETURN
710PRINT"Youcan'tgointhatdirection":RETURN
720GOSUB170:IFLA=M0THEN?"Thelampflickers...":?"......andgoesout"
730IFM(0)>0THEN740
732IFLA>M0AND(B(1)=NORB(1)<1)THEN740
734PRINT"It'stootoseeanything":GOTO790
740GOSUB2000:GOSUB1140:IFN=39ANDLB=1THENPRINT"Theglowingoutlineofadoorisonthenorthwall"
750IFN=39ANDLB=2THENPRINT"Thereisanopendoortothenorth"
760IFN=41ANDP=1THENPRINT"Scrawledonthewallisthemessage:Piratesneverleavetheirtreasurein"
762IFN=41ANDP=1THENPRINT"thesameplacetwice"
770IFN=69ANDLC=0THENPRINT"Thereisalockeddoorbeneathyou"
780IFN=69ANDLC=1THENPRINT"Thereisanopendoorbelow"
790GOSUB570:S$(N,N)="#":M0=M0+1:IFA+B+C<1THENPRINT"":GOTO790
792IFA=11ORA=24THENA=0
800IFA>6THEN980
802W=0:FORX=1TOOT:IFB(X)<0THENW=W+1
810NEXTX:IFB(12)<0THENW=W+8
820IFW>12THEN?"":?"Youmustdropsomethingbeforemoving":GOTO790
822IFB(20)>0ORP=1THEN860
824IFP1>0THENP1=P1+1
830IFN>27ANDN<32THENP1=P1+1
840IFP1<20ORN=66THEN860
842?"SuddenlyLongJohnthepirateleapsoutofthegloomandtakesthetreasure":?
844?"HAH,heshouts,foundmetreasure,didyou.WellthistimeI'llhideitbetter!"
846?"Hedissappearsintothedarknesswiththetreasure":P=1
850B(20)=66:GOTO790
860N0=N:IFA<>0THENGOSUB660:GOTO720
861IFC=1ANDN=8THENN=20:GOTO720
862IFC=2ANDN=19THENN=22:GOTO720
863IFC=3ANDN=18THENN=23:GOTO720
864IFC=8ANDN=28THENN=25:GOTO930
865IFC=4ANDN=39ANDLB=2THENN=40:LB=0:GOTO720
866IFC=4ANDN=69ANDLC=1THENN=27:LC=0:GOTO720
870IFC=4ANDN=40THENN=39:GOTO720
872IFC=15ANDN=27THENN=69:GOTO720
874IFC=16ANDN=27THENN=5:PRINT"SnapClangSnapSnap...":GOTO720
875IFC=8ANDN=25THENN=28:GOTO930
876IFC=8ANDN=48THENN=22:GOTO930
877IFC=5ANDN=47THENN=50:GOTO900
880IFC=9ANDN=30THENN=27:GOTO930
881IFC=10ANDN=33THENN=29:GOTO960
882IFC=10ANDN=29THENN=33:GOTO960
883IFC=13AND(N=44ORN=45)THEN910
884IFC=4ANDN=50THENN=51:GOTO890
885PRINT"Idon'tunderstand":GOTO720
890IFP=1ANDB(20)<0THEN720
891PRINT"Youmusthaveknownapirateandhaveatreasuretoenter":N=N0:GOTO720
900IFB(13)<0ANDB(17)<0ANDB(18)<0THEN720
902PRINT"Anuglyhousetrainedtrollejectsyousaying'Youain'tgotfittinclothesyouain'tacominin'"
904N=N0:GOTO720
910IFB(10)<0THEN920
912PRINT"":?"Yourshoedburnedoffandyoufellinapoolofmoltenlava":GOTO1080
920IFN=44THENN=45:GOTO720
921N=44:GOTO720
930PRINT"":?"Scrape...It'satightsqueeze":IFB(15)<0THENN=N0:?"Youcan'tgetthroughwiththevase"
940IFB(20)<0THENN=N0:?"Youcan'tgetthroughwiththetreasure":GOTO720
942IFN0=48THENPRINT"ThetunneltaksasharpturndownwardYouslidedown":?"Nowaytostop":?
950GOTO720
960?"Youpullthecurtainasideand...":IFB(20)<0THENN=N0:?"Theevilwizardishere,you'dbetterleave"
970GOTO720
980IFA<>12ANDA<>22THEN990
982IFB(B)=NTHENB(B)=-1:PRINT"":GOTO790
984PRINT"Ican'tgeta";I$(5,LEN(I$)):GOTO790
990IFA=7THENGOSUB550:GOTO790
992IFA=26ORA=13ORA=23THEN1000
994GOTO1040
1000IFB(B)<0THENB(B)=N:GOTO1010
1002PRINT"You'renotcarryingone":GOTO790
1010IFB=15ANDB(14)<>NTHENB(15)=0:B(16)=N:PRINT"Crash...Tinkle"
1020IFB=15ANDB(14)=NTHENPRINT"Thevaseisonthepillow"
1030PRINT"":GOTO790
1040IF(A=8ORA=9)ANDB+C=0THEN720
1041IFA=8ORA=9THEN1160
1042IFA=10THEN1220
1043IFA>15ANDA<22THEN1320
1044IFA=14THENGOSUB1390:GOTO790
1045IFA<>25THEN1070
1046IFN=39ANDC=11ANDB(5)=-1ANDLB=0THENLB=1:?"Thecoingrowswarminyourhand":?"Thewallshimmers":GOTO720
1050IFN=39ANDC=12ANDB(4)=-1ANDLB=1THENLB=2:?"Theswordvibrates":?"Thedoorslowlycreeksopen":GOTO720
1052IFN=69ANDC=12ANDB(4)=-1THENLC=1:PRINT"Theswordshimmers":?"Thedoorcreeks":GOTO720
1060PRINT"Ahem...":?:?"";I$(4,19):?:?:GOTO790
1070IFA<>15THEN1100
1072GOSUB1390:PRINT"Areyousureyouwanttoquit":?"(YorN)";:INPUTA$:IFA$(1,1)<>"Y"THEN720
1080PRINT"Doyouwishtoplayagain?";
1085POKE764,255
1090A=PEEK(764):POKE764,255:IFA=255THEN1090
1091IFA=35THENTRAP40000:CLR:GRAPHICS0:RUN"D:MENU"
1092RUN
1100PRINT"Commandnotimplemented":GOTO720
1110RESTOREOB+Y-1:READA$:IFY=1ANDLA>M0THENA$(LEN(A$)+1)="(Shiningbrite)"
1130RETURN
1140FORY=1TOOT:IFB(Y)=NTHENGOSUB1110:?"Thereisa";A$;"here"
1150NEXTY:RETURN
1160IFB<>0THEN1180
1162IFC=1ANDN=8THEN?"Itappearstobeanoldfort":?"thereisanopeninginthewestwall":GOTO790
1164IFC=9AND(N=27ORN=30)THEN?"Thebarshavebeenbentapartdoyoucouldprobablygothrough":GOTO790
1170IFC=14ANDN=43THENPRINT"Tryreadingit":GOTO790
1172PRINT"Itisn'tveryremarkable":GOTO790
1180IFB(B)=NORB(B)<0THEN1190
1182PRINT"Idon'tseeit":GOTO720
1190IFB=7ORB=2ORB=3ORB=23THENPRINT"Thereiswritingonit":GOTO790
1192IFB=5THENPRINT"Coinhaspictureofsomenitwitononesideandrunesontheother":GOTO790
1194IFB=4THENPRINT"Ithasagoldenhiltandanengravedblade":GOTO790
1200IFB=21THENPRINT"Itisadictionary":?"ElvinrunetoEnglish":GOTO790
1202IFB=20THEN?"Thewholeideaofthisgameistobringthischest(INTACT!)backtothevault":GOTO790
1210IFB=12THEN?"Someoftheblackpainthaschippedaway,showinggoldunderneath.":?"It'ssolidgold!":GOTO790
1212PRINT"Thereisnothingspecial":GOTO790
1220IFN=B(B)ORB(B)<0THEN1230
1222IFC=14ANDN=43THEN?"Ifpassagesalllookalike,theycanlookdifferentifthingsaredropped":GOTO790
1224PRINT"Idon'tunderstand":GOTO790
1230IFB=3THENPRINT"FirstClass":?"Whaleoil":GOTO790
1232IFB=4THEN?"Thisswordismagic":?"Therunessay":?"ASTOREBLOFDOF":?"DESTOMARKOBLODD"
1240IFB=4ANDB(21)=-2THENPRINT"Ifyouhavethisweapon,andsayvargay,nodoorwillever,baryouway"
1250IFB=5THENPRINT"Thiscoinismagic,therunesare:IFTOGOOTOOROPTOBLUTU":?"MORTOFLORTOGORTOBORTU"
1260IFB=5ANDB(21)=-2THENPRINT"Ifyouhavemewithyou,andsayvaloor,Iwillreveal,Asecretdoor"
1270IFB=5ORB=4THEN790
1272IFB=21ANDB(21)>0THENPRINT"Pickitupfirst":GOTO790
1274IFB=21THENB(21)=-2:PRINT"Ifyouhavemewithyou":?"Youcanreadelvinrunes":GOTO790
1276IFB=2THENPRINT"`Diamond`Safetymatches":GOTO790
1280IFB=7THEN?:?:?"^":?"N":?"..............................":?".."
1282IFB=7THEN?".Pirate'sTreasureRoom.":?".."
1284IFB=7THEN?"-------SecretDoor----------":?".."
1286IFB=7THEN?".GiantRock.":?".."
1288IFB=7THEN?"----Ledge-------------------":?:?:GOTO790
1290IFB=23THENPRINT"Scrollareuseful":PRINT"thanksforplaying":?"signed":?"PeteTyjewski"
1300IFB=23ANDP=1THENPRINT"P.S.":?"IfyouhavetroublewithapirateGetyetothetwistylittlemaze"
1302IFB=23ANDP=1THENPRINT"Followthesun:":?"Noon,sunset,":?"Sunrise,Midnite,":?"Noon,sunset"
1310IFB=23THEN790
1312PRINT"Ican'treadthat":GOTO790
1320IFA=17ANDC=6THEN1360
1322IFA=19ANDB=1THEN1330
1324IFA=16ANDB=1THEN1360
1326IFA=17ANDC=7THENOI=LA-M0:LA=0:?"":GOTO790
1328?"Arsonist!":GOTO790
1330IFB(1)=NORB(1)<0THEN1340
1332PRINT"Whatlamp?":GOTO790
1340IFB(3)=NORB(3)<0THEN1350
1342PRINT"Whereisoil?":GOTO790
1350IFOI<1ANDLA<M0THENOI=70:PRINT"":GOTO790
1352PRINT"Lampalreadyhasoil":GOTO790
1360IFB(1)=NORB(1)<0THEN1370
1362PRINT"Nolamp":GOTO790
1370IFB(2)=NORB(2)<0THEN1380
1372PRINT"Nomatches":GOTO790
1380IFLA>M0THENPRINT"Itislit":GOTO790
1382IFOI<1THENPRINT"Lampisempty":GOTO790
1384LA=OI+M0:OI=0:PRINT"":GOTO790
1390PRINT"Score:":?"Youmade";M0;"moves":?"Youhaveearned";:S=0:FORX=6TONT:IFS$(X,X)="#"THENS=S+1
1400NEXTX:FORX=1TOOT:IFB(X)<0ORB(X)=21THENS=S+2
1410NEXTX:IFB(20)=21THENS=S+50
1420IFB(15)=21THENS=S+20
1430IFB(12)=21THENS=S+20
1440IFB(28)=21THENS=S+20
1450S=S+P*30:IFM0>350THENS=S*350/M0
1460?INT(S);"points":?"outof";NT-5+OT*2+18+50+20+30+20;"possible":RETURN
2000?:?:?"You";:FORT=1TOLEN(A$)
2010IFA$(T,T)=""THENPRINT:GOTO2040
2020IFA$(T,T)=""THENPRINT",";:GOTO2040
2030PRINTA$(T,T);
2040NEXTT:?:PRINT:RETURN	

• Download link 1
• Download link 2

• Download link 1
• Download link 2