1 O = 0:L = 0:S = 0:K = 0:P = 0:Y = 0:X = 0:D = 0 2 HOME : GR : COLOR= 5 3 COLUMN = 0 4 VLIN 0,39 AT COLUMN 5 COLUMN = COLUMN + 1 6 IF COLUMN < 40 THEN GOTO 4 7 COLOR= 0 8 VLIN 24,33 AT 4 9 VLIN 24,33 AT 5 10 REM COPYRIGHT BY MARNEY KLIEVER 1983 11 VLIN 21,33 AT 6: VLIN 21,33 AT 7 12 VLIN 12,15 AT 8 13 VLIN 21,33 AT 8 14 VLIN 11,33 AT 9 15 VLIN 10,33 AT 10 16 VLIN 11,33 AT 11 17 VLIN 12,15 AT 12 18 VLIN 27,33 AT 12 19 VLIN 27,33 AT 13 20 VLIN 27,33 AT 14 21 VLIN 27,33 AT 15 22 VLIN 27,33 AT 16 23 VLIN 27,33 AT 17 24 VLIN 29,33 AT 18 25 VLIN 29,33 AT 19 26 VLIN 29,33 AT 20 27 VLIN 29,33 AT 21 28 COLOR= 13 29 PLOT 10,13 30 COLOR= 0 31 VLIN 8,12 AT 20 32 PLOT 19,8 33 PLOT 21,8 34 VLIN 8,12 AT 23: VLIN 8,12 AT 25 35 PLOT 24,10 36 VLIN 8,12 AT 27 37 HLIN 28,29 AT 8 38 PLOT 28,10 39 HLIN 28,29 AT 12 40 VLIN 14,18 AT 17 41 HLIN 18,19 AT 14 42 PLOT 18,16 43 HLIN 18,19 AT 18 44 VLIN 14,18 AT 21: HLIN 22,23 AT 14 45 PLOT 23,15 46 PLOT 22,16 47 PLOT 23,17 48 HLIN 22,23 AT 18 49 VLIN 14,18 AT 25 50 VLIN 14,18 AT 27 51 PLOT 26,14 52 PLOT 26,18 53 VLIN 14,18 AT 29 54 VLIN 15,16 AT 30 55 VLIN 16,17 AT 31 56 VLIN 14,18 AT 32 57 VLIN 14,15 AT 34 58 VLIN 16,18 AT 35 59 VLIN 14,15 AT 36 60 VLIN 20,24 AT 15 61 HLIN 16,17 AT 20 62 HLIN 16,17 AT 24 63 VLIN 20,24 AT 19 64 VLIN 20,24 AT 21 65 PLOT 20,20 66 PLOT 20,22 67 HLIN 23,25 AT 20 68 PLOT 23,21 69 HLIN 23,25 AT 22 70 PLOT 25,23 71 HLIN 23,25 AT 24 72 VLIN 20,24 AT 28 73 PLOT 27,20 74 PLOT 29,20 75 VLIN 20,24 AT 31 76 HLIN 32,33 AT 24 77 VLIN 20,24 AT 35 78 HLIN 36,37 AT 20 79 PLOT 36,22 80 HLIN 36,37 AT 24 81 FOR I = 1 TO 15 82 COLOR= 15 83 PLOT 5,13 84 PLOT 4,14 85 PLOT 3,15 86 HLIN 2,5 AT 16 87 PLOT 4,17 88 PLOT 3,18 89 PLOT 2,19 90 PLOT 1,20 91 PLOT 2,1 92 PLOT 3,2 93 PLOT 4,3 94 PLOT 5,4 95 HLIN 3,6 AT 5 96 PLOT 4,6 97 PLOT 5,7 98 PLOT 6,8 99 PLOT 23,1 100 PLOT 22,2 101 PLOT 21,3 102 HLIN 20,23 AT 4 103 PLOT 22,5 104 PLOT 21,6 105 COLOR= 5 109 PLOT 5,13 110 PLOT 4,14 111 PLOT 3,15 112 HLIN 2,5 AT 16 113 PLOT 4,17 114 PLOT 3,18 115 PLOT 2,19 116 PLOT 1,20 117 PLOT 2,1 118 PLOT 3,2 119 PLOT 4,3 120 PLOT 5,4 121 HLIN 3,6 AT 5 122 PLOT 4,6 123 PLOT 5,7 124 PLOT 6,8 125 PLOT 23,1 126 PLOT 22,2 127 PLOT 21,3 128 HLIN 20,23 AT 4 129 PLOT 22,5 130 PLOT 21,6 131 NEXT 132 VTAB 22 133 PRINT "CREATED BY MARNEY KLIEVER, 1983" 134 FOR D = 1 TO 3000: NEXT D 135 TEXT : HOME 136 PRINT : PRINT "YOU ARE WALKING IN A FEY FOREST. IT IS" 137 PRINT : PRINT "ABOUT 6:00 P.M. YOU BEGIN TO DAY-" 139 PRINT : PRINT "DREAM, BUT YOU ARE AWAKENED BY A " 140 PRINT : PRINT "GALLANT KNIGHT GALLOPING BY ON A WHITE" 141 PRINT : PRINT "STEED. YOU LOOK AROUND. YOU CAN NOT" 142 PRINT : PRINT "RECOGNIZE WHERE YOU ARE. A FEMALE" 143 PRINT : PRINT "PEASANT WALKS UP TO YOU. YOU ASK HER" 144 PRINT : PRINT "WHAT YEAR IT IS. SHE TELLS YOU IT IS" 145 PRINT : PRINT "1353. SHE LOOKS AT YOU,THEN SCREAMS," 146 PRINT : PRINT "'ZOUNDS! IT IS T.S. THORTON!' ALL THE" 147 PRINT : PRINT "VILLAGERS GATHER AROUND YOU IN A BIG" 148 PRINT : PRINT "COMMOTION. YOU ASK WHAT THEY (RETURN)";: INPUT "";Z$ 149 PRINT : PRINT "ARE TALKING ABOUT. THEY TELL YOU THAT" 150 PRINT : PRINT "THEY HAVE BEEN WAITING FOR YEARS FOR" 151 PRINT : PRINT "T.S. THORTON TO COME AND DESTROY THE" 152 PRINT : PRINT "CURSE PUT UPON THEIR TOWN. TO DO THIS," 153 PRINT : PRINT "YOU MUST GO TO THE TOP TOWER OF THE" 154 PRINT : PRINT "HAUNTED EBONY CASTLE AND TURN OFF THE" 155 PRINT : PRINT "MAGIC LANTERN. YOU TRY TO TELL THEM " 156 PRINT : PRINT "THAT YOU AREN'T T.S. THORTON BUT THEY" 158 PRINT : PRINT "DISAPPEAR! A HUGE STORM APPROACHES." 159 PRINT : PRINT "EVERYTHING TURNS VERY DARK AND ABOUT" 160 PRINT : PRINT "TWO HUNDRED YARDS IN FRONT OF YOU IS..." 162 PRINT : PRINT "AN EBONY CASTLE! (PRESS RETURN)"; 163 INPUT "";Z$ 200 HOME : GR : COLOR= 10 201 COLUMN = 0 202 VLIN 0,39 AT COLUMN 203 COLUMN = COLUMN + 1 204 IF COLUMN < 40 THEN GOTO 202 205 COLOR= 0 206 VLIN 16,31 AT 12 207 VLIN 16,31 AT 13 208 VLIN 13,31 AT 14 209 VLIN 13,31 AT 15 210 VLIN 13,31 AT 16: VLIN 3,6 AT 16: VLIN 2,31 AT 17 211 VLIN 1,31 AT 18 212 VLIN 2,31 AT 19 213 VLIN 3,6 AT 20: VLIN 23,31 AT 20 214 VLIN 23,31 AT 21: VLIN 23,31 AT 22: VLIN 23,31 AT 23 215 VLIN 23,31 AT 24: VLIN 23,31 AT 25: VLIN 25,31 AT 26 216 VLIN 25,31 AT 27: VLIN 25,31 AT 28: VLIN 25,31 AT 29 217 COLOR= 13 218 PLOT 18,4 219 FOR I = 1 TO 11: COLOR= 15: PLOT 5,3: PLOT 4,4: PLOT 3,5: HLIN 2,5 AT 6 220 HLIN 2,5 AT 6 221 PLOT 4,7: PLOT 3,8: PLOT 2,9: PLOT 1,10 222 PLOT 3,22: PLOT 4,23: PLOT 5,24: HLIN 3,6 AT 25 223 PLOT 4,26: PLOT 5,27: PLOT 6,28: PLOT 7,29 224 PLOT 24,2: PLOT 25,3: PLOT 26,4: HLIN 24,27 AT 5 225 PLOT 24,6: PLOT 25,7: PLOT 26,8: PLOT 27,9 226 PLOT 34,12: PLOT 33,13: PLOT 32,14: HLIN 31,34 AT 15 227 PLOT 33,16: PLOT 32,17: PLOT 31,18: PLOT 30,19 228 COLOR= 10: PLOT 5,3: PLOT 4,4: PLOT 3,5 229 HLIN 2,5 AT 6: PLOT 4,7: PLOT 3,8: PLOT 2,9: PLOT 1,10 230 PLOT 3,22: PLOT 4,23: PLOT 5,24: HLIN 3,6 AT 25 231 PLOT 4,26: PLOT 5,27: PLOT 6,28: PLOT 7,29 232 PLOT 24,2: PLOT 25,3: PLOT 26,4: HLIN 24,27 AT 5 233 PLOT 24,6: PLOT 25,7: PLOT 26,8: PLOT 27,9 234 PLOT 34,12: PLOT 33,13: PLOT 32,14: HLIN 31,34 AT 15 235 PLOT 33,16: PLOT 32,17: PLOT 31,18: PLOT 30,19: NEXT 236 VTAB 22 237 PRINT "YOU ARE VERY CLOSE TO THE CASTLE." 238 PRINT "WHAT DIRECTION (NORTH,SOUTH,EAST,WEST)": PRINT "DO YOU WANT TO GO"; 239 INPUT Z$ 240 IF Z$ = "EAST" THEN GOTO 250 242 IF Z$ = "WEST" THEN GOTO 250 243 IF Z$ = "SOUTH" THEN GOTO 250 244 IF Z$ = "NORTH" THEN GOTO 280 245 GOTO 1000 250 TEXT : HOME : PRINT "YOU HAVE JUST BEEN HIT BY A LIGHTNING" 251 PRINT "BOLT." 252 PRINT "DO YOU WANT TO START AGAIN"; 253 INPUT B$ 254 IF B$ = "YES" THEN GOTO 1 255 IF B$ = "NO" THEN GOTO 2000 256 GOTO 1001 280 HOME : GR 281 COLOR= 10 282 COLUMN = 0 283 VLIN 0,39 AT COLUMN 284 COLUMN = COLUMN + 1 285 IF COLUMN < 40 THEN GOTO 283 286 COLOR= 0 288 HLIN 7,29 AT 1 289 HLIN 6,30 AT 2 290 HLIN 5,31 AT 3 291 VLIN 4,34 AT 5: VLIN 4,34 AT 18: VLIN 4,35 AT 31 292 HLIN 6,30 AT 35: HLIN 4,32 AT 36: HLIN 3,33 AT 37: HLIN 2,34 AT 38 293 PLOT 5,35 294 VLIN 21,31 AT 7: VLIN 21,31 AT 10: HLIN 8,9 AT 21: HLIN 8,9 AT 31 295 VLIN 21,31 AT 13: VLIN 21,31 AT 16: HLIN 14,15 AT 21: HLIN 14,15 AT 31 296 VLIN 21,31 AT 20: VLIN 21,31 AT 23: HLIN 21,22 AT 21: HLIN 21,22 AT 31 297 VLIN 21,31 AT 26: VLIN 21,31 AT 29: HLIN 27,28 AT 21: HLIN 27,28 AT 31 298 VLIN 10,17 AT 7: VLIN 10,17 AT 16 299 HLIN 10,14 AT 7 300 PLOT 8,9: PLOT 9,8: PLOT 14,8: PLOT 15,9 301 VLIN 10,17 AT 20: VLIN 10,17 AT 29: HLIN 23,26 AT 7 302 PLOT 22,8: PLOT 21,9: PLOT 27,8: PLOT 28,9 303 HLIN 8,15 AT 17: HLIN 21,28 AT 17 304 COLOR= 8: HLIN 10,13 AT 13: HLIN 10,13 AT 14: PLOT 13,12: PLOT 10,12: HLIN 11,12 AT 11 305 HLIN 24,25 AT 11: HLIN 23,26 AT 13: HLIN 23,26 AT 14: PLOT 23,12: PLOT 26,12 306 VTAB 21: PRINT "YOU ARE AT THE CASTLE DOOR." 307 VTAB 22: PRINT "PRESS RETURN FOR DESCRIPTIONS."; 308 INPUT "";C$ 309 TEXT : HOME 310 PRINT "THE DOOR IS VERY BIG. IT HAS LARGE " 311 PRINT "PANELS AND TWO BRASS KNOCKERS. THE" 312 PRINT "HUGE DOORKNOB IS OLD AND RUSTY, BUT YOU" 313 PRINT "COULD OPEN IT IF YOU TRIED." 314 PRINT "" 315 PRINT "DO YOU WANT TO ENTER THE CASTLE"; 316 INPUT D$ 317 IF D$ = "YES" THEN GOTO 325 318 IF D$ = "NO" THEN GOTO 250 319 GOTO 1002 325 HOME : GR : COLOR= 5 326 COLUMN = 0 327 VLIN 0,39 AT COLUMN 328 COLUMN = COLUMN + 1 329 IF COLUMN < 40 THEN GOTO 327 330 COLOR= 0 331 COLUMN = 0 332 VLIN 0,39 AT COLUMN 333 COLUMN = COLUMN + 1 334 IF COLUMN < 7 THEN GOTO 332 335 COLUMN = 33 336 VLIN 0,39 AT COLUMN 337 COLUMN = COLUMN + 1 338 IF COLUMN < 40 THEN GOTO 336 339 COLOR= 4 340 FOR COLUMN = 7 TO 31 STEP 4 341 FOR LINE = 0 TO 39 STEP 2 342 HLIN COLUMN,COLUMN + 1 AT LINE 343 NEXT LINE 344 NEXT COLUMN 345 FOR COLUMN = 9 TO 29 STEP 4 346 FOR LINE = 1 TO 40 STEP 2 347 HLIN COLUMN,COLUMN + 1 AT LINE 348 NEXT LINE 349 NEXT COLUMN 400 VTAB 21 401 PRINT "YOU ARE IN A GRAND ENTRANCE HALL." 402 VTAB 22: PRINT "PRESS RETURN FOR DESCRIPTIONS."; 403 INPUT "";E$ 404 TEXT : HOME 405 PRINT "THIS ELEGANT HALL IS TILED IN GREEN" 406 PRINT "AND GRAY. THERE IS A ROOM ON YOUR RIGHT" 407 PRINT "AND ANOTHER ROOM ON YOUR LEFT. IN FRONT" 408 PRINT "OF YOU IS A STAIRCASE. WHAT DIRECTION" 409 PRINT "(NORTH,SOUTH,EAST,WEST) DO YOU WANT TO": PRINT "GO"; 410 INPUT F$ 411 IF F$ = "EAST" THEN GOTO 416 412 IF F$ = "WEST" THEN GOTO 525 413 IF F$ = "SOUTH" THEN GOTO 280 414 IF F$ = "NORTH" THEN GOTO 620 415 GOTO 1004 416 HOME : GR : COLOR= 7:COLUMN = 0 417 VLIN 0,39 AT COLUMN 418 COLUMN = COLUMN + 1 419 IF COLUMN < 38 THEN GOTO 417 425 COLOR= 1 426 HLIN 0,37 AT 0: HLIN 0,17 AT 1: HLIN 0,16 AT 2: HLIN 0,15 AT 3: HLIN 0,14 AT 4: HLIN 0,13 AT 5: HLIN 0,12 AT 6: HLIN 0,11 AT 7: HLIN 0,10 AT 8: HLIN 0,9 AT 9: HLIN 0,8 AT 10: HLIN 0,7 AT 11 427 HLIN 0,6 AT 12: HLIN 0,5 AT 13: HLIN 0,4 AT 14: HLIN 0,3 AT 15: HLIN 0,2 AT 16: HLIN 0,1 AT 17 428 VLIN 18,37 AT 0: VLIN 19,37 AT 1: VLIN 20,37 AT 2 430 PLOT 0,18 431 HLIN 19,37 AT 1: HLIN 20,37 AT 2: HLIN 21,37 AT 3: HLIN 22,37 AT 4 432 HLIN 23,37 AT 5: HLIN 24,37 AT 6: HLIN 25,37 AT 7: HLIN 26,37 AT 8: HLIN 27,37 AT 9: HLIN 28,37 AT 10: HLIN 29,37 AT 11: HLIN 30,37 AT 12: HLIN 31,37 AT 13 433 HLIN 32,37 AT 14: HLIN 33,37 AT 15: HLIN 34,37 AT 16: HLIN 35,37 AT 17: HLIN 36,37 AT 18 434 VLIN 19,37 AT 37: VLIN 20,37 AT 36: VLIN 21,37 AT 35 440 IF K = 1 THEN GOTO 445 444 COLOR= 13: HLIN 29,34 AT 5: HLIN 34,36 AT 4: HLIN 34,36 AT 6: PLOT 36,5: VLIN 6,7 AT 29: VLIN 6,7 AT 31 445 COLOR= 13: VLIN 27,28 AT 6: VLIN 17,31 AT 7: VLIN 16,33 AT 8: VLIN 15,31 AT 9: VLIN 14,31 AT 10: VLIN 15,31 AT 11: VLIN 16,33 AT 12: VLIN 17,31 AT 13: VLIN 27,28 AT 14 446 VLIN 27,28 AT 23: VLIN 17,31 AT 24: VLIN 16,33 AT 25: VLIN 15,31 AT 26: VLIN 14,31 AT 27: VLIN 15,31 AT 28: VLIN 16,33 AT 29: VLIN 17,31 AT 30: VLIN 27,28 AT 31 447 COLOR= 1: VLIN 19,26 AT 9: VLIN 18,26 AT 10: VLIN 19,26 AT 11: HLIN 8,12 AT 29: HLIN 8,12 AT 30 448 VLIN 19,26 AT 26: VLIN 18,26 AT 27: VLIN 19,26 AT 28: HLIN 25,29 AT 29: HLIN 25,29 AT 30 449 COLOR= 5: HLIN 7,13 AT 34: HLIN 6,14 AT 35: HLIN 5,15 AT 36: HLIN 24,30 AT 34: HLIN 23,31 AT 35: HLIN 22,32 AT 36 450 VTAB 21 451 PRINT "YOU ARE IN A ROYAL THRONE ROOM." 452 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 453 INPUT "";G$ 454 TEXT : HOME 455 PRINT "THIS IS A HUGE ROOM THAT IS THREE" 456 PRINT "STORIES HIGH. IT IS ALSO VERY COLORFUL." 457 PRINT "THERE ARE TWO LARGE THRONES IN FRONT OF": PRINT "YOU." 458 IF K = 1 THEN GOTO 486 459 PRINT "THERE IS A VERY LARGE KEY HANGING ON": PRINT "A CURTAIN." 460 PRINT "WOULD YOU LIKE TO GET THE KEY"; 461 INPUT H$ 462 IF H$ = "YES" THEN GOTO 470 463 IF H$ = "NO" THEN GOTO 486 464 GOTO 1007 470 IF O = 0 THEN PRINT "IT IS TOO HIGH FOR YOU TO REACH.": GOTO 486 471 IF L = 1 THEN PRINT "YOU CLIMB UP THE LADDER AND GET THE KEY.":K = 1:L = 0: GOTO 486 472 PRINT "YOU ARE ALREADY CARRYING AN OBJECT.": PRINT "DO YOU WANT TO DROP IT"; 473 INPUT Z$ 474 IF Z$ = "YES" THEN PRINT "YOU ARE NO LONGER CARRYING IT.": GOTO 479 475 IF Z$ = "NO" THEN GOTO 486 476 GOTO 1010 479 IF O = 1 THEN O = 0 480 IF S = 1 THEN S = 0 481 IF P = 1 THEN P = 0 482 GOTO 460 485 PRINT "YOU ARE NOW CARRYING THE KEY.": GOTO 486 486 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 487 INPUT Z$ 488 IF Z$ = "NORTH" THEN GOTO 493 489 IF Z$ = "SOUTH" THEN GOTO 493 490 IF Z$ = "EAST" THEN GOTO 493 491 IF Z$ = "WEST" THEN GOTO 325 492 GOTO 1008 493 PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 487 500 REM COPYRIGHT BY MARNEY KLIEVER 1983 525 HOME : GR : COLOR= 5 526 COLUMN = 0 527 VLIN 0,39 AT COLUMN 528 COLUMN = COLUMN + 1 529 IF COLUMN < 40 THEN GOTO 527 530 COLOR= 0 531 HLIN 6,25 AT 26: HLIN 6,25 AT 27: HLIN 6,25 AT 27: HLIN 6,25 AT 28: HLIN 6,25 AT 29: HLIN 6,25 AT 30: HLIN 6,25 AT 30 532 HLIN 6,25 AT 30: HLIN 6,25 AT 31: HLIN 6,25 AT 32: HLIN 6,25 AT 33: HLIN 6,25 AT 34: HLIN 6,25 AT 35: HLIN 6,25 AT 36: HLIN 6,25 AT 37: HLIN 6,25 AT 38 534 COLOR= 8 535 VLIN 19,23 AT 17: VLIN 19,24 AT 18: VLIN 19,25 AT 19: VLIN 19,25 AT 20: VLIN 19,24 AT 21: VLIN 19,23 AT 22 536 COLOR= 0: HLIN 7,14 AT 23: HLIN 7,11 AT 24: HLIN 7,11 AT 25 537 COLOR= 8: VLIN 0,38 AT 0: VLIN 0,38 AT 3: HLIN 1,2 AT 2: HLIN 1,2 AT 4: HLIN 1,2 AT 6: HLIN 1,2 AT 8: HLIN 1,2 AT 10: HLIN 1,2 AT 12: HLIN 1,2 AT 14: HLIN 1,2 AT 16: HLIN 1,2 AT 18: HLIN 1,2 AT 20: HLIN 1,2 AT 22 538 HLIN 1,2 AT 24: HLIN 1,2 AT 26: HLIN 1,2 AT 28: HLIN 1,2 AT 30: HLIN 1,2 AT 32: HLIN 1,2 AT 34: HLIN 1,2 AT 36: PLOT 0,39: PLOT 3,39 539 COLOR= 0: VLIN 4,32 AT 29: VLIN 4,32 AT 38: HLIN 30,37 AT 4: HLIN 30,37 AT 17: HLIN 30,37 AT 32 540 HLIN 32,35 AT 9: PLOT 32,8: PLOT 35,8: VLIN 23,24 AT 34: VLIN 23,24 AT 35: HLIN 30,31 AT 24: HLIN 30,31 AT 25 541 HLIN 32,33 AT 26: HLIN 32,33 AT 27: HLIN 35,36 AT 26: HLIN 35,36 AT 27: HLIN 31,32 AT 29: HLIN 31,32 AT 30: HLIN 34,35 AT 29: HLIN 34,35 AT 30: COLOR= 8 542 VLIN 0,4 AT 10: PLOT 11,5: PLOT 12,4: VLIN 0,4 AT 16: PLOT 17,5: PLOT 18,4: VLIN 0,4 AT 22: PLOT 23,5: PLOT 24,4 543 COLOR= 15: VLIN 6,13 AT 11: VLIN 11,14 AT 12: VLIN 11,13 AT 13 544 COLOR= 0: VLIN 6,10 AT 17: VLIN 10,13 AT 16: VLIN 10,13 AT 18: COLOR= 4: VLIN 6,12 AT 23: VLIN 10,13 AT 24: VLIN 10,13 AT 25 545 VTAB 21 546 PRINT "YOU ARE IN A KITCHEN. PRESS RETURN" 547 PRINT "FOR DESCRIPTIONS."; 548 INPUT "";Z$ 550 TEXT : HOME 551 PRINT "YOU ARE IN AN OLD KITCHEN. ON THE LEFT" 552 PRINT "SIDE OF THIS ROOM THERE IS A WOBBLY" 553 PRINT "STAIRCASE. ON THE FAR RIGHT IS A " 554 PRINT "CHARCOAL STOVE. THERE ARE MANY COOKING" 555 PRINT "UTENSILS HERE." 556 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 557 INPUT Z$ 558 IF Z$ = "EAST" THEN GOTO 325 559 IF Z$ = "SOUTH" THEN GOTO 575 560 IF Z$ = "WEST" THEN GOTO 575 561 IF Z$ = "NORTH" THEN GOTO 700 562 GOTO 1003 575 PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 557 620 HOME : GR : COLOR= 8: VLIN 0,38 AT 0: VLIN 0,38 AT 15: VLIN 0,38 AT 31: HLIN 1,39 AT 7: HLIN 1,39 AT 13: HLIN 1,39 AT 21: HLIN 1,39 AT 30 621 HLIN 0,39 AT 0: HLIN 0,39 AT 38: VLIN 0,38 AT 39 622 IF S = 1 THEN GOTO 624 623 COLOR= 13: HLIN 22,28 AT 16: HLIN 22,28 AT 18: HLIN 22,29 AT 17: COLOR= 1: HLIN 18,21 AT 16: PLOT 21,15: HLIN 18,21 AT 17: HLIN 18,21 AT 18: PLOT 21,19 624 COLOR= 4: VLIN 2,6 AT 2: VLIN 2,6 AT 3: VLIN 9,12 AT 8: VLIN 8,12 AT 5: VLIN 9,12 AT 18: VLIN 3,6 AT 28: VLIN 3,6 AT 29: VLIN 23,29 AT 2: VLIN 27,29 AT 11: VLIN 24,29 AT 6 625 VLIN 24,29 AT 16: VLIN 24,29 AT 17: VLIN 27,29 AT 22: VLIN 33,37 AT 18: VLIN 31,37 AT 26: VLIN 33,37 AT 21: VLIN 2,6 AT 33: VLIN 2,6 AT 38: VLIN 3,6 AT 19: VLIN 2,6 AT 16 626 VLIN 16,20 AT 4: VLIN 14,20 AT 12: VLIN 8,12 AT 26: VLIN 8,12 AT 33: VLIN 10,12 AT 38: VLIN 15,20 AT 34: VLIN 15,20 AT 38: VLIN 25,29 AT 34: VLIN 33,37 AT 33: VLIN 32,37 AT 37 627 VLIN 33,37 AT 4 628 COLOR= 2: VLIN 2,6 AT 6: VLIN 2,6 AT 12: VLIN 4,6 AT 9: VLIN 2,6 AT 23: VLIN 2,6 AT 35: VLIN 10,12 AT 1: VLIN 8,12 AT 13: VLIN 8,12 AT 19: VLIN 8,12 AT 20: VLIN 8,12 AT 30 629 VLIN 9,12 AT 36: VLIN 15,20 AT 13: VLIN 16,20 AT 5: VLIN 14,20 AT 1: VLIN 14,20 AT 8: VLIN 14,20 AT 32: VLIN 23,29 AT 4: VLIN 22,29 AT 6: VLIN 22,29 AT 14: VLIN 25,29 AT 25: VLIN 26,29 AT 26 630 VLIN 22,29 AT 38: VLIN 32,37 AT 1: VLIN 33,37 AT 4: VLIN 31,37 AT 11: VLIN 35,37 AT 14: VLIN 31,37 AT 30 631 COLOR= 1: VLIN 2,6 AT 1: VLIN 2,6 AT 11: VLIN 2,6 AT 14: VLIN 4,6 AT 17: VLIN 2,6 AT 21: VLIN 3,6 AT 26: VLIN 2,6 AT 34: VLIN 2,6 AT 37: VLIN 9,12 AT 3: VLIN 8,12 AT 7: VLIN 8,12 AT 11: VLIN 9,12 AT 12 632 VLIN 9,12 AT 22: VLIN 8,12 AT 24: VLIN 8,12 AT 28: VLIN 9,12 AT 34: VLIN 14,20 AT 2: VLIN 17,20 AT 6: VLIN 14,20 AT 10: VLIN 14,20 AT 35: VLIN 23,29 AT 9: VLIN 25,29 AT 20: VLIN 22,29 AT 33 633 VLIN 23,29 AT 37: VLIN 32,37 AT 3: VLIN 31,37 AT 10: VLIN 35,37 AT 7: VLIN 31,37 AT 17: VLIN 35,37 AT 24: VLIN 34,37 AT 28: VLIN 31,37 AT 34 634 COLOR= 9: VLIN 33,37 AT 2: VLIN 34,37 AT 6: VLIN 35,37 AT 9: VLIN 33,37 AT 13: VLIN 33,37 AT 18: VLIN 31,37 AT 21: VLIN 31,37 AT 27: VLIN 32,37 AT 32: VLIN 33,37 AT 38 635 VLIN 23,29 AT 1: VLIN 25,29 AT 8: VLIN 23,29 AT 13: VLIN 22,29 AT 22: VLIN 22,29 AT 27: VLIN 24,29 AT 30: VLIN 24,29 AT 25: VLIN 22,29 AT 33: VLIN 26,29 AT 35 636 VLIN 15,20 AT 3: VLIN 17,20 AT 9: VLIN 14,20 AT 33: VLIN 16,20 AT 36: VLIN 8,12 AT 32: VLIN 8,12 AT 21: VLIN 9,12 AT 16: VLIN 9,12 AT 27: VLIN 9,12 AT 9: VLIN 2,6 AT 5 637 VLIN 3,6 AT 8: VLIN 2,6 AT 18: VLIN 2,6 AT 22: VLIN 4,6 AT 25: VLIN 2,6 AT 30: VLIN 22,29 AT 19 638 COLOR= 10: VLIN 2,6 AT 4: VLIN 1,6 AT 7: VLIN 3,6 AT 10: VLIN 4,6 AT 13: VLIN 3,6 AT 20: VLIN 1,6 AT 24: VLIN 3,6 AT 27: VLIN 3,6 AT 36: VLIN 3,6 AT 32 639 VLIN 8,12 AT 2: VLIN 10,12 AT 14: VLIN 8,12 AT 6: VLIN 10,12 AT 10: VLIN 9,12 AT 14: VLIN 8,12 AT 17: VLIN 10,12 AT 23: VLIN 9,12 AT 25: VLIN 9,12 AT 29: VLIN 8,12 AT 35: VLIN 9,12 AT 37 640 VLIN 8,12 AT 4: VLIN 15,20 AT 7: VLIN 18,20 AT 11: VLIN 16,20 AT 14: VLIN 15,20 AT 37 641 VLIN 26,29 AT 3: VLIN 24,29 AT 5: VLIN 24,29 AT 7: VLIN 25,29 AT 10: VLIN 22,29 AT 12: VLIN 24,29 AT 18: VLIN 24,29 AT 21: VLIN 27,29 AT 23: VLIN 25,29 AT 24: VLIN 25,29 AT 28: VLIN 26,29 AT 29 642 VLIN 24,29 AT 32: VLIN 23,29 AT 36: VLIN 33,37 AT 4: VLIN 32,37 AT 8: VLIN 34,37 AT 12: VLIN 32,37 AT 16: VLIN 32,37 AT 19: VLIN 32,37 AT 20: VLIN 34,37 AT 22: VLIN 34,37 AT 23: VLIN 32,37 AT 25: VLIN 34,37 AT 29: VLIN 32,37 AT 35: VLIN 32,37 AT 36 643 COLOR= 4: VLIN 32,37 AT 5 644 VTAB 21 645 PRINT "YOU ARE ON THE SECOND FLOOR IN A " 646 PRINT "LIBRARY. PRESS RETURN FOR DESCRIPTIONS."; 647 INPUT "";Z$ 660 TEXT : HOME 661 PRINT "THE LIBRARY'S WALLS ARE COVERED WITH " 662 PRINT "SHELVES FILLED WITH BOOKS." 663 IF S = 1 THEN GOTO 680 664 PRINT "THERE IS A GOLDEN SWORD HANGING ON THE": PRINT "WALL AMONG THE BOOKS." 665 PRINT "WOULD YOU LIKE TO GET THE SWORD"; 666 INPUT Z$ 667 IF Z$ = "NO" THEN GOTO 680 668 IF Z$ = "YES" THEN GOTO 670 669 GOTO 1005 670 IF O = 0 THEN PRINT "YOU ARE NOW CARRYING THE SWORD.":S = 1:O = 1: GOTO 680 671 PRINT "YOU ARE ALREADY CARRYING AN OBJECT.": PRINT "DO YOU WANT TO DROP IT"; 672 INPUT Z$ 673 IF Z$ = "YES" THEN PRINT "YOU ARE NO LONGER CARRYING IT.": GOTO 676 674 IF Z$ = "NO" THEN GOTO 680 675 GOTO 1014 676 GOSUB 3000 677 GOTO 665 680 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 681 INPUT Z$ 682 IF Z$ = "SOUTH" THEN GOTO 325 683 IF Z$ = "WEST" THEN GOTO 700 684 IF Z$ = "NORTH" THEN GOTO 1500 685 IF Z$ = "EAST" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 681 686 GOTO 1006 700 HOME : GR : COLOR= 3 701 COLUMN = 0 702 VLIN 25,39 AT COLUMN 703 COLUMN = COLUMN + 1 704 IF COLUMN < 40 THEN 702 705 COLOR= 11 706 COLUMN = 0 707 VLIN 0,24 AT COLUMN 708 COLUMN = COLUMN + 1 709 IF COLUMN < 40 THEN GOTO 707 710 COLOR= 8: VLIN 17,30 AT 8: VLIN 17,30 AT 25: VLIN 17,28 AT 10: VLIN 17,28 AT 23: HLIN 9,24 AT 17: HLIN 9,24 AT 18: HLIN 9,24 AT 19 711 VLIN 9,29 AT 1: HLIN 2,5 AT 22: VLIN 23,29 AT 5: VLIN 9,29 AT 32: HLIN 28,31 AT 22: VLIN 23,29 AT 28 712 COLOR= 1: VLIN 9,21 AT 2: HLIN 3,5 AT 21: VLIN 9,21 AT 31: HLIN 28,30 AT 21 713 COLOR= 0: VLIN 0,7 AT 17: HLIN 13,21 AT 7: PLOT 13,6: PLOT 15,6: PLOT 19,6: PLOT 21,6: COLOR= 4: PLOT 13,5: VLIN 4,5 AT 15: VLIN 4,5 AT 19: PLOT 21,5 714 COLOR= 5: VLIN 13,16 AT 23: HLIN 17,21 AT 16: HLIN 10,15 AT 16: COLOR= 8: HLIN 18,20 AT 14: HLIN 18,20 AT 15: COLOR= 13: HLIN 11,14 AT 14: HLIN 11,14 AT 15: COLOR= 1: HLIN 12,13 AT 13 715 COLOR= 15: VLIN 7,12 AT 26: VLIN 7,12 AT 27: VLIN 7,12 AT 28: COLOR= 0: PLOT 27,8 720 FOR I = 1 TO 50: COLOR= 13: PLOT 13,3: PLOT 15,2: PLOT 19,2: PLOT 21,3: COLOR= 9: PLOT 13,3: PLOT 15,2: PLOT 19,2: PLOT 21,3: NEXT 725 VTAB 21 726 PRINT "YOU ARE ON THE SECOND FLOOR IN A DINING" 727 PRINT "ROOM. PRESS RETURN FOR DESCRIPTIONS."; 728 INPUT "";Z$ 729 TEXT : HOME 730 PRINT "YOU ARE IN A FORMAL DINING ROOM THAT IS" 731 PRINT "DECORATED IN PASTEL COLORS. THE CANDLES" 732 PRINT "ARE LIT, AND THE TABLE IS SET FOR A " 733 PRINT "DELICIOUS MEAL. THERE IS A NOTE ON THE" 734 PRINT "WALL SAYING:": PRINT 735 PRINT " 'T.S. THORTON - HELP YOURSELF.'": PRINT 736 PRINT "WOULD YOU LIKE TO HAVE A BITE"; 737 INPUT Z$ 738 IF Z$ = "YES" THEN GOTO 741 739 IF Z$ = "NO" THEN GOTO 751 740 GOTO 1011 741 PRINT 742 PRINT "NO SOONER THAN YOU BITE INTO A" 743 PRINT "DELICIOUS PASTRY, YOU DIE! THE FOOD HAD" 744 PRINT "BEEN POISONED!" 746 PRINT "DO YOU WANT TO START AGAIN"; 747 INPUT Z$ 748 IF Z$ = "YES" THEN GOTO 1 749 IF Z$ = "NO" THEN GOTO 2000 750 GOTO 1012 751 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 752 INPUT Z$ 753 IF Z$ = "NORTH" THEN GOTO 1300 754 IF Z$ = "SOUTH" THEN GOTO 525 755 IF Z$ = "WEST" THEN GOTO 780 756 IF Z$ = "EAST" THEN GOTO 620 757 GOTO 1013 780 PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 752 798 END 799 COLUMN = 0 800 VLIN 0,28 AT COLUMN 801 COLUMN = COLUMN + 1 802 IF COLUMN < 40 THEN GOTO 800 803 RETURN 804 COLUMN = 0 805 VLIN 29,38 AT COLUMN 806 COLUMN = COLUMN + 1 807 IF COLUMN < 40 THEN GOTO 805: RETURN 809 VLIN 11,38 AT 13: VLIN 11,38 AT 37: RETURN 810 COLUMN = 14 811 VLIN 25,35 AT COLUMN 812 COLUMN = COLUMN + 1 813 IF COLUMN < 37 THEN GOTO 811 814 HLIN 34,36 AT 22: HLIN 33,36 AT 23: HLIN 32,36 AT 24 815 HLIN 24,26 AT 4: HLIN 23,27 AT 5: HLIN 22,28 AT 6: HLIN 21,29 AT 7: HLIN 20,30 AT 8: HLIN 19,31 AT 9: HLIN 18,32 AT 10: HLIN 17,33 AT 11: HLIN 16,34 AT 12: HLIN 14,36 AT 13: HLIN 14,36 AT 14: HLIN 14,36 AT 15: RETURN 816 HLIN 14,36 AT 16: PLOT 15,17: PLOT 17,17: PLOT 19,17: PLOT 21,17: PLOT 23,17: PLOT 25,17: PLOT 27,17: PLOT 29,17: PLOT 31,17 817 PLOT 33,17: PLOT 35,17: PLOT 25,4: PLOT 23,6: PLOT 27,6: PLOT 21,8: PLOT 25,8: PLOT 29,8: PLOT 19,10: PLOT 23,10: PLOT 27,10: PLOT 31,10: PLOT 17,12: PLOT 21,12: PLOT 25,12 818 PLOT 29,12: PLOT 33,12: PLOT 15,14: PLOT 19,14: PLOT 23,14: PLOT 27,14: PLOT 31,14: PLOT 35,14 819 PLOT 35,23: PLOT 17,25: PLOT 21,25: PLOT 25,25: PLOT 29,25: PLOT 33,25: PLOT 15,27: PLOT 19,27: PLOT 23,27: PLOT 27,27: PLOT 31,27: PLOT 35,27: PLOT 17,29 820 PLOT 21,29: PLOT 25,29: PLOT 29,29: PLOT 33,29: PLOT 15,31: PLOT 19,31: PLOT 23,31: PLOT 27,31: PLOT 31,31: PLOT 35,31: PLOT 15,35: PLOT 19,35: PLOT 23,35 821 PLOT 27,35: PLOT 31,35: PLOT 35,35: PLOT 17,33: PLOT 21,33: PLOT 25,33: PLOT 29,33: PLOT 33,33 826 RETURN 831 VLIN 24,31 AT 5: VLIN 24,27 AT 6: VLIN 24,27 AT 7: VLIN 24,27 AT 8: VLIN 24,27 AT 9: VLIN 24,27 AT 10: VLIN 24,31 AT 11 836 COLOR= 8: PLOT 8,25 837 RETURN 840 VTAB 21: PRINT "YOU ARE ON THE THIRD FLOOR IN A BEDROOM." 841 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 842 INPUT "";Z$ 843 TEXT : HOME 844 PRINT "YOU ARE IN ONE OF SEVERAL COURT BED-" 845 PRINT "ROOMS ON THE THIRD FLOOR. THIS ONE IS" 846 PRINT "NICELY DECORATED IN RED AND YELLOW." 847 IF P = 1 THEN GOTO 875 848 PRINT "ON THE TABLE IS A BOTTLE OF MAGIC" 849 PRINT "POTION." 850 PRINT "WOULD YOU LIKE TO GET THE POTION"; 851 INPUT Z$ 855 IF Z$ = "NO" THEN GOTO 875 856 IF Z$ = "YES" THEN GOTO 860 857 GOTO 1015 860 IF O = 0 THEN PRINT "YOU ARE NOW CARRYING THE POTION.":P = 1:O = 1: GOTO 875 862 PRINT "YOU ARE ALREADY CARRYING AN OBJECT.": PRINT "DO YOU WANT TO DROP IT"; 863 INPUT Z$ 864 IF Z$ = "YES" THEN PRINT "YOU ARE NO LONGER CARRYING IT.": GOTO 870 865 IF Z$ = "NO" THEN GOTO 875 866 GOTO 1016 870 IF O = 1 THEN O = 0 871 IF L = 1 THEN L = 0 872 IF S = 1 THEN S = 0 873 IF K = 1 THEN K = 0 874 GOTO 850 875 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 876 INPUT Z$ 877 IF Z$ = "NORTH" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 876 878 IF Z$ = "SOUTH" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 876 879 IF Z$ = "WEST" THEN GOTO 1300 880 IF Z$ = "EAST" THEN GOTO 1400 881 GOTO 1017 900 HOME : GR 901 COLOR= 8 902 FOR COLUMN = 0 TO 34 STEP 6 903 FOR LINE = 20 TO 36 STEP 6 904 FOR ROW = LINE TO LINE + 2 905 HLIN COLUMN,COLUMN + 2 AT ROW 906 NEXT ROW 907 NEXT LINE 908 NEXT COLUMN 909 FOR COLUMN = 3 TO 34 STEP 6 910 FOR LINE = 23 TO 35 STEP 6 911 FOR ROW = LINE TO LINE + 2 912 HLIN COLUMN,COLUMN + 2 AT ROW 913 NEXT ROW: NEXT LINE: NEXT COLUMN 914 VLIN 19,38 AT 0: HLIN 0,36 AT 38: VLIN 19,38 AT 36: HLIN 0,36 AT 19 916 COLOR= 2:COLUMN = 0 917 VLIN 0,18 AT COLUMN 918 COLUMN = COLUMN + 1 919 IF COLUMN < 37 THEN GOTO 917 920 COLOR= 0: VLIN 0,7 AT 18: VLIN 3,4 AT 16: VLIN 3,4 AT 20: PLOT 17,4: PLOT 19,4: HLIN 17,19 AT 7 925 COLOR= 1: VLIN 1,12 AT 1: VLIN 1,12 AT 5: HLIN 1,5 AT 1: HLIN 1,5 AT 12: VLIN 1,12 AT 7: VLIN 1,12 AT 11: HLIN 7,11 AT 1: HLIN 7,11 AT 12 926 COLOR= 4: VLIN 3,10 AT 3: VLIN 3,10 AT 9 927 COLOR= 1: VLIN 1,12 AT 25: VLIN 1,12 AT 29: HLIN 25,29 AT 1: HLIN 25,29 AT 12: VLIN 1,12 AT 31: VLIN 1,12 AT 35: HLIN 31,35 AT 1: HLIN 31,35 AT 12 928 COLOR= 4: VLIN 3,10 AT 27: VLIN 3,10 AT 33 930 COLOR= 1: HLIN 1,5 AT 14: HLIN 1,5 AT 18: VLIN 14,18 AT 1: VLIN 14,18 AT 5: COLOR= 4: PLOT 3,16 931 COLOR= 1: HLIN 7,11 AT 14: HLIN 7,11 AT 18: VLIN 15,17 AT 7: VLIN 15,17 AT 11: COLOR= 4: PLOT 9,16 932 COLOR= 1: HLIN 13,17 AT 14: HLIN 13,17 AT 18: VLIN 15,17 AT 13: VLIN 15,17 AT 17: COLOR= 4: PLOT 15,16 933 COLOR= 1: HLIN 19,23 AT 14: HLIN 19,23 AT 18: VLIN 15,17 AT 19: VLIN 15,17 AT 23: COLOR= 4: PLOT 21,16 934 COLOR= 1: HLIN 25,29 AT 14: HLIN 25,29 AT 18: VLIN 15,17 AT 25: VLIN 15,17 AT 29: COLOR= 4: PLOT 27,16 935 COLOR= 1: HLIN 31,35 AT 14: HLIN 31,35 AT 18: VLIN 15,17 AT 31: VLIN 15,17 AT 35: COLOR= 4: PLOT 33,16 936 FOR I = 1 TO 50: COLOR= 9: PLOT 16,1: PLOT 20,1: COLOR= 13: PLOT 16,1: PLOT 20,1: NEXT 940 VTAB 21 941 PRINT "YOU ARE ON THE FOURTH FLOOR IN A": PRINT "BALLROOM." 942 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 943 INPUT "";Z$ 945 TEXT : HOME 946 PRINT "YOU ARE IN A LOVELY BALLROOM. THIS ROOM" 947 PRINT "IS VERY LARGE AND IS TWO STORIES HIGH." 948 PRINT "AS YOU EXAMINE IT, THE CANDLES ON THE" 949 PRINT "CHANDELIER BEGIN TO FLICKER. THE WALLS" 950 PRINT "ARE COVERED WITH PANELS, AND THERE IS" 951 PRINT "ONE ON THE NORTH WALL THAT LOOKS LOOSE." 952 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 953 INPUT Z$ 955 IF Z$ = "SOUTH" THEN GOTO 1300 956 IF Z$ = "EAST" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 953 957 IF Z$ = "WEST" THEN GOTO 1100 958 IF Z$ = "NORTH" THEN GOTO 1600 959 GOTO 1024 997 REM COPYRIGHT BY MARNEY KLIEVER 1983 999 END 1000 PRINT "PLEASE REENTER": GOTO 239 1001 PRINT "PLEASE REENTER": GOTO 253 1002 PRINT "PLEASE REENTER": GOTO 316 1003 PRINT "PLEASE REENTER": GOTO 557 1004 PRINT "PLEASE REENTER": GOTO 410 1005 PRINT "PLEASE REENTER": GOTO 666 1006 PRINT "PLEASE REENTER": GOTO 681 1007 PRINT "PLEASE REENTER": GOTO 461 1008 PRINT "PLEASE REENTER": GOTO 487 1009 PRINT "PLEASE REENTER": GOTO 1698 1010 PRINT "PLEASE REENTER": GOTO 473 1011 PRINT "PLEASE REENTER": GOTO 737 1012 PRINT "PLEASE REENTER": GOTO 747 1013 PRINT "PLEASE REENTER": GOTO 752 1014 PRINT "PLEASE REENTER": GOTO 672 1015 PRINT "PLEASE REENTER": GOTO 851 1016 PRINT "PLEASE REENTER": GOTO 863 1017 PRINT "PLEASE REENTER": GOTO 876 1018 PRINT "PLEASE REENTER": GOTO 1321 1019 PRINT "PLEASE REENTER": GOTO 1422 1020 PRINT "PLEASE REENTER": GOTO 1532 1021 PRINT "PLEASE REENTER": GOTO 1151 1022 PRINT "PLEASE REENTER": GOTO 1169 1023 PRINT "PLEASE REENTER": GOTO 1186 1024 PRINT "PLEASE REENTER": GOTO 953 1025 PRINT "PLEASE REENTER": GOTO 1608 1026 PRINT "PLEASE REENTER": GOTO 1691 1027 PRINT "PLEASE REENTER": GOTO 2150 1028 PRINT "PLEASE REENTER": GOTO 2221 1029 PRINT "PLEASE REENTER": GOTO 2170 1030 PRINT "PLEASE REENTER": GOTO 1901 1031 PRINT "PLEASE REENTER": GOTO 1915 1032 PRINT "PLEASE REENTER": GOTO 1931 1033 PRINT "PLEASE REENTER": GOTO 1951 1034 PRINT "PLEASE REENTER": GOTO 2525 1035 PRINT "PLEASE REENTER": GOTO 2635 1036 PRINT "PLEASE REENTER": GOTO 1698 1100 HOME : GR 1101 COLOR= 15: HLIN 0,39 AT 0: HLIN 0,39 AT 39: VLIN 0,39 AT 0: VLIN 0,39 AT 39 1104 IF L = 1 THEN GOTO 1115 1105 COLOR= 10: VLIN 3,36 AT 22: VLIN 3,36 AT 29: HLIN 23,28 AT 5: HLIN 23,28 AT 9: HLIN 23,28 AT 13: HLIN 23,28 AT 17: HLIN 23,28 AT 21: HLIN 23,28 AT 25: HLIN 23,28 AT 29: HLIN 23,28 AT 33 1115 VTAB 21 1116 PRINT "YOU ARE IN A DARK AND MUSTY STORAGE": PRINT "ROOM." 1117 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1120 INPUT "";Z$ 1125 TEXT : HOME 1126 PRINT "YOU ARE IN A VERY SMALL, DARK ROOM THAT" 1127 PRINT "WINGS OFF OF THE BALLROOM." 1128 IF L = 1 THEN GOTO 1185 1130 PRINT "ALL YOU CAN SEE IS AN OLD GRAY LADDER" 1131 PRINT "IN THE CORNER." 1150 PRINT "WOULD YOU LIKE TO GET THE LADDER"; 1151 INPUT Z$ 1160 IF Z$ = "NO" THEN GOTO 1185 1161 IF Z$ = "YES" THEN GOTO 1166 1162 GOTO 1021 1166 IF O = 0 THEN PRINT "YOU ARE NOW CARRYING THE LADDER.":O = 1:L = 1: GOTO 1185 1168 PRINT "YOU ARE ALREADY CARRYING AN OBJECT.": PRINT "DO YOU WANT TO DROP IT"; 1169 INPUT Z$ 1170 IF Z$ = "YES" THEN PRINT "YOU ARE NO LONGER CARRYING IT.": GOTO 1175 1172 IF Z$ = "NO" THEN GOTO 1185 1173 GOTO 1022 1175 IF O = 1 THEN O = 0 1176 IF K = 1 THEN K = 0 1177 IF S = 1 THEN S = 0 1178 IF P = 1 THEN P = 0 1179 GOTO 1150 1185 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 1186 INPUT Z$ 1187 IF Z$ = "NORTH" THEN GOTO 1193 1188 IF Z$ = "SOUTH" THEN GOTO 1193 1189 IF Z$ = "EAST" THEN GOTO 900 1190 IF Z$ = "WEST" THEN GOTO 1193 1191 GOTO 1023 1193 PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1186 1200 HOME : GR : COLOR= 15: GOSUB 799 1201 COLOR= 2: GOSUB 804 1202 COLOR= 8: GOSUB 809 1203 COLOR= 13: GOSUB 810 1204 COLOR= 1: GOSUB 816 1205 COLOR= 1: GOSUB 831 1206 IF P = 1 THEN GOTO 840 1207 COLOR= 12: VLIN 19,23 AT 7: VLIN 18,23 AT 8: VLIN 19,23 AT 9: COLOR= 8: PLOT 8,17 1208 GOTO 840 1300 HOME : GR : COLOR= 13: GOSUB 799 1301 COLOR= 9: GOSUB 804 1302 COLOR= 8: GOSUB 809 1303 COLOR= 12: GOSUB 810 1304 COLOR= 4: GOSUB 816 1305 COLOR= 4: GOSUB 831 1306 COLOR= 8: VLIN 31,38 AT 0: VLIN 31,38 AT 1: VLIN 33,38 AT 2: VLIN 33,38 AT 3: VLIN 35,38 AT 4: VLIN 35,38 AT 5: VLIN 37,38 AT 6: VLIN 37,38 AT 7 1310 VTAB 21 1311 PRINT "YOU ARE ON THE THIRD FLOOR IN A BEDROOM." 1312 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1313 INPUT "";Z$ 1315 TEXT : HOME 1316 PRINT "YOU ARE IN ONE OF SEVERAL COURT BED-": PRINT "ROOMS. THIS ONE IS NICELY DECORATED IN": PRINT "SHADES OF GREEN. IN THE LEFT CORNER OF" 1317 PRINT "THE ROOM ARE SOME STAIRS LEADING TO THE": PRINT "FOURTH FLOOR." 1319 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 1321 INPUT Z$ 1322 IF Z$ = "NORTH" THEN GOTO 900 1323 IF Z$ = "SOUTH" THEN GOTO 700 1324 IF Z$ = "EAST" THEN GOTO 1200 1325 IF Z$ = "WEST" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1321 1326 GOTO 1018 1400 HOME : GR : COLOR= 7: GOSUB 799 1401 COLOR= 15: GOSUB 804 1402 COLOR= 8: GOSUB 809 1403 COLOR= 11: GOSUB 810 1404 COLOR= 3: GOSUB 816 1405 COLOR= 3: GOSUB 831 1410 VTAB 21 1411 PRINT "YOU ARE ON THE THIRD FLOOR IN A BEDROOM." 1415 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1416 INPUT "";Z$ 1417 TEXT : HOME 1418 PRINT "YOU ARE IN ONE OF SEVERAL COURT BED-" 1419 PRINT "ROOMS. THIS ONE IS NICELY DECORATED IN" 1420 PRINT "PINK AND LILAC. " 1421 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 1422 INPUT Z$ 1423 IF Z$ = "NORTH" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1422 1424 IF Z$ = "SOUTH" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1422 1425 IF Z$ = "EAST" THEN GOTO 1500 1426 IF Z$ = "WEST" THEN GOTO 1200 1427 GOTO 1019 1499 REM COPYRIGHT BY MARNEY KLIEVER 1983 1500 HOME : GR : COLOR= 4: GOSUB 799 1501 COLOR= 13: GOSUB 804 1502 COLOR= 8: GOSUB 809 1503 COLOR= 15: GOSUB 810 1504 COLOR= 9: GOSUB 816 1505 COLOR= 9: GOSUB 831 1520 VTAB 21: PRINT "YOU ARE ON THE THIRD FLOOR IN A BEDROOM." 1521 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1522 INPUT "";Z$ 1525 TEXT : HOME 1526 PRINT "YOU ARE IN ONE OF SEVERAL COURT BED-" 1527 PRINT "ROOMS. THIS ONE IS NICELY DECORATED IN" 1528 PRINT "WHITE AND ORANGE." 1531 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 1532 INPUT Z$ 1533 IF Z$ = "NORTH" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1532 1534 IF Z$ = "SOUTH" THEN GOTO 620 1535 IF Z$ = "EAST" THEN PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 1532 1536 IF Z$ = "WEST" THEN GOTO 1400 1537 GOTO 1020 1600 TEXT : HOME 1601 PRINT "YOU PUSH ON THE LOOSE PANEL AND IT " 1602 PRINT "SWINGS OPEN. YOU HAVE FOUND A SECRET" 1603 PRINT "PASSAGEWAY! YOU HEAR HEAVY BREATHING," 1604 PRINT "AND THERE IS AN EXTREMELY FOUL ODOR" 1605 PRINT "IN THE AIR." 1606 PRINT "ARE YOU SURE YOU WANT TO ENTER THE" 1607 PRINT "PASSAGEWAY"; 1608 INPUT Z$ 1609 IF Z$ = "NO" THEN GOTO 952 1610 IF Z$ = "YES" THEN GOTO 1650 1611 GOTO 1025 1650 HOME : GR 1651 COLOR= 15: VLIN 0,39 AT 9: VLIN 0,39 AT 28: HLIN 9,28 AT 0: HLIN 9,28 AT 39 1652 COLOR= 10:COLUMN = 10 1653 VLIN 1,38 AT COLUMN 1654 COLUMN = COLUMN + 1 1655 IF COLUMN < 28 THEN GOTO 1653 1660 COLOR= 0: VLIN 35,38 AT 11: VLIN 35,38 AT 12: VLIN 31,38 AT 13: VLIN 31,38 AT 14: VLIN 27,38 AT 15: VLIN 27,38 AT 16: VLIN 23,38 AT 17: VLIN 23,38 AT 18: 1661 VLIN 19,38 AT 19: VLIN 19,38 AT 20: VLIN 15,38 AT 21: VLIN 15,38 AT 22: VLIN 11,38 AT 23: VLIN 11,38 AT 24: VLIN 7,38 AT 25: VLIN 7,38 AT 26: VLIN 3,38 AT 27 1665 COLOR= 15: VLIN 3,16 AT 12: VLIN 3,16 AT 19: HLIN 12,19 AT 3: HLIN 12,19 AT 16 1666 COLOR= 0:COLUMN = 13 1667 VLIN 4,15 AT COLUMN 1668 COLUMN = COLUMN + 1 1669 IF COLUMN < 19 THEN GOTO 1667 1670 FOR I = 1 TO 40 1671 COLOR= 15: PLOT 17,6: PLOT 16,7: PLOT 15,8: HLIN 14,17 AT 9: PLOT 16,10: PLOT 15,11: PLOT 14,12 1672 COLOR= 0: PLOT 17,6: PLOT 16,7: PLOT 15,8: HLIN 14,17 AT 9: PLOT 16,10: PLOT 15,11: PLOT 14,12 1673 NEXT 1680 VTAB 21 1681 PRINT "YOU ARE IN A SECRET PASSAGEWAY." 1682 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1683 INPUT "";Z$ 1685 TEXT : HOME 1686 PRINT "THIS PASSAGEWAY IS VERY DARK AND VERY" 1687 PRINT "NARROW. THERE IS A STEEP STAIRCASE THAT" 1688 PRINT "SEEMS TO GO ON FOREVER. " 1690 PRINT "DO YOU WANT TO CLIMB THE STAIRCASE"; 1691 INPUT Z$ 1692 IF Z$ = "YES" THEN GOTO 2099 1693 IF Z$ = "NO" THEN GOTO 1695 1694 GOTO 1026 1695 PRINT "A LIGHTNING BOLT COMES THROUGH THE OPEN" 1696 PRINT "WINDOW AND STRIKES YOU DEAD!" 1697 PRINT "DO YOU WANT TO START AGAIN"; 1698 INPUT Z$ 1699 IF Z$ = "YES" THEN GOTO 1 1700 IF Z$ = "NO" THEN GOTO 2000 1701 GOTO 1036 1800 HOME : GR 1808 IF Y = 1 THEN GOTO 1820 1810 COLOR= 2: VLIN 26,36 AT 0: VLIN 25,35 AT 1: VLIN 23,35 AT 2: VLIN 21,34 AT 3: VLIN 19,33 AT 4: VLIN 17,35 AT 5: VLIN 15,31 AT 6: VLIN 33,36 AT 6: VLIN 12,29 AT 7: PLOT 7,36 1811 VLIN 7,15 AT 8: VLIN 20,31 AT 8: VLIN 8,13 AT 9: VLIN 23,25 AT 9: VLIN 28,34 AT 9: VLIN 7,14 AT 10: VLIN 32,35 AT 10: VLIN 9,15 AT 11: PLOT 11,35: VLIN 11,13 AT 12 1812 VLIN 15,16 AT 12: VLIN 12,13 AT 13: VLIN 16,17 AT 13: VLIN 13,14 AT 14: PLOT 14,17: PLOT 15,14 1813 COLOR= 9: PLOT 10,10: COLOR= 15: VLIN 10,11 AT 7: VLIN 10,14 AT 6: VLIN 14,16 AT 5: VLIN 14,18 AT 4: VLIN 18,20 AT 3: VLIN 18,22 AT 2: VLIN 22,24 AT 1: VLIN 22,25 AT 0 1819 IF X = 1 THEN GOTO 1830 1820 COLOR= 5: VLIN 26,36 AT 38: VLIN 25,35 AT 37: VLIN 23,35 AT 36: VLIN 21,34 AT 35: VLIN 19,33 AT 34: VLIN 17,35 AT 33: VLIN 15,31 AT 32: VLIN 33,36 AT 32 1821 VLIN 12,29 AT 31: PLOT 31,36: VLIN 7,15 AT 30: VLIN 20,31 AT 30: VLIN 8,13 AT 29: VLIN 23,25 AT 29: VLIN 28,34 AT 29: VLIN 7,14 AT 28 1822 VLIN 32,35 AT 28: VLIN 9,15 AT 27: PLOT 27,35: VLIN 11,13 AT 26: VLIN 15,16 AT 26: VLIN 12,13 AT 25: VLIN 16,17 AT 25: VLIN 13,14 AT 24: PLOT 24,17: PLOT 23,14 1823 COLOR= 9: PLOT 28,10 1824 COLOR= 15: VLIN 10,11 AT 31: VLIN 10,14 AT 32: VLIN 14,16 AT 33: VLIN 14,18 AT 34: VLIN 18,20 AT 35: VLIN 18,22 AT 36: VLIN 22,24 AT 37: VLIN 22,25 AT 38 1830 GOSUB 1850 1831 COLOR= 9: PLOT 19,32 1832 IF Y = 1 THEN GOTO 2600 1833 IF X = 1 THEN GOTO 2600 1834 GOSUB 1835: GOSUB 1856: GOTO 1856 1835 FOR I = 1 TO 25 1838 COLOR= 9: PLOT 16,16: PLOT 16,18: PLOT 17,16: PLOT 16,19: PLOT 18,17: PLOT 17,19: PLOT 18,21: PLOT 17,20 1840 PLOT 22,16: PLOT 22,18: PLOT 21,16: PLOT 21,19: PLOT 20,17: PLOT 22,19: PLOT 20,21: PLOT 21,20 1845 COLOR= 0: PLOT 16,16: PLOT 16,18: PLOT 17,16: PLOT 16,19: PLOT 18,17: PLOT 17,19: PLOT 18,21: PLOT 17,20 1846 PLOT 22,16: PLOT 22,18: PLOT 21,16: PLOT 21,19: PLOT 20,17: PLOT 22,19: PLOT 20,21: PLOT 21,20: NEXT : RETURN 1847 GOSUB 1856 1850 COLOR= 1: VLIN 34,37 AT 16: VLIN 27,38 AT 17: VLIN 27,38 AT 21: VLIN 34,37 AT 22: HLIN 18,20 AT 27: HLIN 18,20 AT 30: HLIN 18,20 AT 38 1855 COLOR= 4: VLIN 34,37 AT 19: HLIN 18,20 AT 37: RETURN 1856 FOR I = 1 TO 90: COLOR= 0: PLOT 19,32: COLOR= 9: PLOT 19,32: NEXT 1857 GOSUB 1835 1860 IF D = 1 THEN VTAB 21: PRINT "YOU ARE IN THE TOWER.": GOTO 1872 1870 VTAB 21:D = 1 1871 PRINT "YOU FINALLY REACHED THE TOWER!" 1872 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 1873 INPUT "";Z$ 1880 TEXT : HOME 1881 PRINT "YES, YOU HAVE MADE IT TO THE TOWER," 1882 PRINT "BUT YOU CAN'T CELEBRATE BECAUSE THERE" 1883 PRINT "ARE TWO FIERCE FIRE-BREATHING DRAGONS" 1884 PRINT "GUARDING THE MAGIC LANTERN." 1900 PRINT "DO YOU THINK THAT YOU COULD KILL ONE OF": PRINT "THE DRAGONS NOW"; 1901 INPUT Z$ 1905 IF Z$ = "NO" THEN GOTO 2220 1906 IF Z$ = "YES" THEN GOTO 1909 1907 GOTO 1030 1909 IF O = 1 THEN GOTO 1920 1910 IF O = 0 THEN GOTO 1912 1912 PRINT "YOU HAVE NOTHING TO KILL THE DRAGONS." 1913 PRINT "WITH. THEY BOTH ATTACK YOU AT ONCE AND": PRINT "YOU DIE." 1914 PRINT "DO YOU WANT TO START AGAIN"; 1915 INPUT Z$ 1916 IF Z$ = "YES" THEN GOTO 1 1917 IF Z$ = "NO" THEN GOTO 2000 1918 GOTO 1031 1920 IF P = 1 THEN GOTO 1930 1925 IF S = 1 THEN GOTO 1950 1926 GOTO 1912 1930 PRINT "WHICH ONE? (BLUE OR SILVER)"; 1931 INPUT "";Z$ 1932 IF Z$ = "BLUE" THEN GOTO 1940 1933 IF Z$ = "SILVER" THEN GOTO 1935 1934 GOTO 1032 1935 PRINT "YOU GIVE THE POTION TO THE SILVER DRAGON": PRINT "BUT IT DOES NOT AFFECT IT." 1936 PRINT "THE DRAGONS ATTACK YOU AT ONCE AND YOU": PRINT "DIE!" 1937 GOTO 1914 1940 PRINT "YOU GIVE THE POTION TO THE BLUE DRAGON": PRINT "AND IT MELTS! YOU KILLED A DRAGON!":Y = 1: IF X = 1 THEN GOTO 3100 1941 FOR I = 1 TO 5000: NEXT I: GOTO 1800 1950 PRINT "WHICH ONE? (BLUE OR SILVER)"; 1951 INPUT "";Z$ 1952 IF Z$ = "BLUE" THEN GOTO 1960 1953 IF Z$ = "SILVER" THEN GOTO 1980 1954 GOTO 1033 1960 PRINT "YOU BEGIN TO SLAY THE BLUE DRAGON, BUT" 1961 PRINT "YOUR HAND WILL NOT MOVE. THE DRAGONS" 1962 PRINT "ATTACK YOU AT ONCE AND YOU DIE!" 1963 GOTO 1914 1980 PRINT "YOU FIGHT THE SILVER DRAGON AND YOU": PRINT "KILL HIM!":X = 1: IF Y = 1 THEN GOTO 3100 1981 FOR I = 1 TO 5000: NEXT I: GOTO 1800 1995 REM COPRYRIGHT BY MARNEY KLIEVER 1983 1999 END 2000 HOME : VTAB 12: PRINT "THANK YOU FOR PLAYING EBONY CASTLE!" 2001 END 2007 INPUT Z$ 2099 IF D = 1 THEN GOTO 2300 2100 HOME : GR : COLOR= 10 2105 COLUMN = 0 2106 VLIN 0,39 AT COLUMN 2107 COLUMN = COLUMN + 1 2108 IF COLUMN < 40 THEN GOTO 2106 2115 COLOR= 0: VLIN 3,39 AT 10: VLIN 3,39 AT 26: HLIN 10,26 AT 3: VLIN 21,23 AT 12: VLIN 20,24 AT 13: VLIN 21,23 AT 14 2125 VTAB 21 2130 PRINT "YOU ARE IN FRONT OF THE DOOR TO THE" 2131 PRINT "TOWER." 2132 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 2133 INPUT "";Z$ 2140 TEXT : HOME 2141 PRINT "YOU ARE IN FRONT OF THE TOWER DOOR." 2142 PRINT "THERE IS A LARGE KEYHOLE IN THE DOOR." 2143 PRINT "YOU HEAR STRANGE SOUNDS, AND YOU CAN" 2144 PRINT "SEE ORANGE FLICKERING UNDER THE DOOR." 2145 PRINT "WOULD YOU LIKE TO GO IN"; 2150 INPUT Z$ 2151 IF Z$ = "NO" THEN GOTO 2160 2152 IF Z$ = "YES" THEN GOTO 2200 2153 GOTO 1027 2160 PRINT "BEFORE YOU CAN DO ANYTHING ELSE, YOU" 2161 PRINT "ACCIDENTALLY FALL DOWN THE STAIRS!" 2162 PRINT "YOU FALL ON YOUR HEAD AND YOU DIE." 2163 PRINT "DO YOU WANT TO START AGAIN"; 2170 INPUT Z$ 2175 IF Z$ = "YES" THEN GOTO 1 2176 IF Z$ = "NO" THEN GOTO 2000 2177 GOTO 1029 2198 END 2199 END 2200 IF K = 1 THEN GOTO 2205 2201 PRINT "THE DOOR IS LOCKED!": GOTO 2220 2205 PRINT "YOU UNLOCK THE DOOR WITH THE KEY.":O = 0:K = 0 2206 PRINT "PRESS RETURN TO ENTER THE TOWER."; 2207 INPUT "";Z$ 2208 GOTO 1800 2220 PRINT "WHAT DIRECTION DO YOU WANT TO GO"; 2221 INPUT Z$ 2222 IF Z$ = "NORTH" THEN GOTO 2230 2223 IF Z$ = "EAST" THEN GOTO 2230 2224 IF Z$ = "WEST" THEN GOTO 2230 2225 IF Z$ = "SOUTH" THEN GOTO 900 2226 GOTO 1028 2230 PRINT "YOU CAN'T GO IN THAT DIRECTION.": GOTO 2221 2300 HOME : GR : COLOR= 5:COLUMN = 0 2301 VLIN 0,39 AT COLUMN 2302 COLUMN = COLUMN + 1 2303 IF COLUMN < 40 THEN GOTO 2301 2305 COLOR= 0: VLIN 3,39 AT 10: VLIN 3,39 AT 26: HLIN 10,26 AT 3: HLIN 24,25 AT 4: HLIN 22,23 AT 5: HLIN 20,21 AT 6: HLIN 18,19 AT 7: HLIN 16,17 AT 8: HLIN 14,15 AT 9: VLIN 10,39 AT 14: VLIN 24,26 AT 16: VLIN 23,27 AT 17 2306 VLIN 24,26 AT 18 2310 COLOR= 8 2311 VLIN 4,39 AT 11: VLIN 4,39 AT 12: VLIN 4,39 AT 13: VLIN 4,8 AT 14: VLIN 4,8 AT 15: HLIN 16,23 AT 4: HLIN 16,21 AT 5: HLIN 16,19 AT 6: HLIN 16,17 AT 7 2320 VTAB 21 2321 PRINT "YOU ARE IN FRONT OF THE OPEN DOOR TO ": PRINT "THE TOWER. " 2322 PRINT "PRESS RETURN TO ENTER THE TOWER."; 2324 INPUT "";Z$ 2350 GOTO 1800 2370 END 2499 REM COPYRIGHT BY MARNEY KLIEVER 1983 2500 FOR I = 1 TO 25 2501 COLOR= 9: PLOT 22,16: PLOT 22,18: PLOT 21,16: PLOT 21,19: PLOT 20,17: PLOT 22,19: PLOT 20,21: PLOT 21,20 2502 COLOR= 0: PLOT 22,16: PLOT 22,18: PLOT 21,16: PLOT 21,19: PLOT 20,17: PLOT 22,19: PLOT 20,21: PLOT 21,20 2503 NEXT 2510 VTAB 21 2511 PRINT "YOU ARE IN THE TOWER." 2512 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 2513 INPUT "";Z$ 2520 TEXT : HOME 2521 PRINT "YOU ARE IN THE TOWER. NOW ONLY THE " 2522 PRINT "SILVER DRAGON IS LEFT." 2523 PRINT "DO YOU THINK YOU CAN KILL IT"; 2525 INPUT Z$ 2528 IF Z$ = "NO" THEN GOTO 2220 2529 IF Z$ = "YES" THEN GOTO 2535 2530 GOTO 1034 2535 IF S = 1 THEN GOTO 2545 2540 PRINT "YOU HAVE NOTHING TO KILL THE DRAGON" 2541 PRINT "WITH. IT ATTACKS YOU AT ONCE AND YOU ": PRINT "DIE!": GOTO 1914 2545 GOTO 1980 2600 IF Y = 1 THEN GOTO 2500 2605 FOR I = 1 TO 25: COLOR= 9: PLOT 16,16: PLOT 16,18: PLOT 17,16: PLOT 16,19: PLOT 18,17: PLOT 17,19: PLOT 18,21: PLOT 17,20 2610 COLOR= 0: PLOT 16,16: PLOT 16,18: PLOT 17,16: PLOT 16,19: PLOT 18,17: PLOT 17,19: PLOT 18,21: PLOT 17,20: NEXT 2620 VTAB 21 2621 PRINT "YOU ARE IN THE TOWER." 2622 PRINT "PRESS RETURN FOR DESCRIPTIONS."; 2624 INPUT "";Z$ 2625 TEXT : HOME 2630 PRINT "YOU ARE IN THE TOWER. NOW ONLY THE" 2631 PRINT "BLUE DRAGON IS LEFT." 2632 PRINT "DO YOU THINK YOU CAN KILL IT"; 2635 INPUT Z$ 2640 IF Z$ = "NO" THEN GOTO 2220 2645 IF Z$ = "YES" THEN GOTO 2655 2650 GOTO 1035 2655 IF P = 1 THEN GOTO 1940 2656 PRINT "YOU HAVE NOTHING TO KILL THE DRAGON": PRINT "WITH. IT ATTACKS YOU AT ONCE AND YOU": PRINT "DIE!": GOTO 1914 2699 END 3000 IF O = 1 THEN O = 0 3001 IF L = 1 THEN L = 0 3002 IF P = 1 THEN P = 0 3003 IF K = 1 THEN K = 0 3004 RETURN 3100 PRINT "SINCE BOTH DRAGONS ARE DEAD, YOU CAN" 3105 PRINT "TURN OFF THE LANTERN!" 3106 FOR I = 1 TO 5000: NEXT I 3110 TEXT : HOME 3111 PRINT "AS SOON AS YOU TURN OFF THE LANTERN," 3112 PRINT "EVERYTHING GOES BLACK FOR A COUPLE OF" 3113 PRINT "SECONDS. YOU FIND YOURSELF BACK IN THE" 3114 PRINT "FEY FOREST THAT YOU WERE IN EARLIER." 3115 PRINT "YOU HAVE SAVED THE PEASANTS FROM THEIR" 3116 PRINT "CURSE, AND YOU HAVE CONQUERED..." 3117 PRINT : PRINT "THE EBONY CASTLE!!!!!" 3120 INPUT "";Z$ 3121 GOTO 2000