11110 LOCATE 15,1:COLOR 4,0,0:PRINT"Is the above information correct?";
11120 A$=INKEY$
11130 IF A$="y" OR A$="Y" THEN CLS:H$(L)=TH$:P$(L)=TP$:D$(L)=TD$:IF TC$=C$(L) THEN GOTO 10040:ELSE C$(L)=TC$:GOTO 9030:'If NAME OF GAME is unchanged there is no need to resort
11140 IF A$="n" OR A$="N" THEN 11030
11150 GOTO 11120
11160 BL=0
11170 PRINT
11180 PRINT "The Runestaff has just disappeared!"
11190 RF=0
11200 OF=1
11210 O(1)=0
11220 GOTO 6370
11230 DATA An empty room,╬,the entrance,∩,stairs going up,U
11240 DATA stairs going down,D,a pool,P,a chest,C,gold pieces,G
11250 DATA flares,ƒ,a warp,█,a sinkhole,S,a Crystal Orb,Φ
11260 DATA a book,B,a Green Slime,▓,an Orc,¥,an Evil Dwarf,¥,a Goblin,¥,a Mind Flayer,¥
11270 DATA a Troll,¥,a Giant spider,¥,a Minotar,¥,a Drow,*,a Drider,¥
11280 DATA a Balor Demon,¥,a Red Dragon,δ,a Drow Merchant,Ω,the Ruby Red,T
11290 DATA the Norn Stone,T,the Pale Pearl,T,the Opal Eye,T
11300 DATA the Green Gem,T,the Blue Flame,T,the Palantir,T,the Silmaril,T
11310 DATA X,"?",no weapon," Sandwich"
11320 DATA Dagger," stew",Mace," soup",Sword," burger",No armor," roast"
11330 DATA Leather," filet",Chainmail," taco",Plate mail," pie"
11340 DATA Hobbit,Elf,Man,Dwarf
11350 X=FNA(8) : Y=FNA(8)
11360 IF L(FND(Z)) <> 101 GOTO 11350
11370 L(FND(Z))=Q
11380 RETURN
11390 PRINT
11400 PRINT "You get all his wares :"
11410 PRINT "Plate mail"
11420 AV=3 : AH=21
11430 PRINT "A sword"
11440 WV=3
11450 PRINT "A strength potion"
11460 ST=FNC(ST+FNA(6))
11470 PRINT "An intelligence potion"
11480 IQ=FNC(IQ+FNA(6))
11490 PRINT "A dexterity potion"
11500 DX=FNC(DX+FNA(6))
11510 IF LF=0 THEN PRINT "A lamp" : LF=1
11520 GOTO 9290
11530 FOR Q=1 TO 64
11540 PRINT "*";
11550 NEXT Q
11560 PRINT
11570 PRINT
11580 RETURN
11590 PRINT
11600 PRINT "Your choice";
11610 INPUT O$
11620 O$=LEFT$(O$,1)
11630 RETURN
11640 PRINT "How many points do you wish to add to your ";Z$;
11650 INPUT O$
11660 PRINT
11670 Q=VAL(O$)
11680 IF Q=0 AND ASC(O$) <> 48 THEN Q=-1
11690 IF Q<0 OR Q>OT OR Q<>INT(Q) THEN PRINT "** "; : GOTO 11640
11700 OT=OT-Q
11710 RETURN
11720 INPUT O$
11730 Q=INT(VAL(O$))
11740 RETURN
11750 PRINT
11760 PRINT Z$;
11770 INPUT O$
11780 Q=INT(VAL(O$))
11790 IF Q > 0 AND Q < 9 THEN RETURN
11800 PRINT
11810 COLOR 11,0,15:PRINT "** Try a number from 1 to 8.":COLOR 3,0,1
11820 GOTO 11750
11830 PRINT
11840 PRINT "Do you want to buy a potion of ";Z$;" for 1000 gp's";
11850 GOTO 11610
11860 PRINT
11870 PRINT "Your ";Z$;" is now";Q;"."
11880 RETURN
11890 PRINT
11900 PRINT "These are the types of ";Z$;" you can buy :"
11910 RETURN
11920 COLOR 2,0,1:PRINT "You are at (";X;",";Y;") level";Z;".":COLOR 3,0,1
11930 RETURN
11940 END
11950 LET JOHN!=ST+IQ+DX+GP!-T
11960 PRINT
11970 PRINT"Your score at this time is ";JOHN!
11980 PRINT
11990 GOTO 4360
12000 '
12010 REM ** PRINTING ROUTINE **
12020 '
12030 G1$="N A M E O F T H E G A M E" '3 spaces in between words
12040 N1$="HIGH SCORER"E. THE SCORING FORMULA GOES AS FOLLOWS:"
12560 PRINT " You have been ranked as a Lord with a score of ";JOHN!
12570 PRINT
12580 IF JOHN! > 142498! THEN PRINT " Don't forget to replace my score on Tem-Ins.Bas
12590 GOTO 10880
12600 CLS:KEY OFF:COLOR 3,0,1
12610 LOCATE 1,28:COLOR 27,0,1:PRINT "Temple of Loth instructions"
12620 COLOR 3,0,1:LOCATE 4,3
12630 PRINT " Temple of Loth is a computerized simulation of one of the most common and popular fantasy motifs, the lone adventurer's quest with an immense under ground labyrinth. Each game is separate from all others, so the game is a"
12640 PRINT " challenge even after you have won. Each game will result in a win or loss depending on the player's skill and luck. The instruction which follow will explain the rules and options of the game.
12650 COLOR 3,0,1:LOCATE 12,7:PRINT "A. Character Creation
12660 'LOCATE 4,45:PRINT "A. Sex
12670 'LOCATE 5,7:PRINT "C. Points
12680 LOCATE 12,45:PRINT "B. Equipments
12690 'LOCATE 5,7:PRINT "C. Lamps and Flares
12700 LOCATE 13,7:PRINT "C. The Temple
12710 LOCATE 13,45:PRINT "D. Player Commands
12720 LOCATE 14,7:PRINT "E. Magic Spells
12730 LOCATE 14,45:PRINT "F. Treasures, Curses and Such
12740 LOCATE 15,7:PRINT "G. Drow Merchants
12750 LOCATE 15,45:PRINT "H. Monsters and The Runestaff
12760 LOCATE 16,7:PRINT "I. Warps and ";:COLOR 11,0,1:PRINT "The Amulet of Chaos ":COLOR 3,0,1
12770 LOCATE 16,45:PRINT "J. Error Messages
12780 LOCATE 17,7:PRINT "K. Scoring
12790 LOCATE 17,45:PRINT "L. Comments and Suggestions
12800 LOCATE 18,7:PRINT "M. Return to game
12810 LOCATE 20,6
12820 COLOR 11,0,1:INPUT "Type in the number of the section desired then press return";A$
13040 PRINT " At the start of each game you will be asked a number of questions about"
13050 PRINT "what type of character you will have. You must make the choices as follows:
13060 PRINT
13070 PRINT "RACE You may be an Elf, Dwarf, Man, or Hobbit. Each score is randomly "
13080 PRINT " generated, but bonus and deductions are different for each race."
13090 PRINT
13100 PRINT "SEX You may be a female or male. Both are equal in number of points."
13110 PRINT " Be creative in your response.
13120 PRINT
13130 PRINT "POINTS Each character starts with a number of points for the attributes"
13140 PRINT " of strength (ST), intelligence (IQ), and dexterity (DX). In addition,"
13150 PRINT " there are some other points you may distribute between these three"
13160 PRINT " attributes as you wish.
13170 PRINT
13180 PRINT " Your ST, IQ, and DX may be any number from 1 to 18. If any of the "
13190 PRINT " three drop below 1, you have died. For all three attributes, the "
13200 PRINT " larger the numerical value, the better. "
13210 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
13220 GOTO 12600
13230 CLS:COLOR 11,0,1
13240 PRINT " EQUIPMENT
13250 PRINT:COLOR 3,0,1
13260 PRINT " Every character is given 60 gold pieces (gp's), at the beginning of each"
13270 PRINT "to purchase some of the following items.
13280 PRINT
13290 PRINT "ARMOR You may buy platemail armor for 30 gp's, chainmail for 20 gp's or"
13300 PRINT " leather for 10 gp's. You can only wear one suit of armor at a time."
13310 PRINT " The more expensive the armor, the more damage it will absorb."
13320 PRINT
13330 PRINT "WEAPONS You may buy a sword for 30 gp's, a mace for 20 gp's, or a dagger for "
13340 PRINT " 10 gp's. You can only carry a single weapon at a time. The more ex-"
13350 PRINT " pensive the weapon, the more damage it does to the various monsters."
13360 PRINT
13370 PRINT "LAMP If after selecting armor and weapons, you have 20 gp's left , you may"
13380 PRINT " buy a lamp for 20 gp's. Having the lamp will allow you to look into"
13390 PRINT " an adjacent room without having to enter it.
13400 PRINT
13410 PRINT "FLARES If, after all purchases , you have money left, you may buy flares for"
13420 PRINT " 1 gp each. Lighting a flare reveals the contents of all the rooms "
13430 PRINT " surrounding your current location.
13440 PRINT
13450 PRINT " Once you have equipped your character, you are ready to enter the"
13460 PRINT " Temple and begin your quest.
13470 LOCATE 25,1:INPUT "Press enter to return to main menu.";B$
13480 GOTO 12600
13490 CLS:COLOR 11,0,1
13500 PRINT " THE TEMPLE
13510 COLOR 3,0,1:PRINT
13520 PRINT " The temple is arranged in a 8x8x8 three dimensional matrix. This means that there are 8 levels with 64 rooms on each level. The temple levels are are numbered from 1 (the top level) to 8 (the bottom level. Each temple level
13530 PRINT " is constructed in a doughnut like fashion, in that the north edge is connect to the south edge and the east edge is connected to the west edge. In a sim- ular fashion, the sinkholes, explain later, on level 8 will "DROP" you down
13540 PRINT " to level 1. The only room that does not work in this fashion is always locat- ed at location (1,4) level 1. Going north from this room will take you out of the temple and end the game.
13550 PRINT
13560 PRINT " Each room of the temple will have contents as one of the following.
13570 PRINT
13580 PRINT " ∩ = The entrance / exit room
13590 PRINT " ╬ = An empty room containing nothing
13600 PRINT " U = Stairs going up a level
13610 PRINT " D = Stairs going down a level
13620 PRINT " P = Magic Pool from which you may drink
13630 PRINT " C = A chest you may open.
13640 PRINT " B = A book you may open
13650 PRINT " G = From 1 to 10 gold pieces
13660 PRINT " ƒ = From 1 to 3 flares
13670 PRINT " █ = A warp to another random location
13680 LOCATE 25,1:INPUT "Press return to continue";B$
13690 LOCATE 25,1:PRINT " "
13700 LOCATE 22,1
13710 PRINT " ¥ = A monster (1 of 9 different types)
13720 PRINT " * = A Drow fighter
13730 PRINT " Φ = A crystal orb
13740 PRINT " T = A treasure (1 of 8 in the castle)
13750 PRINT " ▓ = A Green Slime
13760 PRINT " 4 = A Red Dragon
13770 PRINT
13780 PRINT " The letters are the abbreviations for the room contents which are display- ed whenever you look at a map or light a flare. When you look at a map, the room you are currently located in is bracketed by < >
13790 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
13800 GOTO 12600
13810 CLS:COLOR 11,0,1
13820 PRINT " PLAYER COMMANDS
13830 COLOR 3,0,1:PRINT
13840 PRINT " Whenever the program asks for a command, you must decide what action you wish to preform. If your choice is not valid, the program will inform you and allow you to try agian. The following is a list of commands which the pro-
13850 PRINT " gram understands, with a description of their effects and restrictions:"
13860 PRINT
13870 PRINT " NORTH Moves you to the room north from your present position. When go north from the entrance / exit room, the game terminates. In all cases, the north edge wraps around from the south.
13880 PRINT
13890 PRINT " SOUTH Moves you to the room south of your present position. In all cases, the south edge wraps around to the north edge.
13900 PRINT
13910 PRINT " EAST Moves you to the room east of your present position. In all cases, the east edge wraps around to the west.
13920 PRINT
13930 PRINT " WEST Moves you to the room west of your present position. In all cases, the west edge wraps around to the east.
13940 PRINT
13950 PRINT " UP/DOWN Causes you to ascend/descend stairs. You must be in a room containing stairs to use this command.
13960 PRINT
13970 LOCATE 25,1:INPUT "Press return to continue";B$
13980 LOCATE 25,1:PRINT " "
13990 LOCATE 22,1
14000 PRINT " DRINK Causes you to take a drink from a magic pool. You may repeat this command as often as you wish, but you must be in a room with a pool to use this command.
14010 PRINT
14020 PRINT " MAP Causes a map of the level you are currently on to be printed. All unexplored rooms are displayed as `?'. All other rooms are dis- played as their one character symbols. You may look at your map at
14030 PRINT
14040 PRINT " FLARE Cause one of your flares to be lit, revealing the contents of all the rooms surrounding your current location. Because each edge is joined to the opposite edge, you will always see nine rooms with your loca-
14050 PRINT " as long as you have some and you are not blind or fighting a monster.
14060 PRINT
14070 PRINT " LAMP Allows you to shine your lamp into any one of the rooms north, south, east, and west of your current position, revealing the room contents. Unlike flares, the lamp may be used repeatedly. You may use your lamp
14080 PRINT " at any time as long as you have one, are not blind, and not attacking a monster.
14090 PRINT
14100 PRINT " OPEN Causes you to open a book or a chest which is in the room with you."
14110 PRINT
14120 LOCATE 25,1:INPUT "Press return to continue";B$
14130 LOCATE 25,1:PRINT " "
14140 LOCATE 22,1
14150 PRINT " GAZE Causes you to gaze into a crystal orb. When you see yourself in a bloody mess, you lose 1 or 2 points of strength. When you see the location of the ";:COLOR 11,0,1:PRINT "Amulet of Chaos";:COLOR 3,0,1
14160 PRINT ", there is only a 50% chance that it "
14170 PRINT " is correct. You cannot gaze when you are blind or when you are not in a room containing a crystal orb."
14180 PRINT
14190 PRINT " TELE- Allows you to teleport directly into a specific room any where in the PORT temple. This is the only way you can can enter the room containing the";:COLOR 11,0,1:PRINT " Amulet of Chaos.";:COLOR 3,0,1
14200 PRINT " You must have the Runestaff to teleport!
14210 PRINT
14220 PRINT " QUIT Allows you to end the game while you are still in the temple. You will be asked if you are, in case you change your mind. If you quit, you will lose the game.
14230 PRINT
14240 PRINT " HELP Causes a summary of available commands, abbreviations used in des- cribing the contents of rooms, and the benefits of possessing each of the treasures to be displayed at any time.
14250 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
14260 GOTO 12600
14270 CLS:COLOR 11,0,2
14280 PRINT " MAGIC SPELLS"
14290 COLOR 3,0,1:PRINT
14300 PRINT " When ever your intelligence (IQ) becomes 15 or higher, you gain the option of casting a magic spell on a monster if you have the very first combat option. The three spells and there effects are as follows:
14310 PRINT
14320 PRINT " WEB Traps the monster in a sticky web so that it can't fight back as you attack it. This spell lasts from 2 to 9 turns and costs you one strength (ST) point.
14330 PRINT
14340 PRINT " FIRE- Hits the monster with a ball of flame that causes between 2 and 14 BALL points worth of damage instantly. It costs one strength points and one point of intelligence.
14350 PRINT
14360 PRINT " DEATH is a contest of will between the monster and yourself, whoever has the lower intelligence dies at once. It costs nothing to use, but it is very risky. Even with an IQ of 18 (the highest possible), you
14370 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
14380 GOTO 12600
14390 CLS:COLOR 11,0,1
14400 PRINT " TREASURE, CURSES, AND SUCH
14410 COLOR 3,0,1:PRINT
14420 PRINT " In the temple there are eight randomly placed treasures:
14430 PRINT
14440 PRINT " The Ruby Red - Wards off the curse of lethargy.
14450 PRINT " The Pale Pearl - Wards off the curse of the leech.
14460 PRINT " The Opal Eye - Cures blindness.
14470 PRINT " The Green Gem - Wards off the curse of forgetfulness.
14480 PRINT " The Blue Flame - Dissolves books stuck to your hands.
14490 PRINT " The Norn Stone - Has no special power.
14500 PRINT " The Palantir - Has no special power.
14510 PRINT " The Silmaril - Has no special power.
14520 PRINT
14530 PRINT " THERE ARE THREE CURSES:"
14540 PRINT
14550 PRINT " LETHARGY - This gives the monster the first attack which prevents you from bribing him or casting a spell on them.
14560 PRINT
14570 PRINT " LEECH - This takes from 1 to 5 gp's from you each turn until you have no gold left at all!
14580 PRINT
14590 LOCATE 25,1:INPUT "Press return to continue";B$
14600 LOCATE 25,1:PRINT " "
14610 LOCATE 20,1
14620 PRINT " FORGETFULNESS - This causes you to forget what you know about each level of the temple. Your map will slowly turn back to all question marks, How- ever, the contents of the rooms stay the same.
14630 PRINT
14640 PRINT " In addition to nullifying the effects of the curses, the treasures can also provide protection from two undesirable things which can happen when you open a book. These are going blind and which prevent you from"
14650 PRINT " seeing your maps, lighting flares, using your lamp, gazing into orbs, and being informed or your current location, and secondly, having a book stuck to your hands, which prevents you to draw your weapon to fight
14660 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
14670 GOTO 12600
14680 CLS:COLOR 11,0,1
14690 PRINT " DROW MERCHANTS
14700 COLOR 3,0,1:PRINT
14710 PRINT " On every level there are Drow Merchants who sell necessary items at in- flated prices. Normally, the merchants will make you an offer for every treasure you have, and then, depending on the amount of gold you have, will"
14720 PRINT " sell you new armor, a new weapon, a potion of strength, intelligence, and dexterity (no matter how many potions you buy, the maximum amount for these
14730 PRINT " attributes is 18), and a lamp, if you don't already have one. If you chose to attack the merchant, you will antagonize every one in the temple, and they will all react as monsters. You will also lose the ability to trade with"
14740 PRINT " them. Killing a merchant, however, will give you new platemail, a sword, one of each kind of potion, and a lamp (if you don't already have one, in add- ition to his hoard of between 1 and 1000 gold pieces. To end hostilities"
14750 PRINT " and reestablish trading privileges, you must bribe any Merchant Drow in the castle with the treasure of his choice.
14760 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
14770 GOTO 12600
14780 CLS:COLOR 11,0,1
14790 PRINT " MONSTERS AND THE RUNESTAFF"
14800 COLOR 3,0,1:PRINT
14810 PRINT " There are 12 types of monsters in the temple:
14820 PRINT
14830 PRINT " Green Slime, Orcs, Evil Dwarfs, Goblins, Mind Flayers, Trolls, Giant Spiders Minotaurs, Driders, Balor Demon, Reds Dragons, and Drow Warriors."
14840 PRINT
14850 PRINT " Please note that each time you strike a Drow Warrior or a Red Dragon, there is a chance that your weapon will be shattered."
14860 PRINT
14870 PRINT " Each monster possesses a hoard of from 1 to 1000 gp's which you obtain when you kill a monster. In addition, one of the monsters is also carring The Runestaff, (you won't know which until one until you kill it). You must have"
14880 PRINT " The Runestaff to teleport, and when you teleport into the room with The Amulet of Chaos, The Runestaff will disappear. (You must find your way out of the temple without it)."
14890 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
14900 GOTO 12600
14910 CLS:COLOR 11,0,1
14920 PRINT " WARPS AND ";:COLOR 27,0,1:PRINT "THE AMULET OF CHAOS"
14930 COLOR 3,0,1:PRINT
14940 PRINT " All but one of the rooms donated as `█' are truly warps. Walking, fall- ing, or teleporting into one of these warps will cause you to be instantly transported to anywhere in the temple at random. The one exception to this"
14950 PRINT " rule is the room containing ";:COLOR 11,0,1:PRINT "The Amulet of Chaos";:COLOR 3,0,1:PRINT ". This room is disguised as a"
14960 PRINT " warp. Walking into this room causes you to move one room further in the same direction. To actually enter this room, you must teleport in using The Rune-"
14970 PRINT " staff. At this point, you will acquire ";:COLOR 11,0,1:PRINT "The Amulet of Chaos";:COLOR 3,0,1:PRINT ". The Runestaff will"
14980 PRINT " disappear at this point. Remember, to win the game, you must leave the temple with the amulet in your possession."
14990 LOCATE 25,1:INPUT "Press enter to return to the main menu";B$
15000 GOTO 12600
15010 CLS:COLOR 11,0,1
15020 PRINT" ERROR MESSAGES"
15030 COLOR 3,0,1:PRINT
15040 PRINT " Anytime you receive a highlighted message with a `**', it means that the last thing you typed was unacceptable to the program at the time. For in- "
15050 PRINT " stance ";:COLOR 11,0,1:PRINT "** It's hard to gaze without an orb.";:COLOR 3,0,1:PRINT ", this means that you tried to"
15060 PRINT " gaze from a room which did not contain a crystal orb. You are always required to redo your last response when you receive an `**' message.
15070 LOCATE 25,1:INPUT "Press enter to return to main menu";B$
15080 GOTO 12600
15090 CLS:COLOR 11,0,1
15100 PRINT " :ë 16030
15270 PRINT
15280 PRINT " 1 point for each gold piece + 100 times your combined attribute scores"
15290 PRINT
15300 PRINT " + 1000 points for each monster killed - 5 times the turns played"
15310 PRINT
15320 PRINT " Bonus points are scored as follows:
15330 PRINT "
15340 PRINT " 5000 for each treasure
15350 PRINT " 10000 for finding the Runestaff
15360 PRINT " 20000 for finding the Amulet of Chaos
15370 PRINT "
15380 PRINT " You will then be ranked into one of the following classes:
