Atari 8-bit Source code

0REMBYCLAYTONWALNUM
1REMLASTREV.6/24/84
5SZ=23:ITMS=48:VBS=27:N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:N6=6:N7=7:N8=8:N9=9:N10=10:DIMZ$(N1):DIMU$(SZ):GOTO10000
10GOTORM+N9
15?"ATTHECAMP":W=42:N=44:GOTO320
16?"INATENT":W=N6:GOTO320
18?"INADARKPASSAGE":S=68:GOTO320
20?"INACLEARING":E=44:S=42:N=15:GOTO320
22?"ONABEACH":E=40:GOTO320
23?"ATTHECASTLEGATES":E=16:N=24:S=30:GOTO320
24?"INAMEADOW":S=11:E=17:GOTO320
25?CW$:W=14:N=18:GOTO320
26?"INAMEADOW":S=44:W=15:GOTO320
27?CW$:W=19:S=16:GOTO320
28?CW$:E=18:GOTO320
29?H$:N=19:S=21:GOTO320
30?H$:N=20:S=22:W=50:E=52:GOTO320
31?H$:N=21:S=23:W=26:E=48:GOTO320
32?H$:N=22:S=24:W=46:E=28:GOTO320
33?H$:N=23:S=14:GOTO320
35?"INAGUARDROOM":E=22:GOTO320
37?"SMALLDININGROOM":W=23:GOTO320
39?"ONABEACH":N=14:W=56:GOTO320
40?"INASHORTHALL":U=53:E=32:N=33:S=35:GOTO320
41?"INASHORTHALL":N=34:S=36:W=31:GOTO320
42?"INAWEAPONSROOM":S=31:GOTO320
43?"INAMAGICIANS'SWORKSHOP":S=32:GOTO320
44?"INAGUARDROOM":N=31:GOTO320
45?"INAKEYROOM":N=32:GOTO320
49?F$:W=13:E=42:GOTO320
50?T$:D=40:GOTO320
51?F$:W=40:E=6:N=11:GOTO320
52?T$:D=42:GOTO320
53?F$:W=11:S=44:N=17:GOTO320
54?T$:D=44:GOTO320
55?WD$:E=23:GOTO320
56?"INATOOLROOM":E=23:GOTO320
57?WD$:W=22:GOTO320
58?"INAPLACEOFWORSHIP":W=22:GOTO320
59?WD$:E=21:GOTO320
60?"INASUPPLYROOM":E=21:GOTO320
61?WD$:W=21:GOTO320
62?"INASMALLROOM":W=21:GOTO320
65?"ONABEACH":W=56:E=30:S=56:N=14:GOTO320
69?SC$:W=32:E=61:GOTO320
70?SC$:W=60:E=62:GOTO320
71?SC$:W=61:E=63:GOTO320
72?SC$:W=62:E=64:GOTO320
73?SC$:W=63:E=65:GOTO320
74?SC$:W=64:GOTO320
75?CE$:S=60:GOTO320
76?CE$:S=61:GOTO320
77?CE$:S=62:GOTO320
78?CE$:S=63:GOTO320
79?CE$:S=64:GOTO320
80?CE$:S=65:GOTO320
199REM******INITIALIZE*******
200DIMIT$(ITMS*SZ),I(ITMS),D(N6),VB$(VBS*3),C(N10),V(VBS),SZ$(SZ),A$(20),B$(20),IN$(50),X$(SZ),C$(20)
201DIMO(6),D$(3):FORX=N1TON6:O(X)=N0:NEXTX:G1=N1:G2=N1:G3=N1:KEY=N0:P1=N0:WZ=N0:TR=N0:CA=N0:SL=N0:TN=N0
202RM=N6:KN=N0:KE=N0:GHP=N0:E1=N0:F=N0:DW=N1:RT=N1:SW=N0:BT=N0:SR=N1:DS=N0:NO=N0:DR=N0
204DIMCL$(15),G$(13),CW$(22),H$(17),WD$(20),F$(13),T$(9),SC$(20),CE$(9)
205FORX=1TOSZ:SZ$(X,X)="":NEXTX:CL$="CELOPENCELL":G$="GUADEADGUARD"
207FORA=N1TON10:C(A)=N0:NEXTA
210FORA=N1TOITMS:IT$(A*SZ-SZ+N1,A*SZ)=SZ$:READX$:IT$(A*SZ-SZ+N1,A*SZ)=X$:READX:I(A)=X:NEXTA
215READVB$:FORA=7TOVBS:READX:V(A)=X:NEXTA
216CW$="BESIDETHECASTLEWALL":H$="INALONGHALLWAY":F$="INTHEFOREST"
217T$="INATREE":SC$="INTHESLAVECELLARS":CE$="INACELL":WD$="FACINGAWOODENDOOR"
220?:?"DOYOUWANTTORESTOREANOLDGAME";:INPUTZ$:IFZ$="Y"THENGOSUB11000
299REM******DIRECTION*******
300TRAP300:N=N0:W=N0:S=N0:E=N0:D=N0:U=N0:GRAPHICSN0:POKE710,144:POKE709,N10:FL=N0
301IFRM=42ORRM=40ORRM=44THENI(18)=-RM
302IFRM=13ANDI(20)=-N1THEN13000
305POKE752,N1:?"YOU'RE";:GOTON10
319REM*****PRE-DIRECTIONHERE******
320IFRM=13THEN?:?"Thereisalargelakehere."
322IFRM=13THEN?"Ontheothersideofthelakeyouseeacastle."
323IFRM=32THEN?:?"There'sahugewoodendoor":?"totheeast."
324IFRM=32ORRM=9THENSL=N0
325IFRM=60ORRM=12THENSL=N1
326IFSLTHENFL=N1:FORX=N1TON6:IFO(X)ANDRM=X+59THENI(45)=-RM
327IFFLTHENNEXTX:FL=N0
329IFRM=32ANDE1=N1THENE=60
330IFRM=N9ANDNO=N1THENN=56
360IFN+W+E+S+U+D>N0THEN?:?":":FORX=N1TON6:D(X)=N0:NEXTX
365IFW>N0THEN?"West";:D(1)=W
366IFN>N0THEN?"North";:D(2)=N
367IFE>N0THEN?"East";:D(3)=E
368IFS>N0THEN?"South";:D(4)=S
369IFU>N0THEN?"Up";:D(5)=U
370IFD>N0THEN?"Down";:D(6)=D
380?
382?:C=N0
390FORB=N1TOITMS:IFABS(I(B))=RMTHENC=C+N1:GOTO392
391NEXTB:?:GOTO403
392IFC=N1THEN?":"
400?"";IT$(B*SZ-SZ+N4,B*SZ):GOTO391
403IF(RM=26ORRM=35)ANDI(33)<>-N1THENGOSUB6400:GOTO6000
404IFG2ANDRM=26THENGHP=N4:HP=N6:GOSUB6450:GOTO450
405IFG3ANDRM=35THENGHP=N6:HP=9:GOSUB6450:GOTO450
410REM*****DESCRIPTIONSHERE******
412IFI(3)=-N1ANDCA=N0THENP=INT(RND(N0)*15)+N1:IFP=N1THEN?"Parrotsays,";CHR$(34);"BRRRAAAAAAAAKKK!!!"
413IFP=N1THEN?"Don'tforgettokneelwhenyouopen":?"it,Bilgor.";CHR$(34):?
414IFKEY>N0THEN419
415IFRM=36ANDI(37)=-N2THENFL=N1:?"Amanbehindacounterasks:'Whatkeydoyouwant?'":?"Enternumber:";
416IFFLTHENINPUTKEY:IFKEY>N6ORKEY<N1THEN?:?"Sorry,nosuchkey.":GOTO415
417IFFLANDKEY=N6THEN?:?"Thatonewasmisplaced.":KEY=N0:GOTO450
418IFFLTHENI(23)=RM:GOTO300
419IFRM=36ANDKEY<>N0ANDI(37)=-N2THEN?"Youmustreturnthekey":?"youhavetogetanother.":GOTO450
420IFRM=36THEN?"There'samanstanding":?"behindacounter.":GOTO450
450SOUNDN0,N0,N0,N0:C=N0:FL=N0
454REM*****INPUT******
455POKE752,N0:?:?"";:INPUTIN$:POKE752,N1:?:IFIN$="LOOK"THEN300
456IFRM=11ANDIN$="PRAY"ANDBT=N1ANDSW=N1THEN?"Nothinghappens.":GOTO450
457IFRM=31ANDIN$="U"ANDI(20)=-N1THEN?"Thedoor'sclosedandlocked!":GOTO450
458IFRM=11ANDIN$="PRAY"THENGOSUB6200:?"Avoicesays,";CHR$(34);"Askandreceive";CHR$(34);".":GOTO6100
460IFRM=49ANDIN$="PRAY"THEN?CHR$(34);"Howdareyoudefilethisroom,infidel!DIE!!!";CHR$(34):FL=N1
461IFFLTHENGOSUB6200:GOTO6000
462IFRM=14ANDIN$="N"THENGOSUB6400:GOTO6000
463IFRM=67ANDDWANDF=N0ANDIN$="S"THENFL=N1:IFI(13)=-N1THENGHP=N3:HP=N5:GOSUB6450:GOTO450
465IFFLTHENGOSUB6499:GOTO6000
466IFRM=68ANDRTANDF=N0ANDIN$="S"THENFL=N1:IFI(14)=-N1THENGHP=3:HP=5:GOSUB6450:GOTO450
467IFFLTHENGOSUB6498:GOTO6000
468IFIN$="SAVEGAME"THENGOSUB12000:GOTO300
470FORB=N1TON6:IFLEN(IN$)=N1ANDIN$=VB$(B*N3-N2,B*N3-N2)THEN474
472NEXTB:GOTO500
474IFFTHEN?"Youropponentblocksyourescape!":GOTO450
475IFD(B)<>N0THENRM=D(B):GOTO300
490?"":GOTO450
500IFIN$<>"I"THEN520
510?"":?"":?:?":":FORK=N1TON10:IFC(K)=N0THEN515
512?"";IT$(C(K)*SZ-SZ+N4,C(K)*SZ)
515NEXTK:IFI(37)=-N2THEN?:?":":?"Guard'sHelmet"
518?:?:GOTO450
520REM***EXTRA****
521IFRM=19AND(IN$="KNEEL"ORIN$="CRAWL"ORIN$="STOOP")THENKN=N1:GOTO5050
530FORB=N7TOVBS:IFIN$(N1,N3)=VB$(B*N3-N2,B*N3)THEN600
535NEXTB
540?"Idon'tunderstand";CHR$(34);IN$;CHR$(34);".":GOTO450
600FORK=N1TOLEN(IN$):IFIN$(K,K)<>""THENNEXTK:?"HUH?":GOTO450
605A$=IN$(K+N1,LEN(IN$))
607IFLEN(A$)<N3THENA$(LEN(A$)+N1)="":GOTO607
608B$=A$(N1,N3)
610ONV(B)GOTO611,680,750,765,800,820,880,975,995,1000,1021,1030,660,1040
611IFKETHENI(21)=-N1:GOTO5050
615REM*****EXTRAGETSHERE******
616IFRM=33AND(B$="LAN"ORB$="MAC"ORB$="AXE")THENFL=N1:IFWZTHEN?"Youmaycarryonlyone.":GOTO450
617IFFLTHENWZ=N1
618IFRM=67ANDDWANDB$="KEY"THENIN$="S":GOTO463
619IFRM=26ANDI(37)=N0ANDF=N0ANDB$="HEL"THENI(37)=RM:GOTO640
620IFRM=26ANDI(21)=N0ANDF=N0ANDB$="KEY"THENI(21)=RM:GOTO640
640FORJ=N1TOITMS:IFB$=IT$(J*SZ-SZ+N1,J*SZ-SZ+N3)ANDRM=ABS(I(J))THEN645
641NEXTJ
642?"Idon'tseea";CHR$(34);B$;CHR$(34);".":GOTO450
645IFI(J)<N0THEN?"Youcan'tcarrythat!":GOTO450
646FORK=N1TON10:IFC(K)=N0THENC(K)=J:I(J)=-N1:GOTO5050
647NEXTK:?"Youcan'tcarryanymore.":IFFLTHENWZ=N0
648GOTO450
659REM*******TALK*******
660IFRM=66ANDB$="MAN"THENFL=N1:?"THEMANSAYS:There'sasecretpassagefromthecellars,butwatch"
661IFFLTHEN?"outfortherats!":GOTO450
662IFSR=N1ANDRM=17ANDB$="SOL"THENFL=N1:?:?"THESOLDIERSAYS:'GASP...They...they"
663IFFLTHEN?"tookeverything...GASP...Youmustsavetheprincess...but...but..."
664IFFLTHEN?"forNimral'ssake,don'tgowithoutaweapon...Youwouldn'tlast...you..'"
665IFFLTHEN?"Andthenhedied.":?:IT$(691,713)="SOLDEADSOLDIER":SR=N0:GOTO450
666IFRM=36ANDI(37)<>-N2ANDB$="MAN"THEN?"THEMANSAYS:Getout!Onlyguardsareallowedhere.":GOTO450
667IF(I(3)=-N1ANDB$="PAR")OR(I(3)=RMANDB$="PAR")THEN?"Theparrotsays:'BRRRRAAAAAAKKKKK!'":GOTO450
669IFRM=14ANDB$="GUA"THEN?"Getoutofhere!Wedon'tlikeyourkind.":GOTO450
678GOTO1050
679REM******DROP*******
680IFRM=35ANDI(N9)=-N1ANDB$="DUS"THEN?"Onthetrunk":DS=N1:GOTO450
681IFB$="MAC"ORB$="LAN"ORB$="AXE"THENWZ=N0
682IFRM=71ANDI(32)=-N1ANDB$="CLO"THENFL=N1
683IFFLTHEN?"Thegirlgetsdressed...muchtoyourdisappointment.":I(19)=N0:I(20)=71:GOSUB6520
684IFFLTHENI(32)=N0:GOTO300
685IFRM=36ANDKEY<>N0ANDB$="KEY"THENKEY=N0
705FORJ=N1TOITMS:IFB$=IT$(J*SZ-SZ+N1,J*SZ-SZ+N3)THENIFI(J)=-N1THEN710
707NEXTJ
709?"Youdon'thaveit.":GOTO450
710FORK=N1TON10:IFC(K)=JTHEN712
711NEXTK:GOTO709
712I(J)=RM:C(K)=N0:IFRM=36ANDB$="KEY"THENI(J)=N0
713IFFLTHENI(32)=N0
714GOTO5050
749REM******READ******
750REM
751IFRM=11AND(B$="WRI"ORB$="PLA")THEN?"Prayerandgooddeedsarethesincerestformofworship"
752IFRM=11AND(B$="WRI"ORB$="PLA")THENGOTO450
753IFB$="PAP"ANDI(22)=-N1THEN?:?"Somebodyhelpme,please!They'vetakenmeprisonerandaregoing":FL=N1
754IFFLTHEN?"tomakemeTheKeeper'spersonalpleasureslave.Iwilltakemy"
755IFFLTHEN?"ownlifebeforeIwillsubmittothat.":?:?"Shala":GOTO450
756IFI(13)=-N1ANDB$="LAB"THEN?"Effectiveagainstdwarves":GOTO450
757IFI(14)=-N1ANDB$="LAB"THEN?"Effectiveagainstrats":GOTO450
758IFI(15)=-N1ANDB$="LAB"THEN?"Effectiveagainstcertaindoors.":GOTO450
759IFRM=49AND(B$="PLA"ORB$="WRI")THEN?"Prayerandevildeedsarethe":?"sincerestformofworship":GOTO450
763GOTO1050
764REM*******LOOK*******
765IF(RM=11ORRM=49)ANDB$="STA"THEN?"There'saplaquewithwritingonit.":GOTO450
766IFRM=14ANDB$="GUA"THEN?"Helooksbigandmean!":GOTO450
767IFRM=26ANDG2=N0ANDB$="GUA"THEN?"He'swearingahelmet":?"andleatherarmor.":GOTO450
768IF(RM=20ORI(22)=-N1)ANDB$="PAP"THEN?"There'swritingonit.":GOTO450
769IFRM=19ANDIT$(579,581)="OPE"ANDB$="DOO"THEN?"Booby-trapped!Acrossbow's":?"aimedatyourchest!":GOTO450
770IF(RM=33ORI(13)=-1ORI(14)=-1ORI(15)=-N1)AND(B$="LAN"ORB$="MAC"ORB$="AXE")THEN?"There'salabel":GOTO450
771IFSLANDB$="CEL"THEN?"Thedoorisclosedandlocked.":GOTO450
772IF(RM=45ORI(3)=-N1)ANDB$="PAR"THEN?"It'sgreen.":GOTO450
774IFRM=53ANDB$="POR"THEN?"It'sjustapotrait.":GOTO450
775IFRM=26ANDG2=N0ANDB$="ARM"THEN?"There'sapocketwith":?"abluekeyinit.":GOTO450
776IFRM=35ANDB$="TRU"THENFL=N1:IFTR=N1THENI(11)=RM:GOTO300
777IFRM=17ANDB$="SOL"ANDSR=N1THEN?"He'stryingtospeak.":GOTO450
779IFRM=71ANDB$="GIR"ANDI(19)=-71THEN?"Shameonyou!":GOTO450
781IFRM=13ANDB$="CAS"THEN?"TheflagoftheGolgolothSlaversisflyingabovethefrontgate.":GOTO450
783IFRM=35ANDB$="TRU"THENFL=N1:IFTRTHENI(11)=35:GOTO300
784IFFLTHEN?"There'sasilverypowderonthelid.":GOTO450
785IF(I(32)=-N1ORI(32)=RM)ANDB$="CLO"THEN?"Theylookveryexpensive.":GOTO450
786IF(I(N10)=-N1ORI(N10)=RM)ANDB$="CHE"THEN?"Itlooksmagical.":GOTO450
790?"Youseenothingofinterest":GOTO450
799REM******PUSH*******
800REM
801IFRM=53ANDI(25)=-53ANDB$="BUT"THENI(26)=-53:GOTO5050
802IFRM=32ANDB$="BUT"THEN?"Youjustpressedthealarm!!":?"Aguardcomesrunning!!":FL=N1:GHP=N6:HP=N9
803IFFLTHENFORX=N1TON8:SOUNDN0,70,12,N8:FORX1=N1TO50:NEXTX1:SOUNDN0,N0,N0,N0:FORX1=N1TO25:NEXTX1
804IFFLTHENNEXTX:GOSUB6450:GOTO450
818GOTO1050
819REM******GO*******
820IFRM=N6ANDB$="TEN"THENRM=7:GOTO300
822IFRM=13AND(B$="LAK"ORB$="WAT"ORB$="CAS")THEN?"Youdon'tswimverywell":GOTO450
823IFKNANDRM=19ANDB$="DOO"THEN?"Anarrowwhizzesoveryourhead":RM=20:GOSUB6520:CA=N1:KN=N0:GOTO300
824IFRM=19ANDB$="DOO"THEN?"Thedoorisboobytrapped!":?"Anarrowburiesitselfinyourchest!":GOTO6000
825IFRM=46ORRM=48ORRM=50ORRM=52THENFL=N1:IFI(21)=-N1THENRM=RM+N1:?:?"Thekeyunlockedthedoor"
826IFFLTHEN?"Thedoorislocked.":GOTO450
827IFRM=30ANDB$="BOA"THEN?"Youcrossthelake":RM=13:I(34)=-13:GOSUB6520:GOTO300
828IFRM=13ANDI(34)=-13ANDB$="BOA"THENFL=N1:RM=30:I(34)=-30
829IFFLTHEN?"Yougetintheboatand":?"crossthelake":GOSUB6520:GOTO300
830IFRM=53ANDI(26)=-53ANDB$="DOO"THENRM=31:GOTO300
831IFSLANDI(45)=-RMAND(B$="DOO"ORB$="CEL")THENRM=RM+N6:GOTO300
832IFSLAND(B$="DOO"ORB$="CEL")THEN?"Thedoorislockedtight.":GOTO450
833IFRM=68ANDTNANDB$="TUN"THENRM=9:GOTO300
834IFRM=N9ANDNO=N1THENRM=56:GOTO300
840GOTO1050
879REM********CLIMB*******
880IF(RM=42ORRM=40ORRM=44)ANDB$="TRE"THENRM=RM+N1:GOTO300
898GOTO1050
974REM*******FIGHT**********
975IF(RM=32ORRM=26ORRM=35)ANDB$="GUA"ANDGHP>N0THENFL=N1
976IF(RM=68ORRM=67)AND(B$="RAT"ORB$="DWA")ANDGHP>N0THENFL=N1
977IFFLTHENZ=INT(RND(N0)*N4)+N1:IFZ<3THEN?"Youhithim!":GHP=GHP-N1:IFGHP<N1THEN?:?"He'sdead!":F=N0:GOTO980
979IFFLTHEN985
980IFFLANDRM=32THENI(47)=-RM:GOSUB6520:GOTO300
981IFFLANDRM=26THENIT$(162,184)=G$:G2=N0:GOSUB6520:GOTO300
982IFFLANDRM=67THENIT$(369,391)="DWADEADDWARF":DW=N0:GOSUB6520:GOTO300
983IFFLANDRM=35THENIT$(346,368)=G$:G3=N0:GOSUB6520:GOTO300
984IFFLANDRM=68THENIT$(1036,1058)="RATDEADGIANTRAT":RT=N0:GOSUB6520:GOTO300
985IFFLANDZ>N2THEN?"Youmissed":Z=N0:GOSUB6450:GOTO450
987IFFLTHENGOSUB6450:GOTO450
993GOTO1050
994REM********MOVE********
995IFRM=19ANDB$="SHR"THENI(26)=-19:GOTO300
996IFRM=53ANDB$="POR"THENI(25)=-53:GOTO5050
997IFRM=68ANDB$="NES"THENFL=N1:IFRTTHENIN$="S":GOTO463
998IFFLTHENI(44)=-68:TN=N1:GOTO5050
999GOTO1050
1000FORS=N1TON6:IFS+59=RMTHENFL=N1:POP:GOTO1002
1001NEXTS
1002IFFLANDKEY=SANDI(23)=-N1THENI(45)=-(S+59):O(S)=N1:?"Thekeyunlocksthedoor.":GOSUB6520:GOTO300
1003IFFLTHEN?"Youdon'thavethekey.":GOTO450
1010IFRM=19ANDB$="DOO"THENIT$(576,598)="DOOOPENDOOR":GOTO300
1011IF(RM=50ORRM=52ORRM=48ORRM=46)ANDB$="DOO"THENFL=N1:IFI(21)<>-N1THEN?"It'slocked.":GOTO450
1012IFFLTHEN?"Thekeyunlockedthedoor.":RM=RM+N1:GOSUB6520:GOTO300
1014IFRM=35ANDDS=N1ANDB$="TRU"THENIT$(645,667)="TRUOPENTRUNK":TR=N1:GOTO300
1015IFRM=32ANDB$="DOO"THENFL=N1:IFI(30)<>RMTHEN?"Thehandle'stoohigh.":GOTO450
1016IFFLANDI(30)=RMTHEN?"Youstandonthestool":?"andopenthedoor.":E1=N1:GOSUB6520:GOTO300
1019GOTO1050
1020REM*****SMASH******
1021IFI(24)=-N1AND(I(24)=-N1OR(RM=28ANDI(24)=28))ANDB$="CHE"THENIT$(208,230)="CHESMASHEDCHEST":FL=N1
1022IFFLTHEN?:?"There'saburstoflightfromthechest,and...":FORX=14TON0STEP-N1:SETCOLORN2,N0,X
1023IFFLTHENFORX1=N1TO5:NEXTX1:NEXTX:FORX1=N1TO500:NEXTX1:RM=INT(RND(N0)*66)+N6
1024IFFLTHENTRAP6550:IFRM>60THENSL=N1:GOTO300
1025IFFLTHENSL=N0:GOTO300
1026IFRM=65ANDI(24)=-N1ANDB$="DOO"THENO(6)=N1:?"Thedoorissmashedin!":GOTO5100
1028GOTO1050
1029REM******WEAR******
1030IFI(37)=-N1ANDB$="HEL"THENK3=37:GOTO1100
1031GOTO1050
1039REM*********WAVE***********
1040IFI(11)=-N1ANDB$="WAN"THENFL=N1:?"There'saburstofflame.":IFRM=9ANDDR=N0THEN?"Thedoorburnsaway!"
1041IFFLANDRM=N9ANDDR=N0THENNO=N1:DR=N1:GOSUB6520:GOTO300
1042IFFLTHENGOTO450
1045IFI(48)=-N1ANDB$="ROD"THENFL=N1:?"Therodstartsglowing."
1046IFFLANDRM=N9ANDDR=N1THEN?"There'saburnedwoodendoor.":GOTO1048
1047IFFLANDRM=N9THEN?"Youseeawoodendoortothenorth."
1048IFFLTHENFORX=N1TO200:NEXTX:?"Therodstopsglowing.":GOTO450
1050?"Nicetry,butyoucan'tdothat.":GOTO450
1099REM******CHANGES********
1100FORK2=N1TON10:IFC(K2)=K3THENC(K2)=N0:I(K3)=-N2
1115NEXTK2:K3=N0:GOTO5050
2000DATATENTENT,-6,MANOLDMAN,-66,PARPARROT,45,STASTATUEOFNIMRAL,-11,GUAGUARD,-14,SHRSHRUBS,-19
2010DATAPORPORTRAITONTHEWALL,-53,GUAGUARD,-26,DUSMAGICDUST,34,CHESMALLCHEST,28,WANWANDOFFIRE,0
2020DATASTASTATUEOFGOLGOLOTH,-49,MACMACE,33,LANLANCE,33,AXEAXE,33,GUAGUARD,-35,DWAEVILDWARF,-67
2030DATATRETREES,0,GIRNAKEDGIRL,-71,PRIPRINCESSSHALA,0,KEYBLUEKEY,0,PAPPIECEOFPAPER,7,KEYKEY,0
2040DATAHAMHAMMER,47,BUTBUTTON,0,DOOSECRETDOOR,0,NESHUGERAT'SNEST,-68,BUTBUTTON,-32,TRUTRUNK,-35
2050DATASTOSTOOL,31,SOLWOUNDEDSOLDIER,-17,CLOAWOMAN'SCLOTHES,15,SWOSWORD,0,BOABOAT,0,GIAGIANT,-55,PARPARROT,4
2060DATAHELGUARD'SHELMET,0,CELCELL#1,-60,CELCELL#2,-61,CELCELL#3,-62,CELCELL#4,-63,CELCELL#5,-64
2070DATACELCELL#6,-65,TUNTUNNEL,0,DOOOPENDOOR,0,RATGIANTRAT,-68,GUADEADGUARD,0,RODGLASSROD,51
2100DATAWNESUDGETTAKDROPUTGIVREALOOPUSPREGOENTCLIATTFIGMOVOPESMAWEATALASKWAV
2110DATA1,1,2,2,2,3,4,5,5,6,6,7,8,8,9,10,11,12,13,13,14
5050?"OK"
5100FORZ=N1TO150:NEXTZ:GOTO300
6000?:FORX=N1TO255:SOUNDN0,X,N10,N8:SOUNDN1,X+3,N10,N8:NEXTX:SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:?:?"YOU'REDEAD"
6001?:?"Doyouwanttoplayagain?";:OPEN#N1,N4,N0,"K:":GET#N1,Z:IFCHR$(Z)="Y"THENCLOSE#N1:RUN
6003?"COWARD":END
6100?:?"ONEWORD:";:INPUTC$
6105IF(C$="SWORD"ORC$="WEAPON")ANDSW=N0THEN?:?"GIVEN!":I(33)=11:GOSUB6520:SW=N1:GOTO300
6110IFC$="BOAT"THEN?:?"GIVEN!":I(34)=-13:BT=N1:GOTO450
6115?:?"Youhavenoneedforthat!":GOTO450
6200L=6200:FORX=N1TO175STEP2:GOTO6204
6201FORX=N1TO50STEPN2:GOTO6204
6202FORX=N1TO175STEP2:GOTO6204
6203SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:RETURN
6204SOUNDN0,X,N8,N8:SOUNDN1,X+N2,N8,N8:SETCOLORN2,N0,14:SETCOLORN2,N0,N0:NEXTX:L=L+N1:GOTOL
6300FORX=N1TO100:NEXTX
6400?"Aguardleapsforwardandrunsyouthrough!":RETURN
6450?:?"You'reattacked!!":FORX=N1TO50:NEXTX:F=N1
6455Z=INT(RND(N0)*4)+N1:IFZ<N2THEN?:?"You'rehit!!":HP=HP-N1:IFHP<N1THEN6000
6460IFZ>N1THEN?:?"It'samiss!"
6465RETURN
6498?:?"You'reratfood!!":GOTO6000
6499?:?"Thedwarfstabsyouwithadagger!":RETURN
6500FORX=N1TON2:FORX1=15TON0STEP-N1:SOUNDN0,120,N8,X1:SOUNDN1,122,N8,X1:FORX2=N1TON8:NEXTX2:NEXTX1:FORYY=N1TO60:NEXTYY
6505FORX1=15TON0STEP-N1:SOUNDN0,110,N8,X1:SOUNDN1,112,N8,X1:FORX2=N1TON8:NEXTX2:NEXTX1:FORYY=N1TO6
6510SOUNDN0,N0,N0,N0:SOUNDN1,N0,N0,N0:RETURN
6520FORX=N1TO250:NEXTX:RETURN
6530FORX=1TO750:NEXTX:RETURN
6550RM=N6:SL=N0:I(34)=N0:BT=N0:GOTO300
10000GRAPHICSN1:DL=PEEK(560)+256*PEEK(561)+N4:POKEDL-N1,66:POKEDL+16,N7:POKEDL+17,N7:POKEDL+25,65
10005POKEDL+26,PEEK(560):POKEDL+27,PEEK(561):POKE710,N0:POKE708,54
10010POSITIONN6,N7:?#N6;"THE":POSITIONN3,N9:?#N6;"SLAVECELLARS"
10011POSITIONN9,11:?#N6;"OF":POSITIONN5,16:?#N6;""
10012POSITIONN0,N0:?#N6;"":?"byCLAYTONWALNUM";
10013FORX=N0TO255STEPN2:POKE711,X:FORY=N1TON5:NEXTY:NEXTX:POKE711,154
10014FORX=N1TO200:NEXTX:GRAPHICSN0:POKE709,N10:POKE710,32
10015POSITIONN2,N4:?"Youandyourparty,faithfulfollowersofthegodNimral,were"
10020?"escortingthePrincessShalatothecastleofherbetrothed."
10030?"Unfortunatelyasyoucampedforthenight,thedreadedSlaveMastersof"
10040?"Golgolrothattacked.Youfoughtbravelybutwereunabletoholdoff"
10050?"thesavageslavers.Thelastthingyouheardbeforebeingstruck"
10060?"unconsciouswastheprincess'sscream.":GOSUB10130
10070?"Youawakeandlookabout."
10080?"Thebodiesofyourmenlaystrewnaroundyou,butthereisnosignof"
10090?"theprincess.YouarefilledwithfuryandvowthattheSlaveMasters,"
10100?"followersoftheevilGolgoloth,willtasteyourvengence."
10110?"Butyouarealoneandweaponless.":?"Whatwillyoudo?"
10120?:?:?:?"":INPUTZ$:?"PLEASEWAIT...":GOTO200
10130?:?:?:?"":INPUTZ$:GRAPHICSN0:POKE709,N10:POKE710,160:POSITIONN2,N4:RETURN
11000TRAP11050:?"RESTOREFROMAPEORISC";:INPUTZ$:IFZ$="D"THEN11020
11005IFZ$<>"T"THEN?:GOTO11000
11010?:?"CUETAPETHENPRESSTWICE.":INPUTZ$:OPEN#N1,N4,N0,"C:":GOTO11025
11020OPEN#N1,N4,N0,"D:SLAVE.DAT"
11025INPUT#N1,RM,G1,G2,G3,GHP,HP,CA,SL,TN,DR
11026INPUT#N1,DW,RT,KEY,TR,E1,F,KE,P1,WZ,NO
11027FORX=N1TOITMS*SZSTEPSZ:INPUT#1,U$:IT$(X,X+22)=U$:NEXTX
11030FORX=N1TOITMS:INPUT#N1,A:I(X)=A:NEXTX
11032FORX=N1TON10:INPUT#N1,A:C(X)=A:NEXTX
11035FORX=N1TON6:INPUT#N1,A:O(X)=A:NEXTX:CLOSE#N1:RETURN
11050?:?"NOGAMEDATASAVED!":END
12000?:?"SAVETOAPEORISK";:INPUTZ$:IFZ$="D"THENZ$=",":GOTO12020
12010IFZ$<>"T"THEN12000
12015?:?"CUETAPETHENPRESSTWICE.":INPUTZ$:Z$=",":OPEN#N1,N8,N0,"C:":GOTO12030
12020OPEN#N1,N8,N0,"D:SLAVE.DAT"
12030PRINT#N1;RM;Z$;G1;Z$;G2;Z$;G3;Z$;GHP;Z$;HP;Z$;CA;Z$;SL;Z$;TN;Z$;DR
12032PRINT#N1;DW;Z$;RT;Z$;KEY;Z$;TR;Z$;E1;Z$;F;Z$;KE;Z$;P1;Z$;WZ;Z$;NO
12033FORX=N1TOITMS*SZSTEPSZ:U$=IT$(X,X+22):PRINT#N1;U$:NEXTX
12035FORX=N1TOITMS:PRINT#N1;I(X):NEXTX:FORX=N1TON10:PRINT#N1,C(X):NEXTX
12040FORX=N1TON6:PRINT#N1;O(X):NEXTX:CLOSE#N1:RETURN
13000GRAPHICS17:POSITIONN2,N5:?#N6;"CONGRATULATIONS!":POSITIONN2,12:?#N6;"youhaverescued"
13010POSITIONN4,14:?#N6;"theprincess"
13020FORX=N1TO243STEPN2:POKE708,X:SOUNDN0,X,N10,N8:SOUNDN1,X+N3,N10,N8:SOUNDN2,X+N8,N10,N8
13030SOUNDN3,X+12,N10,N8:NEXTX:FORX=N1TO200:NEXTX
13040FORX=N0TON3:SOUNDX,N0,N0,N0:NEXTX:GRAPHICS33:GOTO6001	

• Download link 1

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