+HRU ?TTUJ{>F >?{ d$ / *** DONJON by STEPHEN BRINKWORTH ***  7 ** Due to the way that the machine code portion of 9 ** this program has been added to the BASIC portion, 9 ** it is important that you don't alter the program.  >(1000):162,30:163,128:140,1:257,2:0:8:8:::Í1050 1=(*10)+(*10)+2 ]:X=(17408):I=6492864959:I,8:I+32,0:I:64952,255:64968,255:64984,127:C=18119:A7(6) B977:"LOAD A PREVIOUSLY SAVED GAME? ";:["YN",1]920:A1$="N"80 #-977:(32);:983:"Start tape PLAYING";:0 (#2:#0:#0 -FA1$:A1$<>"$$$$$$DONJON"45983:#0:" LOADING ";:0:#0 2pK1$,X,I,J,K,P1,P2,P0,S1,S2,S3,S4,S5,S6,S7:F1,F2,F3,F4,R1,R2,B1,D1,D2,D3,D4,D5,D6,D7,M0,S:1,X:2,I:3,J:4,K 7I=16:A7$(I):I:#0:#0 <_K=4:[20664,1]65:[20796,2]65:[20455,3]65:[20559,4]65:[20262,5]65:K=3:[20362,6]65:9:140 A(X,J):A1$=A7$(J) F"I=(A1$," "):I=0:X,((A1$)): K,X,((A1$(;1,I))):A1$=A1$(;I+1):X=X+K:70 PK:\"Enter your choice of movement keys":K1$=" !#$%&'()*=~{}+`|?><"+(34) U+61671,218:61799,218:292::"]\\[\\\": Z192:["NORTH",167]960:K1$=K1$+A1$:["EAST-",299]960:K1$=K1$+A1$:["SOUTH",423]960:K1$=K1$+A1$:["WEST-",291]960:K1$=K1$(;22)+A1$+(27)+" " _L\\"Select playing speed (1-9)--> ";:["123456789",1]920:S=((A1$)-48)*2+4 d0\"Is this correct?";:["YN",1]920:A1$="N"80 i):D=7: "Points left to distribute =";D nX\"How many points do you wish to add to your"\\"PHYSICAL :"\"MAGICAL :"\"DEXTERITY:" sX44,3:"PHYSICAL?";:["01234567",1]920:X=((A1$)):S1=10+(X):11,5:X+10:D=D-X:27:D xq44,3:[A10 32]:44,3:"MAGICAL?";:["01234567",1]920:X=((A1$)):X>D12011,6:S2=10+(X):X+10:D=D-X:27:D }t44,3:[A12 32]:44,3:"DEXTERITY? ";:["01234567",1]920:X=((A1$)):X>D12511,7:S3=10+(X):X+10:D=D-X:27:D 61,10:"Is this correct?";:["YN",1]920:A1$="N"105 a:1025:P1,P2,P0,S4,S5,S6,S7,F1,F2,F3,F4,R1,R2,D1,D2,D3,D4,D5,D6,D7,B1,M0:1,19:2,0:3,0:4,0 }:103:"PHYSICAL :"(S1):167:"MAGICAL :"(S2):231:"DEXTERITY :"(S3):295:"STAMINA :"(S4):359:"SWORD : "; F1>0"MAGICAL""NORMAL" 2423:"ARMOUR : ";:F2>0"MAGICAL""NORMAL" r487:"EXPERIENCE:"(S5):551:"TREASURE :"(S6):615:"KEYS :"(S7):679:F3>0"You have the GOLDEN KEY" $X=(17734):(P0),193:(P0)+1,194 0X=(1):X<>7X<>22X<>11X<>78X<>83X<>71200 ZD=(C):768:X=7"A whispering voice resonates off the walls, ''MAGIC FAR EAST''.":200 >X=22F2=0"There is a strong sense of magic in here.":200 jX=22200X=11"A message written on the floor in blood reads, ''SEEK THE SWORD, IT IS NEARBY''.":200 GX=78"A voice rings out, ''YOU WILL DIE SOON, MORTAL WHIMP''.":200 BX=83"An arrow pointing north is scratched on the floor.":200 c"A scribbled note on a wall reads, ''YOUR MOTHER STILL LIVES, BUT YOU WON'T FIND HER IN HERE''." P4=P1:P5=P2:P6=P0:M=0: 210 P4=P1:P5=P2:P6=P0:M=1 .R1=R1-1:R1>0220R1=4:S4=S4+2:S4>99:S4=99 306:(S4);:0 ܁R2>0:R2=R2-1:230<.8230X=(C):768:"You feel the magic of Nilrem flowing through you.":S4=S4+((*10+10)):S4>99:S4=99 306:(S4):R2=30:0:255 F4=1(1)<>47P1<13255 [25]500:X=9410F4=1:200 9M=0975:"Which way do you wish to move?";989:"?"; 1A1$=:(K1$,A1$)+1260,265,270,275,280,465,455  #P5=P2-1:P5=0:P2=10:X=-6:285290 "P4=P1+1:P4=17:P1=1:X=1:285290 "P5=P2+1:P5=11:P2=1:X=6:285290 P4=P1-1:P4=0:P1=16:X=-1290 $1,(1)+X:P0=61440+P1*2+P2*64:160 "kP6=61440+2*P4+64*P5:P=((P6)):P=32(P0),32:(P0)+1,32:P1=P4:P2=P5:P0=P6:(P0),193:(P0)+1,194:205 'sP=209:R1=R1+1:R2=R2+1:205P<>199300626:S7=S7+1:(S7):X=(18057,(P6)):X=01035X,(X)+128:(P6),32:290 ,P<>202P<>204315S7>0310X=(C):768:"You don't have any keys.":M0=M0+1:R1=R1+1:R2=R2+1:F3>0:"(The GOLDEN KEY does not fit the lock.)" 1205 6N626:S7=S7-1:(S7)" ":X=(18075,(P6)):X=01035X,(X)+128:(P6),32:290 ;pP=212:F3=1:X=(C):768:"You have found the GOLDEN KEY!!":679:"You have the GOLDEN KEY":2,1:(P6),32:290 @HP<>195330Z=(18048,(P6)):Z=01035[(Z+3)]500:X=1200X=9410 EC975:"Which way do you want to move";:Z,(Z)+128:(P6),32:290 J`P<>201340F3=0X=(C):768:"You do not have the GOLDEN KEY";:R1=R1+1:R2=R2+1:M0=M0+1:205 O3,1:F3=0:R1=R1+1:R2=R2+1:M0=M0+1:679:(25):X=(C):768:"The door vanishes in wisps of white smoke as you put the key in the lock.";:(P6),32:290 T'P=2051,84:P1=14:P2=9:P0=62044:160 Y'P=2071,42:P1=14:P2=9:P0=62044:160 ^P<>197385X=(C):R1=R1+1:R2=R2+1:M0=M0+1:768:X=(18066,(P6))+3:X=31035Z=(X):Z=0Z>127:"The chest is empty.":205X,Z+128 cYZ=2"There is a magic sword here, which you take with you.":F1=1:371:"MAGICAL":205 hVZ=3"There is a magic suit of armour, which you put on.":F2=1:435:"MAGICAL":205 mfZ>3"The chest contains"Z*100-300" gold pieces, which you take.":S6=S6+(Z-3)*100:562:(S6):205 r}Z<>11035Z=X:"There is a potion of healing in here!":975:"Do you wish to drink it? ";:["YN",1]920:A1$="N"Z,1:200 wH832:"That tasted really good!":306:S4=S4+30+((*20)):S4>99:S4=99 | (S4):200 P<>2101035:" There is a blinding flash of light and you find yourself in the throne room with the princess by your side." " You and Nilrem stand smiling as princess Anna rushes to her father, throws her arms around him and embrace for what seems an eternity." " Two days later you are formally made a member of the court, and the announcment of your marriage to the princess was made." " At your wedding, a passing nobleman gave you a small statue of a golden bee. Some of the peasants tell you that it is the symbol for their goddess of love, and has "; "magical powers. The bee now rests on the bedhead in the princesses and your room, a symbol of the love between the two of you.":F=1 M975:969:"Press any white key to see the game statistics.";:0:X=(32774) X=(S5/200):X>15X=15 X=X+(S6/2125+F1*F2)+F:: "EXPERIENCE"(8)":"(S5)\"TREASURE"(10)":"(S6)\"MONSTERS FOUGHT :";(D1)\"MONSTERS DEFEATED :";(D7) "ATTEMPTED ESCAPES :";(D2)\"SUCCESFUL ESCAPES :";(D3)\"ATTEMPTED BRIBES :";(D4)\"SUCCESFUL BRIBES :";(D5)\"TREASURE SPENT :";(D6) &\\"Your final rating was";X;" "; {X<3:"(monster fodder)"X<8:"(novice)"X<14:"(adventurer)"X<21:"(apprentice hero)"X<25"(hero)""(SUPERHERO)" B17,15:"WOULD YOU LIKE TO PLAY AGAIN?";:["YN",1]920:A1$="Y" : - **** SHOULD NEVER TRY UTE THIS LE ****  X=(C):X=(S5/200):X>15X=15 SX=X+(S6/2125+F1*F2):768:"You current rating is";X:R1=R1+1:R2=R2+1:M0=M0+1:205 YX=(C):768:"Insert tape, then put in RECORD mode.":975:"Hit when ready";:0 C<>" "470X=(C):768:"Saving game to tape, please wait":975 oK=4:[20664,33,1]495:[20796,33,2]495:[20455,26,3]495:[20559,27,4]495:[20262,25,5]495:K=3:[20362,30,6]495 0,20:#2:"*******"\"*******"\"$$$$$$DONJON"\K1$","(1)","(2)","(3)","(4)","P1","P2","P0","S1","S2","S3","S4","S5","S6","S7 OF1","F2","F3","F4","R1","R2","B1","D1","D2","D3","D4","D5","D6","D7","M0","S )I=16:A7$(I):0:I:#0:X=(C):2:200 <(X,I,J):A7$(J)="":I=1I:A7$(J)=A7$(J)+((X)):X=X+K:I: (M):X=(C):M0=M0+1:R1=R1+1:R2=R2+1:D1=D1+1:990:I=1M:M7$,M1,X1,M2,X2,M3,X3,M5,M6:I:M4=40:(1)>42M1=X1:M2=X2:M3=X3:M4=80 ?M4=M4+((*8)*2):M>23M4=98M=11M=18M=19M=21M4=M4-30 t768:"You have encountered a ";M7$:874:"STR MAG DEX STM":938:(M1):944:(M2):950:(M3):956:(M4); U1=M1+M2+M3+M4/2 RI=(M7$," "):I>0:M7$=M7$(;I+1):520817-(M7$)/2:"** "M7$" **":>.5M>23805  {975:"You have surprise, attack or retreat?";:["AR"]980:A1$=""805A1$="R""Coward!!!";:0:0,S:X=(C):X=1:D1=D1-1: X975:"Your attack type?";:["PSB"+(27)]980:((27)+"BPS",A1$)+1805,535,550,570,640 OM>22M=11M=15M=10M=7"You can't escape from this monster!";:0:0,S:805 4D2=D2+1:X=8+(S3-M3):R=1(D):X>19X=19X<4X=4 !R>X"Your cowardly attempt failed!";:0:0,S:805"You've managed to save your miserable skin!";:0:0,S:D3=D3+1:X=(C):X=1: &D4=D4+1:M6=0"The ";M7$;" doesn't seem interested!";:0:0,S:805"How much is your life worth to you? ";:["1234567890",5]920 +]Z2=(A1$):Z1=(M6+*M6/2)*100:975:Z2S6"You don't have that much treasure!";:0:0,S:805"The ";M7$;" takes your treasure, and leaves.";:S6=S6-Z2:562:(S6);" ";:0 5'D6=D6+Z2:D5=D5+1:0,S:X=(C):X=0:975 :M1=0"You can't use a physical weapon on a magical creature!";:0:0,S:805"How hard do you wish to swing?";:["12345"]980 ?BA1$=""805X=60+(S3-M3-(A1$)+F1*2)*5:X>90X=90X<10X=10 DC975:(*100)M1I=1(S1-M1):D=D+(*3):I XF1=1D=D+(*3+*3+2) ]!D=D-(M5):(1)>42D=D-(M5/2) bPD>0620X=(*2):X=0"A hit, but no damage!";"Protected by its armour!"; g0:0,S:805 l:"A hit,";D;" damage done!";:956:M4=M4-(D):M4<0M4=0 q2(M4);" ";:0:0,S:M4>0805975:X=(*3):896 vX=0:"Your trusty sword lopped the"\M7$;"'s head off!";X=1:\"You've killed the ";M7$;"!";"As you sliced the ";M7$\"open, it dissolved in front of you!"; {0:0,S*2:890 V"Which spell do you seek?";:["12345"]980:("12345",A1$)+1805,645,670,705,740,765 S4=S4-5:306:S4<1S4=0 H(S4)" ";:960:S4=0"You have exhausted yourself!";:0:0,S*2:X=9: %M>21X=0X=(S2/2)+4:X>15X=15 0R=1(X):R>X"The spell fails!";:0:0,S:805 <"The ";M7$;" dissolves away!";:0:0,S:U1=((U1/4)):890 +S4=S4-8:306:S4<1S4=0:650(S4);" "; i960:"The missile speeds towards your enemy.";:0:0,S:X1=50+(S3-M3)*5-*10+20:M2>S2X1=X1-(M2-S2)*4 <975:*100>X1:"But it misses the ";M7$;"!";:0:0,S:805 9D=(*10+10)-(M5):S2>M2I=0(S2-M2)/2:D=D+(*3):I N"It strikes the ";M7$;", causing";D;" damage!";:956:M4=M4-(D):M4<0M4=0 (M4);" ";:0:0,S:M4>0805 5975:"The ";M7$;" dies screaming!";:0:0,S*2:890 &S2<14800X1=S2*5-30:X1>90:X1=90 0S4=S4-10:306:S4<1S4=0:650(S4)" ";:960 -*100>X1"The spell fails!";:0:0,S:805 ;"A blinding light flashes from your eyes.";:0:0,S:975 ZM2>0X1=50-M2*3+S2*4:*100>X1"But the bolt was deflected your enemy!";:0:0,S:805 6D=(*S2/2+10-M5/2):S2>M2D=D+((S2-M2)/4*(*4+2)) M1=0<.5D=D-D/3:690690 ZS2<15800M2=0"You can't use that spell on a purely physical monster!";:0:0,S:805 1S4=S4-10:306:S4<1S4=0:650(S4);" ";:975 YX1=50+(S2-M2)*5+*10:*100>X1"The ";M7$;"'s mind deflected the lance!";:0:0,S:805 /D=(*10+10):S2>M2D=D+((S2-M2)/4*(*3+1)) (1)>42D=D-5:690690 &S2<17800X1=S2*5-25:X1>90X1=90 1S4=S4-15:306:S4<1S4=0:650(S4);" ";:960 -*100>X1"The spell fails!";:0:0,S:805  9"A fireball speeds towards the ";M7$;"!";:0:0,S:975 TM2>0X1=50-(M2-S2)*3:*100>X1"The ";M7$;"'s mind deflected it!";:0:0,S:805 4D=(*S2/2+10-M5):S2>M2D=D+((S2-M2)/4*(*3+3)) M1=0D=D-4:690690  ="You don't have enough magical ability for that.";:0:0,S %:M1=0850M2=0815X=10+(M1-M2):X>18X=18X<4X=4 *R=1(X):R>X850 /d975:"The ";M7$;" strikes at you.....";:0:0,S:975:<.2" Missing by miles!";:0:0,S:530 4PX1=50+(S3-M3)*5+F1*3:*100S1D=D+((*5+1)*(M1-S1)) >F2=1D=D-(*4+2) C4D=D-3:D<1"Saved by your armour!!";:0:0,S:530 H="A hit, causing";D;" damage!";:S4=S4-(D):306:S4<1S4=0 MU(S4);" ";:0:0,S:S4>0530975:"The ";M7$;" has killed you!!!";:0:0,S:X=9: R[975:"The ";M7$;" launches a fireball at you....";:0:0,S:975:956:M4=M4-6:M4<1M4=0 W>(M4);" ";:960:M4=0"Exausting itself!!";:0:0,S*2:890 \U<.1" Missed you!!";:0:0,S:530X1=60+(S2-M2)*5:X1>90X1=90X1<10X1=10 a;*100S2D=D+((*7+2)*(M2-S2)) kF2=1D=D/2+3 pD975:"It hits, causing";D;" damage!";:S4=S4-(D):306:S4<1S4=0 ue(S4);" ";:0:0,S:S4>0530975:"Your feeble body was fried by the fireball!!";:0:0,S*2:X=9: z\D7=D7+1:X=(C):975:"Experience bonus:";(U1);:S5=S5+U1:498:(S5);:0:0,S:X=0:S596A<123:A=A-32:A2$=(A) (A0$,A2$)=0925 A=13A1$>"" 0(A=8A=127)A1$>"":A2$;:A1$=A1$(;1,(A1$)-1) A<32A=127925 $(A1$)"; (A1$=:A=(A1$):A>96A<123:A1$=(A-32) 5(K1$,A1$)>0A>126A<32965A1$:61440+X,(A1$): 960:[A60 32];:960: `(A0$):A1$=:I=1S*40:A1$=:(A0$,A1$)>0*I 985I:A1$="":975:"*** TOO SLOW ***";:0:0,S 975 t"giant APE",14,18,0,0,12,13,0,0,"BEAR",13,16,0,0,10,11,1,0,"LION",13,16,0,0,14,16,0,0,"TIGER",12,14,0,0,15,15,0,0 ㎔(8)+"n evil WARRIOR",12,16,13,15,13,15,5,12,"giant FERRET",10,13,5,5,8,10,1,0,"GARGOYLE",12,12,10,10,9,10,4,15,"GHOUL",0,0,10,15,10,15,0,0 x"GNOME",6,6,11,13,10,10,1,7,"GOBLIN",12,12,4,6,8,10,2,5,"giant BEE",5,5,0,0,17,17,0,0,"HOBGOBLIN",10,11,0,0,12,14,1,9 탔"MINOTAUR",13,17,8,10,14,14,3,10,(8)+"n OGRE",15,15,0,0,10,10,2,6,(8)+"n ORC",14,14,0,0,11,13,2,6,"BABOON",13,17,0,0,13,13,0,0 y"giant SHREW",9,11,0,0,10,11,0,0,"COBRA",7,9,0,0,15,18,0,0,"RATTLESNAKE",6,8,0,0,14,16,0,0,"TROLL",13,13,0,0,12,14,3,8 X"ZOMBIE",14,14,0,0,10,11,2,0,"WIGHT",0,0,14,18,17,17,0,0,"WRAITH",0,0,18,18,18,20,0,0 S"DRAGON",25,25,25,25,20,20,6,0,(8)+(8)+"the evil WIZARD",20,20,33,33,20,20,4,0 69,6,61842,99,0,0,0,0,0,0,0,4,10,0,0,0,0,0,0,0,200,3 *33,0,9,17,1,9,1,0,119,237,176,195,0,128  z:1,10:"THERE IS AN ERROR IN THE PROGRAMS DATA TABLES, PLEASE USE"\" AND RELOAD THE PROGRAM TO PLAY AGAIN" 1040 L:1,10:"AN INTERNAL ERROR HAS OCCURED, PLEASE USE TO PLAY AGAIN" 1055 !FGP!PBzF!O5zF!&OzF!OzF!`D>F#( !ErFWrFSrF by STEPHEN BRINKWORTH &:o)T])))HB F#F#@!!&O~#^#V#N#ݾ  (>><!O~#^#V#ݾ ><!O5~#^#V##ݾ ><!PB~#^#V##ݾ ><~% :~ !"D$ :~ !"* !"^/ !"T !"^F :<2!Q3 !eR* !R! !R !!S0 !~S/!S~#˾!PB!O!O5!&O`iB:ݾ }ݾ |ݾ(!6 ~> (>90!PB G!O5 G!&O G!O~!O!PB:G!O5:G!&O:G!Ow!O @@@@`T$SO[W1@I*$| FIF@ "$(0  L``UUUUUUUU??Ȉ@@`  L``@@@@@@@~  ߿@@@@@@@@@@~   =@@@@@@@))@AAAA=BBBB~@@@@`??`@@0 1 A@@@@@@@@@@A@1a9@_5PWTUUUPPP ( ( ( ( x"D DxD"Dx@BDHHDB@@~BBBnUUUUUUUUUUUUUUUUUUUUP߄ ? ( {=@UUQU_U@T{  =   ! !!!!!AAAAAAw       u!!!!!!wAAA@a!? ( )!)))i))}AAoA?!!!!qрQQ ))}AAAAa1 QQс AAAAA]xAAAA ]AA@O@AA@ABǁ ABABABCBǀ !!!!!pAAAA D^D"'))++,..\49=CQSB0!V!D"%\ X'ZD 0JAEOK185L7\  P J  X  '^ )F)* *J* +-. 02F 3469 <=T?Z @ ACV LN MNNNNPL P^Q RR^ SJSTD      D ZN DD   D$% %%P&L' ()** **\+D , --...0 246X9P: = ?ABCEF IHK\L LOLOP QRRTAs you step into the room an eidolon of an old man appears. He looks at you and speaks in a sibilating voice, "AS FAR AS YOU CAN SHOUT STEW". He then fades away.A piece of graffito on a wall reads "GHOSTS OFTEN GET THEIR LETTERS MUDDLED".On the middle column is scratched "BILBO WAS HERE".A chalked message on the ceiling reads "FOOLED YOU!".A hastily written chalk message on the floor reads "THE ARROW SHOWS THE WAY, BUT BE WARY".To the west you can here muffled voices, and one of them sounds like the princess!The princess is huddled in the northeast corner, she looks very indignant, yet is as beautiful as ever.