55 PRINTTAB(7)"****** COMMODORE 64 ******":PRINTTAB(18)"[169] [223]":PRINTTAB(18)"[145] [146] [164][164][146][169][145]":PRINTTAB(18)" [146] [163][163][223]":PRINTTAB(18)"[145][223] [146][169]":PRINT" DO YOU WANT TO READ THE SCENARIO?"
85 PRINTTAB(16)"[145](Y OR N)":FORT=1TO300:NEXT:GETA$:PRINTTAB(16)"[145](Y OR N)":FORT=1TO300:NEXT:IFA$=""THEN85
250 GOSUB200:PRINT"[129] YOU WALKED INTO A WALL,STUPID![155]":FORT=1TO1000:Z=1:NEXT:IFR>50THENGOSUB200:RETURN
260 PRINT"[129] IT'S UNSTABLE,IT CRUMBLES! ROCKS FALL!":PRINT" YOU ARE KNOCKED TO THE GROUND, COSTING":PRINT" YOU ";R,"UNITS OF ENERGY![155]":E=E-R:FORT=1TO3000:NEXT:GOSUB200:RETURN
400 PRINT"[147][158]":POKE53281,9:POKE53280,9:PRINTDN$(8)TAB(13)"GOLD GRABBERS!":PRINT" HUNDREDS OF LITTLE GOLD GRABBERS SWARM":PRINT"[158] AROUND YOU, SCOOPING UP ALL YOUR GOLD!":PRINT" THEN THEY DRAG YOU OFF, DEPOSITING YOU":AU=0:L=L+1:PRINT" ON LEVEL[153]";L:PRINT"[144]":GOSUB10350:IFL<3THENE=0:S=0:TR=0
650 GOSUB708:PRINT"[147][155]":PRINTCHR$(14):PRINT""TAB(7)"IT SEEMS TOO BAD.......":PRINT"[212]HE WALLS ARE STARTING TO CRUMBLE AND":PRINT"PIECES OF THE CEILING ARE FALLING ALL":PRINT"AROUND YOU![217]OU MUST HAVE GONE INTO AN":PRINT"UNSAFE AREA OF THE DUNGEONS!":FORI=1TO3000:NEXT
662 POKE53281,INT(RND(.)*15)+1:GOSUB708:POKE53281,0:FORT=1TO2000:NEXT:PRINT"[201]N THE FUTURE, TRY TO BE A LITTLE":PRINT"MORE CAREFUL ABOUT GOING SO DEEP IN..":PRINT"[158][212][200][197][160][196][213][206][199][197][207][206][211][160][207][198][160][200][193][211][211][204][197][160][195][193][211][212][204][197]!":POKE53281,INT(RND(.)*15)+1:GOSUB708:POKE53281,0:FORI=1TO10000:NEXT:PRINT"[147]";CHR$(142):SC=AU*K:GOTO9020
700 GOSUB200:PRINT"[129] TREMOR!!..A WALL IS CRUMBLING!":TR=TR-INT(RND(.)*4)+1:PRINT" SOME OF YOUR TREASURES ARE LOST!!"
771 DATA"GOLD PIECES","A MAGIC SCEPTRE","[154]A SUIT OF ARMOR","[129]A GILDED CROWN":DATA"[150]AN ANCIENT MANUSCRIPT","[153]A PEARL NECKLACE","[154]A SECRET POTION":DATA"[156]A MYSTERIOUS BOX","[129]A BOOK OF WISDOM","[158]A GOLDEN PENDANT"
774 DATA"A TIARA OF GOLD",POUNDS,SLUGS,SLAMS,SMASHES,BEATS,"ON THE HEAD":DATA"AGAINST THE WALL","ON THE BACK","TO THE FLOOR","INTO A DOOR"," CLAW! ":DATA" LANCE! "," CLUB! "," BRICK! "," MACE! ","STUNNED!","HURT!","REELING!":DATA"STAGGERED!","NOT AMUSED!"
800 GOSUB300:IFL>23ORR<L*2THENGOSUB9300:GOTO154
808 IFL>25THENGOSUB650
810 GOSUB10300:GOSUB200:Z=0:PRINT" A TRAP DOOR OPENS! YOU PLUNGE DOWN A":GOSUB300:IFR<20THENR=20
812 PRINT"[145]";INT(R/2);"FOOT SHAFT,TO LEVEL";:L=L+INT(R/12):PRINTL:GOSUB300:IFE>250THENPRINT" AND INTO A POOL OF DRAGON'S BLOOD. YOU"
816 IFE>250THENPRINT" USE MOST OF YOUR ENERGY GETTING OUT!":E=INT(E*.3):GOTO822
818 IFE>150THENPRINT"YOU LAND ON YOUR HEAD,CAUSING AN INJURY"
820 IFE>150THENPRINT" THAT TAKES";INT(E/2);"UNITS OF ENERGY TO HEAL":E=INT(E/2)
822 FORT=1TO4000:NEXT:GOTO154
850 GOSUB200:GOSUB9500:GOSUB854:PRINT" IT "F$(I)" YOU ";:GOSUB854:PRINTF$(I+5)" WITH A":GOSUB854:PRINTF$(I+10)" YOU ARE ";:GOSUB854:PRINTF$(I+15):RETURN
1080 PRINTDN$(3):FORD=1TO4:PRINTTAB(30+D)"[206][145][145]":NEXT:PRINT"":FORV=1TO16:PRINTTAB(35)"[165]":NEXT:PRINTDN$(5)TAB(5)"[151][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][146]":FORI=1TO7:PRINTTAB(5)" [146]":NEXT:PRINT""TAB(11)"[158]YOU ARE NOW AT":PRINT""TAB(13)"LEVEL "L:PRINT""TAB(37)"[158]L[157]L[157]A[157]D[157]N[157]A[157]R[157]C[157]A[157]S[157]T[157]L[157]E"
4500 POKE53280,0:POKE53281,15:PRINT"[147][144] [146][169][165] [149][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][144]":PRINT"[169] [165] [149] THE LEGEND OF LLADNAR CASTLE [146][144] [145]":PRINT"[145][183][184] [149]Y[144][146]OU ARE AN EXPLORER AND ADVENTURER. ":PRINT" YOUR TRAVELS HAVE LED TO A SECLUDED "
4550 PRINT" VALLEY HIDDEN IN THE REMOTE REACHES ":PRINT" OF CENTRAL WALES. ":PRINT" NEARBY, STANDS THE RUIN OF CASTLE ":PRINT" LLADNAR, THE SECRET HIDING PLACE OF ":PRINT" THE TREASURES OF DERF LLADNAR, EARL[163][208][223]"
4600 PRINT" [145]OF LLANSFAIR, AND DOER OF EVIL. THE [145][184]":PRINT" TREASURE, (ACCORDING TO LEGEND), IS":PRINT" BURIED UNDER THE CASTLE IN DUNGEONS":PRINT" MANY LEVELS DEEP.";:PRINT" (HIT SHIFT)":GOSUB5600:PRINT" S[144][146]TORIES TOLD IN TAVERNS, WHERE THE"
4650 PRINT" CONSUMPTION OF STRONG DRINK HAD MADE ":PRINT" THE MIND HAZY, AND THE TONGUE LOOSE, ":PRINT" WERE CONSISTENT IN ONLY TWO AREAS. [163][208][223]"SPC(39)"[163]":PRINT"[145] FIRST, NO ONE WHO HAD SEEN "CHR$(34)"CASTLE":PRINT" LLADNAR"CHR$(34)" HAD LIVED TO TELL ABOUT IT,"
4700 PRINT" AND, SECOND, THE STORIES ALWAYS TOLD ":PRINT"[169][165]OF "CHR$(34)"DAEMONS"CHR$(34)", WATCHING OVER THE GOLD. [163]":PRINT" THE TALES HAD INTRIGUED YOU, SO YOU":PRINT" VERIFIED THEM USING ANCIENT RECORDS.":PRINT" YOU THEN GATHERED SUPPLIES, AND SET "
4740 PRINT" OFF ON FOOT. (HIT SHIFT)":GOSUB5600:PRINT" ...A[144][146]ND SO YOU TRAVEL ALONE, TRUSTING":PRINT"[169][180] NO ONE EXCEPT YOURSELF. YOU FOLLOW,":PRINT"[184] (WITH DIFFICULTY), AN ODD MAP YOU'VE":PRINT" UNEARTHED IN THE MUSTY CELLARS OF AN"
4810 PRINT" OLD MONASTERY. YOU MAKE A TURN, THEN":PRINT" YOU SEE IT, AND YOU MOVE IN! THUNDER":PRINT" CRASHES.. LIGHTNING RIPS THROUGH THE":PRINT" SULLEN SKY.. YOU SEE THE BANNERS AND":PRINT" PENNANTS, FLAYING IN THE WIND... YOU"
4860 PRINT" MOVE CLOSER STILL! THE DRAWBRIDGE IS[208][146][223][146]":PRINT" LOWERING! LIGHTS FROM THE HUGE DOORS[145] [184]":PRINT" BECKON YOU..INSIDE!! (HIT SHIFT)":GOSUB5600:GOSUB4000:POKE53281,1:PRINT"[147] Y[151][146]OU LOOK AROUND AN IMMENSE,TOTALLY ":PRINT" VACANT ROOM.THEN,SUDDENLY,WITHOUT A "
4920 PRINT" WARNING,THE FLOOR GIVES WAY,AND YOU ":PRINT" TUMBLE HEADLONG DOWN A LONG TUNNEL, ":PRINT" FALLING...FALLING...YOUR HEAD SLAMS":PRINT" A BOULDER,AND EVERYTHING GOES BLACK!":FORT=1TO6000:NEXT:POKE53281,0:GOSUB708
4970 PRINT" PRESS SHIFT TO CONTINUE [145][145][158]":GOSUB5600:PRINT"[147]":GOSUB1000:PRINTDN$(7)TAB(16);"[158][207][183][208][157][157][157][180] [170][157][157][157][204][175][186]":POKE53280,0:PRINT"[152]YOU AWAKEN IN AN AREA DIMLY":PRINT" LIT BY A PAIR OF TORCHES ATTACHED":PRINT"TO THE WALL FARTHEST FROM YOU.ON THIS"
5040 PRINT"WALL YOU PERCEIVE A PLAQUE.(HIT SHIFT)":GOSUB5600:PRINT"[147][155] THE PLAQUE READS AS FOLLOWS:":PRINT"[158][209] [209]":PRINT"[145][158] YOU ARE ON THE TWENTIETH LEVEL OF THE ":S$="[145] "
5090 PRINTS$" DUNGEONS OF LLADNAR.ALL THOSE WHO HAVE ":PRINTS$" GONE BEFORE YOU HAVE PERISHED IN AGONY.":PRINTS$" TO SURVIVE,YOU MUST FIND THE WAY OUT, ":PRINTS$" AND YOU MUST DEAL WITH MY MANY BEASTS, ":PRINTS$" WHICH STALK YOU EVEN AS YOU READ THIS. "
5140 PRINTS$" I HAVE PROVIDED GENEROUSLY FOR YOU,AND ":PRINTS$" IF YOU ARE WISE,AND POSSESS SUFFICIENT ":PRINTS$" COURAGE,YOU WILL SURVIVE AND GAIN VAST ":PRINTS$" WEALTH.IF NOT YOU WILL SURELY SUCCUMB. ":PRINTS$"[146] (HIT SHIFT)[145][158]":GOSUB5600
5190 PRINTS$"[145] IN THE INTEREST OF YOUR SURVIVAL, AND ":PRINTS$" TO MAKE MY LITTLE GAME AS INTERESTING, ":PRINTS$" AND PLEASURABLE AS IS POSSIBLE,YOU ARE ":PRINTS$" HEREBY GRANTED A FEW SPECIAL WEAPONS. ":PRINTS$" FIRST,YOU ARE ENDOWED WITH A DOZEN OF "
5240 PRINTS$" MY COURT MAGICIANS FINEST FATAL SPELLS.":PRINTS$" YOU MUST BE CAREFUL,HOWEVER,FOR SOME ":PRINTS$" OF MY PETS HAVE A REMARKABLE IMMUNITY ":PRINTS$" TO THEM. (ALTHOUGH MOST HAVE NOT.) ":PRINTS$" YOU ARE ALSO TO HAVE AT YOUR DISPOSAL "
5290 PRINTS$" AN ENCHANTED SWORD,AND TO ENERGIZE IT..":PRINTS$"[146] (HIT SHIFT)[158][145][145]":GOSUB5600:PRINTS$"[145] YOU ARE ALSO GRANTED ONE HUNDRED UNITS ":PRINTS$" OF RAW ENERGY,TO BE USED AGAINST THOSE ":PRINTS$" OF MY CHILDREN WHO SHALL CONFRONT YOU. "
5340 PRINTS$" AT THE ONSET OF YOUR ORDEAL,THE POWER ":PRINTS$" YOU POSSESS WILL BE SO GREAT THAT NONE ":PRINTS$" OF MY BEASTS WILL BE ABLE TO HARM YOU, ":PRINTS$" BUT IT WILL BE DIMINISHED BY THE EXACT ":PRINTS$" AMOUNT POSSESSED BY ANY BEAST YOU SLAY."
5390 PRINTS$" TO REPLENISH IT,YOU MUST ENTER A CELL, ":PRINTS$" OR ELSE RISK DEATH AT A MONSTERS HAND! ":PRINTS$" (OR CLAW, OR OTHER WEAPON!!) ":PRINTS$:PRINT" (HIT SHIFT)[145][158]":GOSUB5600:PRINTS$"[145] THE CELLS CONTAIN GOLD,ARTIFACTS,MORE "
5430 PRINTS$" ENERGY UNITS AND ADDITIONAL SPELLS,BUT ":PRINTS$" MY CREATURES LURK IN THEM TOO. BEWARE! ":PRINTS$" OTHER PERILS EXIST WITHIN THESE WALLS, ":PRINTS$" AND YOU MUST LEARN TO AVOID THEM,OR AT ":PRINTS$" LEAST TO SURVIVE THEM.IF YOU REACH THE "
5480 PRINTS$" SURFACE,AT LEVEL ONE OR LEVEL ZERO YOU ":PRINTS$" WILL SOONER OR LATER FIND AN EXIT, AND ":PRINTS$" YOU MAY LEAVE.BE CAREFUL NOT TO GO ANY ":PRINTS$" HIGHER THAN LEVEL ZERO....OR ELSE!! ":PRINTS$:PRINT"[145][158][209] (SIGNED) D.L. [209]"
9000 GOSUB850:PRINT" YOU HAD A TERRIBLE STRUGGLE WITH THE":PRINT" "A$(M);:GOSUB9500:IFE>=MTHENPRINT"[155],BUT YOU DESTROYED IT!":GOSUB10200
9010 IFE>=MTHENE=E-M:K=K+1:N=1:RETURN
9012 GOSUB9550:POKE53280,0:PRINT"";:FORI=1TO1000:PRINT" ";:NEXT:TR=0:PRINTDN$(11)SPC(9)"[158]AND YOU WERE KILLED!!":TR=1:SC=AU*K*TR:FORT=1TO3000:NEXT:POKE53281,0:PRINT"[147][152] YOUR FINAL SCORE IS"SC:POKE53280,0:TX$=TI$:TP$=LEFT$(TX$,2)+":"+MID$(TX$,3,2)+":"+RIGHT$(TX$,2)
9020 PRINT" ELAPSED TIME - ";TP$:PRINTDN$(23)TAB(9);"HIT SHIFT FOR TOTALS":GOSUB5600:GOTO458
9050 GOSUB200:PRINT" HMM...YOU SEEM TO BE OUT OF SPELLS!":N=0:RETURN
9100 GOSUB200:IFS<1THEN9050
9102 GOSUB9850:S=S-1:GOSUB300:PRINT:IFR>MTHENPRINT"YOUR SPELL HAS CRUSHED THE ";A$(M);"[155],"
9105 IFR>MTHENPRINT"[155] IT LIES DEAD AT YOUR FEET!![145]"
9106 IFR>MTHENK=K+1:GOSUB10200:RETURN
9108 PRINT" THE ";A$(M);"[155] IS NOT IMPRESSED![155]":IFR>26THEN9116
9110 PRINT:FORI=1TO7:PRINT"[145] IT ATTACKS.........[129]COMBAT MODE![155]":FORT=1TO100:NEXT:PRINTTAB(20)"[145][144] [146][155]":FORT=1TO100:NEXT:NEXT:GOTO9000
9116 N=0:RETURN
9300 GOSUB200:PRINT"[153] YOU HAVE FOUND AN ANCIENT ELEVATOR!":IFAU>350THENPRINT" TO USE THE ELEVATOR, YOU WILL HAVE TO"