http://a2.jeremiahstoddard.com/Apple_II/Listings/Listings.html This is the collection of listings of the short Applesoft BASIC programs I’m writing for the RetroChallenge Winter Warm Up 2008. For those who don’t feel like typing them in, there is a disk image which will be continually updated with my latest efforts... iWeb 2.0.2 http://a2.jeremiahstoddard.com/Apple_II/Listings/Entries/2008/1/1_Travels_through_the_east_files/bricks.jpg http://a2.jeremiahstoddard.com/Apple_II/Listings/Listings.html http://a2.jeremiahstoddard.com/Apple_II/Listings/Entries/2008/1/30_Rock_Paper_Scissors.html 68db5665-1fb7-405c-82f9-32c80d6defa1 Wed, 30 Jan 2008 18:18:53 -0800 <a href="http://a2.jeremiahstoddard.com/Apple_II/Listings/Entries/2008/1/30_Rock_Paper_Scissors_files/RockPaperScissors.jpg"><img src="http://a2.jeremiahstoddard.com/Apple_II/Listings/Media/RockPaperScissors_1.jpg" style="float:left; padding-right:10px; padding-bottom:10px; width:254px; height:174px;"/></a>It’s really simple, but I had to at least have something for the ending (I was really hoping for a card game, but that’s the way the cookie crumbles). Below you can find the listing for Rock, Paper, Scissors... or just download the updated disk image!<br/><br/>File:ROCK<br/> 10 REM ROCK PAPER SCISSORS <br/> 20 REM BY JEREMIAH STODDARD <br/> 30 HS = 0:CS = 0 <br/> 40 GOTO 160 <br/> 50 HOME <br/> 60 PRINT "HUMAN: "HS; TAB( 26); <br/> "COMPUTER: "CS <br/> 70 RETURN <br/> 80 VTAB 1: HTAB 1: GOSUB 60 <br/> 90 VTAB 10: HTAB 1: PRINT "COMP <br/> UTER CHOSE "C$", HUMAN CHOSE <br/> "H$ <br/> 100 PRINT : PRINT "SO THE RESUL <br/> T IS:" <br/> 110 PRINT : PRINT W$ <br/> 120 VTAB 23: PRINT SPC( 40) <br/> 130 VTAB 23 <br/> 140 INPUT "PRESS RETURN TO CONT <br/> INUE...";H$ <br/> 150 RETURN <br/> 160 GOSUB 50 <br/> 170 VTAB 23: HTAB 1: INPUT "(R) <br/> OCK, (P)APER, (S)CISSORS OR <br/> (Q)UIT?";H$ <br/> 180 H = ASC (H$): IF H > 90 THEN <br/> H = H - 32 <br/> 190 IF H &lt; 80 OR H > 83 THEN GOTO <br/> 160 <br/> 200 IF H = 81 THEN GOTO 340 <br/> 210 H$ = CHR$ (H) <br/> 220 C = INT ( RND (1) * 4): IF <br/> C = 1 THEN GOTO 220 <br/> 230 C = C + 80 <br/> 240 C$ = CHR$ (C) <br/> 250 IF C$ = H$ THEN W$ = "IT´S <br/> A TIE!" <br/> 260 IF C$ = "R" AND H$ = "P" THEN <br/> HS = HS + 1:W$ = "PAPER EATS <br/> ROCK: HUMAN WINS!" <br/> 270 IF C$ = "R" AND H$ = "S" THEN <br/> CS = CS + 1:W$ = "ROCK BREAK <br/> S SCISSORS: COMPUTER WINS!" <br/> 280 IF C$ = "P" AND H$ = "R" THEN <br/> CS = CS + 1:W$ = "PAPER EATS <br/> ROCK: COMPUTER WINS!" <br/> 290 IF C$ = "P" AND H$ = "S" THEN <br/> HS = HS + 1:W$ = "SCISSORS C <br/> UTS PAPER: HUMAN WINS!" <br/> 300 IF C$ = "S" AND H$ = "R" THEN <br/> HS = HS + 1:W$ = "ROCK BREAK <br/> S SCISSORS: HUMAN WINS!" <br/> 310 IF C$ = "S" AND H$ = "P" THEN <br/> CS = CS + 1:W$ = "SCISSORS C <br/> UTS PAPER: COMPUTER WINS!" <br/> 320 GOSUB 80 <br/> 330 GOTO 160 <br/> 340 HOME <br/> 350 PRINT : PRINT <br/> 360 PRINT "THANKS FOR PLAYING!" <br/><br/> 370 PRINT "COMPUTER SCORED "CS" <br/> POINTS," <br/> 380 PRINT "WHILE HUMAN´S SCORE <br/> WAS "HS"."<br/> 390 PRINT : END <br/> http://a2.jeremiahstoddard.com/Apple_II/Listings/Entries/2008/1/10_Warlock%E2%80%99s_Castle.html 402c7cf2-71e1-4d51-8e40-86dff7bcf656 Thu, 10 Jan 2008 05:20:29 -0800 <a href="http://a2.jeremiahstoddard.com/Apple_II/Listings/Entries/2008/1/10_Warlock%E2%80%99s_Castle_files/warlock.jpg"><img src="http://a2.jeremiahstoddard.com/Apple_II/Listings/Media/warlock_1.jpg" style="float:left; padding-right:10px; padding-bottom:10px; width:254px; height:174px;"/></a>Check out the playing instructions in the games menu. Saving/loading is fairly reliable, but YMMV. I’m sure there are a few lingering bugs, so keep an eye out and let me know if you find them...<br/><br/>Line 2 was borrowed from Beagle Bros. Tip Disk #1. It allows me to GOSUB to a line number calculated by the program and saves me from about 40 lines of ON A GOTO ...<br/><br/>Just as an aside, I’ve decided writing a separate description out for each of 200 rooms was a big mistake, and I suggest you learn from my error. The next time I write an adventure game, I’ll definitely be taking a different approach.<br/><br/>File: WARLOCK<br/> 1 GOTO 10 <br/> 2 POKE 2213,48 + G - INT (G / <br/> 10) * 10: POKE 2212,48 + INT <br/> ((G - INT (G / 100) * 100) / <br/> 10): POKE 2211,48 + INT ((G <br/> - INT (G / 1000) * 1000) / <br/> 100): POKE 2210,48 + INT (( <br/> G - INT (G / 10000) * 10000 <br/> ) / 1000): POKE 2209,48 + INT <br/> (G / 10000): GOSUB 11800: RETURN <br/><br/> 10 REM The Warlock´s Castle <br/> 20 REM By Jeremiah Stoddard <br/> 30 TEXT <br/> 40 REM Initialize variables <br/> 50 REM Player Attributes <br/> 60 PL = 10:PM = 10:EX = 0:LE = 1 <br/> :PS = 5 <br/> 70 REM Player Items <br/> 80 SW = 0:AR = 0 <br/> 90 REM Player Location <br/> 100 F = 1:X = 0:Y = 0 <br/> 110 HOME : PRINT : PRINT : PRINT <br/><br/> 120 PRINT SPC( 10)"The Warlock <br/> ´s Castle" <br/> 130 PRINT SPC( 10)"----------- <br/> ---------" <br/> 140 PRINT : PRINT <br/> 150 PRINT "1. The Story" <br/> 160 PRINT "2. Play Game" <br/> 170 PRINT "3. Load Game" <br/> 180 PRINT "4. Instructions" <br/> 190 PRINT "5. Quit" <br/> 200 PRINT : PRINT <br/> 210 INPUT "Make your selection: <br/> ";C <br/> 220 IF C = 5 THEN END <br/> 230 IF C = 4 THEN GOTO 300 <br/> 240 IF C = 3 THEN GOTO 800 <br/> 250 IF C = 2 THEN HOME : GOTO <br/> 1000 <br/> 260 IF C = 1 THEN GOTO 550 <br/> 270 GOTO 110 <br/> 300 REM Instructions <br/> 310 HOME <br/> 320 PRINT "Welcome to ´The Warl <br/> ock´s Castle,´ an" <br/> 330 PRINT "adventure game by Je <br/> remiah Stoddard." <br/> 340 PRINT <br/> 350 PRINT "In this game you wil <br/> l travel through" <br/> 360 PRINT "a building searching <br/> for the exit, and" <br/> 370 PRINT "trying to survive lo <br/> ng enough to get" <br/> 380 PRINT "there." <br/> 390 PRINT <br/> 400 PRINT "During each turn you <br/> will be given a" <br/> 410 PRINT "description of the r <br/> oom you are in,"<br/> 420 PRINT "as well as the direc <br/> tions you may go." <br/> 430 PRINT <br/> 440 PRINT "Commands are one let <br/> ter each, as" <br/> 450 PRINT "follows: N - Go Nort <br/> h, S - Go South" <br/> 460 PRINT "E - Go East, W - Go <br/> West" <br/> 470 PRINT "U - Go up, D - Go do <br/> wn" <br/> 480 PRINT "A - Save game, Q - Q <br/> uit to menu." <br/> 490 PRINT <br/> 500 PRINT "During a fight you c <br/> an only use:" <br/> 510 PRINT "F - Fight, R - Run" <br/> 520 PRINT <br/> 530 INPUT "Press RETURN to go t <br/> o the menu.";C$ <br/> 540 GOTO 110 <br/> 550 REM Story <br/> 560 HOME <br/> 570 PRINT "Welcome to ´The Warl <br/> ock´s Castle,´ an" <br/> 580 PRINT "adventure game by Je <br/> remiah Stoddard." <br/> 590 PRINT <br/> 600 PRINT "An evil warlock seek <br/> s to steal your" <br/> 610 PRINT "family´s land, and t <br/> hus has taken you" <br/> 620 PRINT "prisoner. You have b <br/> een confined in" <br/> 630 PRINT "his dungeon for seve <br/> ral days, but have" <br/> 640 PRINT "finally managed to b <br/> reak the lock on" <br/> 650 PRINT "your cell and knock <br/> out the guard." <br/> 660 PRINT "Your task now is to <br/> escape the dungeon" <br/> 670 PRINT "and find a way out o <br/> f the castle so" <br/> 680 PRINT "you can return to yo <br/> ur family and save" <br/> 690 PRINT "your land. Unfortuna <br/> tely the warlock´s" <br/> 700 PRINT "castle is full of na <br/> sty creatures, so" <br/> 710 PRINT "you have your work c <br/> ut out for you." <br/> 720 PRINT "Good Luck!" <br/> 730 PRINT <br/> 740 INPUT "Press RETURN to go t <br/> o the menu.";C$ <br/> 750 GOTO 110 <br/> 800 REM Load Game <br/> 810 PRINT : INPUT "Enter a file <br/> name: ";C$ <br/> 820 PRINT CHR$ (4)"OPEN "C$ <br/> 830 PRINT CHR$ (4)"READ "C$ <br/> 840 INPUT PL: INPUT PM: INPUT E <br/> X: INPUT LE: INPUT PS <br/> 850 INPUT SW: INPUT AR <br/> 860 INPUT F: INPUT X: INPUT Y <br/> 870 PRINT CHR$ (4)"CLOSE "C$ <br/> 880 HOME : ON F GOTO 881,882,88 <br/> 3,884 <br/> 881 GOTO 1000 <br/> 882 PRINT CHR$ (4);"CHAIN WARL <br/> OCK1" <br/> 883 PRINT CHR$ (4);"CHAIN WARL <br/> OCK2" <br/> 884 PRINT CHR$ (4);"CHAIN WARL <br/> OCK3" <br/> 900 REM Save Game <br/> 910 PRINT : INPUT "Enter a file <br/> name: ";C$ <br/> 920 PRINT CHR$ (4)"OPEN "C$ <br/> 930 PRINT CHR$ (4)"WRITE "C$ <br/> 940 PRINT PL: PRINT PM: PRINT E <br/> X: PRINT LE: PRINT PS <br/> 950 PRINT SW: PRINT AR <br/> 960 PRINT F: PRINT X: PRINT Y <br/> 970 PRINT CHR$ (4)"CLOSE "C$ <br/> 980 RETURN <br/> 1000 REM Play Game <br/> 1010 PRINT : PRINT "Floor: "; <br/> 1020 IF F = 1 THEN PRINT "B";: <br/> GOTO 1040 <br/> 1030 PRINT F - 1; <br/> 1040 PRINT " Room: "X","Y" HP:" <br/> PL <br/> 1050 PRINT <br/> 1060 G = 10000 + Y * 2000 + X * <br/> 200 <br/> 1070 GOSUB 2 <br/> 1080 PRINT : PRINT "What do you <br/> want to do"; <br/> 1090 INPUT C$ <br/> 1100 IF C$ = "" THEN GOTO 1080 <br/><br/> 1110 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32 <br/> 1120 C$ = CHR$ (C) <br/> 1130 IF C$ = "N" AND N = 1 THEN <br/> Y = Y - 1 <br/> 1140 IF C$ = "S" AND S = 1 THEN <br/> Y = Y + 1 <br/> 1150 IF C$ = "E" AND E = 1 THEN <br/> X = X + 1 <br/> 1160 IF C$ = "W" AND W = 1 THEN <br/> X = X - 1 <br/> 1170 IF C$ = "U" AND U = 1 THEN <br/> F = F + 1: PRINT CHR$ (4);" <br/> CHAIN WARLOCK1" <br/> 1180 IF C$ = "D" AND D = 1 THEN <br/> F = F - 1 <br/> 1190 IF C$ = "A" THEN GOSUB 90 <br/> 0 <br/> 1200 IF C$ = "Q" THEN END <br/> 1210 IF Y = 5 THEN GOTO 1300 <br/> 1220 IF RND (1) > 0.85 THEN GOSUB <br/> 1500 <br/> 1230 GOTO 1000 <br/> 1300 REM Player has won! <br/> 1310 HOME : PRINT : PRINT <br/> 1320 PRINT "Congratulations! Yo <br/> u have finally" <br/> 1330 PRINT "escaped the Warlock <br/> ´s Castle. You can" <br/> 1340 PRINT "now go home and sav <br/> e your family´s" <br/> 1350 PRINT "land. Good Work!!!" <br/><br/> 1360 PRINT : PRINT : PRINT <br/> 1370 PRINT "Play Again (Y/N)"; <br/> 1380 INPUT C$ <br/> 1390 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40 <br/> 1400 END <br/> 1500 REM Monster subroutine <br/> 1510 M = INT ( RND (1) * 2) + 1 <br/><br/> 1520 ON M GOSUB 1930,1950 <br/> 1530 PRINT : PRINT "A "M$" atta <br/> cks!" <br/> 1540 PRINT : PRINT "You have "P <br/> L" hit points." <br/> 1550 PRINT "You may Fight or Ru <br/> n." <br/> 1560 INPUT "What do you want to <br/> do?";C$ <br/> 1570 IF C$ = "R" OR C$ = "r" THEN <br/> GOTO 1890 <br/> 1580 PA = INT ( RND (1) * PS) * <br/> (1 + SW) + 1 <br/> 1590 ML = ML - PA <br/> 1600 PRINT : PRINT "You attacke <br/> d and dealt "PA" damage to" <br/> 1610 PRINT "the "M$"." <br/> 1620 IF ML &lt; 1 THEN GOTO 1680 <br/> 1630 MA = INT ( RND (1) * MS / <br/> (AR + 1)) + 1:PL = PL - MA <br/> 1640 PRINT : PRINT "The "M$" de <br/> alt "MA" damage" <br/> 1650 PRINT "to you." <br/> 1660 IF PL &lt; 1 THEN GOTO 1810 <br/> 1670 GOTO 1540 <br/> 1680 REM Monster Dead <br/> 1690 PRINT : PRINT "You have va <br/> nquished the Monster!" <br/> 1700 EX = EX + INT ( RND (1) * <br/> MS) + 2 <br/> 1710 IF EX &lt; LE * 20 THEN RETURN <br/><br/> 1720 LE = LE + 1:PS = PS + INT <br/> ( RND (1) * 5) + 1 <br/> 1730 PM = PM + 5:PL = PM <br/> 1740 PRINT "Congratulations! Yo <br/> u have been" <br/> 1750 PRINT "promoted to level " <br/> LE". Your maximum" <br/> 1760 PRINT "hit points have bee <br/> n increased by 5," <br/> 1770 PRINT "and your strength h <br/> as increased." <br/> 1780 PRINT "Your hit points hav <br/> e also been" <br/> 1790 PRINT "restored to maximum <br/> ." <br/> 1800 RETURN <br/> 1810 REM Player Dead <br/> 1820 PRINT : PRINT "You have di <br/> ed. Would you like to play" <br/> 1830 PRINT "again (Y/N)"; <br/> 1840 INPUT C$<br/> 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40 <br/> 1870 END <br/> 1890 REM Run <br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn´ <br/> t get away." <br/> 1920 GOTO 1630 <br/> 1930 M$ = "bat":ML = 5:MS = 3 <br/> 1940 RETURN <br/> 1950 M$ = "snake":ML = 7:MS = 4 <br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 10010 PRINT "This is your cell. <br/> You have managed to" <br/> 10020 PRINT "break the lock on <br/> it and knock out the" <br/> 10030 PRINT "guard. To the Sout <br/> h are more cells," <br/> 10040 PRINT "East is a hallway. <br/> These are the only" <br/> 10050 PRINT "directions you can <br/> go from here..." <br/> 10060 RETURN <br/> 10200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10210 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 10220 PRINT "dungeon´s cells. T <br/> he hallway leads" <br/> 10230 PRINT "South. West is you <br/> r cell, and East is" <br/> 10240 PRINT "direction from whi <br/> ch you were" <br/> 10250 PRINT "originally dragged <br/> into this dungeon." <br/> 10260 RETURN <br/> 10400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10410 PRINT "You are between a <br/> hallway overlooking" <br/> 10420 PRINT "the cells, and the <br/> long hallway" <br/> 10430 PRINT "through which you <br/> were dragged into" <br/> 10440 PRINT "this place. To the <br/> south there is an" <br/> 10450 PRINT "open room. You can <br/> go East, West or" <br/> 10460 PRINT "South." <br/> 10470 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10610 PRINT "You are at the end <br/> of a long hallway." <br/> 10620 PRINT "Far to the East is <br/> where executions" <br/> 10630 PRINT "are held, and your <br/> cell is toward the" <br/> 10640 PRINT "West. You can go e <br/> ither East or West." <br/> 10650 RETURN <br/> 10800 N = 0:S = 0:E = 1:W = 1 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40 <br/> 1870 END <br/> 1890 REM Run <br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn´ <br/> t get away." <br/> 1920 GOTO 1630 <br/> 1930 M$ = "bat":ML = 5:MS = 3 <br/> 1940 RETURN <br/> 1950 M$ = "snake":ML = 7:MS = 4 <br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 10010 PRINT "This is your cell. <br/> You have managed to" <br/> 10020 PRINT "break the lock on <br/> it and knock out the" <br/> 10030 PRINT "guard. To the Sout <br/> h are more cells," <br/> 10040 PRINT "East is a hallway. <br/> These are the only" <br/> 10050 PRINT "directions you can <br/> go from here..." <br/> 10060 RETURN <br/> 10200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10210 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 10220 PRINT "dungeon´s cells. T <br/> he hallway leads" <br/> 10230 PRINT "South. West is you <br/> r cell, and East is" <br/> 10240 PRINT "direction from whi <br/> ch you were" <br/> 10250 PRINT "originally dragged <br/> into this dungeon." <br/> 10260 RETURN <br/> 10400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10410 PRINT "You are between a <br/> hallway overlooking" <br/> 10420 PRINT "the cells, and the <br/> long hallway" <br/> 10430 PRINT "through which you <br/> were dragged into" <br/> 10440 PRINT "this place. To the <br/> south there is an" <br/> 10450 PRINT "open room. You can <br/> go East, West or" <br/> 10460 PRINT "South." <br/> 10470 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10610 PRINT "You are at the end <br/> of a long hallway." <br/> 10620 PRINT "Far to the East is <br/> where executions" <br/> 10630 PRINT "are held, and your <br/> cell is toward the" <br/> 10640 PRINT "West. You can go e <br/> ither East or West." <br/> 10650 RETURN <br/> 10800 N = 0:S = 0:E = 1:W = 1:U = 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40 <br/> 1870 END <br/> 1890 REM Run <br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn´ <br/> t get away." <br/> 1920 GOTO 1630 <br/> 1930 M$ = "bat":ML = 5:MS = 3 <br/> 1940 RETURN <br/> 1950 M$ = "snake":ML = 7:MS = 4 <br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 10010 PRINT "This is your cell. <br/> You have managed to" <br/> 10020 PRINT "break the lock on <br/> it and knock out the" <br/> 10030 PRINT "guard. To the Sout <br/> h are more cells," <br/> 10040 PRINT "East is a hallway. <br/> These are the only" <br/> 10050 PRINT "directions you can <br/> go from here..." <br/> 10060 RETURN <br/> 10200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10210 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 10220 PRINT "dungeon´s cells. T <br/> he hallway leads" <br/> 10230 PRINT "South. West is you <br/> r cell, and East is" <br/> 10240 PRINT "direction from whi <br/> ch you were" <br/> 10250 PRINT "originally dragged <br/> into this dungeon." <br/> 10260 RETURN <br/> 10400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10410 PRINT "You are between a <br/> hallway overlooking" <br/> 10420 PRINT "the cells, and the <br/> long hallway" <br/> 10430 PRINT "through which you <br/> were dragged into" <br/> 10440 PRINT "this place. To the <br/> south there is an" <br/> 10450 PRINT "open room. You can <br/> go East, West or" <br/> 10460 PRINT "South." <br/> 10470 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10610 PRINT "You are at the end <br/> of a long hallway." <br/> 10620 PRINT "Far to the East is <br/> where executions" <br/> 10630 PRINT "are held, and your <br/> cell is toward the" <br/> 10640 PRINT "West. You can go e <br/> ither East or West." <br/> 10650 RETURN <br/> 10800 N = 0:S = 0:E = 1:W = 1:U = <br/> 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40 <br/> 1870 END <br/> 1890 REM Run <br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn´ <br/> t get away." <br/> 1920 GOTO 1630 <br/> 1930 M$ = "bat":ML = 5:MS = 3 <br/> 1940 RETURN <br/> 1950 M$ = "snake":ML = 7:MS = 4 <br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 10010 PRINT "This is your cell. <br/> You have managed to" <br/> 10020 PRINT "break the lock on <br/> it and knock out the" <br/> 10030 PRINT "guard. To the Sout <br/> h are more cells," <br/> 10040 PRINT "East is a hallway. <br/> These are the only" <br/> 10050 PRINT "directions you can <br/> go from here..." <br/> 10060 RETURN <br/> 10200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10210 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 10220 PRINT "dungeon´s cells. T <br/> he hallway leads" <br/> 10230 PRINT "South. West is you <br/> r cell, and East is" <br/> 10240 PRINT "direction from whi <br/> ch you were" <br/> 10250 PRINT "originally dragged <br/> into this dungeon." <br/> 10260 RETURN <br/> 10400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10410 PRINT "You are between a <br/> hallway overlooking" <br/> 10420 PRINT "the cells, and the <br/> long hallway" <br/> 10430 PRINT "through which you <br/> were dragged into" <br/> 10440 PRINT "this place. To the <br/> south there is an" <br/> 10450 PRINT "open room. You can <br/> go East, West or" <br/> 10460 PRINT "South." <br/> 10470 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 10610 PRINT "You are at the end <br/> of a long hallway." <br/> 10620 PRINT "Far to the East is <br/> where executions" <br/> 10630 PRINT "are held, and your <br/> cell is toward the" <br/> 10640 PRINT "West. You can go e <br/> ither East or West." <br/> 10650 RETURN <br/> 10800 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10810 PRINT "You are in a long <br/> hallway between" <br/> 10820 PRINT "the room where exe <br/> cutions are held," <br/> 10830 PRINT "to the East, and y <br/> our cell, to the" <br/> 10840 PRINT "West. You can cont <br/> inue down the" <br/> 10850 PRINT "hallway either Eas <br/> tward or Westward." <br/> 10860 RETURN <br/> 11000 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 11010 PRINT "You are at the Eas <br/> t end of the long" <br/> 11020 PRINT "hallway. East is t <br/> he execution room," <br/> 11030 PRINT "and West leads dow <br/> n the hallway." <br/> 11040 RETURN <br/> 11200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 11210 PRINT "This is the room w <br/> here executions" <br/> 11220 PRINT "are held. There is <br/> a block on the" <br/> 11230 PRINT "floor where prison <br/> ers are held while" <br/> 11240 PRINT "being beheaded. Th <br/> e stench of death" <br/> 11250 PRINT "lingers. You can g <br/> o East, West or" <br/> 11260 PRINT "South. <br/> 11270 RETURN <br/> 11400 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 11410 PRINT "This is apparently <br/> the executioner´s" <br/> 11420 PRINT "quarters. It is re <br/> latively empty," <br/> 11430 PRINT "except for a bed. <br/> The door can be" <br/> 11440 PRINT "sealed, however. W <br/> ould you like to" <br/> 11450 PRINT "rest for the night <br/> (Y/N)"; <br/> 11460 INPUT C$ <br/> 11470 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32 <br/> 11480 C$ = CHR$ (C) <br/> 11490 IF C$ = "Y" THEN PL = PM: <br/> PRINT "You feel refreshed." <br/><br/> 11500 PRINT "You can only go We <br/> st from here." <br/> 11510 RETURN <br/> 11600 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 11610 PRINT "You are in a dank, <br/> dusty old closet." <br/> 11620 IF SW &lt; 1 THEN GOTO 1170 <br/> 0 <br/> 11630 PRINT "You can only go So <br/> uth from h<br/> 11640 RETURN <br/> 11700 PRINT "There is a sword i <br/> n here. Would you" <br/> 11710 PRINT "like to take it (Y <br/> /N)"; <br/> 11720 INPUT C$: IF C$ = "" THEN <br/> GOTO 11720 <br/> 11730 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32 <br/> 11740 C$ = CHR$ (C) <br/> 11750 IF C$ &lt; > "Y" THEN GOTO <br/> 11630 <br/> 11760 SW = 1:STR = STR + 2 <br/> 11770 PRINT "You now have a swo <br/> rd. You can attack" <br/> 11780 PRINT "with greater force <br/> !" <br/> 11790 GOTO 11630 <br/> 11800 N = 0:S = 1:E = 0:W = 0:U = <br/> 1:D = 0 <br/> 11810 PRINT "You are in a stair <br/> well. Looking up" <br/> 11820 PRINT "you notice that it <br/> seems to go on" <br/> 11830 PRINT "forever. From here <br/> you can go either" <br/> 11840 PRINT "South back into th <br/> e dungeon, or Up" <br/> 11850 PRINT "the stairs." <br/> 11860 RETURN <br/> 12000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 12010 PRINT "This is the cell d <br/> irectly South of" <br/> 12020 PRINT "yours. It is empty <br/> -- not too many" <br/> 12030 PRINT "residents of this <br/> dungeon last very" <br/> 12040 PRINT "long... You can go <br/> South toward" <br/> 12050 PRINT "other cells, or No <br/> rth into your own." <br/> 12060 RETURN <br/> 12200 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 12210 PRINT "You are in a hallw <br/> ay overlooking" <br/> 12220 PRINT "the dungeon´s cell <br/> s. The hallway" <br/> 12230 PRINT "continues South, a <br/> nd you can see" <br/> 12240 PRINT "the Northern end o <br/> f it from here." <br/> 12250 PRINT "To the West is an <br/> empty cell, but" <br/> 12260 PRINT "it is locked from <br/> this direction." <br/> 12270 PRINT "You can go North o <br/> r South." <br/> 12280 RETURN <br/> 12400 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 12410 PRINT "You are in a squal <br/> id room with" <br/> 12420 PRINT "an unkempt table. <br/> This is where" <br/> 12430 PRINT "food is prepared f<br/> or those prisoners" <br/> 12440 PRINT "lucky enough to ge <br/> t something to" <br/> 12450 PRINT "eat. This room has <br/> an exit to the" <br/> 12460 PRINT "North." <br/> 12470 RETURN <br/> 12600 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 12610 PRINT "This room is dark; <br/> Feeling your way" <br/> 12620 PRINT "around you get the <br/> idea that it is" <br/> 12630 PRINT "probably used for <br/> torture. Luckily" <br/> 12640 PRINT "you hadn´t encount <br/> ered it previous" <br/> 12650 PRINT "to your escape. Yo <br/> u can only go East." <br/> 12660 RETURN <br/> 12800 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 12810 PRINT "You are in a dim p <br/> assageway. It gets" <br/> 12820 PRINT "darker to the West <br/> . You can return" <br/> 12830 PRINT "to better lit area <br/> s to the East, or" <br/> 12840 PRINT "go into the darkne <br/> ss toward the West." <br/> 12850 RETURN <br/> 13000 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 13010 PRINT "You are in a relat <br/> ively open area of" <br/> 13020 PRINT "the dungeon. There <br/> is a passageway" <br/> 13030 PRINT "to the West, and y <br/> ou can get to" <br/> 13040 PRINT "entrances to vario <br/> us parts of the" <br/> 13050 PRINT "dungeon by going E <br/> ast or South." <br/> 13060 RETURN <br/> 13200 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 13210 PRINT "You are South of t <br/> he execution room." <br/> 13220 PRINT "This seems to be a <br/> sort of central" <br/> 13230 PRINT "hub of the dungeon <br/> . You can get to" <br/> 13240 PRINT "entrances to other <br/> parts of the" <br/> 13250 PRINT "dungeon by going S <br/> outh or West. You" <br/> 13260 PRINT "can get to the exe <br/> cution room by" <br/> 13270 PRINT "going North, and E <br/> ast takes you" <br/> 13280 PRINT "toward the dungeon <br/> ´s entrance." <br/> 13290 RETURN <br/> 13400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 13410 PRINT "This is where new<br/> prisoners are" <br/> 13420 PRINT "transferred to the <br/> guards´ charge." <br/> 13430 PRINT "You can enter the <br/> main part of the" <br/> 13440 PRINT "dungeon to the Wes <br/> t, or you may go" <br/> 13450 PRINT "South or East." <br/> 13460 RETURN <br/> 13600 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 13610 PRINT "You are near the d <br/> ungeon´s entrance." <br/> 13620 PRINT "South leads toward <br/> your freedom, West" <br/> 13630 PRINT "takes you back tow <br/> ard the dungeon" <br/> 13640 PRINT "proper, and to the <br/> North there is a" <br/> 13650 PRINT "closet." <br/> 13660 RETURN <br/> 13800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 13810 PRINT "You are at the nor <br/> thern end of the" <br/> 13820 PRINT "hallway entering t <br/> he dungeon. To" <br/> 13830 PRINT "the North are some <br/> stairs, and South" <br/> 13840 PRINT "leads into the dun <br/> geon. You can go" <br/> 13850 PRINT "North or South fro <br/> m here." <br/> 13860 RETURN <br/> 14000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 14010 PRINT "This cell is empty <br/> . You briefly" <br/> 14020 PRINT "wonder what became <br/> of the guy who was" <br/> 14030 PRINT "in this cell when <br/> you got here." <br/> 14040 PRINT "You can go North o <br/> r South." <br/> 14050 RETURN <br/> 14200 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 14210 PRINT "You are in a hall <br/> overlooking the" <br/> 14220 PRINT "prison cells. The <br/> cell to your West" <br/> 14230 PRINT "was occupied when <br/> you arrived, but" <br/> 14240 PRINT "seems to be vacant <br/> now. You can go" <br/> 14250 PRINT "North or South." <br/> 14260 RETURN <br/> 14400 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 14410 PRINT "This is a storage <br/> room containing" <br/> 14420 PRINT "possessions from t <br/> he prisoners who" <br/> 14430 PRINT "were brought into <br/> this place." <br/> 14440 IF AR &lt; 1 THEN GOTO 145013<br/> 0 <br/> 14450 PRINT "You can only go Ea <br/> st from here." <br/> 14460 RETURN <br/> 14500 PRINT "Your clothes are i <br/> n here. Would you" <br/> 14510 PRINT "like to take them <br/> (Y/N)"; <br/> 14520 INPUT C$: IF C$ = "" THEN <br/> GOTO 14520 <br/> 14530 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32 <br/> 14540 C$ = CHR$ (C) <br/> 14550 IF C$ &lt; > "Y" THEN GOTO <br/> 14450 <br/> 14560 AR = AR + 1: PRINT "You pu <br/> t on your clothes. This will <br/> " <br/> 14570 PRINT "reduce somewhat th <br/> e strength of enemy" <br/> 14580 PRINT "attacks." <br/> 14590 GOTO 14450 <br/> 14600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 14610 PRINT "This room contains <br/> a few items that" <br/> 14620 PRINT "used to belong to <br/> prisoners here. You" <br/> 14630 PRINT "can go West to see <br/> the rest of this" <br/> 14640 PRINT "room, or East to h <br/> ead toward the exit." <br/> 14650 RETURN <br/> 14800 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 14810 PRINT "You are in a long <br/> room with shelves" <br/> 14820 PRINT "along the walls. T <br/> he shelves are" <br/> 14830 PRINT "empty here, but th <br/> e room continues to" <br/> 14840 PRINT "the West. You can <br/> also exit the room" <br/> 14850 PRINT "to the East." <br/> 14860 RETURN <br/> 15000 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 15010 PRINT "You are in the sou <br/> theast corner of" <br/> 15020 PRINT "´main hub´ of the <br/> dungeon. You can" <br/> 15030 PRINT "enter the room to <br/> your West, or" <br/> 15040 PRINT "access other parts <br/> of the dungeon" <br/> 15050 PRINT "to the North or Ea <br/> st." <br/> 15060 RETURN <br/> 15200 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 15210 PRINT "This is a large ro <br/> om with entrances" <br/> 15220 PRINT "to various parts o <br/> f the dungeon." <br/> 15230 PRINT "Going North or Wes<br/> t will take you to"<br/> 15240 PRINT "other sides of thi <br/> s room, and South" <br/> 15250 PRINT "leads down a corri <br/> dor toward the" <br/> 15260 PRINT "cells." <br/> 15270 RETURN <br/> 15400 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 15410 PRINT "This is an empty, <br/> dismal looking" <br/> 15420 PRINT "area just South of <br/> where you were" <br/> 15430 PRINT "brutally handed ov <br/> er to the dungeon´s" <br/> 15440 PRINT "guards. You can go <br/> North or East." <br/> 15450 RETURN <br/> 15600 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 15610 PRINT "This is the worse <br/> side of the entrance" <br/> 15620 PRINT "between the ´bad´ <br/> and ´worse´ parts of" <br/> 15630 PRINT "the dungeon. You c <br/> an go North, South" <br/> 15640 PRINT "or West from here. <br/> " <br/> 15650 RETURN <br/> 15800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 15810 PRINT "You are in the hal <br/> lway that enters" <br/> 15820 PRINT "the dungeon. From <br/> here you can head" <br/> 15830 PRINT "North toward the d <br/> ungeon´s exit, or" <br/> 15840 PRINT "South toward you-k <br/> now-where." <br/> 15850 RETURN <br/> 16000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 16010 PRINT "You are in an empt <br/> y cell. From here" <br/> 16020 PRINT "you may go North o <br/> r South." <br/> 16030 RETURN <br/> 16200 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 16210 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 16220 PRINT "cells. The cell to <br/> your west is" <br/> 16230 PRINT "empty. You can go <br/> North or South." <br/> 16240 RETURN <br/> 16400 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 16410 PRINT "This cell reeks of <br/> death. The" <br/> 16420 PRINT "prisoner´s body mu <br/> st have been" <br/> 16430 PRINT "removed fairly rec <br/> ently. You can exit" <br/> 16440 PRINT "to the South. " <br/> 16450 RETURN <br/> 16600 N = 0:S = 1:E = 0:W = 0:U =<br/> 0:D = 0 <br/> 16610 PRINT "This cell is empty <br/> . You can exit it" <br/> 16620 PRINT "by going South." <br/> 16630 RETURN <br/> 16800 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 16810 PRINT "You are in an empt <br/> y cell. You can" <br/> 16820 PRINT "only go South from <br/> here." <br/> 16830 RETURN <br/> 17000 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 17010 PRINT "This is an empty c <br/> ell. The only way" <br/> 17020 PRINT "out of it is the e <br/> xit to the South." <br/> 17030 RETURN <br/> 17200 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 17210 PRINT "You are in an empt <br/> y room. To the" <br/> 17220 PRINT "North is a large o <br/> pen room, to the" <br/> 17230 PRINT "South a hallway an <br/> d some prison" <br/> 17240 PRINT "cells." <br/> 17250 RETURN <br/> 17400 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 17410 PRINT "This is a kitchen <br/> where food is" <br/> 17420 PRINT "prepared for the g <br/> uards. There is a" <br/> 17430 PRINT "room to the South, <br/> and you can also" <br/> 17440 PRINT "go East." <br/> 17450 RETURN <br/> 17600 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 17610 PRINT "This is the bad si <br/> de of the entrance" <br/> 17620 PRINT "between the ´bad´ <br/> and ´worse´ parts" <br/> 17630 PRINT "of the dungeon. Yo <br/> u can go North," <br/> 17640 PRINT "South or West from <br/> here." <br/> 17650 RETURN <br/> 17800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 17810 PRINT "This is the South <br/> end of a hallway" <br/> 17820 PRINT "leading out of the <br/> prison. You can" <br/> 17830 PRINT "go North or South. <br/> " <br/> 17840 RETURN <br/> 18000 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 18010 PRINT "This cell is empty <br/> except for some" <br/> 18020 PRINT "old bones lying in <br/> the corner. You" <br/> 18030 PRINT "can only go North<br/> from here." <br/> 18040 RETURN <br/> 18200 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 18210 PRINT "You are overlookin <br/> g a cell with some" <br/> 18220 PRINT "bones. The hallway <br/> continues North or" <br/> 18230 PRINT "East." <br/> 18240 RETURN <br/> 18400 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 18410 PRINT "There is a noxious <br/> smell coming from" <br/> 18420 PRINT "the cell to the No <br/> rth, which is" <br/> 18430 PRINT "open. You can go N <br/> orth, East or West." <br/> 18440 RETURN <br/> 18600 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 18610 PRINT "The cell to the No <br/> rth is open. You" <br/> 18620 PRINT "can go North into <br/> the cell, or East" <br/> 18630 PRINT "or West along the <br/> hallway." <br/> 18640 RETURN <br/> 18800 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 18810 PRINT "From this part of <br/> the hallway you" <br/> 18820 PRINT "can enter the cell <br/> to the North, or" <br/> 18830 PRINT "you can go East or <br/> West." <br/> 18840 RETURN <br/> 19000 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0 <br/> 19010 PRINT "You are in a hallw <br/> ay overlooking the" <br/> 19020 PRINT "dungeon´s cells. T <br/> he cell to the" <br/> 19030 PRINT "North is unlocked, <br/> and you can also" <br/> 19040 PRINT "go East or West." <br/> 19050 RETURN <br/> 19200 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 19210 PRINT "You are at the end <br/> of a long hallway" <br/> 19220 PRINT "overlooking the du <br/> ngeon´s cells. You" <br/> 19230 PRINT "can exit to the No <br/> rth, or go down the" <br/> 19240 PRINT "hallway to the Wes <br/> t." <br/> 19250 RETURN <br/> 19400 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0 <br/> 19410 PRINT "Apparently this is <br/> the cook´s" <br/> 19420 PRINT "quarters. You can <br/> leave to the North." <br/> 19430 RETURN <br/> 19600 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0 <br/> 19610 PRINT "You are in a room <br/> with a long table." <br/> 19620 PRINT "This must be where <br/> the guards eat." <br/> 19630 PRINT "You can go North o <br/> r East." <br/> 19640 RETURN <br/> 19800 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0 <br/> 19810 PRINT "This is the guards <br/> ´ quarters. You can" <br/> 19820 PRINT "go North or West." <br/><br/> 19830 RETURN<br/><br/>File: WARLOCK1<br/> 1 GOTO 10<br/> 2 POKE 2213,48 + G - INT (G / <br/> 10) * 10: POKE 2212,48 + INT <br/> ((G - INT (G / 100) * 100) / <br/> 10): POKE 2211,48 + INT ((G<br/> - INT (G / 1000) * 1000) / <br/> 100): POKE 2210,48 + INT ((<br/> G - INT (G / 10000) * 10000<br/> ) / 1000): POKE 2209,48 + INT <br/> (G / 10000): GOSUB 11800: RETURN <br/><br/> 10 REM The Warlock's Castle<br/> 20 REM By Jeremiah Stoddard<br/> 30 GOTO 1000<br/> 900 REM Save Game<br/> 910 PRINT : INPUT "Enter a file<br/> name: ";C$<br/> 920 PRINT CHR$ (4)"OPEN "C$<br/> 930 PRINT CHR$ (4)"WRITE "C$<br/> 940 PRINT PL: PRINT PM: PRINT E<br/> X: PRINT LE: PRINT PS<br/> 950 PRINT SW: PRINT AR<br/> 960 PRINT F: PRINT X: PRINT Y<br/> 970 PRINT CHR$ (4)"CLOSE "C$<br/> 980 RETURN <br/> 1000 REM Play Game<br/> 1010 PRINT : PRINT "Floor: ";<br/> 1020 IF F = 1 THEN PRINT "B";:<br/> GOTO 1040<br/> 1030 PRINT F - 1;<br/> 1040 PRINT " Room: "X","Y" HP: <br/> "PL<br/> 1050 PRINT <br/> 1060 G = 10000 + Y * 2000 + X * <br/> 200<br/> 1070 GOSUB 2<br/> 1080 PRINT : PRINT "What do you<br/> want to do";<br/> 1090 INPUT C$<br/> 1100 IF C$ = "" THEN GOTO 1080<br/><br/> 1110 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 1120 C$ = CHR$ (C)<br/> 1130 IF C$ = "N" AND N = 1 THEN <br/> Y = Y - 1<br/> 1140 IF C$ = "S" AND S = 1 THEN <br/> Y = Y + 1<br/> 1150 IF C$ = "E" AND E = 1 THEN <br/> X = X + 1<br/> 1160 IF C$ = "W" AND W = 1 THEN <br/> X = X - 1<br/> 1170 IF C$ = "U" AND U = 1 THEN <br/> F = F + 1: PRINT CHR$ (4);"<br/> CHAIN WARLOCK2"<br/> 1180 IF C$ = "D" AND D = 1 THEN <br/> F = F - 1: PRINT CHR$ (4),"<br/> CHAIN WARLOCK,@1000"<br/> 1190 IF C$ = "A" THEN GOSUB 90<br/> 0<br/> 1200 IF C$ = "Q" THEN END <br/> 1210 IF Y = 5 THEN GOTO 1300<br/> 1220 IF RND (1) > 0.85 THEN GOSUB <br/> 1500<br/> 1230 GOTO 1000<br/> 1300 REM Player has won!<br/> 1310 HOME : PRINT : PRINT <br/> 1320 PRINT "Congratulations! Yo<br/> u have finally"<br/> 1330 PRINT "escaped the Warlock<br/> 's Castle. You can"<br/> 1340 PRINT "now go home and sav<br/> e your family's"<br/> 1350 PRINT "land. Good Work!!!"<br/><br/> 1360 PRINT : PRINT : PRINT <br/> 1370 PRINT "Play Again (Y/N)";<br/> 1380 INPUT C$<br/> 1390 IF C$ = "Y" OR C$ = "y" THEN <br/> PRINT CHR$ (4);"RUN WARLOC<br/> K"<br/> 1400 END <br/> 1500 REM Monster subroutine<br/> 1510 M = INT ( RND (1) * 2) + 1<br/><br/> 1520 ON M GOSUB 1930,1950<br/> 1530 PRINT : PRINT "A "M$" atta<br/> cks!"<br/> 1540 PRINT : PRINT "You have "P<br/> L" hit points."<br/> 1550 PRINT "You may Fight or Ru<br/> n."<br/> 1560 INPUT "What do you want to<br/> do?";C$<br/> 1570 IF C$ = "R" OR C$ = "r" THEN <br/> GOTO 1890<br/> 1580 PA = INT ( RND (1) * PS) * <br/> (1 + SW) + 1<br/> 1590 ML = ML - PA<br/> 1600 PRINT : PRINT "You attacke<br/> d and dealt "PA" damage to"<br/> 1610 PRINT "the "M$"."<br/> 1620 IF ML &lt; 1 THEN GOTO 1680<br/> 1630 MA = INT ( RND (1) * MS / <br/> (AR + 1)) + 1:PL = PL - MA<br/> 1640 PRINT : PRINT "The "M$" de<br/> alt "MA" damage"<br/> 1650 PRINT "to you."<br/> 1660 IF PL &lt; 1 THEN GOTO 1810<br/> 1670 GOTO 1540<br/> 1680 REM Monster Dead<br/> 1690 PRINT : PRINT "You have va<br/> nquished the Monster!"<br/> 1700 EX = EX + INT ( RND (1) * <br/> MS / 5) + 2<br/> 1710 IF EX &lt; LE * 20 THEN RETURN <br/><br/> 1720 LE = LE + 1:PS = PS + INT <br/> ( RND (1) * 5) + 1<br/> 1730 PM = PM + 5:PL = PM<br/> 1740 PRINT "Congratulations! Yo<br/> u have been"<br/> 1750 PRINT "promoted to level "<br/> LE". Your maximum"<br/> 1760 PRINT "hit points have bee<br/> n increased by 5,"<br/> 1770 PRINT "and your strength h<br/> as increased."<br/> 1780 PRINT "Your hit points hav<br/> e also been"<br/> 1790 PRINT "restored to maximum<br/> ."<br/> 1800 RETURN <br/> 1810 REM Player Dead<br/> 1820 PRINT : PRINT "You have di<br/> ed. Would you like"<br/> 1830 PRINT "to play again (Y/N)<br/> ";<br/> 1840 INPUT C$<br/> 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> PRINT CHR$ (4)"CHAIN WARLO<br/> CK,@40"<br/> 1870 END <br/> 1890 REM Run<br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn'<br/> t get away."<br/> 1920 GOTO 1630<br/> 1930 M$ = "guard":ML = 150:MS = <br/> 100<br/> 1940 RETURN <br/> 1950 M$ = "vampire":ML = 180:MS = <br/> 80<br/> 1960 RETURN <br/> 10000 N = 0:S = 0:E = 1:W = 0:U = <br/> 1:D = 0<br/> 10010 PRINT "You are standing a<br/> t the bottom of a"<br/> 10020 PRINT "huge spiral stairc<br/> ase. From here you"<br/> 10030 PRINT "can go up the stai<br/> rs or East."<br/> 10040 RETURN <br/> 10200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10210 PRINT "The fine carpet fr<br/> om the stairway"<br/> 10220 PRINT "continues westward<br/> through this room."<br/> 10230 PRINT "There is also a do<br/> or to the South."<br/> 10240 PRINT "From this room you<br/> can go East, West,"<br/> 10250 PRINT "or South."<br/> 10260 RETURN <br/> 10400 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10410 PRINT "In this room there<br/> is a fancy stained"<br/> 10420 PRINT "glass window on th<br/> e northern wall."<br/> 10430 PRINT "You can go either <br/> East or West from"<br/> 10440 PRINT "here."<br/> 10450 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10610 PRINT "There is an armor <br/> display along the"<br/> 10620 PRINT "northern and south<br/> ern walls in this"<br/> 10630 PRINT "room. You can go E<br/> ast or West."<br/> 10640 RETURN <br/> 10800 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10810 PRINT "You are in a finel<br/> y decorated room"<br/> 10820 PRINT "with a huge throne<br/> from which the"<br/> 10830 PRINT "Warlock pretends t<br/> o rule this region."<br/> 10840 PRINT "Exits are to the E<br/> ast, West, and"<br/> 10850 PRINT "South."<br/> 10860 RETURN <br/> 11000 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11010 PRINT "There is an armor <br/> display along the"<br/> 11020 PRINT "northern and south<br/> ern walls in this"<br/> 11030 PRINT "room. You can go E<br/> ast or West."<br/> 11040 RETURN <br/> 11200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11210 PRINT "This room has a st<br/> ained glass window"<br/> 11220 PRINT "with an image of T<br/> rogdor, the dragon"<br/> 11230 PRINT "which destroyed yo<br/> ur cousin's"<br/> 11240 PRINT "thatched roof cott<br/> age. From here you"<br/> 11250 PRINT "can go either East<br/> or West."<br/> 11260 RETURN <br/> 11400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11410 PRINT "You are in a room <br/> with a fine carpet"<br/> 11420 PRINT "which branches out<br/> in the three exits"<br/> 11430 PRINT "to the East, West,<br/> and South."<br/> 11440 RETURN <br/> 11600 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 11610 PRINT "You are in the cas<br/> tle's guest"<br/> 11620 PRINT "quarters. You can <br/> close and lock the"<br/> 11630 PRINT "door here. Would y<br/> ou like to rest for"<br/> 11640 PRINT "the night (Y/N)";<br/> 11650 INPUT C$: IF C$ = "" THEN <br/> GOTO 11650<br/> 11660 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 11670 C$ = CHR$ (C)<br/> 11680 IF C$ = "Y" THEN PL = PM:<br/> PRINT "You feel refreshed."<br/><br/> 11690 PRINT "You can only go We<br/> st from here."<br/> 11700 RETURN <br/> 11800 N = 0:S = 0:E = 0:W = 0:U = <br/> 1:D = 1<br/> 11810 PRINT "You are in a reall<br/> y long stairwell."<br/> 11820 PRINT "There are no exits<br/> on this floor. You"<br/> 11830 PRINT "can go either up o<br/> r down."<br/> 11840 RETURN <br/> 12000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12010 PRINT "This room is dark <br/> and empty, with a"<br/> 12020 PRINT "lot of dust and co<br/> bwebs. You can go"<br/> 12030 PRINT "South or East from<br/> here."<br/> 12040 RETURN <br/> 12200 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 12210 PRINT "This room is cold <br/> with stone floors"<br/> 12220 PRINT "and stone walls re<br/> miniscent of the"<br/> 12230 PRINT "dungeon. The rooms<br/> to the South and"<br/> 12240 PRINT "West look similar.<br/> All are dimly lit"<br/> 12250 PRINT "and unkempt. You c<br/> an go through the"<br/> 12260 PRINT "door to the North,<br/> or go West or"<br/> 12270 PRINT "South."<br/> 12280 RETURN <br/> 12400 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12410 PRINT "You are in the cor<br/> ner of a winding"<br/> 12420 PRINT "hallway lit by a t<br/> orch on the northern"<br/> 12430 PRINT "wall and displayin<br/> g a suit of armor in"<br/> 12440 PRINT "the corner. Exits <br/> are to the East and"<br/> 12450 PRINT "South."<br/> 12460 RETURN <br/> 12600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 12610 PRINT "This is a well-lit<br/> hall with huge"<br/> 12620 PRINT "paintings decorati<br/> ng the walls. You"<br/> 12630 PRINT "can go East or Wes<br/> t from here."<br/> 12640 RETURN <br/> 12800 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 12810 PRINT "You are standing a<br/> t the end of a"<br/> 12820 PRINT "luxurious red carp<br/> et that leads"<br/> 12830 PRINT "northward. From th<br/> is room you can"<br/> 12840 PRINT "follow the carpet <br/> to the North, or go"<br/> 12850 PRINT "East or West.<br/> 12860 RETURN <br/> 13000 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 13010 PRINT "You are in a hallw<br/> ay that contains"<br/> 13020 PRINT "huge paintings on <br/> the walls. You may"<br/> 13030 PRINT "go East or West."<br/> 13040 RETURN <br/> 13200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 13210 PRINT "This is an elegant<br/> , though fairly"<br/> 13220 PRINT "empty looking area<br/> of the castle. It"<br/> 13230 PRINT "is well lit, with <br/> some minor"<br/> 13240 PRINT "decorations. This <br/> room has exits to"<br/> 13250 PRINT "the East, West, an<br/> d South."<br/> 13260 RETURN <br/> 13400 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13410 PRINT "This room eludes d<br/> escription. You can"<br/> 13420 PRINT "go North, South or<br/> West from it."<br/> 13430 RETURN <br/> 13600 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 13610 PRINT "You are in a comfo<br/> rtable room where"<br/> 13620 PRINT "guests would be en<br/> tertained, if the"<br/> 13630 PRINT "warlock had any. P<br/> ossible exits from"<br/> 13640 PRINT "here are South and<br/> East."<br/> 13650 RETURN <br/> 13800 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13810 PRINT "This is a gaming r<br/> oom, as one might"<br/> 13820 PRINT "have looked in anc<br/> ient days. You can"<br/> 13830 PRINT "recognize an 8 bit<br/> NES, an Atari 2600,"<br/> 13840 PRINT "and the legendary <br/> Apple II. Do not be"<br/> 13850 PRINT "distracted by the <br/> beautiful machines;"<br/> 13860 PRINT "You have an escape<br/> to be making."<br/> 13870 PRINT "You can go South o<br/> r West."<br/> 13880 RETURN <br/> 14000 N = 1:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 14010 PRINT "It's somewhat cold<br/> in here. There's a"<br/> 14020 PRINT "narrow passageway <br/> to the South with a"<br/> 14030 PRINT "light coming from <br/> the end. Also, you"<br/> 14040 PRINT "can go North or Ea<br/> st."<br/> 14050 RETURN <br/> 14200 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 14210 PRINT "You are in a cold,<br/> dark, dungeon-like"<br/> 14220 PRINT "room. From this lo<br/> cation you can go"<br/> 14230 PRINT "either North or We<br/> st."<br/> 14240 RETURN <br/> 14400 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 14410 PRINT "You are in the mid<br/> dle of a winding"<br/> 14420 PRINT "hallway, which des<br/> pite the stone"<br/> 14430 PRINT "walls and floors i<br/> s quite decorative"<br/> 14440 PRINT "and luxurious. You<br/> can continue down"<br/> 14450 PRINT "the hallway to the<br/> North or South."<br/> 14460 RETURN <br/> 14600 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 14610 PRINT "The northwest corn<br/> er of this room"<br/> 14620 PRINT "contains a curious<br/> -looking statue."<br/> 14630 PRINT "Obvious exits from<br/> here are East and"<br/> 14640 PRINT "South."<br/> 14650 RETURN <br/> 14800 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 14810 PRINT "This would be an e<br/> legant room, if not"<br/> 14820 PRINT "for the huge, hide<br/> ous painting of the"<br/> 14830 PRINT "warlock on the nor<br/> thern wall. This is"<br/> 14840 PRINT "the end of a hallw<br/> ay that continues"<br/> 14850 PRINT "South, or branches<br/> out to the East and"<br/> 14860 PRINT "West."<br/> 14870 RETURN <br/> 15000 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 15010 PRINT "The northeast corn<br/> er of this room"<br/> 15020 PRINT "contains a creepy <br/> looking statue. The"<br/> 15030 PRINT "only directions av<br/> ailable to you from"<br/> 15040 PRINT "this part of the c<br/> astle are South and"<br/> 15050 PRINT "West."<br/> 15060 RETURN <br/> 15200 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 15210 PRINT "This room is not v<br/> ery interesting. In"<br/> 15220 PRINT "fact, it is not in<br/> teresting at all."<br/> 15230 PRINT "You are completely<br/> bored just by being"<br/> 15240 PRINT "here. Quick, get o<br/> ut of here by going"<br/> 15250 PRINT "toward one of the <br/> available exits, to"<br/> 15260 PRINT "the North or East!<br/> "<br/> 15270 RETURN <br/> 15400 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15410 PRINT "A large, imposing <br/> statue of the"<br/> 15420 PRINT "warlock stands in <br/> the center of this"<br/> 15430 PRINT "room. You can go a<br/> round the statue to"<br/> 15440 PRINT "the rooms to the N<br/> orth, South, East or"<br/> 15450 PRINT "West."<br/> 15460 RETURN <br/> 15600 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15610 PRINT "From here you can <br/> see a comfortable"<br/> 15620 PRINT "looking area to th<br/> e North, and a large"<br/> 15630 PRINT "table with chairs <br/> to the South. You"<br/> 15640 PRINT "can travel toward <br/> these, or the other"<br/> 15650 PRINT "exits to the East <br/> and West."<br/> 15660 RETURN <br/> 15800 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 15810 PRINT "You are in a relat<br/> ively empty area"<br/> 15820 PRINT "between an intrigu<br/> ing room to the"<br/> 15830 PRINT "North and a dining<br/> area to the South."<br/> 15840 PRINT "You can go North, <br/> South, or West from"<br/> 15850 PRINT "here."<br/> 15860 RETURN <br/> 16000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 16010 PRINT "You are in a narro<br/> w passageway with a"<br/> 16020 PRINT "light emanating fr<br/> om the South. You"<br/> 16030 PRINT "can go either Sout<br/> h or North from"<br/> 16040 PRINT "here."<br/> 16050 RETURN <br/> 16200 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 16210 PRINT "This room winds fr<br/> om the South to the"<br/> 16220 PRINT "East (which are yo<br/> ur available exits)."<br/> 16230 RETURN <br/> 16400 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 16410 PRINT "This is a corner o<br/> f a long, winding,"<br/> 16420 PRINT "but well decorated<br/> passageway. From"<br/> 16430 PRINT "here you can trave<br/> l either North or"<br/> 16440 PRINT "West. "<br/> 16450 RETURN <br/> 16600 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 16610 PRINT "This is a relative<br/> ly ordinary hallway"<br/> 16620 PRINT "with suits of armo<br/> r lining the walls."<br/> 16630 PRINT "You can go either <br/> North or South."<br/> 16640 RETURN <br/> 16800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 16810 PRINT "This is an elegant<br/> ly decorated hall"<br/> 16820 PRINT "with fine tapestri<br/> es hanging down"<br/> 16830 PRINT "along the walls. I<br/> t branches out North"<br/> 16840 PRINT "of here. You can g<br/> o North or South."<br/> 16850 RETURN <br/> 17000 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 17010 PRINT "This is an area of<br/> the castle from"<br/> 17020 PRINT "which you can go e<br/> ither North or"<br/> 17030 PRINT "East."<br/> 17040 RETURN <br/> 17200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17210 PRINT "You are at the beg<br/> inning of what looks"<br/> 17220 PRINT "to be a winding pa<br/> ssageway to the"<br/> 17230 PRINT "West. You can go d<br/> own the passageway,"<br/> 17240 PRINT "or head East from <br/> here."<br/> 17250 RETURN <br/> 17400 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17410 PRINT "This is a room of <br/> many options. You"<br/> 17420 PRINT "see a dining area <br/> to the East, a"<br/> 17430 PRINT "passageway to the <br/> West, some statues"<br/> 17440 PRINT "South of here, and<br/> nothing"<br/> 17450 PRINT "particularly inter<br/> esting to the"<br/> 17460 PRINT "North. Your option<br/> s are North, South,"<br/> 17470 PRINT "East, or West."<br/> 17480 RETURN <br/> 17600 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17610 PRINT "You are standing a<br/> t the western end"<br/> 17620 PRINT "of a large dining <br/> room. There is a"<br/> 17630 PRINT "huge table with la<br/> rge fancy chairs in"<br/> 17640 PRINT "here. Available ex<br/> its are North, East,"<br/> 17650 PRINT "and West."<br/> 17660 RETURN <br/> 17800 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 17810 PRINT "This is the easter<br/> n end of a large"<br/> 17820 PRINT "dining room. There<br/> is a lot of food on"<br/> 17830 PRINT "the table that you<br/> can't eat in this"<br/> 17840 PRINT "game, unless you r<br/> ewrite it yourself."<br/> 17850 PRINT "You can go North, <br/> South, or West."<br/> 17860 RETURN <br/> 18000 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0<br/> 18010 PRINT "There is a bubblin<br/> g pot of witches"<br/> 18020 PRINT "brew in this room,<br/> and some skulls and"<br/> 18030 PRINT "potions on some sh<br/> elves. You can only"<br/> 18040 PRINT "go North from here<br/> .<br/> 18050 RETURN <br/> 18200 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 18210 PRINT "The passageway win<br/> ds around northward"<br/> 18220 PRINT "and straightens ou<br/> t somewhat toward"<br/> 18230 PRINT "the East. You can <br/> go North or East."<br/> 18240 RETURN <br/> 18400 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 18410 PRINT "There are some tap<br/> estries on the North"<br/> 18420 PRINT "and South walls, b<br/> ut not much else of"<br/> 18430 PRINT "note here. You can<br/> go either East or"<br/> 18440 PRINT "West from here.<br/> 18450 RETURN <br/> 18600 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 18610 PRINT "There is a statue <br/> of the killer rabbit"<br/> 18620 PRINT "from 'Monty Python<br/> and the Holy Grail'"<br/> 18630 PRINT "in here. Your opti<br/> ons are North and"<br/> 18640 PRINT "West."<br/> 18650 RETURN <br/> 18800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 18810 PRINT "This is a very gra<br/> nd, impressive"<br/> 18820 PRINT "room, even moreso <br/> to you since it is"<br/> 18830 PRINT "the lobby at the e<br/> ntrance of the"<br/> 18840 PRINT "castle. You can go<br/> North from here,"<br/> 18850 PRINT "or try out the hug<br/> e doors to the"<br/> 18860 PRINT "South."<br/> 18870 RETURN <br/> 19000 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 19010 PRINT "This room is the c<br/> astle's art gallery,"<br/> 19020 PRINT "and contains many <br/> huge paintings. A"<br/> 19030 PRINT "great number of th<br/> em depicting various"<br/> 19040 PRINT "well-known wizards<br/> , clerics and"<br/> 19060 PRINT "witches. You can o<br/> nly go East from"<br/> 19070 PRINT "here."<br/> 19080 RETURN <br/> 19200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 19210 PRINT "Apparently this is<br/> a showroom for the"<br/> 19220 PRINT "display of many el<br/> egant tapestries"<br/> 19230 PRINT "which line the wal<br/> ls. You can go East"<br/> 19240 PRINT "or West from here.<br/> "<br/> 19250 RETURN <br/> 19400 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 19410 PRINT "This room has seve<br/> ral statues on"<br/> 19420 PRINT "display. You get t<br/> he eerie feeling"<br/> 19430 PRINT "that some of them <br/> might be actual"<br/> 19440 PRINT "people turned to s<br/> tone. You can go"<br/> 19450 PRINT "North or West from<br/> here."<br/> 19460 RETURN <br/> 19600 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 19610 PRINT "You find yourself <br/> in what appears to"<br/> 19620 PRINT "be the chef's quar<br/> ters -- a much nicer"<br/> 19630 PRINT "living area than t<br/> he dungeon cook's."<br/> 19640 PRINT "The only exit from<br/> here is East."<br/> 19650 RETURN <br/> 19800 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 19810 PRINT "This is the kitche<br/> n area where fine"<br/> 19820 PRINT "meals are prepared<br/> . You can go North"<br/> 19830 PRINT "or West from here.<br/> "<br/> 19840 RETURN<br/><br/>File: WARLOCK2<br/> 1 GOTO 10<br/> 2 POKE 2213,48 + G - INT (G / <br/> 10) * 10: POKE 2212,48 + INT <br/> ((G - INT (G / 100) * 100) / <br/> 10): POKE 2211,48 + INT ((G<br/> - INT (G / 1000) * 1000) / <br/> 100): POKE 2210,48 + INT ((<br/> G - INT (G / 10000) * 10000<br/> ) / 1000): POKE 2209,48 + INT <br/> (G / 10000): GOSUB 00000: RETURN <br/><br/> 10 REM The Warlock's Castle<br/> 20 REM By Jeremiah Stoddard<br/> 30 GOTO 1000<br/> 900 REM Save Game<br/> 910 PRINT : INPUT "Enter a file<br/> name: ";C$<br/> 920 PRINT CHR$ (4)"OPEN "C$<br/> 930 PRINT CHR$ (4)"WRITE "C$<br/> 940 PRINT PL: PRINT PM: PRINT E<br/> X: PRINT LE: PRINT PS<br/> 950 PRINT SW: PRINT AR<br/> 960 PRINT F: PRINT X: PRINT Y<br/> 970 PRINT CHR$ (4)"CLOSE "C$<br/> 980 RETURN <br/> 1000 REM Play Game<br/> 1010 PRINT : PRINT "Floor: ";<br/> 1020 IF F = 1 THEN PRINT "B";:<br/> GOTO 1040<br/> 1030 PRINT F - 1;<br/> 1040 PRINT " Room: "X","Y" HP: <br/> "PL<br/> 1050 PRINT <br/> 1060 G = 10000 + Y * 2000 + X * <br/> 200<br/> 1070 GOSUB 2<br/> 1080 PRINT : PRINT "What do you<br/> want to do";<br/> 1090 INPUT C$<br/> 1100 IF C$ = "" THEN GOTO 1080<br/><br/> 1110 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 1120 C$ = CHR$ (C)<br/> 1130 IF C$ = "N" AND N = 1 THEN <br/> Y = Y - 1<br/> 1140 IF C$ = "S" AND S = 1 THEN <br/> Y = Y + 1<br/> 1150 IF C$ = "E" AND E = 1 THEN <br/> X = X + 1<br/> 1160 IF C$ = "W" AND W = 1 THEN <br/> X = X - 1<br/> 1170 IF C$ = "U" AND U = 1 THEN <br/> F = F + 1: PRINT CHR$ (4);"<br/> CHAIN WARLOCK3"<br/> 1180 IF C$ = "D" AND D = 1 THEN <br/> F = F - 1: PRINT CHR$ (4);"<br/> CHAIN WARLOCK1"<br/> 1190 IF C$ = "A" THEN GOSUB 90<br/> 0<br/> 1200 IF C$ = "Q" THEN END <br/> 1210 IF Y = 5 THEN GOTO 1300<br/> 1220 IF RND (1) > 0.85 THEN GOSUB <br/> 1500<br/> 1230 GOTO 1000<br/> 1300 REM Player has won!<br/> 1310 HOME : PRINT : PRINT <br/> 1320 PRINT "Congratulations! Yo<br/> u have finally"<br/> 1330 PRINT "escaped the Warlock<br/> 's Castle. You can"<br/> 1340 PRINT "now go home and sav<br/> e your family's"<br/> 1350 PRINT "land. Good Work!!!"<br/><br/> 1360 PRINT : PRINT : PRINT <br/> 1370 PRINT "Play Again (Y/N)";<br/> 1380 INPUT C$<br/> 1390 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40<br/> 1400 END <br/> 1500 REM Monster subroutine<br/> 1510 M = INT ( RND (1) * 2) + 1<br/><br/> 1520 ON M GOSUB 1930,1950<br/> 1530 PRINT : PRINT "A "M$" atta<br/> cks!"<br/> 1540 PRINT : PRINT "You have "P<br/> L" hit points."<br/> 1550 PRINT "You may Fight or Ru<br/> n."<br/> 1560 INPUT "What do you want to<br/> do?";C$<br/> 1570 IF C$ = "R" OR C$ = "r" THEN <br/> GOTO 1890<br/> 1580 PA = INT ( RND (1) * PS) * <br/> (1 + SW) + 1<br/> 1590 ML = ML - PA<br/> 1600 PRINT : PRINT "You attacke<br/> d and dealt "PA" damage to"<br/> 1610 PRINT "the "M$"."<br/> 1620 IF ML &lt; 1 THEN GOTO 1680<br/> 1630 MA = INT ( RND (1) * MS / <br/> (AR + 1)) + 1:PL = PL - MA<br/> 1640 PRINT : PRINT "The "M$" de<br/> alt "MA" damage"<br/> 1650 PRINT "to you."<br/> 1660 IF PL &lt; 1 THEN GOTO 1810<br/> 1670 GOTO 1540<br/> 1680 REM Monster Dead<br/> 1690 PRINT : PRINT "You have va<br/> nquished the Monster!"<br/> 1700 EX = EX + INT ( RND (1) * <br/> MS / 2) + 2<br/> 1710 IF EX &lt; LE * 20 THEN RETURN <br/><br/> 1720 LE = LE + 1:PS = PS + INT <br/> ( RND (1) * 5) + 1<br/> 1730 PM = PM + 5:PL = PM<br/> 1740 PRINT "Congratulations! Yo<br/> u have been"<br/> 1750 PRINT "promoted to level "<br/> LE". Your maximum"<br/> 1760 PRINT "hit points have bee<br/> n increased by 5,"<br/> 1770 PRINT "and your strength h<br/> as increased."<br/> 1780 PRINT "Your hit points hav<br/> e also been"<br/> 1790 PRINT "restored to maximum<br/> ."<br/> 1800 RETURN <br/> 1810 REM Player Dead<br/> 1820 PRINT : PRINT "You have di<br/> ed. Would you like"<br/> 1830 PRINT "to play again (Y/N)<br/> ";<br/> 1840 INPUT C$<br/> 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> PRINT CHR$ (4)"CHAIN WARLO<br/> CK,@40"<br/> 1870 END <br/> 1890 REM Run<br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn'<br/> t get away."<br/> 1920 GOTO 1630<br/> 1930 M$ = "zombie":ML = 60:MS = <br/> 16<br/> 1940 RETURN <br/> 1950 M$ = "magician":ML = 50:MS = <br/> 20<br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 1<br/> 10010 PRINT "You are at the top<br/> of an extremely"<br/> 10020 PRINT "elegant staircase <br/> leading downward."<br/> 10030 PRINT "From this point yo<br/> u can either go Down"<br/> 10040 PRINT "the stairs or Sout<br/> h."<br/> 10050 RETURN <br/> 10200 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 10210 PRINT "There is a treasur<br/> e chest here,"<br/> 10220 IF AR &lt; 3 THEN GOTO 1026<br/> 0<br/> 10230 PRINT "but it has already<br/> been opened."<br/> 10240 PRINT "From here you can <br/> only go East."<br/> 10250 RETURN <br/> 10260 PRINT "do you want to ope<br/> n it (Y/N)";<br/> 10270 INPUT C$: IF C$ = "" THEN <br/> GOTO 10270<br/> 10280 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 10290 C$ = CHR$ (C)<br/> 10300 IF C$ &lt; > "Y" THEN GOTO <br/> 10240<br/> 10310 AR = 3<br/> 10320 PRINT "You've found a shi<br/> eld! This improves"<br/> 10330 PRINT "your defense signi<br/> ficantly!"<br/> 10340 GOTO 10240<br/> 10400 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10410 PRINT "There are shelves <br/> along the walls in"<br/> 10420 PRINT "this room containi<br/> ng magical items"<br/> 10430 PRINT "which are complete<br/> ly unfamiliar to"<br/> 10440 PRINT "you. You can leave<br/> this place to the"<br/> 10450 PRINT "East or to the Wes<br/> t."<br/> 10460 RETURN <br/> 10600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10610 PRINT "You are in a dusty<br/> room that doesn't"<br/> 10620 PRINT "look like it is en<br/> tered or used too"<br/> 10630 PRINT "much. From here yo<br/> u can go either East"<br/> 10640 PRINT "or West."<br/> 10650 RETURN <br/> 10800 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10810 PRINT "There is a picture<br/> of the warlock on"<br/> 10820 PRINT "the northern wall.<br/> Its eyes seem to"<br/> 10830 PRINT "follow you as you <br/> move. You can go"<br/> 10840 PRINT "South, East, or We<br/> st from this"<br/> 10850 PRINT "location."<br/> 10860 RETURN <br/> 11000 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11010 PRINT "You are facing a l<br/> arge statue of an"<br/> 11020 PRINT "ogre. The wizard l<br/> iked to keep some"<br/> 11030 PRINT "pretty gruesome th<br/> ings around. You"<br/> 11040 PRINT "can go South, East<br/> , or West from here."<br/> 11050 RETURN <br/> 11200 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 11210 PRINT "You can almost see<br/> outside through a"<br/> 11220 PRINT "crack in the north<br/> ern wall here. This"<br/> 11230 PRINT "castle has apparen<br/> tly been around much"<br/> 11240 PRINT "longer than the wa<br/> rlock. You can go"<br/> 11250 PRINT "South or West."<br/> 11260 RETURN <br/> 11400 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 11410 PRINT "There is nothing s<br/> pecial about this"<br/> 11420 PRINT "room, but the door<br/> to the East is"<br/> 11430 PRINT "slightly ajar. You<br/> can enter that"<br/> 11440 PRINT "room by going East<br/> , or you can go"<br/> 11450 PRINT "South."<br/> 11460 RETURN <br/> 11600 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 11610 PRINT "This is an extreme<br/> ly opulent bedroom"<br/> 11620 PRINT "with a huge luxuri<br/> ous bed. The door"<br/> 11630 PRINT "can easily be clos<br/> ed and locked. Would"<br/> 11640 PRINT "you like to stay h<br/> ere and rest for the"<br/> 11650 PRINT "night (Y/N)";<br/> 11660 INPUT C$: IF C$ = "" THEN <br/> GOTO 11660<br/> 11670 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 11680 C$ = CHR$ (C)<br/> 11690 IF C$ = "Y" THEN PL = PM:<br/> PRINT "You feel refreshed."<br/><br/> 11700 PRINT "You can only go We<br/> st from here."<br/> 11710 RETURN <br/> 11800 N = 0:S = 0:E = 0:W = 0:U = <br/> 1:D = 1<br/> 11810 PRINT "You are in the mid<br/> dle of a really"<br/> 11820 PRINT "long staircase. Yo<br/> u can continue on"<br/> 11830 PRINT "Up or Down the sta<br/> irs."<br/> 11840 RETURN <br/> 12000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 12010 PRINT "From here you can <br/> head North toward"<br/> 12020 PRINT "an extravagant sta<br/> ircase you see in"<br/> 12030 PRINT "that direction, or<br/> you can go South."<br/> 12040 RETURN <br/> 12200 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12210 PRINT "There's a statue i<br/> n the northwest"<br/> 12220 PRINT "corner of this roo<br/> m of a slender man"<br/> 12230 PRINT "holding an upright<br/> spear. You can go"<br/> 12240 PRINT "either South or Ea<br/> st from here."<br/> 12250 RETURN <br/> 12400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 12410 PRINT "This is a nondescr<br/> ipt room with exits"<br/> 12420 PRINT "to the South, East<br/> , and West."<br/> 12430 RETURN <br/> 12600 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 12610 PRINT "This room is fairl<br/> y empty except for"<br/> 12620 PRINT "a torch on the nor<br/> thern wall which"<br/> 12630 PRINT "provides the ambie<br/> nt light. You can"<br/> 12640 PRINT "go South, East, or<br/> West from here."<br/> 12650 RETURN <br/> 12800 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 12810 PRINT "You may as well pi<br/> ck your favorite"<br/> 12820 PRINT "direction, because<br/> you can go any of"<br/> 12830 PRINT "North, South, East<br/> , or West from this"<br/> 12840 PRINT "place."<br/> 12850 RETURN <br/> 13000 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 13010 PRINT "There is a giant s<br/> pider hanging from"<br/> 13020 PRINT "the ceiling here. <br/> Luckily it looks"<br/> 13030 PRINT "dead, but you stil<br/> l consider it best"<br/> 13040 PRINT "to move along, jus<br/> t in case. You can"<br/> 13050 PRINT "go North, South, E<br/> ast, or West."<br/> 13060 RETURN <br/> 13200 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13210 PRINT "There is a large m<br/> ap of the entire"<br/> 13220 PRINT "region on the east<br/> ern wall of this"<br/> 13230 PRINT "room. The map cont<br/> ains markings over"<br/> 13240 PRINT "various areas of l<br/> and, including your"<br/> 13250 PRINT "family's land. You<br/> can go North,"<br/> 13260 PRINT "South, or West fro<br/> m here."<br/> 13270 RETURN <br/> 13400 N = 1:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 13410 PRINT "This room is lit b<br/> y light coming from"<br/> 13420 PRINT "East of here. Ther<br/> e are exits to the"<br/> 13430 PRINT "North, to the Sout<br/> h, and to the East."<br/> 13440 RETURN <br/> 13600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 13610 PRINT "You are in a passa<br/> geway with torches"<br/> 13620 PRINT "on the walls to th<br/> e North and South"<br/> 13630 PRINT "which provide ligh<br/> t to this area of"<br/> 13640 PRINT "the castle. You ca<br/> n go to the East,"<br/> 13650 PRINT "or to the West fro<br/> m here."<br/> 13660 RETURN <br/> 13800 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13810 PRINT "The walls here see<br/> m to dance with"<br/> 13820 PRINT "flickering light c<br/> oming from the West."<br/> 13830 PRINT "A bubbling sound i<br/> s emanating from a"<br/> 13840 PRINT "southerly directio<br/> n. Your options here"<br/> 13850 PRINT "are West and South<br/> ."<br/> 13860 RETURN <br/> 14000 N = 1:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 14010 PRINT "You notice a payph<br/> one on the western"<br/> 14020 PRINT "wall and wonder if<br/> it isn't a bit"<br/> 14030 PRINT "anachronistic. Nev<br/> er mind, there are"<br/> 14040 PRINT "weirder things tha<br/> n that in this"<br/> 14050 PRINT "castle. From here <br/> you can go North,"<br/> 14060 PRINT "South, or East."<br/> 14070 RETURN <br/> 14200 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 14210 PRINT "There is a pillar <br/> in the center of"<br/> 14220 PRINT "this room. Do you <br/> want to angrily"<br/> 14230 PRINT "knock it down (Y/N<br/> )";<br/> 14240 INPUT C$: IF C$ = "Y" OR <br/> C$ = "y" THEN GOTO 14280<br/> 14250 PRINT "Your options are N<br/> orth, South, East,"<br/> 14260 PRINT "or West."<br/> 14270 RETURN <br/> 14280 PRINT "Well, that was a f<br/> ruitless endeavor."<br/> 14290 PRINT "You managed to blo<br/> ody your hands a"<br/> 14300 PRINT "bit without making<br/> a dent in the"<br/> 14310 PRINT "pillar."<br/> 14320 GOTO 14250<br/> 14400 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 14410 PRINT "You see a bit of b<br/> lood smeared on the"<br/> 14420 PRINT "wall to the South <br/> and wonder whose it"<br/> 14430 PRINT "might be. Exits ar<br/> e to the North,"<br/> 14440 PRINT "East, and West."<br/> 14450 RETURN <br/> 14600 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 14610 PRINT "There is a tall, t<br/> hin metal stand in"<br/> 14620 PRINT "the southeast corn<br/> er upon which sits"<br/> 14630 PRINT "a lighted candlest<br/> ick. Beyond that the"<br/> 14640 PRINT "room is vacant. Yo<br/> u can go North or"<br/> 14650 PRINT "West from here."<br/> 14660 RETURN <br/> 14800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 14810 PRINT "There are bare sto<br/> ne walls to the"<br/> 14820 PRINT "East and West, and<br/> dust all over."<br/> 14830 PRINT "The most appealing<br/> thing about this"<br/> 14840 PRINT "room is that there<br/> are exits to the"<br/> 14850 PRINT "North and to the S<br/> outh."<br/> 14860 RETURN <br/> 15000 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 15010 PRINT "In the southwest c<br/> orner of this room"<br/> 15020 PRINT "you can see a pede<br/> stal upon which is"<br/> 15030 PRINT "a statue of a rabb<br/> it. It looks eerily"<br/> 15040 PRINT "similar to the kil<br/> ler rabbit from"<br/> 15050 PRINT "Monty Python and t<br/> he Holy Grail. You"<br/> 15060 PRINT "can leave this roo<br/> m to the North or"<br/> 15070 PRINT "to the East."<br/> 15080 RETURN <br/> 15200 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15210 PRINT "The stone wall at <br/> the southern end of"<br/> 15220 PRINT "this room has what<br/> looks to be claw"<br/> 15230 PRINT "marks scratched in<br/> to it. You hope you"<br/> 15240 PRINT "don't meet whateve<br/> r it was that made"<br/> 15250 PRINT "those marks. Avail<br/> able exits are"<br/> 15260 PRINT "North, East, and W<br/> est."<br/> 15270 RETURN <br/> 15400 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15410 PRINT "You don't see much<br/> in this room, just"<br/> 15420 PRINT "doors in every dir<br/> ection. Well, except"<br/> 15430 PRINT "for up and down, t<br/> hat is. You can go"<br/> 15440 PRINT "North, South, East<br/> , or West from here."<br/> 15450 RETURN <br/> 15600 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 15610 PRINT "There is a large t<br/> able in this room"<br/> 15620 PRINT "which contains a m<br/> ap covered with"<br/> 15630 PRINT "little figurines o<br/> f soldiers,"<br/> 15640 PRINT "monsters, and magi<br/> cians. It looks as"<br/> 15650 PRINT "though the warlock<br/> is plotting an all"<br/> 15660 PRINT "out war against th<br/> e inhabitants of"<br/> 15670 PRINT "this land. You can<br/> only go West from"<br/> 15680 PRINT "this room."<br/> 15690 RETURN <br/> 15800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 15810 PRINT "You are surrounded<br/> by bubbling potions"<br/> 15820 PRINT "and various appara<br/> tus which you don't"<br/> 15830 PRINT "understand. There <br/> are also scrolls"<br/> 15840 PRINT "lying about with s<br/> pells written on"<br/> 15850 PRINT "them. You can go N<br/> orth or South from"<br/> 15860 PRINT "here."<br/> 15870 RETURN <br/> 16000 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 16010 PRINT "There is an iron m<br/> aiden in the"<br/> 16020 PRINT "southwest corner o<br/> f this room. This"<br/> 16030 PRINT "doesn't look like <br/> a really fun place."<br/> 16040 PRINT "You can go North o<br/> r East from here."<br/> 16050 RETURN <br/> 16200 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 16210 PRINT "You can see a few <br/> cobwebs, especially"<br/> 16220 PRINT "in the southeast c<br/> orner, but there's"<br/> 16230 PRINT "not much else of i<br/> nterest in this"<br/> 16240 PRINT "room. You can go N<br/> orth or West from"<br/> 16250 PRINT "here."<br/> 16260 RETURN <br/> 16400 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 16410 PRINT "You are in a relat<br/> ively dark room. You"<br/> 16420 PRINT "can't see much of <br/> anything in here,"<br/> 16430 PRINT "but there is an ex<br/> it to the East."<br/> 16440 RETURN <br/> 16600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 16610 PRINT "This area of the c<br/> astle is not too"<br/> 16620 PRINT "well lit. There is<br/> an exit to the"<br/> 16630 PRINT "West, but it's too<br/> dark to see what"<br/> 16640 PRINT "might lie in that <br/> direction. There"<br/> 16650 PRINT "is also a better-l<br/> it exit to the"<br/> 16660 PRINT "East."<br/> 16670 RETURN <br/> 16800 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 16810 PRINT "A torch on the sou<br/> thern wall lights"<br/> 16820 PRINT "this room. You can<br/> leave via exits to"<br/> 16830 PRINT "the North, East, a<br/> nd West."<br/> 16840 RETURN <br/> 17000 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17010 PRINT "Despite the feelin<br/> g of claustrophobia"<br/> 17020 PRINT "that you get from <br/> this room, there are"<br/> 17030 PRINT "exits to the South<br/> , East, and West."<br/> 17040 RETURN <br/> 17200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17210 PRINT "Stone walls line t<br/> his room, notable"<br/> 17220 PRINT "for its lack of an<br/> y appealing decor."<br/> 17230 PRINT "To the East and to<br/> the West are your"<br/> 17240 PRINT "available ways out<br/> ."<br/> 17250 RETURN <br/> 17400 N = 1:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 17410 PRINT "A pterodactyl stat<br/> ue stands guard in"<br/> 17420 PRINT "the center of this<br/> room, which has"<br/> 17430 PRINT "exits in the follo<br/> wing directions:"<br/> 17440 PRINT "North, South, East<br/> , and West."<br/> 17450 RETURN <br/> 17600 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 17610 PRINT "There are bits of <br/> iron on the ground"<br/> 17620 PRINT "here from what app<br/> arently used to be"<br/> 17630 PRINT "a cage or a cell S<br/> outh of here. You"<br/> 17640 PRINT "can go South or We<br/> st from here."<br/> 17650 RETURN <br/> 17800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 17810 PRINT "A desk stands in t<br/> he center of this"<br/> 17820 PRINT "room with a lighte<br/> d candle on top. The"<br/> 17830 PRINT "walls are lined wi<br/> th row upon row of"<br/> 17840 PRINT "books. Apparently <br/> this is the castle's"<br/> 17850 PRINT "library, and a con<br/> venient place for"<br/> 17860 PRINT "the warlock to stu<br/> dy the dark arts."<br/> 17870 PRINT "You can go North o<br/> r South from here."<br/> 17880 RETURN <br/> 18000 N = 0:S = 0:E = 1:W = 0:U = <br/> 1:D = 0<br/> 18010 PRINT "You are standing a<br/> t the bottom of a"<br/> 18020 PRINT "rickety old stairc<br/> ase. You can go Up"<br/> 18030 PRINT "the stairs or head<br/> East."<br/> 18040 RETURN <br/> 18200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 18210 PRINT "You are standing E<br/> ast of a staircase,"<br/> 18220 PRINT "and West of a hall<br/> way, so you can go"<br/> 18230 PRINT "West toward the st<br/> airs, or East into"<br/> 18240 PRINT "the hall."<br/> 18250 RETURN <br/> 18400 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 18410 PRINT "You are in a relat<br/> ively long hallway"<br/> 18420 PRINT "which seems to eva<br/> de description. You"<br/> 18430 PRINT "can go either East<br/> or West."<br/> 18440 RETURN <br/> 18600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 18610 PRINT "You may continue d<br/> own the hallway by"<br/> 18620 PRINT "going in one of th<br/> e available"<br/> 18630 PRINT "directions: East o<br/> r West."<br/> 18640 RETURN <br/> 18800 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 18810 PRINT "This is a hallway.<br/> From here you can"<br/> 18820 PRINT "go either East or <br/> West."<br/> 18830 RETURN <br/> 19000 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 19010 PRINT "This is not a hall<br/> way. This is a room."<br/> 19020 PRINT "This room has exit<br/> s to the North,"<br/> 19030 PRINT "East, and West."<br/> 19040 RETURN <br/> 19200 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 19210 PRINT "You notice some wo<br/> rds etched into the"<br/> 19220 PRINT "stone wall to the <br/> North. The"<br/> 19230 PRINT "inscription reads:<br/> 'No Escape.' Your"<br/> 19240 PRINT "available exits ar<br/> e East and West."<br/> 19250 RETURN <br/> 19400 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 19410 PRINT "There is a paintin<br/> g on the eastern"<br/> 19420 PRINT "wall in this room,<br/> but it is torn up"<br/> 19430 PRINT "so badly you can't<br/> make out what it"<br/> 19440 PRINT "is supposed to loo<br/> k like. You can go"<br/> 19450 PRINT "either North or We<br/> st."<br/> 19460 RETURN <br/> 19600 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0<br/> 19610 PRINT "There are scratche<br/> s and burn marks all"<br/> 19620 PRINT "over the walls, ce<br/> iling, and floor in"<br/> 19630 PRINT "here, not to menti<br/> on the iron bars"<br/> 19640 PRINT "broken and strewn <br/> across the ground."<br/> 19650 PRINT "Apparently the war<br/> lock used to keep a"<br/> 19660 PRINT "dragon caged in he<br/> re. The only way out"<br/> 19670 PRINT "is North."<br/> 19680 RETURN <br/> 19800 N = 1:S = 0:E = 0:W = 0:U = <br/> 0:D = 0<br/> 19810 PRINT "This room seems li<br/> ke a museum. There"<br/> 19820 PRINT "is much art displa<br/> yed, along with"<br/> 19830 PRINT "various weapons yo<br/> u wouldn't know how"<br/> 19840 PRINT "to use. You also n<br/> otice a few fine"<br/> 19850 PRINT "statues and variou<br/> s other precious"<br/> 19860 PRINT "objects. You can l<br/> eave by going North."<br/> 19870 RETURN <br/><br/>File: WARLOCK3<br/> 1 GOTO 10<br/> 2 POKE 2213,48 + G - INT (G / <br/> 10) * 10: POKE 2212,48 + INT <br/> ((G - INT (G / 100) * 100) / <br/> 10): POKE 2211,48 + INT ((G<br/> - INT (G / 1000) * 1000) / <br/> 100): POKE 2210,48 + INT ((<br/> G - INT (G / 10000) * 10000<br/> ) / 1000): POKE 2209,48 + INT <br/> (G / 10000): GOSUB 00000: RETURN <br/><br/> 10 REM The Warlock's Castle<br/> 20 REM By Jeremiah Stoddard<br/> 30 GOTO 1000<br/> 900 REM Save Game<br/> 910 PRINT : INPUT "Enter a file<br/> name: ";C$<br/> 920 PRINT CHR$ (4)"OPEN "C$<br/> 930 PRINT CHR$ (4)"WRITE "C$<br/> 940 PRINT PL: PRINT PM: PRINT E<br/> X: PRINT LE: PRINT PS<br/> 950 PRINT SW: PRINT AR<br/> 960 PRINT F: PRINT X: PRINT Y<br/> 970 PRINT CHR$ (4)"CLOSE "C$<br/> 980 RETURN <br/> 1000 REM Play Game<br/> 1010 PRINT : PRINT "Floor: ";<br/> 1020 IF F = 1 THEN PRINT "B";:<br/> GOTO 1040<br/> 1030 PRINT F - 1;<br/> 1040 PRINT " Room: "X","Y" HP: <br/> "PL<br/> 1050 PRINT <br/> 1060 G = 10000 + Y * 2000 + X * <br/> 200<br/> 1070 GOSUB 2<br/> 1080 PRINT : PRINT "What do you<br/> want to do";<br/> 1090 INPUT C$<br/> 1100 IF C$ = "" THEN GOTO 1080<br/><br/> 1110 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 1120 C$ = CHR$ (C)<br/> 1130 IF C$ = "N" AND N = 1 THEN <br/> Y = Y - 1<br/> 1140 IF C$ = "S" AND S = 1 THEN <br/> Y = Y + 1<br/> 1150 IF C$ = "E" AND E = 1 THEN <br/> X = X + 1<br/> 1160 IF C$ = "W" AND W = 1 THEN <br/> X = X - 1<br/> 1180 IF C$ = "D" AND D = 1 THEN <br/> F = F - 1: PRINT CHR$ (4);"<br/> CHAIN WARLOCK2"<br/> 1190 IF C$ = "A" THEN GOSUB 90<br/> 0<br/> 1200 IF C$ = "Q" THEN END <br/> 1210 IF Y = 5 THEN GOTO 1300<br/> 1220 IF RND (1) > 0.85 THEN GOSUB <br/> 1500<br/> 1230 GOTO 1000<br/> 1300 REM Player has won!<br/> 1310 HOME : PRINT : PRINT <br/> 1320 PRINT "Congratulations! Yo<br/> u have finally"<br/> 1330 PRINT "escaped the Warlock<br/> 's Castle. You can"<br/> 1340 PRINT "now go home and sav<br/> e your family's"<br/> 1350 PRINT "land. Good Work!!!"<br/><br/> 1360 PRINT : PRINT : PRINT <br/> 1370 PRINT "Play Again (Y/N)";<br/> 1380 INPUT C$<br/> 1390 IF C$ = "Y" OR C$ = "y" THEN <br/> GOTO 40<br/> 1400 END <br/> 1500 REM Monster subroutine<br/> 1510 M = INT ( RND (1) * 2) + 1<br/><br/> 1520 ON M GOSUB 1930,1950<br/> 1530 PRINT : PRINT "A "M$" atta<br/> cks!"<br/> 1540 PRINT : PRINT "You have "P<br/> L" hit points."<br/> 1550 PRINT "You may Fight or Ru<br/> n."<br/> 1560 INPUT "What do you want to<br/> do?";C$<br/> 1570 IF C$ = "R" OR C$ = "r" THEN <br/> GOTO 1890<br/> 1580 PA = INT ( RND (1) * PS) * <br/> (1 + SW) + 1<br/> 1590 ML = ML - PA<br/> 1600 PRINT : PRINT "You attacke<br/> d and dealt "PA" damage to"<br/> 1610 PRINT "the "M$"."<br/> 1620 IF ML &lt; 1 THEN GOTO 1680<br/> 1630 MA = INT ( RND (1) * MS / <br/> (AR + 1)) + 1:PL = PL - MA<br/> 1640 PRINT : PRINT "The "M$" de<br/> alt "MA" damage"<br/> 1650 PRINT "to you."<br/> 1660 IF PL &lt; 1 THEN GOTO 1810<br/> 1670 GOTO 1540<br/> 1680 REM Monster Dead<br/> 1690 PRINT : PRINT "You have va<br/> nquished the Monster!"<br/> 1700 EX = EX + INT ( RND (1) * <br/> MS / 2) + 2<br/> 1710 IF EX &lt; LE * 20 THEN RETURN <br/><br/> 1720 LE = LE + 1:PS = PS + INT <br/> ( RND (1) * 5) + 1<br/> 1730 PM = PM + 5:PL = PM<br/> 1740 PRINT "Congratulations! Yo<br/> u have been"<br/> 1750 PRINT "promoted to level "<br/> LE". Your maximum"<br/> 1760 PRINT "hit points have bee<br/> n increased by 5,"<br/> 1770 PRINT "and your strength h<br/> as increased."<br/> 1780 PRINT "Your hit points hav<br/> e also been"<br/> 1790 PRINT "restored to maximum<br/> ."<br/> 1800 RETURN <br/> 1810 REM Player Dead<br/> 1820 PRINT : PRINT "You have di<br/> ed. Would you like"<br/> 1830 PRINT "to play again (Y/N)<br/> ";<br/> 1840 INPUT C$<br/> 1850 POP <br/> 1860 IF C$ = "Y" OR C$ = "y" THEN <br/> PRINT CHR$ (4)"CHAIN WARLO<br/> CK,@40"<br/> 1870 END <br/> 1890 REM Run<br/> 1900 IF RND (1) &lt; 0.85 THEN RETURN <br/><br/> 1910 PRINT : PRINT "You couldn'<br/> t get away."<br/> 1920 GOTO 1630<br/> 1930 M$ = "spider":ML = 15:MS = <br/> 10<br/> 1940 RETURN <br/> 1950 M$ = "ghost":ML = 25:MS = 1<br/> 4<br/> 1960 RETURN <br/> 10000 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 10010 PRINT "The remains of a f<br/> allen soldier are"<br/> 10020 PRINT "lying on the groun<br/> d in this room."<br/> 10030 IF AR &lt; 2 THEN GOTO 1006<br/> 0<br/> 10040 PRINT "You can leave this<br/> room to the South."<br/> 10050 RETURN <br/> 10060 PRINT "Take his armor (Y/<br/> N)";<br/> 10070 INPUT C$<br/> 10080 IF C$ &lt; > "Y" AND C$ &lt; > <br/> "y" THEN GOTO 10040<br/> 10090 PRINT "You now have a sui<br/> t of armor! This"<br/> 10100 PRINT "will provide you w<br/> ith better"<br/> 10110 PRINT "protection during <br/> battles!"<br/> 10120 GOTO 10040<br/> 10200 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 10210 PRINT "You are in a room <br/> containing a"<br/> 10220 PRINT "painting of the dr<br/> eaded 'Teenage"<br/> 10230 PRINT "Mutant Kung Fu Chi<br/> ckens'. Exits are"<br/> 10240 PRINT "to the South and E<br/> ast."<br/> 10250 RETURN <br/> 10400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 10410 PRINT "There is a torch o<br/> n the northern wall"<br/> 10420 PRINT "providing light to<br/> this room. You"<br/> 10430 PRINT "notice the exits w<br/> hich are to the"<br/> 10440 PRINT "South, East, and W<br/> est."<br/> 10450 RETURN <br/> 10600 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 10610 PRINT "You are wading thr<br/> ough water all over"<br/> 10620 PRINT "the floor in this <br/> pungent smelling"<br/> 10630 PRINT "room. From this pl<br/> ace you can go"<br/> 10640 PRINT "either South or We<br/> st."<br/> 10650 RETURN <br/> 10800 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 10810 PRINT "Out of a window to<br/> the North you can"<br/> 10820 PRINT "see the burning co<br/> untryside. The"<br/> 10830 PRINT "warlock has really<br/> devastated the"<br/> 10840 PRINT "area. Exits from t<br/> his room are to the"<br/> 10850 PRINT "South and the East<br/> ."<br/> 10860 RETURN <br/> 11000 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11010 PRINT "A stone wall stand<br/> s ready to impede"<br/> 11020 PRINT "any progress to th<br/> e North, but you"<br/> 11030 PRINT "can go South, East<br/> , or West from here."<br/> 11040 RETURN <br/> 11200 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11210 PRINT "Despite crumbling <br/> walls, there's not"<br/> 11220 PRINT "anything to hold y<br/> our attention in"<br/> 11230 PRINT "this room. You can<br/> leave it by going"<br/> 11240 PRINT "South, East, or We<br/> st."<br/> 11250 RETURN <br/> 11400 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 11410 PRINT "There is a rickety<br/> old door at the"<br/> 11420 PRINT "eastern end of thi<br/> s room. You can go"<br/> 11430 PRINT "East through the d<br/> oor, or you can"<br/> 11440 PRINT "also go South or W<br/> est from here."<br/> 11450 RETURN <br/> 11600 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 11610 PRINT "You are in a room <br/> with a bed and a"<br/> 11620 PRINT "door, both in bad <br/> repair, but the"<br/> 11630 PRINT "place is clean. Th<br/> is is the maid's"<br/> 11640 PRINT "quarters. Would yo<br/> u like to rest for"<br/> 11650 PRINT "the night (Y/N)";<br/> 11660 INPUT C$: IF C$ = "" THEN <br/> GOTO 11660<br/> 11670 C = ASC (C$): IF C > 90 THEN <br/> C = C - 32<br/> 11680 C$ = CHR$ (C)<br/> 11690 IF C$ = "Y" THEN PL = PM:<br/> PRINT "You feel refreshed."<br/><br/> 11700 PRINT "You can only go We<br/> st from here."<br/> 11710 RETURN <br/> 11800 N = 0:S = 1:E = 0:W = 0:U = <br/> 0:D = 1<br/> 11810 PRINT "You have made it t<br/> o the top of a very"<br/> 11820 PRINT "long staircase. Yo<br/> u find yourself in"<br/> 11830 PRINT "the top floor of t<br/> he castle, which is"<br/> 11840 PRINT "in such bad shape <br/> you wonder if it is"<br/> 11850 PRINT "going to crumble d<br/> own right on top of"<br/> 11860 PRINT "you. You can head <br/> back Down the"<br/> 11870 PRINT "stairs, or make yo<br/> ur way South looking"<br/> 11880 PRINT "for an escape from<br/> this place."<br/> 11890 RETURN <br/> 12000 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12010 PRINT "There is dust arou<br/> nd this unkempt part"<br/> 12020 PRINT "of the castle. Pro<br/> bably due to the"<br/> 12030 PRINT "crumbling walls an<br/> d the pile of debris"<br/> 12040 PRINT "to the East, not t<br/> oo many people"<br/> 12050 PRINT "venture this way. <br/> You can go North or"<br/> 12060 PRINT "East."<br/> 12070 RETURN <br/> 12200 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 12210 PRINT "You climb over a p<br/> ile of rocks from"<br/> 12220 PRINT "a ceiling which is<br/> caving in. You can"<br/> 12230 PRINT "get out of this ro<br/> om by heading North"<br/> 12240 PRINT "or West."<br/> 12250 RETURN <br/> 12400 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12410 PRINT "You are in a relat<br/> ively empty room"<br/> 12420 PRINT "with crumbling wal<br/> ls. Exits are to"<br/> 12430 PRINT "the North and the <br/> East."<br/> 12440 RETURN <br/> 12600 N = 1:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 12610 PRINT "This room is marke<br/> d by an imposing"<br/> 12620 PRINT "stone wall on its <br/> eastern side. There"<br/> 12630 PRINT "are cuts into the <br/> wall that probably"<br/> 12640 PRINT "occurred during a <br/> sword fight. You can"<br/> 12650 PRINT "go North, South, o<br/> r West from here."<br/> 12660 RETURN <br/> 12800 N = 1:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 12810 PRINT "Among the rubble o<br/> n the ground are old"<br/> 12820 PRINT "books, weapons, an<br/> d other artifacts."<br/> 12830 PRINT "Age and poor keepi<br/> ng have left them in"<br/> 12840 PRINT "such a condition t<br/> hat they crumble"<br/> 12850 PRINT "when you try to pi<br/> ck them up. You can"<br/> 12860 PRINT "go North, South, o<br/> r East from here."<br/> 12870 RETURN <br/> 13000 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 13010 PRINT "There are some rus<br/> ty chains on the"<br/> 13020 PRINT "southern wall in t<br/> his room. Exits are"<br/> 13030 PRINT "to the North, East<br/> , and West."<br/> 13040 RETURN <br/> 13200 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13210 PRINT "There is a skeleto<br/> n hanging from the"<br/> 13220 PRINT "wall in shackles. <br/> He's certainly been"<br/> 13230 PRINT "there for quite a <br/> while. From this"<br/> 13240 PRINT "room your availabl<br/> e exits are North"<br/> 13250 PRINT "and West."<br/> 13260 RETURN <br/> 13400 N = 1:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 13410 PRINT "There is a door to<br/> the East that is"<br/> 13420 PRINT "hanging partially <br/> open. Not much light"<br/> 13430 PRINT "is coming from tha<br/> t direction. From"<br/> 13440 PRINT "this part of the c<br/> astle you can go"<br/> 13450 PRINT "North, South, or E<br/> ast."<br/> 13460 RETURN <br/> 13600 N = 0:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 13610 PRINT "You are in a close<br/> t. At least it seems"<br/> 13620 PRINT "like a closet desp<br/> ite its large size."<br/> 13630 PRINT "There are brooms a<br/> nd other cleaning"<br/> 13640 PRINT "related objects. F<br/> rom here you can"<br/> 13650 PRINT "only go West."<br/> 13660 RETURN <br/> 13800 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 13810 PRINT "There is a stairwa<br/> y you probably don't"<br/> 13820 PRINT "want to bother wit<br/> h to the North,"<br/> 13830 PRINT "despite the fact t<br/> hat the rest of this"<br/> 13840 PRINT "deteriorating floo<br/> r hardly seems"<br/> 13850 PRINT "appealing. You can<br/> go North or South."<br/> 13860 RETURN <br/> 14000 N = 0:S = 1:E = 1:W = 0:U = <br/> 0:D = 0<br/> 14010 PRINT "Upon a tall stand <br/> in the northwest"<br/> 14020 PRINT "corner stands a lo<br/> ne candlestick,"<br/> 14030 PRINT "bringing light to <br/> this room. From"<br/> 14040 PRINT "here you can go So<br/> uth or East."<br/> 14050 RETURN <br/> 14200 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 14210 PRINT "You notice a singl<br/> e candle giving"<br/> 14220 PRINT "light to this room<br/> from the northeast"<br/> 14230 PRINT "corner. Available <br/> exits are to the"<br/> 14240 PRINT "South or West."<br/> 14250 RETURN <br/> 14400 N = 0:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 14410 PRINT "You find yourself <br/> in a dark, wet, and"<br/> 14420 PRINT "moldy smelling roo<br/> m with a single exit"<br/> 14430 PRINT "toward the East."<br/> 14440 RETURN <br/> 14600 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 14610 PRINT "There is a picture<br/> on the southern"<br/> 14620 PRINT "wall of some great<br/> king from"<br/> 14630 PRINT "yesteryear. It is <br/> damp and covered in"<br/> 14640 PRINT "mold. You can go N<br/> orth, East, or West."<br/> 14650 RETURN <br/> 14800 N = 1:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 14810 PRINT "You notice a putri<br/> d smell coming from"<br/> 14820 PRINT "the West, similar <br/> to the smell coming"<br/> 14830 PRINT "from all other dir<br/> ections. From here"<br/> 14840 PRINT "you can go North, <br/> East, or West."<br/> 14850 RETURN <br/> 15000 N = 0:S = 1:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15010 PRINT "There are markings<br/> on the northern"<br/> 15020 PRINT "wall that look lik<br/> e they might have"<br/> 15030 PRINT "been legible at so<br/> me point in time."<br/> 15040 PRINT "You can leave this<br/> room by going"<br/> 15050 PRINT "South, East, or We<br/> st."<br/> 15060 RETURN <br/> 15200 N = 0:S = 1:E = 0:W = 1:U = <br/> 0:D = 0<br/> 15210 PRINT "A single skull lie<br/> s in the northeast"<br/> 15220 PRINT "corner of this roo<br/> m, providing just"<br/> 15230 PRINT "enough decor to ma<br/> ke you feel uneasy."<br/> 15240 PRINT "Available exits fr<br/> om this room are to"<br/> 15250 PRINT "the South and to t<br/> he West."<br/> 15260 RETURN <br/> 15400 N = 1:S = 0:E = 1:W = 0:U = <br/> 0:D = 0<br/> 15410 PRINT "A stone statue of <br/> a griffin stands in"<br/> 15420 PRINT "the southwest corn<br/> er of this room."<br/> 15430 PRINT "From here your ava<br/> ilable exits are to"<br/> 15440 PRINT "the North or the E<br/> ast."<br/> 15450 RETURN <br/> 15600 N = 0:S = 0:E = 1:W = 1:U = <br/> 0:D = 0<br/> 15610 PRINT "There was a nice c<br/> loth banner hanging"<br/> 15620 PRINT "from the wall here<br/> once. You can tell"<br/> 15630 PRINT "because of the shr<br/> edded remains of"<br/> 15640 PRINT "what was once a ni<br/> ce cloth banner"<br/> 15650 PRINT "hanging from the w<br/> all. You can go"<br/> 15660 PRINT "either East or Wes<br/> t."<br/> 15670 RETURN <br/> 15800 N = 1:S = 0:E = 0:W = 1:U = <br/> 0:D = 0<br/> 15810 PRINT "Light pours into t<br/> his room through a"<br/> 15820 PRINT "crack in the easte<br/> rn wall. You can"<br/> 15830 PRINT "head North toward <br/> the long staircase"<br/> 15840 PRINT "or West toward who<br/> -knows-where."<br/> 15850 RETURN <br/> 16000 N = 1:S = 1:E = 0:W = 0:U = <br/> 0:D = 0<br/> 16010 PRINT "There looks to be <br/> a stairway to the"<br/> 16020 PRINT "South... You hope <br/> your eyes aren't"<br/> 16030 PRINT "playing tricks